VB 字符串加密解密[高分]

就这样了，大概还行 Private Function Encrypt(ByVal StrSource As String) As String '加密 Dim BLowData As Byte Dim BHigData As Byte Dim i As Long Dim k As Integer Dim StrEncrypt As String Dim StrChar As String Dim KeyTemp As String Dim Key1 As Byte