[原创]别人写的一段加密程序逆推加密函数
本文摘要: 西宁威势电子信息技术服务有限责任公司 发布时间:2008-11-14 浏览次数:9847 tags:加密 解密破解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 i
西宁威势电子信息技术服务有限责任公司   发布时间:2008-11-14  浏览次数:9847  tags:加密 解密 破解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
关闭本页 打印本页