a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > 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

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

圖片精選

主站蜘蛛池模板： 国产精品国产精品国产专区不卡 | 久久久久一区二区 | aa级毛片毛片免费观看久 | 久久精品久久久久电影 | 色吊丝2288sds中文字幕 | 91精品国产综合久久久蜜臀粉嫩 | 亚洲欧美激情在线 | 亚洲 中文 欧美 日韩 在线观看 | 欧美激情欧美激情在线五月 | 国产成人99久久亚洲综合精品 | 噜噜噜天天躁狠狠躁夜夜精品 | 日韩一区二区三区视频 | 亚洲精品一区久久久久久 | 一区二区三区回区在观看免费视频 | 国产精品美女久久久久人 | 日韩一二三区 | 国产老女人精品毛片久久 | 在线播放国产一区二区三区 | 久草免费在线 | 黄色大片区 | 九九在线视频 | 国产精品久久在线观看 | 国产伦精品一区二区三区在线 | 久草网址 | 久久久一区二区三区 | 亚洲欧美一区二区三区在线 | 久久久久国产一区二区三区四区 | 久久成人精品视频 | 色欧美综合 | 久久性色 | 亚洲 欧美 另类 综合 偷拍 | 看羞羞视频免费 | 国外爱爱视频 | 亚州成人 | 久久精品一区 | 天堂综合网 | 国产精品理论在线观看 | 日本免费三片免费观看 | 四季久久免费一区二区三区四区 | 污视频网站在线观看免费 | 91国高清视频 |