Send data to a phishing station with Perl

A skin-fruit game is a fire.

It's estimated that many people want to black

Accidentally found a fishing station:

http://ppgpergame.com/

Fishing User name and password

After grabbing the packet, the discovery data is sent to: http://ppgpergame.com/db.asp save

So we have the following script:

1 my $count=1;2  while(1){3      UseLWP::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 ('Cookies'="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 ');Ten  One     my $res=$ua->request ($req); A     Print "The sending code is:",$res->status_line,"\ n"; -     Print "section $count data sent complete!\n"; -     $count++; the}

Post data is probably xxxoooo ni m type, not much to say

Send data to a phishing station with Perl