验证邮箱密码的程序的原码
下面的代码在两种操作系统下对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\n\n";
print "POP3";
print " ";
my ($a,$name,$aliases,$proto,$type,$len,$thataddr,$thisaddr,$i);