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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl
# Simple CGI Captcha
use strict;
use warnings;
use Captcha::reCAPTCHA;
use CGI::Simple;
# Your reCAPTCHA keys from
# https://www.google.com/recaptcha/admin/create
use constant PUBLIC_KEY => '<public key here>';
use constant PRIVATE_KEY => '<private key here>';
$| = 1;
my $q = CGI::Simple->new;
my $c = Captcha::reCAPTCHA->new;
my $error = undef;
print "Content-type: text/html\n\n";
print <<EOT;
<html>
<body>
<form action="" method="post">
EOT
# Check response
if ( $q->param( 'recaptcha_response_field' ) ) {
my $result = $c->check_answer(
PRIVATE_KEY, $ENV{'REMOTE_ADDR'},
$q->param( 'recaptcha_challenge_field' ),
$q->param( 'recaptcha_response_field' )
);
if ( $result->{is_valid} ) {
print "Yes!";
}
else {
$error = $result->{error};
}
}
# Generate the form
print $c->get_html( PUBLIC_KEY, $error );
print <<EOT;
<br/>
<input type="submit" value="submit" />
</form>
</body>
</html>
EOT
|
