2004-7-11 8:25:00 作者： 来源：未知 网友评论 0 条
论坛 验证邮箱密码的程序的原码
下面的代码在两种操作系统下对263.net和pop.netease.com两个POP3服务器严格测试, 证明是成功的.
第一种: 操作系统：Windows 98 中文版
WWW服务器：Apache 1.3.9 for Win
Perl 解释器：ActiveState Tool Corp的Perl for Win32 , version 5.005_03 built for MSWin32-x86-object
第二种: 操作系统：Red Hat Linux 6.1
WWW服务器：Apache 1.3.6 for Linux
Perl 解释器：version 5.005_03 built for i386-linux
下面是详细程序
#!/usr/bin/perl
# test.pl
#Author homepage: http://spot.126.com
use strict;
use Socket;
my $pop3server = "263.net";
my $port = 110;
$|=1;
print "Content-type: text/html
";
print "POP3
";
print "
";
my ($a,$name,$aliases,$proto,$type,$len,$thataddr,$thisaddr,$i);
my $AF_INET = 2;
my $SOCK_STREAM = 1;
my $sockaddr = "S n a4 x8";
($name,$aliases,$proto) = getprotobyname("tcp");
($name,$aliases,$port) = getservbyname($port,"tcp")
unless $port =~ /^d+$/;;
($name,$aliases,$type,$len,$thataddr) = gethostbyname($pop3server);
my $this = pack($sockaddr, $AF_INET, 12345, $thisaddr);
my $that = pack($sockaddr, $AF_INET, $port, $thataddr);
my $mysocket = socket(S, $AF_INET, $SOCK_STREAM, $proto);
if ($mysocket)
{
}
else
{
print "不能打开socket: $!";
exit(0);
}
my $mybind = bind(S, $this);
if ($mybind)
{
}
else
{
print "无法绑定！: $!";
exit(0);
}
my $myconnect = connect(S,$that);
if ($myconnect)
{
}
else
{
print "连接错误: $!";
exit(0);
}
my $BUF = "";
my $SenderIP = recv(S, $BUF, 596,0);
if ($SenderIP)
{
}
else
{
print "接收错误: $!";
exit(0);
}
if (substr($BUF,0,3) eq "+OK")
{
}
else
{
print "POP3服务器出错!
";
exit(0);
}
my $BUFFER = "USER zhangsan";
$BUFFER .= chr(13);
$BUFFER .= chr(10);
my $SENVAL = send(S, $BUFFER,0);
if ($SENVAL)
{
}
else
{
print "发送错误: $!";
exit(0);
}
my $BUF = "";
my $SenderIP = recv(S, $BUF, 4096,0);
if ($SenderIP)
{
}
else
{
print "接收错误: $!";
exit(0);
}
if (substr($BUF,0,3) eq "+OK")
{
}
else
{
print "无此帐号!
";
exit(0);
}
$BUFFER = "PASS 12345678";
$BUFFER .= chr(13);
$BUFFER .= chr(10);
my $SENVAL = send(S, $BUFFER,0);
if ($SENVAL)
{
}
else
{
print "发送错误: $!";
exit(0);
}
$BUF = "";
my $SenderIP = recv(S, $BUF, 196, 0);
if ($SenderIP)
{
}
else
{
print "接收错误: $!";
exit(0);
}
if (substr($BUF,0,3) eq "+OK")
{
}
else
{
print "密码错误!
";
exit(0);
}
print密码是正确的!
本程序版权归菜瓜乐园
EOF
exit(0);
