木马后门端口复用技术的实现（delphi）--delphi,木马,DIY,端口复用,后门,实现

作者：佚名来源：网上收集发布时间：2006-8-19 23:06:03

你可能要问：“为什么在木马，后门日益泛滥的今天，我们自己还写程序？”

sobiny: “成就感”

　其实端口复用听起来很深奥的技术，其实很简单，简单得只需要一个函数就可以实现：

　 setsockopt( socket s, int level, int optname, const char far *optval, int optlen );

　参数： s socket 的识别码，level选项设定的 level ，optname　选项名称，optval　选项的设定值，optlen　选项设定值的长度。

　我只说一个参数，就是选项名称的其中一个选项so_reuseaddr，稍微会一点英语的和有一点计算机基础知识的都知道，这个选项后面的意思就是“重复使用地址”

　我这里把实现端口复用的代码给出来，并给新手朋友们解释一下：

var

sobinyshuai : bool;

myip : string;

port : integer;

serversocket : tsocket;

sockaddrin: tsockaddrin;

wsadata: twsadata;

begin

myip:=123.123.123.123;

sobinyshuai:=true;　

wsastartup(makeword(1, 1), wsadata);

serversocket := wsasocket(af_inet, sock_stream, ipproto_tcp, nil, 0, 0);

setsockopt(serversocket, sol_socket, so_reuseaddr, @sobinyshuai, sizeof(sobinyshuai));

sockaddrin.sin_family := af_inet;　　　　

sockaddrin.sin_addr.s_addr:=inet_addr(myip);　

sockaddrin.sin_port := htons(port);　　

bind(serversocket, sockaddrin, sizeof(sockaddrin));

listen(serversocket, 1);

……

end;

　端口复用就说完了，就这么简单，如果要加上什么功能的话，请在邪恶八进制里面搜索一下我发的“综合小工具”的源代码，把里面命令提示符，注册表模拟等你喜欢的东西复制过来就可以了。这个文章说白了还是必须要有一点点程序基础的朋友看的（各位超级新手的话，还是用别人的软件好些。）我全用的是api的函数，稍微变形一下就可以在c++下用。

有3个pas：windows, winsock2, winsock;

其实我想端口复用的问题并不是想写什么黑客软件，而是那天夸下海口说只需要利用一个webshell就实现各内网间的udp通讯息，就必须涉及一下端口的复用，不然咋能行呢，如果有知道能udp访问http的朋友一定告诉我方法。呵呵，先谢谢。

　现在又有一个想法提出来，希望高手来指点一下：就是偷袭serv-u的方法，在找不到目录，注册表不能导出用户的时候，偷袭serv-u.我是这么想的：因为在sendmessage给窗口可以发送消息，经过实验发现，serv-u的各个窗口都可以发送wm_settext改变文字，并且可以给执行权限那里发送点击的信息，再给应用那个按钮发送点击的信息，得到各个盘的控制权限，或者马上通过serv-u设置系统管理员帐号（如果serv-u有这个权限的话），不过问题就是，必须要管理员打开serv-u设置用户那一栏的时候，才能够行得通。测试的时候在本机guest权限下，这个程序是行得通的，直接又加了一个管理员，就是不知道在webshell下的执行效果会怎么样，如果有条件的朋友可以试试.