Выдираловка акков Контакта из парсера Понча
Не знаю куда запостить.. Думаю кому-то нужно..
скрипт на пёрле - автор Xszz[AoH
Код:
#!/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" - всё найденное кидаем в log.txt
Кидаем в папку со скриптом (предварительно скопировав код скрипта в txt и сохранив его как parser.pl)
Через командную строку заходим в папку со скриптом и нашим логом и выполняем скрипт.
Результаты сохранятся в этойже папке в отдельном txt.
Одну форму скрипт выводит косячно - правится в txt двумя заменами.. |
