Discussion :

[Olivier Regnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

$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

Qu'en pensez-vous ?

Merci

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

$table[rand @table]

tout simplement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[Olivier Regnier]

Bon j'ai avancé un peu

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Olivier Regnier]

ça va un peu mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

??
--
Jedaï

[Schmorgluck]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Olivier Regnier]

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.