Форум АНТИЧАТ - [Помогите НАПИСАТЬ] Автосмена пароля mail.ru

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

[Помогите НАПИСАТЬ] Автосмена пароля mail.ru

05.06.2009, 22:44

le-mon

Познающий

Регистрация: 11.04.2007

Сообщений: 57

Провел на форуме:
1024865

Репутация: -2

[Помогите НАПИСАТЬ] Автосмена пароля mail.ru

Люди помогайте

Нужен скрипт автосмены паролей на mail.ru. Т.к. старые не работают прошу помочь написать.

Не важно на каком языке

ЗЫ вот на Перле часть кода, может пригодится:

Цитата:

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; }