求 解密函数!

Question

加密函数
    Function jiami(ByVal sValue As String) As String        Dim tempString As String = ""
        Dim i As Integer        For i = 1 To Len(sValue)            tempString = tempString & Chr(Asc(Left(sValue, 1)) + 100)            sValue = Right(sValue, Len(sValue) - 1)
        Next        Return tempString    End Function
其中sValue 是要加密的字符
tempString是加密后的密码怎样给这个函数解密!现在数据库表中的密码是在E文操作系统中加密成的,那我在中文操作系统中是否可以解密?

Answer 1

不行的,如果你要转入数据库,再从数据库取出来,有些字符会有改变.我发现数据库会把两个近相的字符当成是同一个,除非你不打算存入数据库.