VB文本加密解密

给你个简单的拿去用吧 Str=想加密 或者解密的文本,jm为True或者False是表示加密或解密,反正加解密相反就行了, 参数n表示偏移数 Private Function chan(ByVal str As String, Optional jm As Boolean) As String Dim n As Byte, i As Long n = 2 If Len(str) > 0 Then For i = 1 To Len(str) If IsMissi