Добрый всем день.. Нужен ваш совет, возможно ли с mail.ru Скачать Архив mail.ru агента. очень буду блогадарен за ответы.. Заранее спасибо. ! P.S Писал в службу поддержки mail.ru, мне ответили сказав что данный функционал у них отсутствует.. Но ведь Переписка сохроняется на серверах, Значит можно как то скачать или На крайний случай сохранить, через программы: "teleport pro" и "offline explorer" не выходит... P.S.S уважаемые Модераторы Простите меня за создание второй темы.. Там просто както глухо, я покапался и нашол где частенько заходят на какие разделы.. и Создал здесь Будем честны ))
Мне так стало интересно, почему mail.ru не могу предоставить такую информацию, ведь это моя переписка и под использование личной информации это не подподает !
Я не привык просить, я не умею писать.. только учусь.. Но если кому вдруг нечего делать, не мог бы ктонибудь это зделать (не бесплатно конечно) P.S Меня папа учил что ничего бесплатно не делается и за все надо платить
Ну собственно делать было нечего, вот набросал: Code: #!/usr/bin/perl use LWP::UserAgent; use HTTP::Cookies; ################# Config ############### my $email = '[email protected]'; my $pass = 'yourpass'; ############### End Config ############## my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19"); my $cookie_jar = HTTP::Cookies->new(); $ua->cookie_jar($cookie_jar); sub logg { my ($data, $file) = @_; open(OUT, "> ".$file); print OUT "$data\n"; close(OUT); } sub authorization { my ($email, $pass) = @_; my ($login, $domain) = $email =~ /^(.+?)@(.+?)$/; $cookie_jar->clear(); my $ex = $ua->post('http://win.mail.ru/cgi-bin/auth', ['Login' => $login, 'Domain' => $domain, 'Password' => $pass]); if ($ex->headers_as_string() =~/Set-Cookie: Mpop=/) { return 1; } } sub get_users { my $ex = $ua->post('http://e.mail.ru/cgi-bin/mrimhistory?', ['mrim_hist_password' => $pass, 'PasswordAsk' => 'on'], Referer => 'http://e.mail.ru/cgi-bin/mrimhistory')->content(); my @allusers = $ex =~ /class=letavtor title=\"(.+?)\"/g; while(1) { my ($nextpage) = $ex =~ /<a href=\"(.+?)\" id=\"nextbut\">/; last if (!$nextpage); $ex = $ua->get('http://e.mail.ru/cgi-bin/'.$nextpage)->content(); my @users = $ex =~ /class=letavtor title=\"(.+?)\"/g; foreach (@users) { push(@allusers, $_); } } return @allusers; } sub get_messages { my ($user) = @_; my $i = 0; my $ex = $ua->get('http://e.mail.ru/cgi-bin/mrimhistory?mode=1&email='.$user)->content(); my @allmess = $ex =~/<td class=\"letavtor\"><nobr><span.+?>(.+?)<nobr><\/span><\/td>.+?<td class=lettem>(.+?)<\/td>.+?<td class=dat title=\"(.+?)\">/gs; while(1) { my ($nextpage) = $ex =~ /<a href=\"(.+?)\" id=\"nextbut\">/; last if (!$nextpage); $ex = $ua->get('http://e.mail.ru/cgi-bin/'.$nextpage)->content(); my @mess = $ex =~/<td class=\"letavtor\"><nobr><span.+?>(.+?)<nobr><\/span><\/td>.+?<td class=lettem>(.+?)<\/td>.+?<td class=dat title=\"(.+?)\">/gs; foreach (@mess) { push(@allmess, $_); } print "\t\tpage:".$i++."\n"; } my $arhive = ''; while(@allmess) { my $data = pop(@allmess); my $message = pop(@allmess); my $name = pop(@allmess); $arhive .= $name.' : '.$data."<br>\r\n".$message."<br><br>\r\n\r\n"; } logg($arhive, $user.'.html'); } authorization($email, $pass); my @allusers = get_users(); print "Users: ".scalar(@allusers)."\n\n\n"; foreach (@allusers) { print "\t".$_."\n"; get_messages($_); } Ставишь активперл от сюда: http://www.activestate.com/activeperl/downloads Сохраняешь скрипт как script.pl Изменяешь my $email = '[email protected]'; my $pass = 'yourpass'; на свои значения, сохраняешь, запускаешь... В папке со скриптом должны начать появляться файлы с архивами под каждого юзера, с кем шла переписка, но в принципе формат на выходе можно сделать любой, тоесть можно всё в один файл записать или ещё как... У меня всё работает, правда большие архивы довольно долго загружает, хз, возможно у меня интернет не особо шустрый... За внешний вид кода сорри, особо не заморачивался... и над красивой реализацией тоже...
Спасибо.. Огромное !.. Ты просто офигенский.. 2 года не знал как сделать, а написал на ачат и получил скрипт за 1 час !
А чем тебе не устраивает на perl, там же инструкция все дела.. Все просто на мой взгляд, а главное работает.. Я в интернете искал 2 года этот функционал.. Я рад тому что есть ))
если будет в html.сделаю приукрашу. поставлю на загрузку в опере.когда моя девушка будет входить в почту.вся её переписка будет у меня.типа фейка будет
Ну он имеет ввиду.. Типа фейка.. Чтобы отпровляешешь человеку меняешь хост, у него открываеться страница фейка человек вводит пароль, и автору копируеться история.. Я так понимаю !))
Fepsis, ну эта написана на перл,а если вот эти функции твоего файла будут в формате страници оперы??? как фейк на маил(или на какой другой почтовый сервер)в поле пароль логин вписываеш свои данные.нажымаеш воити. а он в свою очередь качать периписку как твой фаил.главно чтобу в html страничке присутствовали твои функции.а вид я и сам бы сделал под любой почтовик
Serrg точно так тоже можно))) 1вареант. Этот фаил будет у меня на компе. и когда ктото у меня будет пытаться войти на почту,будет вводить логин пароль нажимать отправить,вся его история будет тут же сохранятся у меня(может будет вопрос почему не сохранить пароль и потом воити,пароль могут поменять)(ну и еще тогода чтоб пароль отдельно сохранялся тоже). 2е. собрать фейк, типа отправляю ие подложное письмо(мои проблемы будет ли она его и как прочитает)почти те же функции ,вводит логин пароль и ее переписка отправляется на мою почту(2Й СПОСОБ РЕАЛЬНЫЙ,,, ИЛИ НЕТ)
если лень думать и не интересно,давайте ЗАПЛОЧУ за этот функционал)))говорите цену............(но в рамках приличного)поимите тоже
Ну второй способ реальнее чем первый.. Конечно, хотя первый тоже осуществим.. Давайте дальше развивать может кто возьметься )
