Untitled attachment

Notices where this attachment appears

1. PYU224（KindWorld管理者） (pyu224@misskey.kindworld.one)'s status on Wednesday, 01-Mar-2023 00:18:38 JST PYU224（KindWorld管理者）

   in reply to

   @KarafutoAdmin 今手持ちの鯖ではモジュールが対応していないからできません・・・
   ただhCaptchaのサポートとのメールを掘り出して、原型となった実装コードを発掘したので、0.75時代の0ch+と過去に私が作ったプラグインに加えて、それも参考になったらと思います。
   
   #!/usr/bin/perl
   use strict;
   use CGI;
   use LWP::UserAgent;
   use JSON::Parse;
   my $secret_key = '[シークレットキー]';
   my $url = 'https://api.hcaptcha.com/siteverify';
   my $cgi = CGI->new();
   my $ua = LWP::UserAgent->new();
   my $recaptcha_response = $cgi->param('g-recaptcha-response');
   my $remote_ip = $ENV{REMOTE_ADDR};
   my $response = $ua->post(
   $url,
   {
   remoteip => $remote_ip,
   response => $recaptcha_response,
   secret => $secret_key,
   },
   );
   if ( $response->is_success() ) {
   my $json = $response->decoded_content();
   my $out = parse_json($json);
   if ( $out->{success} ) {
   # 正常処理
   }
   }