Форум АНТИЧАТ - Сохранение архив mail.ru агента

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Уязвимости Mail-сервис (https://forum.antichat.xyz/forumdisplay.php?f=14)

- - Сохранение архив mail.ru агента (https://forum.antichat.xyz/showthread.php?t=311596)

Добрый всем день..

Нужен ваш совет, возможно ли с 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 = 'yourmail@mail.ru';

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 =~ //;

                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 =~/(.+?).+?(.+?).+?/gs;



        while(1)

             {

                my ($nextpage) = $ex =~ //;

                last if (!$nextpage);



                $ex = $ua->get('http://e.mail.ru/cgi-bin/'.$nextpage)->content();

                my @mess = $ex =~/(.+?).+?(.+?).+?/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."

\r\n".$message."



\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 = 'yourmail@mail.ru';

my $pass = 'yourpass';

на свои значения, сохраняешь, запускаешь...

В папке со скриптом должны начать появляться файлы с архивами под каждого юзера, с кем шла переписка, но в принципе формат на выходе можно сделать любой, тоесть можно всё в один файл записать или ещё как...

У меня всё работает, правда большие архивы довольно долго загружает, хз, возможно у меня интернет не особо шустрый...

За внешний вид кода сорри, особо не заморачивался... и над красивой реализацией тоже...

Fepsis спасибо огромное, работает отлично!

Внешний вид - не суть, главное работает на ура!

Спасибо.. Огромное !.. Ты просто офигенский.. 2 года не знал как сделать, а написал на ачат и получил скрипт за 1 час !

Работает без сбоев ))

а можно тоже самое сделать в html форме.очень нада.или это не риально