#!/usr/bin/perl
use MIME::Base64;

# Usage:
#   smtpauthstr.pl USERNAME PASSWORD
#
exit 1 if $#ARGV < 1;
$str = "$ARGV[0]\0$ARGV[0]\0$ARGV[1]";
print encode_base64($str,""),"\n";
exit 0;