#!/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