带有 FormMail.cgi 的 reCAPTCHA V2（Matt 的脚本存档）

Question

我之前将 reCAPTCHA V1 与来自 Matt 的 Script Archive 的 FormMail.cgi 结合使用，并使用以下 Perl 函数来验证 reCAPTCHA 响应：

sub check_captcha {

    my $ua = LWP::UserAgent->new();
    my $result=$ua->post(
        'http://www.google.com/recaptcha/api/verify',
        {
            privatekey => 'MyPrivateKey',
            remoteip   => $ENV{'REMOTE_ADDR'},
            challenge  => $Form{'recaptcha_challenge_field'},
            response   => $Form{'recaptcha_response_field'}
        }
    );
    if ( $result->is_success && $result->content =~ /^true/) {
        return;
    } else {
        &error('captcha_failed');
    }
}

reCAPTCHA V1 将于 2018 年 3 月关闭，因此我需要转到 reCAPTCHA V2，但是，我无法验证 CGI 脚本中的响应。

基于server side documentation，这是我迄今为止尝试过的（没有成功）：

sub check_captcha {

    my $ua = LWP::UserAgent->new();
    my $result=$ua->post(
        'https://www.google.com/recaptcha/api/siteverify',
        {
            secret     => 'MyPrivateKey',
            remoteip   => $ENV{'REMOTE_ADDR'},
            response   => $Form{'g-recaptcha-response'}
        }
    );
    if ( $result->is_success && $result->content =~ /"success": true/ ) {
        return;
    } else {
        &error('captcha_failed');
    }
}

上述总是分支到“captcha_failed”错误。

提前感谢您抽出宝贵时间阅读我的问题，感谢社区提供的任何帮助。

非常感谢！

Answer 1

我看不出您的代码有任何明显的问题。但是我想知道为什么当Google::reCAPTCHA 存在时你自己实现这个。

use Google::reCAPTCHA;

my $c = Google::reCAPTCHA->new( secret => 'MyPrivateKey' );

# Verifying the user's response 
my $success = $c->siteverify(
  response => $Form{'g-recaptcha-response'},
  remoteip => $ENV{'REMOTE_ADDR'},
);

if ( $success ) {
  # CAPTCHA was valid
}

为什么您使用来自 Matt 的脚本存档的代码？