ANTICHAT - Сохранение архив mail.ru агента

ANTICHAT (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)

Цитата:

Сообщение от ermech

Не отображает русские буквы...Как можно исправить??

Измените кодировку на UTF-8

В "opera"

Вид -> Кодировка -> Юникод -> UTF-8

Взял скрипт, написанный Fepsisом и набросал на его основе программку с графическим интерфейсом. Чтобы удобнее было, ну и типа программа для скачивания архива агента готовая. Вот ссылки если кому интересно:

http://www.shared.uz/?0566225001333513039

http://exfile.ru/342817

http://www.fayloobmennik.net/1746199

Цитата:

Сообщение от neprostotak8

Взял скрипт, написанный Fepsisом и набросал на его основе программку с графическим интерфейсом. Чтобы удобнее было, ну и типа программа для скачивания архива агента готовая. Вот ссылки если кому интересно:
http://www.shared.uz/?0566225001333513039
http://exfile.ru/342817
http://www.fayloobmennik.net/1746199

virustotal на архив ругается.

я конечно понимаю что когда скрипт в оболочке то это классно и довольно удобно.. Но мне например вполне удобно и так работать)

Цитата:

Сообщение от neprostotak8

Взял скрипт, написанный Fepsisом и набросал на его основе программку с графическим интерфейсом. Чтобы удобнее было, ну и типа программа для скачивания архива агента готовая. Вот ссылки если кому интересно:
http://www.shared.uz/?0566225001333513039
http://exfile.ru/342817
http://www.fayloobmennik.net/1746199

И на архив, а в файле loader.exe вообще полный букет..))

Когда писал кстати, каспер тоже матерился. Пом енял некоторые строки местами, перестал. Почему, я сам ен понял. А что в нем находит вирустотал?

Ошибка

Привет всем форумчанинам. Я заметил некоторую недоработку в скрипте. Например я запускаю скрипт он начинает считать сколько у меня контактов а потом считывает страницы,после завершения задачи захожу в папку где находиться мой скрипт открываю html файлы и там сохранённая переписка, НО почему то некоторые периписки с контактами не сохраняются(хотя в архиве переписка с ними есть) когда открываешь этот html файл там пусто. анекоторые сохраняются, а некоторые нет. может проблема в том что много контактов(315),просто ощущение как будто скрипт теряет соединение с сервером(инет не отключался). МОжет кто нибудь проверит на наличие ошибок и доработает скрипт? Да и ещё когда внизу меняешь скрипт чтобы он скачал переписку с определённым контактом он почему то не сохраняет всю переписку,а сохраняет лишь последние,а мне нужны архивы и 2010 года,а мне сохраняет последние с 2012 года. ЗЫ я проверял в архиве там есть сообщения за 2010 год. модернизируйте скрипт. или может я что то нитак делаю

скачивает полностью всю историю архива? за все время жизни почтового ящика ?

Цитата:

Сообщение от G13

скачивает полностью всю историю архива? за все время жизни почтового ящика ?

Нет, только та переписка если стояла галочка "Сохранять архив mail.ru агента"С момента когда она стояла, если галочка не была снята 10 лет то переписка соответственно за 10 лет )))

честно сказать не понимаю зачем создавать топик если на форуме есть то что вы ищете , поюзайте))

Уважаемый Fepsis, раньше хорошо качала, но все равно не весь архив скачивает, а щас совсем плохо, можете доработать код, или есть ли еще подобные программы?

Скрипт рабочий. просто в маил.ру изменились ссылки, вот подправил:

Код:

#!/usr/bin/perl 



use LWP::UserAgent;

use HTTP::Cookies;



################# Config ###############



my $email = 'login@mail.ru';

my $pass = 'pass';



############### 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/agent/archive/', ['mrim_hist_password' => $pass, 'PasswordAsk' => 'on'], Referer => 'http://e.mail.ru/agent/archive/')->content();



        my @allusers = $ex =~ /class=letavtor title=\"(.+?)\"/g;



        while(1)

             {

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

                last if (!$nextpage);



                $ex = $ua->get('https://e.mail.ru/agent/archive?folder=500005'.$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/agent/archive?mode=1&email='.$user)->content();



        my @allmess = $ex =~/(.+?).+?(.+?).+?/gs;



        while(1)

             {

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

                last if (!$nextpage);



                $ex = $ua->get('https://e.mail.ru/agent/archive?folder=500005'.$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.'.txt');

        

     }



authorization($email, $pass);

my @allusers = get_users();

print "Users: ".scalar(@allusers)."\n\n\n";



foreach (@allusers)

     {

        print "\t".$_."\n";

        get_messages($_);



     }

Цитата:

Сообщение от None

Ставишь активперл от сюда: http://www.activestate.com/activeperl/downloads
Сохраняешь скрипт как script.pl
Изменяешь
my $email = 'yourmail@mail.ru';
my $pass = 'yourpass';
на свои значения, сохраняешь, запускаешь...
В папке со скриптом должны начать появляться файлы с архивами под каждого юзера, с кем шла переписка, но в принципе формат на выходе можно сделать любой, тоесть можно всё в один файл записать или ещё как...

Цитата:

Сообщение от MiLSaN

Скрипт рабочий. просто в маил.ру изменились ссылки, вот подправил:

Код:

#!/usr/bin/perl 



use LWP::UserAgent;

use HTTP::Cookies;



################# Config ###############



my $email = 'login@mail.ru';

my $pass = 'pass';



############### 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/agent/archive/', ['mrim_hist_password' => $pass, 'PasswordAsk' => 'on'], Referer => 'http://e.mail.ru/agent/archive/')->content();



        my @allusers = $ex =~ /class=letavtor title=\"(.+?)\"/g;



        while(1)

             {

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

                last if (!$nextpage);



                $ex = $ua->get('https://e.mail.ru/agent/archive?folder=500005'.$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/agent/archive?mode=1&email='.$user)->content();



        my @allmess = $ex =~/(.+?).+?(.+?).+?/gs;



        while(1)

             {

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

                last if (!$nextpage);



                $ex = $ua->get('https://e.mail.ru/agent/archive?folder=500005'.$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.'.txt');

        

     }



authorization($email, $pass);

my @allusers = get_users();

print "Users: ".scalar(@allusers)."\n\n\n";



foreach (@allusers)

     {

        print "\t".$_."\n";

        get_messages($_);



     }

Скрипт на данный момент работает?

Просто у меня почему то ничего не сохраняется.

Только командная строка моргнет исчезает.

Кто нибудь может мне помочь?

Народ такая проблема все сделал как было написано

Он записывает только начало

тоесть 1 страницу

а птом просто считает дальше

Товарищи! Может кто-нибудь поможет починить парсер? Мейл изменил все до неузнаваемости, сам не могу раскурить скрипт, чтобы поправить, ибо с перлом особо не работал...