perl - Perl での ReCaptcha の実装

Question

私のウェブサイトに recaptcha を実装するには。1 つのオプションは google API です。しかし、そのためには、ドメイン名でサインアップして API キーを取得する必要があります。他にできる方法はありますか？

Answer 1

1 つの方法: このコードを、html フォームによって呼び出される perl ファイルに追加します。

my @field_names=qw(name branch email g-recaptcha-response);
foreach $field_name (@field_names)
   {
      if (defined param("$field_name")) 
          {
              $FIELD{$field_name} = param("$field_name");   
}
}

$captcha=$FIELD{'g-recaptcha-response'};

use LWP::Simple;

$secretKey = "put your key here";
$ip = remote_host;
#Remove # rem to test submitted variables are present
#print "secret= $secretKey";
#print " and response= $captcha";
#print " and remoteip= $ip";


$URL = "https://www.google.com/recaptcha/api/siteverify?secret=".$secretKey."&response=".$captcha."&remoteip=".$ip;
$contents = get $URL or die;

# contents variable takes the form of: "success": true, "challenge_ts": "2016-11-21T16:02:41Z", "hostname": "www.mydomain.org.uk" 
use Data::Dumper qw(Dumper);

# Split contents variable by comma:
my ($success, $challenge_time, $hostname) = split /,/, $contents; 

# Split success variable by colon:
my ($success_title, $success_value) = split /:/, $success; 

#strip whitespace:
$success_value =~ s/^\s+//;

if ($success_value eq "true")
    {

        print "it worked";
    }else{
       print "it did not";
   }