网页加密与解密

fjxm

Local $out

$test = "网页加密"

$code = StringSplit($test, "")

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

MsgBox(0, "", $out)

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

afan

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

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

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

fjxm

thanks
收下..

menfan

呵呵，学习一下。。