====== make smtp-auth password by perl ======

===== DIGEST-MD5 =====
==== SMTP サーバに接続後、次のコマンドを入力。 ====
  AUTH DIGEST-MD5

==== perl のソース ====
<code perl>
#!/usr/bin/perl

use Socket;   
use MIME::Base64 ;
use Digest::HMAC_MD5 qw(hmac_md5 hmac_md5_hex);
use Digest::MD5  qw(md5 md5_hex md5_base64);

# AUTH DIGEST-MD5

$USER = $ARGV[0];
$PASS = $ARGV[1];
$HASH = $ARGV[2];
$ticket = decode_base64($HASH);
($s = $ticket) =~ s/,/,\n    =>"/og ;
print "$str\n    =>$s\n" ;
my $retcode= &digest_md5($ticket) ;
($s = $retcode) =~ s/,/,\n    <=="/og ;
my $ENPASS=encode_base64($retcode,"") ;
print "\n    <<=$s";
print "\n$ENPASS\n";

sub digest_md5 {
    my ($ticket) =@_ ;
    my %ckey = map { /^([^=]+)="?(.+?)"?$/ } split(/,/, $ticket);
    my $realm  = $ckey{realm} ;
    my $nonce  = $ckey{nonce};
    my $cnonce = &make_cnode();
    my $qop = 'auth';
    my $nc  = '00000001';
    my $uri = "smtp/local/$realm" ;
    my($hv, $a1, $a2);

    $hv = md5("$USER:$realm:$PASS");
    $a1 = md5_hex("$hv:$nonce:$cnonce");
    $a2 = md5_hex("AUTHENTICATE:$uri");
    $hv = md5_hex("$a1:$nonce:$nc:$cnonce:$qop:$a2");
    return qq(username="$USER",realm="$realm",nonce="$nonce",nc=$nc,cnonce="$cnonce",digest-uri="$uri",response=$hv,qop=$qop);
}

sub make_cnode {
    my $len  = 16 ;
    my $i ;
    my $s = '' ;
    for($i=0;$i<$len;$i++) { $s .=chr(rand(256)) ; }
    $s = encode_base64($s, "");
    $s =~ s/\W/X/go;
    substr($s, 0, $len);
}
</code>

==== 使い方 ====
  - perl digest-md5.pl <ユーザID> <パスワード> <サーバから返されたBASE64文字列>
  - 表示された文字列をサーバに送信

===== CRAM-MD5 =====
==== SMTP サーバに接続後、次のコマンドを入力。 ====
  AUTH CRAM-MD5

==== perl のソース ====
<code perl>
#!/usr/bin/perl

use Socket;   
use MIME::Base64 ;
use Digest::HMAC_MD5 qw(hmac_md5 hmac_md5_hex);
use Digest::MD5  qw(md5 md5_hex md5_base64);

# AUTH CRAM-MD5

$USER = $ARGV[0];
$PASS = $ARGV[1];
$HASH = $ARGV[2];

$str =~ s/\r\n$//og ; ;
$ticket = decode_base64($HASH)  ;
print "$str\n    ==>" , $ticket , "\n" ;

$encPass = hmac_md5_hex($ticket, $PASS);
my $ENPASS=encode_base64("$USER $encPass","");

print "\n$ENPASS\n";
</code>

==== 使い方 ====
  - perl cram-md5.pl <ユーザID> <パスワード> <サーバから返されたBASE64文字列>
  - 表示された文字列をサーバに送信

===== 参考サイト =====
http://www.aritia.org/hizumi/dsl/page_04.htm