- 论坛徽章:
- 0
|
回复 3楼 pppguest3962 的帖子
名字叫bmail:[url]http://www.beyondlogic.org/solutions/cmdlinemail/cmdlinemail.htm[/url]
另：
This is a simple SMTP client with a support for STARTTLS and AUTH features.
You can use it to check given server's capabilities, test you server's setup or even to send mail with arbitrary SMTP envelope.
[url]http://www.logix.cz/michal/devel/smtp/smtp-client.pl[/url]
［code]
#!/usr/bin/perl
#
# Simple SMTP client with STARTTLS and AUTH support.
# Michal Ludvig <[email]michal@logix.cz[/email]>, 2003
# See [url]http://www.logix.cz/michal/devel/smtp[/url] for details.
#
#
# This program can be freely distributed, used and modified
# without any restrictions. It's a public domain.
#
use strict;
use IO::Socket::INET;
use IO::Socket::SSL;
use Net::SSLeay;
use Digest::HMAC_MD5 qw(hmac_md5_hex);
use MIME::Base64 qw(encode_base64 decode_base64);
use Getopt::Long;
use Term::ReadKey;
use Socket qw(:DEFAULT :crlf);
my ($user, $pass, $host, $port,
$use_login, $use_plain, $use_cram_md5, $use_digest_md5,
$ehlo_ok, $auth_ok, $starttls_ok, $verbose,
$hello_host, $from, @to, $datasrc);
$host = 'localhost';
$port = 'smtp(25)';
$hello_host = 'localhost';
$verbose = 0;
$use_login = 0;
$use_plain = 0;
$use_cram_md5 = 0;
$use_digest_md5 = 0;
$starttls_ok = 1;
$auth_ok = 0;
$ehlo_ok = 1;
# Get command line options.
GetOptions ('host=s' => \$host, 'server=s' => \$host,
'port=i' => \$port,
'user=s' => \$user, 'password=s' => \$pass,
'auth-login' => \$use_login,
'auth-plain' => \$use_plain,
'auth-cram-md5' => \$use_cram_md5,
'auth-digest-md5' => \$use_digest_md5,
'disable-ehlo' => sub { $ehlo_ok = 0; },
'force-ehlo' => sub { $ehlo_ok = 2; },
'hello-host|ehlo-host|helo-host=s' => \$hello_host,
'enable-auth' => \$auth_ok,
'disable-starttls|disable-tls|disable-ssl' =>
sub { $starttls_ok = 0; },
'from|mail-from=s' => \$from,
'to|rcpt-to=s' => \@to,
'data=s' => \$datasrc,
'verbose:1' => \$verbose,
'help' => sub { &usage() } );
if ($host =~ /^(.*):(.*)$/)
{
$host = $1;
$port = $2;
}
# If at least one --auth-* option was given, enable AUTH.
if ($use_login + $use_plain + $use_cram_md5 + $use_digest_md5 > 0)
{ $auth_ok = 1; }
# If --enable-auth was given, enable all AUTH methods.
elsif ($auth_ok && ($use_login + $use_plain + $use_cram_md5
+ $use_digest_md5 == 0))
{
$use_login = 1;
$use_plain = 1;
$use_cram_md5 = 1;
$use_digest_md5 = 1;
}
# Exit if user haven't specified username for AUTH.
if ($auth_ok && !defined ($user))
{ die ("You requested SMTP AUTH support. Consider using --user switch as well.\n"); }
# Ask for password if it wasn't supplied on the command line.
if ($auth_ok && defined ($user) && !defined ($pass))
{
printf ("Enter password for %s@%s : ", $user, $host);
# Set echo off.
ReadMode (2);
$pass = <>;
# Restore echo.
ReadMode (0);
printf ("\n");
exit if (! defined ($pass));
chop ($pass);
}
# Connect to the SMTP server.
my $sock = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 5)
or die ("Connect failed: $@\n");
my ($code, $text);
my (%features);
# Wait for the welcome message of the server.
($code, $text) = &get_line ($sock);
die ("Unknown welcome string: '$code $text'\n") if ($code != 220);
$ehlo_ok-- if ($text !~ /ESMTP/);
# Send EHLO
&say_hello ($sock, $ehlo_ok, $hello_host, \%features) or exit (1);
# Run the SMTP session
&run_smtp ();
# Good bye...
&send_line ($sock, "QUIT\n");
($code, $text) = &get_line ($sock);
die ("Unknown QUIT response '$code'.\n") if ($code != 221);
exit 0;
# This is the main SMTP "engine".
sub run_smtp
{
# See if we could start encryption
if ((defined ($features{'STARTTLS'}) || defined ($features{'TLS'})) && $starttls_ok)
{
printf ("Starting TLS...\n") if ($verbose >= 1);
# Do Net::SSLeay initialization
Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms();
Net::SSLeay::randomize();
&send_line ($sock, "STARTTLS\n");
($code, $text) = &get_line ($sock);
die ("Unknown STARTTLS response '$code'.\n") if ($code != 220);
if (! IO::Socket::SSL::socket_to_SSL($sock,
SSL_version => 'SSLv3 TLSv1'))
{
die ("STARTTLS: ".IO::Socket::SSL::errstr()."\n");
}
if ($verbose >= 1)
{
printf ("Using cipher: %s\n", $sock->get_cipher ());
printf ("%s", $sock->dump_peer_certificate());
}
# Send EHLO again (required by the SMTP standard).
&say_hello ($sock, $ehlo_ok, $hello_host, \%features) or return 0;
}
# See if we should authenticate ourself
if (defined ($features{'AUTH'}) && $auth_ok)
{
if ($verbose >= 1)
{
printf ("AUTH method (%s): ", $features{'AUTH'});
}
# Try CRAM-MD5 if supported by the server
if ($features{'AUTH'} =~ /CRAM-MD5/i && $use_cram_md5)
{
printf ("using CRAM-MD5\n") if ($verbose >= 1);
&send_line ($sock, "AUTH CRAM-MD5\n");
($code, $text) = &get_line ($sock);
if ($code != 334)
{
warn ("AUTH failed '$code $text'.\n");
return 0;
}
my $response = &encode_cram_md5 ($text, $user, $pass);
&send_line ($sock, "%s\n", $response);
($code, $text) = &get_line ($sock);
if ($code != 235)
{
warn ("AUTH failed: '$code'.\n");
return 0;
}
}
# Or try LOGIN method
elsif ($features{'AUTH'} =~ /LOGIN/i && $use_login)
{
printf ("using LOGIN\n") if ($verbose >= 1);
&send_line ($sock, "AUTH LOGIN\n");
($code, $text) = &get_line ($sock);
if ($code != 334)
{
warn ("AUTH failed '$code $text'.\n");
return 0;
}
&send_line ($sock, "%s\n", encode_base64 ($user, ""));
($code, $text) = &get_line ($sock);
if ($code != 334)
{
warn ("AUTH failed '$code $text'.\n");
return 0;
}
&send_line ($sock, "%s\n", encode_base64 ($pass, ""));
($code, $text) = &get_line ($sock);
if ($code != 235)
{
warn ("AUTH failed '$code $text'.\n");
return 0;
}
}
# Or finally PLAIN if nothing else was supported.
elsif ($features{'AUTH'} =~ /PLAIN/i && $use_plain)
{
printf ("using PLAIN\n") if ($verbose >= 1);
&send_line ($sock, "AUTH PLAIN %s\n",
encode_base64 ("$user\0$user\0$pass", ""));
($code, $text) = &get_line ($sock);
if ($code != 235)
{
warn ("AUTH failed '$code $text'.\n");
return 0;
}
}
# Complain otherwise.
else
{
warn ("No supported authentication method\n".
"advertised by the server.\n");
return 0;
}
if ($verbose >= 1)
{ printf ("Authentication of $user\@$host succeeded\n"); }
}
# We can do a relay-test now if a recipient was set.
if ($#to >= 0)
{
if (!defined ($from))
{
warn ("From: address not set. Using empty one.\n");
$from = "";
}
&send_line ($sock, "MAIL FROM: <%s>\n", $from);
($code, $text) = &get_line ($sock);
if ($code != 250)
{
warn ("MAIL FROM failed: '$code $text'\n");
return 0;
}
my $i;
for ($i=0; $i <= $#to; $i++)
{
&send_line ($sock, "RCPT TO: <%s>\n", $to[$i]);
($code, $text) = &get_line ($sock);
if ($code != 250)
{
warn ("RCPT TO <".$to[$i]."> ".
"failed: '$code $text'\n");
return 0;
}
}
}
# Wow, we should even send something!
if (defined ($datasrc))
{
unless (open (MAIL, $datasrc))
{
warn ("Can't open file '$datasrc'\n");
return 0;
}
&send_line ($sock, "DATA\n");
($code, $text) = &get_line ($sock);
if ($code != 354)
{
warn ("DATA failed: '$code $text'\n");
return 0;
}
while (<MAIL>)
{
my $line = $_;
$line =~ s/^\.$CRLF$/\. $CRLF/;
$line =~ s/^\.\n$/\. $CRLF/;
$sock->print ($line);
}
close (MAIL);
$sock->printf ("$CRLF.$CRLF");
($code, $text) = &get_line ($sock);
if ($code != 250)
{
warn ("DATA not send: '$code $text'\n");
return 0;
}
}
# Perfect. Everything succeeded!
return 1;
}
# Get one line of response from the server.
sub get_one_line ($)
{
my $sock = shift;
my ($code, $sep, $text) = ($sock->getline() =~ /(\d+)(.)([^\r]*)/);
my $more;
$more = ($sep eq "-");
if ($verbose)
{ printf ("[%d] '%s'\n", $code, $text); }
return ($code, $text, $more);
}
# Get concatenated lines of response from the server.
sub get_line ($)
{
my $sock = shift;
my ($code, $text, $more) = &get_one_line ($sock);
while ($more) {
my ($code2, $line);
($code2, $line, $more) = &get_one_line ($sock);
$text .= " $line";
die ("Error code changed from $code to $code2. That's illegal.\n") if ($code ne $code2);
}
return ($code, $text);
}
# Send one line back to the server
sub send_line ($@)
{
my $socket = shift;
my @args = @_;
if ($verbose)
{ printf ("> "); printf (@args); }
$args[0] =~ s/\n/$CRLF/g;
$socket->printf (@args);
}
# Helper function to encode CRAM-MD5 challenge
sub encode_cram_md5 ($$$)
{
my ($ticket64, $username, $password) = @_;
my $ticket = decode_base64($ticket64) or
die ("Unable to decode Base64 encoded string '$ticket64'\n");
my $password_md5 = hmac_md5_hex($ticket, $password);
return encode_base64 ("$username $password_md5", "");
}
# Store all server's ESMTP features to a hash.
sub say_hello ($$$$)
{
my ($sock, $ehlo_ok, $hello_host, $featref) = @_;
my ($feat, $param);
my $hello_cmd = $ehlo_ok > 0 ? "EHLO" : "HELO";
&send_line ($sock, "$hello_cmd $hello_host\n");
my ($code, $text, $more) = &get_one_line ($sock);
if ($code != 250)
{
warn ("$hello_cmd failed: '$code $text'\n");
return 0;
}
# Empty the hash
%{$featref} = ();
($feat, $param) = ($text =~ /^(\w+)[= ]*(.*)$/);
$featref->{$feat} = $param;
# Load all features presented by the server into the hash
while ($more == 1)
{
($code, $text, $more) = &get_one_line ($sock);
($feat, $param) = ($text =~ /^(\w+)[= ]*(.*)$/);
$featref->{$feat} = $param;
}
return 1;
}
sub usage ()
{
printf ("Simple SMTP client written in Perl that supports some
advanced features like STARTTLS and AUTH.
Author: Michal Ludvig <michal\@logix.cz> (c) 2003
[url]http://www.logix.cz/michal/devel/smtp[/url]
Usage: smtp-client.pl [--options]
--host=<hostname> Host name or address of the SMTP server.
(default: localhost)
--port=<number> Port where the SMTP server is listening.
(default: 25)
--hello-host=<string> String to use in the EHLO/HELO command.
--disable-ehlo Don't use ESMTP EHLO command, only HELO.
--force-ehlo Use EHLO even if server doesn't say ESMTP.
--disable-starttls Don't use encryption even if the remote
host offers it.
--enable-auth Enable all methods of SMTP authentication.
--auth-login Enable only AUTH LOGIN method.
--auth-plain Enable only AUTH PLAIN method.
--auth-cram-md5 Enable only AUTH CRAM-MD5 method.
--user=<username> Username for SMTP authentication.
--pass=<password> Corresponding password.
--from=<address> Address to use in MAIL FROM command.
--to=<address> Address to use in RCPT TO command.
--data=<filename> Filename to paste after DATA command.
--verbose[=<number>] Be more verbose, print the SMTP session.
--help Guess what is this option for ;-)
");
exit (0);
}
[/code]
[[i] 本帖最后由 neobob 于 2006-8-8 23:19 编辑 [/i]] |
|
免费注册
发表于 2006-08-08 21:03
