网页加密与解密

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

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 · 发表于 2010-3-20 11:02:24

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 · 发表于 2010-3-20 11:33:28

thanks
收下..

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

呵呵，学习一下。。

		自动登录	找回密码
密码			加入

[IE类操作] 网页加密与解密

相关帖子

评分