www.pudn.com > bbs3000afree.zip > smtp.cgi

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
use Socket; 
$smtp =~ s/^\s+//g; 
$smtp =~ s/\s+$//g; 
$smtp_port = 25 if (($smtp_port !~ /^\d+$/)||($smtp_port eq "")); 
my ($a, $i, $name, $aliases, $proto, $type, $len, $thataddr); 
my $AF_INET = 2; 
my $SOCK_STREAM = 1; 
my $SOCKADDR = 'S n a4 x8'; 
($name, $aliases, $proto) = getprotobyname('tcp'); 
($name, $aliases, $smtp_port) = getservbyname($smtp_port, 'tcp') unless ($smtp_port =~ /^\d+$/); 
($name, $aliases, $type, $len, $thataddr) = gethostbyname($smtp); 
my $this = pack($SOCKADDR, $AF_INET, 0, $thisaddr); 
my $that = pack($SOCKADDR, $AF_INET, $smtp_port, $thataddr); 
socket(S, $AF_INET, $SOCK_STREAM, $proto); 
bind(S, $this); 
connect(S, $that); 
select(S); 
$| = 1; 
select(STDOUT); 
$a = ; 
if ($a !~ /^2/) 
{ 
close(S); 
undef $|; 
return 0; 
} 
if ($smtp_user ne "" && $smtp_psd ne ""){ 
print S "EHLO localhost\n"; 
$a = ; 
print S "AUTH LOGIN\n"; 
$a = ; 
my $encode_smtpuser = Base64encode($smtp_user); 
print S "$encode_smtpuser\n"; 
$a = ; 
my $encode_smtppass = Base64encode($smtp_psd); 
print S "$encode_smtppass\n"; 
$a = ; 
}else{ 
print S "HELO $ENV{REMOTE_ADDR}\r\n"; 
$a = ; 
print S "MAIL FROM: <$from>\r\n"; 
$a = ; 
} 
print S "MAIL FROM: <$from>\r\n"; 
$a = ; 
if ($a !~ /^2/) 
{ 
close(S); 
undef $|; 
return 0; 
} 
$sendto=~ s/\;/\,/g; 
$all_recipients = $sendto; 
@Recipients = split(/[\,]/,$all_recipients); 
while($recipient = shift(@Recipients)){ 
if($recipient =~ /([^\s<]+@[^\s\r,>]+)/){ 
$recipient = '<' . $1 . '>'; 
print S "RCPT TO: $recipient\r\n"; 
$a = ; 
if ($a !~ /^2/) 
{ 
close(S); 
undef $|; 
return 0; 
} 
} 
} 
print S "DATA\n"; 
$Message = qq|To:$sendto\r\n|; 
$Message .= qq|From:$adminmail\r\n|; 
$Message .= qq|Subject:$subject\r\n|; 
$Message .= "$message"; 
$Message =~ s/\r\n?/\n/g; 
print S $Message; 
print S "\n"; 
print S "\n\n"; 
print S ".\n"; 
$a = ; 
print S "QUIT\n"; 
$a = ; 
close(S); 
undef $|; 
return 1; 
sub Base64encode 
{ 
my $res = ""; 
while ($_[0] =~ /(.{1,45})/gs) 
{ 
$res .= substr(pack('u', $1), 1); 
chop($res); 
} 
$res =~ tr| -_|A-Za-z0-9+/|; 
my $padding = (3 - length($_[0]) % 3) % 3; 
$res =~ s/.{$padding}$/'=' x $padding/e if ($padding); 
return $res; 
} 
 
1; 
######################### END OF SCRIPT #########################