【VBA】.NET Frameworkのクラスで文字列を暗号化する方法とオートメーションエラー

今回の記事では、VBAから.NET Frameworkのクラスを呼び出して、指定した文字列を暗号化(ハッシュ)する方法を紹介します。
また、一部のパソコンでは、この処理を実装しているコードで「-2146232576:オートメーションエラー」が発生したため、その原因も併せて紹介します。

VBAから.NET Frameworkのクラスを呼び出してハッシュ値を作成するコード例
.NETのクラスを呼ぶ際に「-2146232576:オートメーションエラー」が発生する場合
1. .NET Framework 3.5を有効にする方法
最後に

VBAから.NET Frameworkのクラスを呼び出してハッシュ値を作成するコード例

当項では、VBAから.NET Frameworkのクラスを呼び出し、SHA-256などのハッシュアルゴリズムを使用して、引数で渡された文字列からハッシュ値を返すサンプルコードを紹介します。

  Function get_HashString(ByVal targetStr As String)

      Dim PROV As String
      Dim BYTES As Variant
      Dim ENC As Variant
      Dim MSXML As Variant
      Dim EL As Variant
          
          'MD5
          'PROV = "System.Security.Cryptography.MD5CryptoServiceProvider"
          'SHA-1
          'PROV = "System.Security.Cryptography.SHA1CryptoServiceProvider"
          'SHA-2(SHA-256)
          PROV = "System.Security.Cryptography.SHA256Managed"

          BYTES = CreateObject("System.Text.UTF8Encoding").GetBytes_4(targetStr)

          Set ENC = CreateObject(PROV)
          ENC.ComputeHash_2 (BYTES)
          
          Set MSXML = CreateObject("MSXML2.DOMDocument")
          Set EL = MSXML.CreateElement("hex")
          EL.DataType = "bin.hex"
          EL.NodeTypedValue = ENC.Hash
          get_HashString = EL.Text

  End Function

上記のコードを簡単に解説します。

ハッシュアルゴリズムは色々な種類がありますが、MD5やSHA-1を使用したい場合は、コメントアウトされている部分をそれぞれ有効にしてください。
ただ、現在MD5やSHA1は脆弱性が報告されているため、ハッシュアルゴリズムの選定に制約がなければSHA256やSHA512を使用してください。

.NET Frameworkの「UTF8Encodingクラス」を呼び出して、引数で渡されてきた文字列をbyte型配列に変換して、変数「BYTES」に代入しています。

次に、同じく.NET Frameworkの「SHA256Managedクラス」を呼び出して、前処理で作成したbyte型配列をもとにハッシュを計算し、その後DOMDocumentオブジェクトを利用して16進数に変換しています。

参考までに、今回.NETの名前空間を指定して呼び出しているクラスの詳細が書かれているMicrosoftのリンクも貼っておきます。
併せてご確認ください。