相关疑难解决方法(0)

寻找简单的文本加密/解密VB6代码.理想情况下,解决方案应接受(text, password)参数并生成可读输出(没有任何特殊字符),因此可以在任何地方使用它而不会出现编码问题.

有很多可用于.NET的代码,但对于传统的VB6我找不到多少代码.到目前为止,我才发现这一点:http://www.devx.com/vb2themax/Tip/19211

 Public Function EncryptString(theString As String, TheKey As String) As String
    Dim X As Long
    Dim eKey As Byte, eChr As Byte, oChr As Byte, tmp$
    For i = 1 To Len(TheKey)
         'generate a key
          eKey = Asc(Mid$(TheKey, i, 1)) Xor eKey
    Next

    'reset random function
    Rnd -1
    'initilize our key as the random seed
    Randomize eKey
    'generate a pseudo old char
    oChr = Int(Rnd * 256)
    'start encryption
    For X = 1 To Len(theString)
        pp = pp + 1
        If …