reCaptcha cgi recuperer les arguments pour validation code captcha

swilting

16/06/2008 à 00:37

swilting wrote:

#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
##use FileHandle;
use Captcha::reCAPTCHA;
use CGI::Safe;
use CGI::Simple;
use constant PUBLIC_KEY => '6Le***************1rq03wAyR';
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN ';

$|++;
my $c;
my $cgi;
my $key;
my $q;
my %etats;
my $ecran_actuel;
my @options;
my $error = undef;
##my $errortest;
##my $resulttest;

$cgi = new CGI;
$c = Captcha::reCAPTCHA->new;
$q = CGI::Simple->new;
%etats = (
'defaut' =>&saisie_commande,
'validation_code' =>&validation_code,
'annulation' =>&annulation,
);
$ecran_actuel = param(".Etat") || "defaut";
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel};

## engendre le document courant
en_tete_standard();
while ( my ($nom_ecran,$fonction) = each %etats){
$fonction->($nom_ecran eq $ecran_actuel);
}

pied_de_page_standard();

########################################################################
## fonctions d en tete , de pied de page ,de menu ################
########################################################################

sub en_tete_standard {
print header(),
start_html(-Title => "commande" , -BGCOLOR=>"White");
print start_form();
}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

}

..................
eval {

########################################eval { my $eval = fonc();}
plugin captcha
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire une
fonction qui prends comme argument fonction(@donnees,$eval)

my $result = $c->check_answer(
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response);
if ( $result->{is_valid} ) {
print "ok";validation_code();
}
else {
my $error = $result->{error};annulation();
}
menu_boutique(@options);
}

}

sub validation_code {
my($actif) = @_;
return unless $actif;
my $nom = param ('nom');
my $adresse = param ('adresse');
my $ville = param ('ville');
my $code_postal = param ('code_postal');
my $pays = param ('pays');
my $mail = param ('mail');
my @gadgets = qw(nom adresse ville code_postal pays mail);
unless ( $actif ) {
print map { hidden($_) } @gadgets;
return;
}
print p("code verifier");

}

sub annulation {
my($actif) = @_;
return unless $actif;
print p ("vous etes une mauvaise personne ou un robot spammeur :");

}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

ya pas un endroit ou ils disent comment l utiliser

ai fait des tres jolis eval { captcha } cet aprem

ça y est j ai l acces chez ovh centos 5.1
http://www.renelacroute.fr

je n arrive pas à recuperer les parametres du code recaptcha
le script fonctionne le plugin recaptcha est bien afficher

mais quand je clicke sur validation_code
j ai cette sortie

<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>commande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body bgcolor="White">
<form method="post" action="/cgi-bin/vente.cgi"
enctype="multipart/form-data">
</form>
</body>
</html>

meme pas le print p("");

je suis un peu troubler car je ne comprends pas

question serveur je viens de commander un rps chez ovh avec un centos

et j aurais les depots remi actif
et un yum -v install perl*

et le plugin captcha

swilting wrote:

#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
##use FileHandle;
use Captcha::reCAPTCHA;
use CGI::Safe;
use CGI::Simple;
use constant PUBLIC_KEY => '6Le***************1rq03wAyR';
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN ';

$|++;
my $c;
my $cgi;
my $key;
my $q;
my %etats;
my $ecran_actuel;
my @options;
my $error = undef;
##my $errortest;
##my $resulttest;

$cgi = new CGI;
$c = Captcha::reCAPTCHA->new;
$q = CGI::Simple->new;
%etats = (
'defaut' =>&saisie_commande,
'validation_code' =>&validation_code,
'annulation' =>&annulation,
);
$ecran_actuel = param(".Etat") || "defaut";
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel};

## engendre le document courant
en_tete_standard();
while ( my ($nom_ecran,$fonction) = each %etats){
$fonction->($nom_ecran eq $ecran_actuel);
}

pied_de_page_standard();

########################################################################
## fonctions d en tete , de pied de page ,de menu ################
########################################################################

sub en_tete_standard {
print header(),
start_html(-Title => "commande" , -BGCOLOR=>"White");
print start_form();
}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

}

..................
eval {

########################################eval { my $eval = fonc();}
plugin captcha
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire une
fonction qui prends comme argument fonction(@donnees,$eval)

my $result = $c->check_answer(
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response);
if ( $result->{is_valid} ) {
print "ok";validation_code();
}
else {
my $error = $result->{error};annulation();
}
menu_boutique(@options);
}

}

sub validation_code {
my($actif) = @_;
return unless $actif;
my $nom = param ('nom');
my $adresse = param ('adresse');
my $ville = param ('ville');
my $code_postal = param ('code_postal');
my $pays = param ('pays');
my $mail = param ('mail');
my @gadgets = qw(nom adresse ville code_postal pays mail);
unless ( $actif ) {
print map { hidden($_) } @gadgets;
return;
}
print p("code verifier");

}

sub annulation {
my($actif) = @_;
return unless $actif;
print p ("vous etes une mauvaise personne ou un robot spammeur :");

}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

ya pas un endroit ou ils disent comment l utiliser

ai fait des tres jolis eval { captcha } cet aprem

ça y est j ai l acces chez ovh centos 5.1
http://www.renelacroute.fr

je n arrive pas à recuperer les parametres du code recaptcha
le script fonctionne le plugin recaptcha est bien afficher

mais quand je clicke sur validation_code
j ai cette sortie

<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>commande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body bgcolor="White">
<form method="post" action="/cgi-bin/vente.cgi"
enctype="multipart/form-data">
</form>
</body>
</html>

meme pas le print p("");

je suis un peu troubler car je ne comprends pas

question serveur je viens de commander un rps chez ovh avec un centos

et j aurais les depots remi actif
et un yum -v install perl*

et le plugin captcha

Vous avez filtré cet utilisateur ! Consultez son message

swilting wrote:

#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
##use FileHandle;
use Captcha::reCAPTCHA;
use CGI::Safe;
use CGI::Simple;
use constant PUBLIC_KEY => '6Le***************1rq03wAyR';
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN ';

$|++;
my $c;
my $cgi;
my $key;
my $q;
my %etats;
my $ecran_actuel;
my @options;
my $error = undef;
##my $errortest;
##my $resulttest;

$cgi = new CGI;
$c = Captcha::reCAPTCHA->new;
$q = CGI::Simple->new;
%etats = (
'defaut' =>&saisie_commande,
'validation_code' =>&validation_code,
'annulation' =>&annulation,
);
$ecran_actuel = param(".Etat") || "defaut";
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel};

## engendre le document courant
en_tete_standard();
while ( my ($nom_ecran,$fonction) = each %etats){
$fonction->($nom_ecran eq $ecran_actuel);
}

pied_de_page_standard();

########################################################################
## fonctions d en tete , de pied de page ,de menu ################
########################################################################

sub en_tete_standard {
print header(),
start_html(-Title => "commande" , -BGCOLOR=>"White");
print start_form();
}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

}

..................
eval {

########################################eval { my $eval = fonc();}
plugin captcha
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire une
fonction qui prends comme argument fonction(@donnees,$eval)

my $result = $c->check_answer(
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response);
if ( $result->{is_valid} ) {
print "ok";validation_code();
}
else {
my $error = $result->{error};annulation();
}
menu_boutique(@options);
}

}

sub validation_code {
my($actif) = @_;
return unless $actif;
my $nom = param ('nom');
my $adresse = param ('adresse');
my $ville = param ('ville');
my $code_postal = param ('code_postal');
my $pays = param ('pays');
my $mail = param ('mail');
my @gadgets = qw(nom adresse ville code_postal pays mail);
unless ( $actif ) {
print map { hidden($_) } @gadgets;
return;
}
print p("code verifier");

}

sub annulation {
my($actif) = @_;
return unless $actif;
print p ("vous etes une mauvaise personne ou un robot spammeur :");

}
sub menu_boutique {
my(@options) = @_;
print p(vers_doc($options[0]),
vers_doc($options[1]));

ya pas un endroit ou ils disent comment l utiliser

ai fait des tres jolis eval { captcha } cet aprem

ça y est j ai l acces chez ovh centos 5.1
http://www.renelacroute.fr

je n arrive pas à recuperer les parametres du code recaptcha
le script fonctionne le plugin recaptcha est bien afficher

mais quand je clicke sur validation_code
j ai cette sortie

<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>commande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body bgcolor="White">
<form method="post" action="/cgi-bin/vente.cgi"
enctype="multipart/form-data">
</form>
</body>
</html>

meme pas le print p("");

je suis un peu troubler car je ne comprends pas

question serveur je viens de commander un rps chez ovh avec un centos

et j aurais les depots remi actif
et un yum -v install perl*

et le plugin captcha

swilting

16/06/2008 à 19:08

swilting wrote: 
 
<blockquote class="block0"> 
swilting wrote: 
 
<blockquote class="block1"> 
#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6Le***************1rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'defaut' =>&saisie_commande, 
'validation_code' =>&validation_code, 
'annulation' =>&annulation, 
); 
$ecran_actuel = param(".Etat") || "defaut"; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]), 
vers_doc($options[1])); 
 
} 
 
 
.................. 
eval { 
</blockquote> 
<blockquote class="block1"> 
########################################eval { my $eval = fonc();} 
plugin captcha 
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire 
une 
fonction qui prends comme argument fonction(@donnees,$eval) 
</blockquote> 
<blockquote class="block1"> 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); 
if ( $result->{is_valid} ) { 
print "ok";validation_code(); 
} 
else { 
my $error = $result->{error};annulation(); 
} 
menu_boutique(@options); 
} 
 
} 
</blockquote> 
<blockquote class="block1"> 
sub validation_code { 
my($actif) = @_; 
return unless $actif; 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
print p("code verifier"); 
 
} 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]), 
vers_doc($options[1])); 
 
 
 
</blockquote> 
ya pas un endroit ou ils disent comment l utiliser 
 
ai fait des tres jolis eval { captcha } cet aprem 
 
ça y est j ai l acces chez ovh centos 5.1 
http://www.renelacroute.fr 
 
<blockquote class="block1"> 
je n arrive pas à recuperer les parametres du code recaptcha 
le script fonctionne le plugin recaptcha est bien afficher 
 
 
mais quand je clicke sur validation_code 
j ai cette sortie 
 
<!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> 
<head> 
<title>commande</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" 
/> </head> 
<body bgcolor="White"> 
<form method="post" action="/cgi-bin/vente.cgi" 
enctype="multipart/form-data"> 
</form> 
</body> 
</html> 
 
meme pas le print p(""); 
 
je suis un peu troubler car je ne comprends pas 
 
question serveur je viens de commander un rps chez ovh avec un centos 
 
et j aurais les depots remi actif 
et un yum -v install perl* 
 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui

Vous avez filtré cet utilisateur ! Consultez son message

swilting wrote: 
 
<blockquote class="block0"> 
swilting wrote: 
 
<blockquote class="block1"> 
#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6Le***************1rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMA*******************jrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'defaut' =>&saisie_commande, 
'validation_code' =>&validation_code, 
'annulation' =>&annulation, 
); 
$ecran_actuel = param(".Etat") || "defaut"; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]), 
vers_doc($options[1])); 
 
} 
 
 
.................. 
eval { 
</blockquote> 
<blockquote class="block1"> 
########################################eval { my $eval = fonc();} 
plugin captcha 
print $c->get_html(PUBLIC_KEY);##je sais pas on pourait faire 
une 
fonction qui prends comme argument fonction(@donnees,$eval) 
</blockquote> 
<blockquote class="block1"> 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); 
if ( $result->{is_valid} ) { 
print "ok";validation_code(); 
} 
else { 
my $error = $result->{error};annulation(); 
} 
menu_boutique(@options); 
} 
 
} 
</blockquote> 
<blockquote class="block1"> 
sub validation_code { 
my($actif) = @_; 
return unless $actif; 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
print p("code verifier"); 
 
} 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]), 
vers_doc($options[1])); 
 
 
 
</blockquote> 
ya pas un endroit ou ils disent comment l utiliser 
 
ai fait des tres jolis eval { captcha } cet aprem 
 
ça y est j ai l acces chez ovh centos 5.1 
http://www.renelacroute.fr 
 
<blockquote class="block1"> 
je n arrive pas à recuperer les parametres du code recaptcha 
le script fonctionne le plugin recaptcha est bien afficher 
 
 
mais quand je clicke sur validation_code 
j ai cette sortie 
 
<!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> 
<head> 
<title>commande</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" 
/> </head> 
<body bgcolor="White"> 
<form method="post" action="/cgi-bin/vente.cgi" 
enctype="multipart/form-data"> 
</form> 
</body> 
</html> 
 
meme pas le print p(""); 
 
je suis un peu troubler car je ne comprends pas 
 
question serveur je viens de commander un rps chez ovh avec un centos 
 
et j aurais les depots remi actif 
et un yum -v install perl* 
 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui

swilting

16/06/2008 à 19:14

#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6LeEMAIAAAAAAL1w3ZJ5QQw9O_REAx81rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMAIAAAAAAH3xcSzErhpevcxFl6ajrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my @verifications; 
my $captcha; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'annulation' =>&annulation, 
'defaut' =>&saisie_commande, 
'validation' =>&validation, 
'mail_envoye' => &mail_envoye, 
); 
$ecran_actuel = param(".Etat") || 'defaut'; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]),vers_doc($options[1])); 
} 
 
 
 
sub saisie_commande { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("saisie_commande"); 
print p("Tous les champs sont obligatoires"); 
print p("un code de securite vous seras demandé dans la prochaine 
page"); 
print pre ( p ("Nom: ",textfield("nom")), 
p ("Adresse: ",textfield("adresse")), 
p ("Ville: ",textfield("ville")), 
p ("Code Postal: ",textfield("code_postal")), 
p ("Pays: ",textfield("pays")), 
p ("e-mail: ",textfield("mail"))); 
print p("commentaires"); 
print textarea('commentaire','','10','50'); 
print p("upload de fichier"); 
print filefield('upload','',50,80); 
print p ( "Selectionner validation_code pour continuern", 
"autrement selectionner Annulationn"); 
 
$options[0] = "annulation"; 
$options[1] = "validation"; 
 
menu_boutique(@options); 
} 
sub validation { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("validation"); 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
eval { captcha() }; 
if ( $@ ) { die "vous etes un robot spammeur ou une mauvaise personne : 
$@" } 
sub captcha { print $c->get_html(PUBLIC_KEY); 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); if ( 
$result->{is_valid} ) { print "ok";mail_envoye();}else {my $error $result->{error};warn;}print submit;} 
 
} 
 
sub mail_envoye { 
my($actif) = @_; 
return unless $actif; 
print p("nnnnnnnnnnn"); 
} 
 
## mail($numero_commande,$nom,$adresse,$ville,$code_postal 
$pays,###$telephone,$mail,$image); 
## cpandrename($image); 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
 
sub pied_de_page_standard{ print end_form(),end_html() } 
 
 
 
 
sub vers_doc { submit (-NAME => ".Etat", -VALUE => shift) } 
 
 
<blockquote class="block0"> 
<blockquote class="block1"> 
<blockquote class="block0"> 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui 
 
</blockquote>

Vous avez filtré cet utilisateur ! Consultez son message

#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6LeEMAIAAAAAAL1w3ZJ5QQw9O_REAx81rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMAIAAAAAAH3xcSzErhpevcxFl6ajrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my @verifications; 
my $captcha; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'annulation' =>&annulation, 
'defaut' =>&saisie_commande, 
'validation' =>&validation, 
'mail_envoye' => &mail_envoye, 
); 
$ecran_actuel = param(".Etat") || 'defaut'; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]),vers_doc($options[1])); 
} 
 
 
 
sub saisie_commande { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("saisie_commande"); 
print p("Tous les champs sont obligatoires"); 
print p("un code de securite vous seras demandé dans la prochaine 
page"); 
print pre ( p ("Nom: ",textfield("nom")), 
p ("Adresse: ",textfield("adresse")), 
p ("Ville: ",textfield("ville")), 
p ("Code Postal: ",textfield("code_postal")), 
p ("Pays: ",textfield("pays")), 
p ("e-mail: ",textfield("mail"))); 
print p("commentaires"); 
print textarea('commentaire','','10','50'); 
print p("upload de fichier"); 
print filefield('upload','',50,80); 
print p ( "Selectionner validation_code pour continuern", 
"autrement selectionner Annulationn"); 
 
$options[0] = "annulation"; 
$options[1] = "validation"; 
 
menu_boutique(@options); 
} 
sub validation { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("validation"); 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
eval { captcha() }; 
if ( $@ ) { die "vous etes un robot spammeur ou une mauvaise personne : 
$@" } 
sub captcha { print $c->get_html(PUBLIC_KEY); 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); if ( 
$result->{is_valid} ) { print "ok";mail_envoye();}else {my $error $result->{error};warn;}print submit;} 
 
} 
 
sub mail_envoye { 
my($actif) = @_; 
return unless $actif; 
print p("nnnnnnnnnnn"); 
} 
 
## mail($numero_commande,$nom,$adresse,$ville,$code_postal 
$pays,###$telephone,$mail,$image); 
## cpandrename($image); 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
 
sub pied_de_page_standard{ print end_form(),end_html() } 
 
 
 
 
sub vers_doc { submit (-NAME => ".Etat", -VALUE => shift) } 
 
 
<blockquote class="block0"> 
<blockquote class="block1"> 
<blockquote class="block0"> 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui 
 
</blockquote>

swilting

16/06/2008 à 19:16

swilting wrote: 
bon j ai fait une conneries 
effacer le thread precedent il contient mes cles capcha 
je me suis fache tout seul 
<blockquote class="block0"> 
#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6LeEMAIAAAAQQw9O_REAx81rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMAIAAAAAAH3xcSzajrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my @verifications; 
my $captcha; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'annulation' =>&annulation, 
'defaut' =>&saisie_commande, 
'validation' =>&validation, 
'mail_envoye' => &mail_envoye, 
); 
$ecran_actuel = param(".Etat") || 'defaut'; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]),vers_doc($options[1])); 
} 
 
 
 
sub saisie_commande { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("saisie_commande"); 
print p("Tous les champs sont obligatoires"); 
print p("un code de securite vous seras demandé dans la prochaine 
page"); 
print pre ( p ("Nom: ",textfield("nom")), 
p ("Adresse: ",textfield("adresse")), 
p ("Ville: ",textfield("ville")), 
p ("Code Postal: ",textfield("code_postal")), 
p ("Pays: ",textfield("pays")), 
p ("e-mail: ",textfield("mail"))); 
print p("commentaires"); 
print textarea('commentaire','','10','50'); 
print p("upload de fichier"); 
print filefield('upload','',50,80); 
print p ( "Selectionner validation_code pour continuern", 
"autrement selectionner Annulationn"); 
 
$options[0] = "annulation"; 
$options[1] = "validation"; 
 
menu_boutique(@options); 
} 
sub validation { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("validation"); 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
eval { captcha() }; 
if ( $@ ) { die "vous etes un robot spammeur ou une mauvaise personne 
: 
$@" } 
sub captcha { print $c->get_html(PUBLIC_KEY); 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); if ( 
$result->{is_valid} ) { print "ok";mail_envoye();}else {my $error > $result->{error};warn;}print submit;} 
 
} 
 
sub mail_envoye { 
my($actif) = @_; 
return unless $actif; 
print p("nnnnnnnnnnn"); 
} 
 
## mail($numero_commande,$nom,$adresse,$ville,$code_postal 
$pays,###$telephone,$mail,$image); 
## cpandrename($image); 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
 
sub pied_de_page_standard{ print end_form(),end_html() } 
 
 
 
 
sub vers_doc { submit (-NAME => ".Etat", -VALUE => shift) } 
 
 
<blockquote class="block1"> 
<blockquote class="block0"> 
<blockquote class="block1"> 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui 
 
</blockquote> 
</blockquote>

Vous avez filtré cet utilisateur ! Consultez son message

swilting wrote: 
bon j ai fait une conneries 
effacer le thread precedent il contient mes cles capcha 
je me suis fache tout seul 
<blockquote class="block0"> 
#!/usr/bin/perl -w 
use diagnostics; 
use strict; 
use CGI qw(:standard escapeHTML); 
use CGI::Carp qw(fatalsToBrowser); 
use Net::SMTP; 
##use FileHandle; 
use Captcha::reCAPTCHA; 
use CGI::Safe; 
use CGI::Simple; 
use constant PUBLIC_KEY => '6LeEMAIAAAAQQw9O_REAx81rq03wAyR'; 
use constant PRIVATE_KEY => '6LeEMAIAAAAAAH3xcSzajrLjM2dpN '; 
 
$|++; 
my $c; 
my $cgi; 
my $key; 
my $q; 
my %etats; 
my $ecran_actuel; 
my @options; 
my @verifications; 
my $captcha; 
my $error = undef; 
##my $errortest; 
##my $resulttest; 
 
$cgi = new CGI; 
$c = Captcha::reCAPTCHA->new; 
$q = CGI::Simple->new; 
%etats = ( 
'annulation' =>&annulation, 
'defaut' =>&saisie_commande, 
'validation' =>&validation, 
'mail_envoye' => &mail_envoye, 
); 
$ecran_actuel = param(".Etat") || 'defaut'; 
die "Pas d'ecran pour $ecran_actuel" unless $etats{$ecran_actuel}; 
 
 
## engendre le document courant 
en_tete_standard(); 
while ( my ($nom_ecran,$fonction) = each %etats){ 
$fonction->($nom_ecran eq $ecran_actuel); 
} 
 
pied_de_page_standard(); 
 
######################################################################## 
## fonctions d en tete , de pied de page ,de menu ################ 
######################################################################## 
 
sub en_tete_standard { 
print header(), 
start_html(-Title => "commande" , -BGCOLOR=>"White"); 
print start_form(); 
} 
sub menu_boutique { 
my(@options) = @_; 
print p(vers_doc($options[0]),vers_doc($options[1])); 
} 
 
 
 
sub saisie_commande { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("saisie_commande"); 
print p("Tous les champs sont obligatoires"); 
print p("un code de securite vous seras demandé dans la prochaine 
page"); 
print pre ( p ("Nom: ",textfield("nom")), 
p ("Adresse: ",textfield("adresse")), 
p ("Ville: ",textfield("ville")), 
p ("Code Postal: ",textfield("code_postal")), 
p ("Pays: ",textfield("pays")), 
p ("e-mail: ",textfield("mail"))); 
print p("commentaires"); 
print textarea('commentaire','','10','50'); 
print p("upload de fichier"); 
print filefield('upload','',50,80); 
print p ( "Selectionner validation_code pour continuern", 
"autrement selectionner Annulationn"); 
 
$options[0] = "annulation"; 
$options[1] = "validation"; 
 
menu_boutique(@options); 
} 
sub validation { 
my($actif) = @_; 
return unless $actif; 
$ecran_actuel = param("validation"); 
my $nom = param ('nom'); 
my $adresse = param ('adresse'); 
my $ville = param ('ville'); 
my $code_postal = param ('code_postal'); 
my $pays = param ('pays'); 
my $mail = param ('mail'); 
my @gadgets = qw(nom adresse ville code_postal pays mail); 
unless ( $actif ) { 
print map { hidden($_) } @gadgets; 
return; 
} 
eval { captcha() }; 
if ( $@ ) { die "vous etes un robot spammeur ou une mauvaise personne 
: 
$@" } 
sub captcha { print $c->get_html(PUBLIC_KEY); 
my $result = $c->check_answer( 
PRIVATE_KEY,$ENV{'REMOTE_ADDR'},my $challenge,my $response); if ( 
$result->{is_valid} ) { print "ok";mail_envoye();}else {my $error > $result->{error};warn;}print submit;} 
 
} 
 
sub mail_envoye { 
my($actif) = @_; 
return unless $actif; 
print p("nnnnnnnnnnn"); 
} 
 
## mail($numero_commande,$nom,$adresse,$ville,$code_postal 
$pays,###$telephone,$mail,$image); 
## cpandrename($image); 
 
sub annulation { 
my($actif) = @_; 
return unless $actif; 
print p ("vous etes une mauvaise personne ou un robot spammeur :"); 
 
} 
 
sub pied_de_page_standard{ print end_form(),end_html() } 
 
 
 
 
sub vers_doc { submit (-NAME => ".Etat", -VALUE => shift) } 
 
 
<blockquote class="block1"> 
<blockquote class="block0"> 
<blockquote class="block1"> 
et le plugin captcha 
ne me reponde pas je vais trouver tout seul 
</blockquote> 
</blockquote> 
 
epel remi 
j ai installe un LAMP stable sur mon ns******.ovh.net 
aujourdhui 
 
</blockquote> 
</blockquote>

reCaptcha cgi recuperer les arguments pour validation code captcha

4 réponses

Veuillez sélectionner un problème