Xszz
02.06.2008, 18:35
Собственно код ужасный , но работает =)
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
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