http://www.md5crack.com/crackmd5.phpと通信するプログラムを作りたいです。私の目標は、サイトにハッシュ (md5) を送信することであり、サイトがそれをクラックできることを願っています。あとは、ハッシュの平文を表示したいと思います。私の問題は、データをサイトに送信することです。LWP の使用に関する記事を調べましたが、まだ迷っています。現在、ハッシュは送信されておらず、他のジャンク データが送信されています。特定のデータ文字列をサイトに送信するにはどうすればよいですか?
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
my $req = POST 'http://www.md5crack.com/crackmd5.php', [
maxlength=> '2048',
name=> 'term',
size=>'55',
title=>'md5 hash to crack',
value=> '098f6bcd4621d373cade4e832627b4f6',
name=>'crackbtn',
type=>'submit',
value=>'Crack that hash baby!',
];
$content = $ua->request($req)->as_string;
print "Content-type: text/html\n\n";
print $content;