Форум АНТИЧАТ - Парсер аккаунтов из логов Pinch(vkontakte.ru)

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

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Парсер аккаунтов из логов Pinch(vkontakte.ru) (https://forum.antichat.xyz/showthread.php?t=72403)

Парсер аккаунтов из логов Pinch(vkontakte.ru)

Собственно код ужасный , но работает =)

HOWTO

1)В Парсере от Pinch набираем в поиске vkontakte.ru
2)Найденное копируем в файл log.txt
3)Запускаем скрипт , результат будет в файле parsed.txt
Результат будет вида mail@mail.com:password

Код:

#!/usr/bin/perl



use strict;



print "\n AAAAAA OOOOOO H   H\n";

print " A    A O    O H   H\n";

print " AAAAAA O    O HHHHH\n";

print " A    A O    O H   H\n";

print " A    A OOOOOO H   H\n\n";





open (IN , "<log.txt");

open (OUT , ">>parsed.txt");



my @_count = <IN>;



my $lines_count=0;

while (@_count)

{

shift (@_count);

$lines_count++;



}



close IN;

open (F , "<log.txt");

my @logs = <F>;



for (0..$lines_count)



{

my $nowstring = shift (@logs);



my $reg = $nowstring =~s/(.*)([\w+\-\.]+\@[\w\-\.]+\.\w{2,3})(.*)//ig;

my $reg2 =~s/(.*)([\w+\-\.]+\@[\w\-\.]+\.\w{2,3})(.*)//ig;



if ($reg)



{



my $email =$1.$2.$3;



if ($2)

{



my $nowstring2 = shift (@logs);

my $pass = $nowstring2=~/(.+)/;



if (length($1)<=2)

{

}

else

{



print OUT $email.":".$1."\n";

}



}

}



}

close (OUT);

system('perl -p -i.backup -e s[^\s+email=([a-z0-9_-]+@[a-z]+.[a-z]{2,3}):\s+pass=(.+)$][$1:$2]io parsed.txt');

print "[+]Parsed\n\n";



#pinch vkontakte parser , by Xszz[AoH

#thnx dem0noid

Не понял как пользоваться. :)

Попробую объяснить .
Открываем парсер для пинча . Переходим на закладку "Поиск", в строке поиска вводим vkontakte.ru
бегут процентики , после этого в окошке ниже появится результат вида :

Код:



UID:D624F900170A0900

Name: http://vkontakte.ru/index.php

Values: 

tasan86@mail.ru

Www12345







UID:D624F900170A0900

Name: http://vkontakte.ru/index.php

Values: 

tsfsd@mail.ru

Wsdffds

Выделяем , копируем , вставляем в файл log.txt (log.txt должен находится в тойже директории , что и скрипт!).
Запускаем скрипт , смотрим в директорию где он находится , видим файл parsed.txt
Собственно все .
Воздаём хвалу богам =)

А можешь выложить парсер для пинча?

это для изиса подарок =) ему же там нужно пару сотен акков в контакте.
Надо обьеденить еще с чекером контакта, и сразу присобачить спамер и будет сразу готовая система АнтиКонтакт

Если кому-то это пригодится , могу накодить =)
За одно и попрактикуюсь =)

2InfernoNet

https://forum.antichat.ru/thread19273.html

я думаю такая полезная вепщь как спамер соц сети пригодилась бы кому нито
плюсик поставил и говорю огромное спасиьо за скрипт

Цитата:

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

Парсер пинча + чекер уже давно есть:
http://forum.antichat.ru/thread68289.html
Скоро будет новая версия с присобаченным спамером :)

Хы дык то платная версия , а я фри пишу =)

Мой вариант

Код:

#!/usr/bin/perl -w

use strict;



open my $h,'<','log.txt' or die $!;

{

    local $/;

    my $s = { map { m[([a-z0-9_-]+\@[a-z.]+)\s*(?:pass=|)(?!uid:|http:|name:)(.+)]gi } <$h> };

    close $h;   

    print map{ "$_:$$s{$_}\n" } sort keys %$s ;

}

Код:

$ cat log.txt

              email=mail1@gmail.com

              pass=pass1

              ...



UID:...

Name: http://vkontakte.ru/index.php

Values: 

mail2@gmail.com

pass2



UID:...

Name: http://vkontakte.ru/

Values: 

mail3@gmail.com

Код:

$ perl p.pl

mail1@gmail.com:pass1

mail2@gmail.com:pass2

mail3@gmail.com:

Возможно есть интересней вариант регулярного выражения ,хотелось бы увидеть