可逆加密解密程式(ASP版)

近是要做一個項目，要求把字串要求先加密後解密，在網上找了段程式，改了下

Dim str:str = "*(^#123"
Response.Write(str&"<br />")
str = Encrypt(str)
Response.Write(str&"<br />")
str = Decrypt(str)
Response.Write(str)

''解密函數
Function Decrypt()Function Decrypt(dcode)  
  Dim texts 
  Dim i 
  For i=1 To Len(dcode) 
    texts = texts & Chr(Asc(Mid(dcode,i,2))-i+1) '在此隨便加個數字改變加密後的值
  Next 
  Decrypt = texts 
End Function
''加密函數
Function Encrypt()Function Encrypt(ecode) 
  Dim texts 
  dim i 
  For i=1 To Len(ecode) 
    texts = texts & Chr(Asc(Mid(ecode,i,2))+i-1) '減相應的值才能還原:)
  Next
  Encrypt = texts 
End Function