Excel VBA 暗号化と復号化（TripleDES）

Excel VBAで、TripleDESによる暗号化と復号化処理をする方法を紹介します。

実装結果

以下のとおり、引数に引き渡した文字列を暗号化・復号化します。
※暗号化したバイト列は、BASE64符号化により文字列に変換しています。

	'***************************************************************************************************
	'関数呼び出し
	'***************************************************************************************************
	Sub 暗号化()
	MsgBox "password -> " & EncryptStringTripleDES("password")
	End Sub
	Sub 復号化()
	MsgBox "6pbpGQOC73TWEISe0qnwQA== -> " & DecryptStringTripleDES("6pbpGQOC73TWEISe0qnwQA==")
	End Sub

view raw PartialEncryptStringTripleDES.vba hosted with ❤ by GitHub

結果は、以下の通りです。

• 暗号化

• 復号化