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

首頁(yè) > 編程 > Perl > 正文

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

2019-11-18 17:23:23
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(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





發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 合阳县| 甘洛县| 建瓯市| 潍坊市| 高碑店市| 涟源市| 庐江县| 南木林县| 益阳市| 高陵县| 江孜县| 太原市| 合阳县| 蕲春县| 沙雅县| 广汉市| 石嘴山市| 竹北市| 高青县| 玛纳斯县| 古浪县| 三门峡市| 杂多县| 杭锦后旗| 鄢陵县| 静海县| 应城市| 琼中| 吐鲁番市| 麻阳| 个旧市| 晋宁县| 北流市| 田阳县| 安泽县| 宁陕县| 卫辉市| 西林县| 钦州市| 同德县| 苍南县|