^{<noscript id="6lpeu"></noscript>}

用Perl語(yǔ)言進(jìn)行Socket編程

2019-11-18 17:23:23

字體：大中小

供稿：網(wǎng)友

網(wǎng)絡(luò)編程是一門(mén)神秘且復(fù)雜的藝術(shù)，當(dāng)然也十分有趣。Perl語(yǔ)言提供了豐富的TCP/
驗(yàn)證郵箱密碼的程序的原碼
下面的代碼在兩種操作系統(tǒng)下對(duì)263.net和pop.netease.com兩個(gè)POP3服務(wù)器嚴(yán)格測(cè)試,證明是成功的.
第一種:
操作系統(tǒng)：Windows98中文版
WWW服務(wù)器：Apache1.3.9forWin
Perl解釋器：ActiveStateToolCorp的PerlforWin32,version5.005_03builtforMSWin32-x86-object
第二種:
操作系統(tǒng)：RedHatlinux6.1
WWW服務(wù)器：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"不能打開(kāi)socket:$!";
exit(0);
}

my$mybind=bind(S,$this);
if($mybind)
{
}
else
{
print"無(wú)法綁定！:$!";
exit(0);
}

my$myconnect=connect(S,$that);
if($myconnect)
{
}
else
{
print"連接錯(cuò)誤:$!";
exit(0);
}

my$BUF="";
my$SenderIP=recv(S,$BUF,596,0);
if($SenderIP)
{
}
else
{
print"接收錯(cuò)誤:$!";
exit(0);
}

if(substr($BUF,0,3)eq" OK")
{
}
else
{
print"POP3服務(wù)器出錯(cuò)!

";
exit(0);
}

my$BUFFER="USERzhangsan";
$BUFFER.=chr(13);
$BUFFER.=chr(10);

my$SENVAL=send(S,$BUFFER,0);
if($SENVAL)
{
}
else
{
print"發(fā)送錯(cuò)誤:$!";
exit(0);
}

my$BUF="";
my$SenderIP=recv(S,$BUF,4096,0);
if($SenderIP)
{
}
else
{
print"接收錯(cuò)誤:$!";
exit(0);
}

if(substr($BUF,0,3)eq" OK")
{
}
else
{
print"無(wú)此帳號(hào)!

";
exit(0);
}

$BUFFER="PASS12345678";
$BUFFER.=chr(13);
$BUFFER.=chr(10);

my$SENVAL=send(S,$BUFFER,0);
if($SENVAL)
{
}
else
{
print"發(fā)送錯(cuò)誤:$!";
exit(0);
}

$BUF="";
my$SenderIP=recv(S,$BUF,196,0);
if($SenderIP)
{
}
else
{
print"接收錯(cuò)誤:$!";
exit(0);
}

if(substr($BUF,0,3)eq" OK")
{
}
else
{
print"密碼錯(cuò)誤!";
exit(0);
}

print密碼是正確的!
本程序版權(quán)歸菜瓜樂(lè)園

EOF

上一篇：單行代碼的Perl程序

下一篇：Perl簡(jiǎn)介

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點(diǎn)

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機(jī)V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽(yáng)：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長(zhǎng)郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實(shí)價(jià)值

2019-10-21 09:00:12

滴滴英文服務(wù)上線兩周年用戶(hù)已超200萬(wàn)

2019-09-26 08:57:12

華為推出全球至快AI訓(xùn)練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國(guó)技術(shù)團(tuán)隊(duì)

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

用Perl語(yǔ)言進(jìn)行Socket編程