主题：[求助]加密，解密。写到哪里?

 没有什么规定一定是这样。一般都是这样，你可以根据需要判断。

Dim val As String = EncryptText("1", "y","c") '加密
If val.EndsWith("=") AndAlso val.length Mod 4 = 0 AndAlso val.length >= 12 Then
    msgbox("是加密的")
End If

 如果你还能总结规律，就继续加上去。