把密码加密

Question

随便到网上下载一个加密的DLL，或者算法的源码，不就成了吗？

Answer 1

Public Function PutPWD(StrPWD As String) As String    'StrPWD加密
    Dim i As Integer
    PutPWD = ""
    For i = 1 To Len(StrPWD)
       PutPWD = PutPWD & Chr(Asc(Mid(StrPWD, i, 1)) - Len(StrPWD))
    Next
End FunctionPublic Function GetPWD(StrPWD As String) As String    'StrPWD解密
    Dim i As Integer
    GetPWD = ""
    For i = 1 To Len(StrPWD)
       GetPWD = GetPWD & Chr(Asc(Mid(StrPWD, i, 1)) + Len(StrPWD))
    Next
End Function

Answer 2

多谢mkiss,可否解释一下哪个函数是加密，哪个函数是解密

Answer 3

上面不是有注释吗，putPwd是加密,GetPWD是解密

Answer 4

to mkiss
请问这两个函数在什么时候使用，StrPWD是不是用来传入密码的值。

Answer 5

是的啊，比如：
a=密码
b=putPWD(a) '加密密码
c=getPWD(b) '取回密码
就这麽简单,顺便问一下，你用的是什么语言啊？