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