论坛 › 『 提问交流 』 › 网页加密与解密

fjxm 发表于 2010-3-20 10:46:38

网页加密与解密

Local $out

$test = "网页加密"

$code = StringSplit($test, "")

For $i = 1 To $code
      $out &= "%u" & Hex(AscW($code[$i]), 4)
Next

MsgBox(0, "", $out)

上面这个是加密,如何解密呢?
%u7F51%u9875%u52A0%u5BC6=网页加密

afan 发表于 2010-3-20 11:02:24

Local $out, $out1, $test = "网页加密"

$code = StringSplit($test, "")
For $i = 1 To $code
        $out &= "%u" & Hex(AscW($code[$i]), 4)
Next
MsgBox(0, "编码", $out)

$sS = StringSplit($out, "%u", 1)
For $i = 2 To $sS
        $out1 &= ChrW("0x" & $sS[$i])
Next
MsgBox(0, "解码", $out1)

fjxm 发表于 2010-3-20 11:33:28

thanks
收下..

menfan 发表于 2010-3-20 11:49:36

呵呵，学习一下。。

查看完整版本: 网页加密与解密