破解SHOPXP的时候,里面的代码是这样写的: function UnEncode(temp) but=1 for i =1 to len(temp) if mid(temp,i,1)<>"鬼" then pk=asc(mid(temp,i,1))-but if pk>126 then pk=pk-95 elseif pk<32 then pk=pk+95 end if a=a&chr(pk) else a=a&vbcrlf end if next UnEncode=a end function 它的意图是将代码转换成字符串,然后用EXECUTE来执行,达到防止别人破解的目的,这样的加密方法很脆弱,至于怎么破解就不提了。我按解密函数返退一个加密函数,如下: function Encode(temp) '我写的加密 but=1 for i =1 to len(temp) if mid(temp,i,1)<>chr(10) then pk=asc(mid(temp,i,1))+but if pk>126 then pk=pk-95 elseif pk<32 then pk=pk+95 end if a=a&chr(pk) else a=a&"鬼" end if next Encode=a end function