AES加密：

Private Const Str As String = "1111111111111111"           ' 加密字符串
Private Const StrKey As String = "1111111111111111"        ' 密钥
Private Const StrIv As String = "1111111111111111"         '16位的偏移

Sub TestAES()

   Dim decrypt, encrypt As String
   encrypt = AesHelper(Str, StrKey, StrIv, True, False)
   decrypt = AesHelper(CStr(encrypt), StrKey, StrIv, False, False)
   Debug.Print ("Aes加密===" + encrypt + ",解密===" + decrypt)

End Sub

Base64加密：

Private Const Str As String = "1111111111111111"           ' 加密字符串

Sub TestBase64()
   encrypt = Base64Encode(Str)
   decrypt = Base64Decode(CStr(encrypt))
   Debug.Print ("Base64加密===" + encrypt + ",解密===" + decrypt)

End Sub

国密：

Private Const Str As String = "1111111111111111"           ' 加密字符串
Private Const StrKey As String = "1111111111111111"        ' 密钥
Private Const StrIv As String = "1111111111111111"         '16位的偏移

Sub testSm4CBC()
   Dim sm4 As sm4

   Set sm4 = New sm4
   sm4.iv = StrIv
   sm4.Key = StrKey

   encrypt = sm4.Encrypt_CBC(Str)
   decrypt = sm4.Decrypt_CBC(CStr(encrypt))

   Debug.Print ("CBC加密===" + encrypt + ",解密===" + decrypt)

End Sub

Sub testSm4ECB()
   Dim sm4 As sm4

   Set sm4 = New sm4
   sm4.iv = StrIv
   sm4.Key = StrKey
   encrypt = sm4.Encrypt_ECB(Str)
   decrypt = sm4.Decrypt_ECB(CStr(encrypt))


   Debug.Print ("ECB加密===" + encrypt + ",解密===" + decrypt)

End Sub