IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Soucis pour exécuter une fonction


Sujet :

Langage Perl

  1. #1
    Expert éminent

    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Juillet 2004
    Messages
    2 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 756
    Points : 6 686
    Points
    6 686
    Par défaut Soucis pour exécuter une fonction
    Bonjour

    J'ai crée une fonction qui à pour objectif de crytper la valeur saisie dans un champ de formulaire. Le champ se nomme response. On récupére l'info avec:
    Ensuite pour les tests:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    my $response=&md5($cgi->param("response"));
    ....
     
    if ($response != $result)
    	{
    	$alert='Faux';
    	}
    Pour info, result c'est un champ caché crypté qui contient le résultat de la somme.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    sub md5
    {
    	my $in=$md5->add($response);
    	my $digest=$in->digest();
            my $md5=unpack("H*",$digest);
           return $md5;
    }
    sans oublier:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    use strict;
    use warnings;
     
    use MD5;
    my $md5=new MD5;
    A mon avis le champ response n'est jamais crypté donc le test échoue

    Un petit coup de main svp
    .Olivier

  2. #2
    Expert éminent

    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Juillet 2004
    Messages
    2 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 756
    Points : 6 686
    Points
    6 686
    Par défaut
    J'ai trouvé mon erreur:

    La fonction:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    sub md5
    {
    	my $in=$md5->add($response);
    	my $digest=$in->digest();
            my $md5=unpack("H*",$digest);
            return $md5;
    }
    Les test:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    my $response=$cgi->param("response");
     
    if (&md5($response) ne $result)
    {
    	$alert='<div class="feedback_alert">The result of the sum is incorrect!</div>';
    }


    Merki
    .Olivier

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 9
    Dernier message: 29/06/2010, 16h44
  2. Un bouton pour exécuter une fonction
    Par floctc dans le forum Langage
    Réponses: 5
    Dernier message: 05/05/2009, 11h18
  3. Problème pour exécuter une chaîne de caractères
    Par Pongo dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 02/09/2005, 10h34
  4. [VB.NET] Exécuter une fonction VB sur un Datagrid
    Par MiJack dans le forum Windows Forms
    Réponses: 3
    Dernier message: 24/09/2004, 14h45
  5. [DLL] problème pour appeler une fonction d'une DLL
    Par bigboomshakala dans le forum MFC
    Réponses: 34
    Dernier message: 19/07/2004, 11h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo