复制代码 代码如下:

DimenTmp,enstr,a,bb

enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")

Fori=1ToLen(enStr)step6

enTmp=Array(Mid(enStr,i,6)&"00")

sz=Split(enTmp(0),",",-1,1)

a=right(sz(0),1)Xorleft(sz(1),1)

bb=bb&a&right(sz(1),1)

Next

FunctionStr2Hex(ByValstrHex)

DimsHex

Fori=1ToLen(strHex)step1

sHex=sHex&Hex(Asc(Mid(strHex,i,1)))&","

Next

Str2Hex=sHex

EndFunction

FunctionHex2Str(hexStr)

Dimsstr,hextmp

Fori=1ToLen(hexStr)step2

hexTmp=Mid(hexStr,i,2)

IfhexTmp<>"00"Then

sstr=sstr&ChrW("&h"&hexTmp)

EndIf

Next

Hex2Str=sstr

EndFunction

wscript.echoHex2Str(bb)