Keylog logs

Посмотрите файлик с граббинга как-то раз мне упал там логи видимо от какого то бота-кейлогера за один день. Количество записей свыше 20000. При этом от мыл (наши так же встречаются) скачать http://ifolder.ru/1212109 - 20.1 Мб

так же небольшой скрипт написал что бы удобнее было разбираться с этим раскоментируйте первое выражение собрет спам базу ~2500 мыл, если вторую то список употребляемых паролей (для брута в будующем пригодится).
Как пользоваться: все txt файлы скидываем в одну папку имя в переменной $dir и запускаем.

Code:

#/usr/bin/perl -w
my $math='(([_a-z0-9\-]+)*@([_a-z0-9\-]+\.)+([a-z]{2,}|aero|arpa|biz|com|coop|edu|gov|info|int|jobs|mil|museum|name|nato|net|org|pro|travel))'; # составляет список мыл
#my $math='password.+:(.+)'; #выбирает пассы для словаря
my $dir='Directory';

open LOG,">Log";
opendir (FDIR,$dir)|| die print "no dir";
my @pass;
while($name = readdir(FDIR)){
  $nam="Directory\\$name";
  open FIL,"$nam";
  my @lst=<FIL>;
  close FIL;
     foreach $item (@lst) {
       if ($item =~m/$math/g) {
       push(@pass,"$1\n");
      } #if
   } #for
 }  #while
#foreach $item (@pass){print LOG $item;}  }

my @mass=sort @pass;
for (my $i=0;$i<=$#mass;$i++){
  if (not($mass[$i] eq $mass[$i+1])){print LOG $mass[$i]}
} #for

closedir FDIR;
close LOG;