sub new_pass{ my ($log,$dom,$pass)=@_; my $res = $ua->post('http://win.mail.ru/cgi-bin/auth', {'page' => '', 'post' => '', 'login_from' => 'http://mail.ru/', 'Login' => $log, 'Domain' => $dom , 'Password' => $pass }); my $newpass=randpass(); my $res = $ua->post('http://win.mail.ru/cgi-bin/modifypass', {'modify' => 1, 'Username' => $log, 'oldPswd' => $pass, 'Password' => $newpass, 'Password_Verify' => $newpass }); print "Get new pass ...[ok]\nNew password ->$newpass\n\n"; return $newpass; }

########### генерим новый пароль sub randpass{ my $rand; for (1..2){ $rand.=chr(rand(26)+65); $rand.=chr(rand(10)+48); $rand.=chr(rand(26)+97); } return $rand; }