破解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
与我交谈