麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

用Perl語言進行Socket編程

2019-11-18 17:23:23
字體：大 中 小
來源：轉載
供稿：網友
網絡編程是一門神秘且復雜的藝術，當然也十分有趣。Perl語言提供了豐富的TCP/
驗證郵箱密碼的程序的原碼
下面的代碼在兩種操作系統下對263.net和pop.netease.com兩個POP3服務器嚴格測試,證明是成功的.
第一種:
操作系統：Windows98中文版
WWW服務器：Apache1.3.9forWin
Perl解釋器：ActiveStateToolCorp的PerlforWin32,version5.005_03builtforMSWin32-x86-object
第二種:
操作系統：RedHatlinux6.1
WWW服務器：Apache1.3.6forLinux
Perl解釋器：version5.005_03builtfori386-linux

#!/usr/bin/perl
#test.pl
#Authorhomepage:http://spot.126.com
usestrict;
useSocket;

my$pop3server="263.net";
my$port=110;

$|=1;
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="USERzhangsan";
$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="PASS12345678";
$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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 牛牛碰在线 | 日本一级黄色大片 | 国产精品免费麻豆入口 | 精品国产欧美一区二区 | 麻豆视频在线观看 | 欧美一级美国一级 | 免费a级作爱片免费观看欧洲 | 久久国产夫妻视频 | 国产成人高潮免费观看精品 | 激情小说区 | 少妇色诱麻豆色哟哟 | 特一级毛片 | 国产精品99久久久久久大便 | 欧美18—19sex性hd | 黄色片免费在线播放 | 久久久久.com | 成人资源在线观看 | 草久在线 | 欧美三级欧美成人高清www | 久久99国产综合精品 | 逼特逼视频在线观看 | 99精品视频在线导航 | 国产精品久久久久久久久久三级 | 国产精品www | 欧美色性 | 久久免费观看一级毛片 | 羞羞网站在线观看入口免费 | av之家在线观看 | 欧美乱论 | 欧美一级做性受免费大片免费 | 国产91久久久 | 欧美18videos性处按摩 | 国产乱free国语对白 | 在线成人一区二区 | 一区二区三区在线观看视频 | 美女网站黄在线观看 | 欧美一级视频免费看 | 粉色视频污| 女女久久| 毛片在哪里看 | 亚洲最大的成人网 |