Question

Public Function Encrypt(ByVal Password As String) As String
    Dim iIndex As Integer
    Dim iTemp As Integer

    Encrypt = " "
    For iIndex = 1 To Len(Password)
        iTemp = Asc(Mid$(Password, iIndex, 1)) * iIndex - iIndex
        Encrypt = Chr$(iTemp Mod 255) & Encrypt
    Next iIndex
End Function

这是我在遗留应用程序中找到的功能。我试图使用此函数来加密数据库密码列数据。当我将此代码粘贴到我的visual studio中时，Chr$函数显示错误，如果我删除美元符号（$），它会起作用，但结果不正确。

Answer 1

它是向后兼容的CHR()。

有关详细信息，请参阅：http://www.bettersolutions.com/vba/VNN529/QC649013521.htm

这个Chr $功能是什么？

1 个答案: