VB密码简单加密解密

在Visual Basic (VB) 中，对简单的密码进行加密和解密通常可以使用常见的对称加密算法如MD5、SHA1或更基础的 Caesar Cipher（凯撒密码）等。这里以Caesar Cipher为例简要说明：

**Caesar Cipher 加密：**
这是一种替换加密法，通过将字母表中的每个字符按照固定的偏移量（比如3位）向前移动来进行加密。例如，如果偏移量是3，那么"A"会变成"D"，"B"会变成"E"，以此类推。

Public Function CaesarEncrypt(plaintext As String, shift As Integer) As String
    Dim encryptedText As String = ""
    For Each c In plaintext
        If Asc(c) >= 65 And Asc(c) <= 90 '大写字母
            encryptedText &= Chr(Asc(c) + shift Mod 26)
        ElseIf Asc(c) >= 97 And Asc(c) <= 122 '小写字母
            encryptedText &= Chr(Asc(c) + shift Mod 26)
        Else '非字母字符不变
            encryptedText &= c
        End If
    Next
    Return encryptedText
End Function

**Caesar Cipher 解密：**
只需要将加密后的文本经过同样的偏移量向后移动即可解密。

Public Function CaesarDecrypt(ciphertext As String, shift As Integer) As String
    Return CaesarEncrypt(ciphertext, -shift)
End Function