Création d'un captcha en perl

Bonjour :)

J'utilise actuellement sur un de mes sites un captcha en php qui calcule la somme de deux nombres générés aléatoirement.

J'ai décidé de le réécrire en perl.

Voici les trois premières étapes:

• Stocker des nombres dans un tableau
• Extraire deux nombres aléatoire du tableau
• Calcul de la somme des deux nombres

Voici le code en perl:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

#!/usr/bin/perl -w   # Don't forget chmod 755   use strict; use warnings; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); routine   # Security $CGI::POST_MAX=1024*100; # Max 100K posts $CGI::DISABLE_UPLOADS=1; # No upload   # Creating a new CGI object my $cgi=new CGI;   &show_captcha;   sub show_captcha {   # Table of values my @table=(2, 35, 15, 6, 40, 4, 8, 22, 11, 5, 32, 10, 1, 12, 26);   # Random extraction of two values of the table my @rand_keys=rand @table[2];   # Question and sum of the two values my $question='Please enter the result of the sum '.@table[@rand_keys[0]]. ' + '.@table[@rand_keys[1]].' (to avoid spam) = ';   print $cgi->header, $question; $cgi->end_html;

---

En php, pour extraire aléatoirement deux nombres, je l'écris de cette façon:

Code:

---

$rand_keys = array_rand($table, 2);

---

Mais en perl, c'est un autre problème. En effet, lorsque je rafraîchis la page, uniquement le premier nombre est généré, le second est toujours égal à 2 8O

Qu'en pensez-vous ?

Merci :mrgreen:

Que rand ne renvoie jamais qu'une seule valeur... Il est donc normal que @rand_keys n'en contienne qu'une (et donc quand tu demandes la deuxième, elle est undef, soit 0 en numérique...). Je te renvoie à la doc de rand() visiblement tu te méprends sur son utilisation.

Par ailleurs, je ne comprend pas très bien pourquoi tu utilises un tableau de valeur ? Deux nombres tirés aléatoirements en-dessous de 50 suffirait bien non ?

Tu utilises "@" là où tu devrais utiliser "$", ce n'est vraiment pas une bonne idée...

L'idiome pour récupérer un nombre au hasard dans un tableau @table, c'est :

Code:

---

$table[rand @table]

---

tout simplement.

Code:

---

1 2 3

print $cgi->header, $question; $cgi->end_html;

---

Tu devrais mettre une "," après $question, pas un ";". Est-ce que tu essaie de compiler tes programmes avant de les essayer ? Ca te pointerait déjà pas mal d'erreurs, surtout avec strict et warnings.

--
Jedaï

Bon j'ai avancé un peu :aie:

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/usr/bin/perl   print "Content-type: text/plain\n\n";   # Value (digits 1 to 100) @array = (1..100);   # Random srand;   # Use only 2 digits foreach (1..2) { $rand = int(rand scalar(@array));   # Digit 1 $n1=$array[$rand];   # Digit 2 $n2=splice(@array,$rand,1); }   # Somme of two value print 'Please enter the result of the sum '.$n1.' + '.$n2.' (to avoid spam) =';

---

A l'exécution, j'obtiens l'affichage suivant:

Code:

---

Please enter the result of the sum 73 + 73 (to avoid spam) =

---

Lorsque je rafraîchis la page, le deuxième nombre reste identique :oops:

ça va un peu mieux :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl   print "Content-type: text/plain\n\n";   # Value (digits 1 to 100) @array = (1..100);   # Random srand;   # Use only 2 digits foreach (1..2) { $rand = int(rand scalar(@array));   # Digit 1 $n1=$array[$rand];   # Digit 2 $n2=splice(@array,$rand,1); }   # Somme of two value print 'Please enter the result of the sum '.$n1.' + '.$n2.' (to avoid spam) = ';

---

Il arrive à me sortir une addition 0 + 0 :lol:

Tu m'explique ce qui ne te plait pas avec :

Code:

---

print 'Please enter the result of the sum '. int(rand 99)+1.' + '.int(rand 99)+1.' (to avoid spam) = ';

---

??
--
Jedaï

Tu n'as toujours pas répondu à la question de Jedai : pourquoi utiliser un tableau ? (ça m'intrigue aussi)
Pourquoi utiliser $n1=$array[$rand]; plutôt que, par exemple, $n1=int(rand 100) +1; ?
Et j'espère que tu te rends compte que ta boucle ne sert strictement à rien sinon à t'assurer que les deux nombres (au fait, "nombre" en anglais c'est "number", pas "digit", qui veut dire "chiffre") seront identiques à l'arrivée.

Je crois comprendre ce que tu as essayé de faire avec ta boucle, ton tableau et splice : t'assurer que les deux nombres sont différents, c'est ça ? Si c'est le cas c'est raté.
Je ne vois pas très bien en quoi c'est utile pour ton captcha, mais si tu y tiens, il y a d'autres solutions, bien plus simples.
Exemple :

Code:

---

1 2 3

my $n1=int(rand 100)+1; my $n2=($n1 + int(rand 99))%100+1;

---

Moui, bon, d'accord, pas forcément super-super-simple, mais quand même moins alambiqué que ta solution. Et puis, surtout, ça marche. Note au passage les my. Jedai doit être fatigué de le répéter tout le temps, alors je le fais à sa place : utilise le pragma strict !

Edit : encore doublé.

Jedai : en même temps, avec ta ligne, on ne conserve pas les termes de l'addition, donc c'est pas évident pour contrôler si elle est juste. Dure journée ?

J'ai souhaité utiliser un tableau car le captcha en php que j'utilisais sur mon ancien site utilisait un tableau.

J'essaye aujourd'hui de réaliser le même script mais en perl.

Ben, si tu y tiens, la solution, c'est de créer une fonction équivalente au array_rand de PHP. Je viens d'essayer, mais c'était super-lourd, j'ai renoncé. Mais, si tu veux mon avis, le tableau était déjà totalement inutile dans la version en PHP.
EDIT: bon, pour info, voici quand même un équivalent (où il faut passer le tableau par référence).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub array_rand { my ($ref_array,$nb)=@_; my @array=@{$ref_array}; return int(rand @array) unless (int $nb>=2); my @range=0..$#array; for (1..$nb) { push @result, splice (@range, int(rand @range),1); } return @result; }

---

J'ai mal à la tête...

Merci à vous deux pour ces réponses.

J'ai suivis Jedai en utilisant:

Code:

---

int(rand 99)+1

---

Le captcha est en place et peut-être testé à l'adresse http://www.oregnier.org/cgi-bin/feedback.cgi

Pour le moment, le resultat de la somme est visible dans le source de la page avec un clique droit de souris situé dans le champ caché. Je dois maintenant crypter ce résultat avec md5 et le tour sera joué.

La captcha fonctionne sans problème donc résolue. Je préfère ouvrir un autre post car j'ai décidé d'utiliser une fonction pour la vérification du résultat, malheureusement cela ne fonctionne plus :oops: (affaire à suivre)

Merki :mrgreen: