用Perl语言进行Socket编程之四

时间： 2021-07-31 作者：daque

这是源码：

#!/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"; print "pop3"; print ""; my ($a,$name,$aliases,$proto,$type,$len,$thataddr,$thisaddr,$i); my $af_inet = 2; my $sock_stream = 1; my $sockaddr = "s n a4 x8"; ($name,$aliases,$proto) = getprotobyname("tcp"); ($name,$aliases,$port) = getservbyname($port,"tcp") 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 = "user zhangsan"; $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 = "pass 12345678"; $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 exit(0);

用Perl语言进行Socket编程之四

相关推荐

推荐下载

热门阅览

最新排行