php转易语言

银河世纪 · 发表于 2024-2-4 11:49:49

[PHP] 纯文本查看 复制代码

<?php        //version lite202

//set allowTestMenu to false to disable System/Server test page
$allowTestMenu = true;

header("Content-Type: text/plain; charset=x-user-defined");
error_reporting(0);
set_time_limit(0);

define(FileDoesNotExist, 0);
define(FileCannotBeOpened, 1);
define(FileIsSQLite2, 2);
define(FileIsSQLite3, 3);
define(FileIsInvalid, 4);

function phpversion_int()
{
        list($maVer, $miVer, $edVer) = preg_split("(/|\.|-)", phpversion());
        return $maVer*10000 + $miVer*100 + $edVer;
}

if (phpversion_int() < 50300)
{
        set_magic_quotes_runtime(0);
}

function GetLongBinary($num)
{
        return pack("N",$num);
}

function GetShortBinary($num)
{
        return pack("n",$num);
}

function GetDummy($count)
{
        $str = "";
        for($i=0;$i<$count;$i++)
                $str .= "\x00";
        return $str;
}

function GetBlock($val)
{
        $len = strlen($val);
        if( $len < 254 )
                return chr($len).$val;
        else
                return "\xFE".GetLongBinary($len).$val;
}

function EchoHeader($errno)
{
        $str = GetLongBinary(1111);
        $str .= GetShortBinary(202);
        $str .= GetLongBinary($errno);
        $str .= GetDummy(6);
        echo $str;
}

function EchoConnInfo()
{
        $version = sqlite_libversion();
        $str = GetBlock($version);
        echo $version ;
        $str .= GetBlock($version);
        echo $str;
        $str .= GetBlock($version);
        echo $str;
}

function EchoConnInfo3()
{
        $version = SQLite3::version();
        $str = GetBlock($version["versionString"]);
        $str .= GetBlock($version["versionString"]);
        $str .= GetBlock($version["versionString"]);
        echo $str;
}

function EchoResultSetHeader($errno, $affectrows, $insertid, $numfields, $numrows)
{
        $str = GetLongBinary($errno);
        $str .= GetLongBinary($affectrows);
        $str .= GetLongBinary($insertid);
        $str .= GetLongBinary($numfields);
        $str .= GetLongBinary($numrows);
        $str .= GetDummy(12);
        echo $str;
}

function EchoFieldsHeader($res, $numfields)
{
        $str = "";
        for ( $i = 0; $i < $numfields; $i++ ) {
                $str .= GetBlock(sqlite_field_name($res, $i));
                $str .= GetBlock("");
                
                $type = -2;        // SQLITE_TEXT
                $length = 0;
                $flag = 0;
                
                $str .= GetLongBinary($type);
                $str .= GetLongBinary($flag);
                $str .= GetLongBinary($length);
        }
        echo $str;
}

function EchoFieldsHeader3($res, $numfields)
{
        $str = "";
        for ( $i = 0; $i < $numfields; $i++ ) {
                $str .= GetBlock($res->columnName($i));
                $str .= GetBlock("");
                
                $type = SQLITE3_NULL;
                $length = 0;
                $flag = 0;
                
                $str .= GetLongBinary($type);
                $str .= GetLongBinary($flag);
                $str .= GetLongBinary($length);
        }
        echo $str;
}

function EchoData($res, $numfields, $numrows)
{
        for ( $i = 0; $i < $numrows; $i++ ) {
                $str = "";
                $row = sqlite_fetch_array( $res, SQLITE_NUM );
                for( $j = 0; $j < $numfields; $j++ ) {
                if( is_null($row[$j]) )
                        $str .= "\xFF";
                else
                        $str .= GetBlock($row[$j]);
                $str .= GetLongBinary(-2);
                }
                echo $str;
        }
}

function EchoData3($res, $numfields, $numrows)
{
        while ($row = $res->fetchArray(SQLITE3_NUM)) {
                $str = "";
                for ( $j = 0; $j < $numfields; $j++ ) {
                        if ( is_null($row[$j]) )
                                $str .= "\xFF";
                        else
                                $str .= GetBlock($row[$j]);
                        $str .= GetLongBinary($res->columnType($j));
                }
                echo $str;
        }
}

function SQLite2($action, $path, $queries)
{
        if (!function_exists("sqlite_open")) {
                EchoHeader(203);
                echo GetBlock("SQLite2 is not supported on the server");
                exit();
        }
        
        $errno_c = 0;
        $conn = sqlite_open($path, 0666, $error_c);
        if ($conn == FALSE) {
                $errno_c = 202;
        }
        
        EchoHeader($errno_c);
        if ($errno_c > 0) {
                echo GetBlock(sqlite_error_string($error_c));
        } elseif($action == "C") {
                EchoConnInfo();
        } elseif($action == "2") {
                sqlite_query($conn, "VACUUM");
                EchoConnInfo();
        } elseif($action == "Q") {
                for($i=0;$i<count($queries);$i++) {
                        $query = $queries[$i];
                        if ($query == "") continue;
                        if (phpversion_int() < 50400){  
                                if(get_magic_quotes_gpc())
                                        $query = stripslashes($query);
                        }
                        $res = sqlite_query($conn, $query);
                        $errno = sqlite_last_error($conn);
                        $affectedrows = sqlite_changes($conn);
                        $insertid = sqlite_last_insert_rowid($conn);
                        $numfields = sqlite_num_fields($res);
                        $numrows = sqlite_num_rows($res);
                        EchoResultSetHeader($errno, $affectedrows, $insertid, $numfields, $numrows);
                        if ($errno != 0)
                                echo GetBlock(sqlite_error_string($errno));
                        else {
                                if ($numfields > 0) {
                                        EchoFieldsHeader($res, $numfields);
                                        EchoData($res, $numfields, $numrows);
                                } else {
                                        echo GetBlock("");
                                }
                        }
                        if ($i<(count($queries)-1))
                                echo "\x01";
                        else
                                echo "\x00";
                }
        }
        
        sqlite_close($conn);
}

function SQLite3($action, $path, $queries)
{
        if (!class_exists("Sqlite3")) {
                EchoHeader(203);
                echo GetBlock("SQLite3 is not supported on the server");
                exit();
        }
        
        $flag = SQLITE3_OPEN_READWRITE;
        if ($action == "3")
                $flag = SQLITE3_OPEN_READWRITE | SQLITE3_OPEN_CREATE;
        
        $errno_c = 0;
        $conn = new SQLite3($path, $flag);
        if ($conn == nil) {
                $errno_c = 202;
        }
        
        EchoHeader($errno_c);
        if ($errno_c > 0) {
                echo GetBlock(SQLite3::lastErrorMsg());
        } else if($action == "C") {
                EchoConnInfo3();
        } else if($action == "3") {
                $conn->query("VACUUM");
                EchoConnInfo3();
        } else if($action == "Q") {
                for($i=0;$i<count($queries);$i++) {
                        $query = $queries[$i];
                        if ($query == "") continue;
                        if (phpversion_int() < 50400){  
                                if(get_magic_quotes_gpc())
                                        $query = stripslashes($query);
                        }
                        $res = $conn->query($query);
                        $errno = $conn->lastErrorCode();
                        $affectedrows = $conn->changes();
                        $insertid = $conn->lastInsertRowID();
                        $numfields = 0;
                        $numrows = 0;
                        if (is_a($res, "SQLite3Result")) {
                                $numfields = $res->numColumns();
                                if ($numfields > 0) {
                                        while ($row = $res->fetchArray(SQLITE3_NUM)) {
                                                $numrows++;
                                        }
                                        $res->reset();
                                }
                        }
                        EchoResultSetHeader($errno, $affectedrows, $insertid, $numfields, $numrows);
                        if ($errno != 0)
                                echo GetBlock($conn->lastErrorMsg());
                        else {
                                if ($numfields > 0) {
                                        EchoFieldsHeader3($res, $numfields);
                                        EchoData3($res, $numfields, $numrows);
                                        $res->finalize();
                                } else {
                                        echo GetBlock("");
                                }
                        }
                        if ($i<(count($queries)-1))
                                echo "\x01";
                        else
                                echo "\x00";
                }
        }
        
        $conn->close();
}

        if (phpversion_int() < 50000) {
                EchoHeader(201);
                echo GetBlock("unsupported php version");
                exit();
        }
        
        if (!isset($_POST["actn"]) || !isset($_POST["dbfile"])) {
                $testMenu = $allowTestMenu;
                if (!$testMenu){
                        EchoHeader(202);
                        echo GetBlock("invalid parameters");
                        exit();
                }
        }
        
        if (!$testMenu){
                if ($action == "2" || $action == "3") {
                        if (!isset($_POST["version"])) {
                                EchoHeader(202);
                                echo GetBlock("invalid parameters");
                                exit();
                        }
                }
                
                if ($_POST["encodeBase64"] == '1') {
                        for($i=0;$i<count($_POST["q"]);$i++)
                                $_POST["q"][$i] = base64_decode($_POST["q"][$i]);
                }
                
                $action = $_POST["actn"];
                $file = $_POST["dbfile"];
                $queries = $_POST["q"];
                
                $status = FileDoesNotExist;
                if (is_file($file)) {
                        $fhandle = fopen($file, "r");
                        if ($fhandle) {
                                $sqlite2header = "** This file contains an SQLite 2.1 database **";
                                $sqlite3header = "SQLite format 3";
                                $string = fread($fhandle, strlen($sqlite2header));
                                if (strncmp($string, $sqlite2header, strlen($sqlite2header)) == 0)
                                        $status = FileIsSQLite2;
                                else if ($string == "" || strncmp(substr($string, 0, strlen($sqlite3header)), $sqlite3header, strlen($sqlite3header)) == 0)
                                        $status = FileIsSQLite3;
                                else
                                        $status = FileIsInvalid;
                                fclose($fhandle);
                        } else {
                                $status = FileCannotBeOpened;
                        }
                }
                
                if ($action == "2" || $action == "3") {
                        if ($status == FileDoesNotExist) {
                                if ($action == "2")
                                        SQLite2($action, $file, $queries);
                                else
                                        SQLite3($action, $file, $queries);
                        } else {
                                EchoHeader(202);
                                echo GetBlock("Datbase file exists already");
                        }
                } else {
                        switch ($status) {
                                case FileDoesNotExist:
                                        EchoHeader(202);
                                        echo GetBlock("Database file does not exist");
                                        break;
                                case FileCannotBeOpened:
                                        EchoHeader(202);
                                        echo GetBlock("Database file cannot be opened");
                                        break;
                                case FileIsSQLite2:
                                        SQLite2($action, $file, $queries);
                                        break;
                                case FileIsSQLite3:
                                        SQLite3($action, $file, $queries);
                                        break;
                                case FileIsInvalid:
                                        EchoHeader(202);
                                        echo GetBlock("Database file is encrypted or invalid");
                                        break;
                        }
                }
                exit();
        }



function doSystemTest()
{
        function output($description, $succ, $resStr) {
                echo "<tr><td class=\"TestDesc\">$description</td><td ";
                echo ($succ)? "class=\"TestSucc\">$resStr[0]</td></tr>" : "class=\"TestFail\">$resStr[1]</td></tr>";
        }
        output("[SQLite2] PHP version >= 5.0.0", phpversion_int() >= 50000, array("Yes", "No"));
        output("[SQLite2] sqlite_open() available", function_exists("sqlite_open"), array("Yes", "No"));
        output("[SQLite3] PHP version >= 5.3.0", phpversion_int() >= 50300, array("Yes", "No"));
        output("[SQLite3] SQLite3 class available", class_exists("SQLite3"), array("Yes", "No"));
        if (phpversion_int() >= 40302 && substr($_SERVER["SERVER_SOFTWARE"], 0, 6) == "Apache" && function_exists("apache_get_modules")){
                if (in_array("mod_security2", apache_get_modules()))
                        output("Mod Security 2 installed", false, array("No", "Yes"));
        }
}

header("Content-Type: text/html");
?>

苗哥 · 发表于 2024-2-4 12:28:24

本来打算翻译的，一看400行，放弃了，哈哈

冷渣渣 · 发表于 2024-2-4 12:53:03

本来打算翻译的，一看400行，放弃了，哈哈

风度猫 · 发表于 2024-2-4 14:44:26

自由天下发表于 2024-2-4 12:28
本来打算翻译的，一看400行，放弃了，哈哈

当时我以为那是500块

番茄吧 · 发表于 2024-2-4 14:58:11

风度猫发表于 2024-2-4 14:44
当时我以为那是500块

要500块我都用想接了，哈哈

苗哥 · 发表于 2024-2-4 15:02:59

风度猫发表于 2024-2-4 14:44
当时我以为那是500块

500块精币

银河世纪 · 发表于 2024-2-4 15:10:43

冷渣渣发表于 2024-2-4 12:53
本来打算翻译的，一看400行，放弃了，哈哈

不用全部翻译呢只要翻译核心部分

石榴熟了 · 发表于 2024-2-4 18:47:31

本来打算翻译的，一看400行，放弃了，哈哈

小羊要吃狼 · 发表于 2024-2-5 12:14:20

你可以转成js，然后再易语言执行js呀

米饭大师 · 发表于 2024-2-6 11:31:47

小羊要吃狼发表于 2024-2-5 12:14
你可以转成js，然后再易语言执行js呀

这是个最好的主意

		自动登录	找回密码
密码			注册

[求助] php转易语言

浏览过的版块