WindowsのExcel VBAから.NET Frameworkの暗号サービスを呼び出す方法 : 灰色スズメの足跡

WindowsのExcel VBAから.NET FrameworkのSystem.Security.Cryptography名前空間に属するクラスのプロパティ、メソッドを呼び指す方法をご紹介します。これにより、WindowsのExcel VBAからHMAC-SHA1、HMAC-SHA256などの処理が簡単に出来るようになります。

Windowsに.NET Framework 3.5をインストールする

WindowsのExcel VBAから呼び出せる.NET Frameworkはバージョン3.5までのようですので、Windows 10の場合、［Windowsの機能の有効化または無効化］を呼び出して.NET Framework 3.5をインストールする必要があります。

［Windowsスタートボタン］－［Windowsの設定］－［アプリ］－［プログラムと機能］－［Windowsの機能の有効化または無効化］

上の画面で「.NET Framework 3.5（.NET 2.0 および 3.0 を含む）」のチェックボックスを■の状態（上記画面の状態）にします。

これで、WindowsのExcel VBAから.NET Framework 3.5の暗号サービスを呼び出せるようになります。

Excel VBAのプログラム

実際に使用する例としてTwitter APIとAmazon Product Advertising APIのHTTPリクエストで使用する署名作成プログラムをご紹介します。

ご紹介する例では、Excel VBAのCreateObject関数を使って.NET FrameworkのSystem.Security.Cryptography名前空間のクラスのオブジェクトを生成しています。

Twitter APIの署名作成プログラム

Twitter APIの署名作成プログラムは下記のとおりです。

' 署名の元となる文字列。使用している値についてはTwitter APIの下記文書を参照。
' https://developer.twitter.com/en/docs/basics/authentication/guides/creating-a-signature
' Developer - Documentation - Basics - Authentication - Guides - Creating a signature 参照
Dim strSourceOfSignature As String
strSourceOfSignature = "POST" _
                        & "&https%3A%2F%2Fapi.twitter.com%2F1.1%2Fstatuses%2Fupdate.json&include_entities%3Dtrue" _
                        & "%26oauth_consumer_key%3Dxvz1evFS4wEEPTGEFPHBog" _
                        & "%26oauth_nonce%3DkYjzVBB8Y0ZFabxSWbWovY3uYSQ2pTgmZeNu2VS4cg" _
                        & "%26oauth_signature_method%3DHMAC-SHA1" _
                        & "%26oauth_timestamp%3D1318622958" _
                        & "%26oauth_token%3D370773112-GmHxMAgYyLbNEtIKZeRNFsMKPR9EyMZeS9weJAEb" _
                        & "%26oauth_version%3D1.0" _
                        & "%26status%3DHello%2520Ladies%2520%252B%2520Gentlemen%252C%2520a%2520signed%2520OAuth%2520request%2521"
                        
' HMAC-SHA1を使って署名を算出。
Dim objHMACSHA1 As Object
Set objHMACSHA1 = CreateObject("System.Security.Cryptography.HMACSHA1")
Dim byteKeys() As Byte
' Signing key: kAcSOqF21Fu85e7zjz7ZN2U4ZRhfV3WpwPAoE3Z7kBw&LswwdoUaIvS8ltyTt5jkRh4J50vUPVVHtR2YPi5kE
byteKeys = StrConv("kAcSOqF21Fu85e7zjz7ZN2U4ZRhfV3WpwPAoE3Z7kBw&LswwdoUaIvS8ltyTt5jkRh4J50vUPVVHtR2YPi5kE", vbFromUnicode)
objHMACSHA1.Key = byteKeys
Dim byteTexts() As Byte
byteTexts = StrConv(strSourceOfSignature, vbFromUnicode)
Dim byteHMACSHA1s() As Byte
byteHMACSHA1s = objHMACSHA1.ComputeHash_2(byteTexts)

' 算出した署名をBase64エンコードする。
Dim objDOMDocument As Object
Set objDOMDocument = CreateObject("MSXML2.DOMDocument")
Dim objIXMLDOMElement As Object
Set objIXMLDOMElement = objDOMDocument.createElement("b64")
objIXMLDOMElement.DataType = "bin.base64"
objIXMLDOMElement.nodeTypedValue = byteHMACSHA1s
Dim strSignature As String
strSignature = objIXMLDOMElement.Text
MsgBox strSignature

Set objHMACSHA1 = Nothing
Set objDOMDocument = Nothing
Set objIXMLDOMElement = Nothing

Amazon Product Advertising APIの署名作成プログラム

Amazon Product Advertising APIの署名作成プログラムは下記のとおりです。

' 署名の元となる文字列。使用している値についてはAmazon Product Advertising APIの下記文書を参照。
' Amazon Product Advertising API Developer Guide (API Version 2013-08-01)
' http://docs.aws.amazon.com/ja_jp/AWSECommerceService/latest/DG/rest-signature.html
' Programming Guide - Requests - Request Authentication - Authenticating REST Requests - Example REST Requests 参照
Dim strSourceOfSignature As String
strSourceOfSignature = "GET" & Chr(10) & "webservices.amazon.com" & Chr(10) & "/onca/xml" & Chr(10) _
                        & "AWSAccessKeyId=AKIAIOSFODNN7EXAMPLE" _
                        & "&AssociateTag=mytag-20" _
                        & "&ItemId=0679722769" _
                        & "&Operation=ItemLookup" _
                        & "&ResponseGroup=Images%2CItemAttributes%2COffers%2CReviews" _
                        & "&Service=AWSECommerceService" _
                        & "&Timestamp=2014-08-18T12%3A00%3A00Z" _
                        & "&Version=2013-08-01"

' HMAC-SHA256を使って署名を算出。
Dim objHMACSHA256 As Object
Set objHMACSHA256 = CreateObject("System.Security.Cryptography.HMACSHA256")
Dim byteKeys() As Byte
' AWS secret key: 1234567890
byteKeys = StrConv("1234567890", vbFromUnicode)
objHMACSHA256.Key = byteKeys
Dim byteTexts() As Byte
byteTexts = StrConv(strSourceOfSignature, vbFromUnicode)
Dim byteHMACSHA256s() As Byte
byteHMACSHA256s = objHMACSHA256.ComputeHash_2(byteTexts)

' 算出した署名をBase64エンコードする。
Dim objDOMDocument As Object
Set objDOMDocument = CreateObject("MSXML2.DOMDocument")
Dim objIXMLDOMElement As Object
Set objIXMLDOMElement = objDOMDocument.createElement("b64")
objIXMLDOMElement.DataType = "bin.base64"
objIXMLDOMElement.nodeTypedValue = byteHMACSHA256s
Dim strSignature As String
strSignature = objIXMLDOMElement.Text
MsgBox strSignature

Set objHMACSHA256 = Nothing
Set objDOMDocument = Nothing
Set objIXMLDOMElement = Nothing

Excel VBAから呼び出せる.NET Frameworkの制限事項

Excel VBAからすべての.NET Frameworkのクラスを呼び出せるわけではありません。呼び出せる.NET Frameworkのクラスには制限があります。制限は下記のとおりです。

Excel VBAから使用できる.NET Frameworkのバージョンは3.5まで
クラスに引数を取らないコンストラクター（既定のコンストラクター）が必要
クラスのPrivate、Protected、Static(Shared)なプロパティ、メソッドは呼び出せない
オーバーロードされているメソッドは「メソッド名_1」「メソッド名_2」のように、メソッド名にアンダーバー「_」と数字を付け加えて呼び出す

上記の制限事項については下記のサイトに詳しく説明が載っています。
Microsoft Office と .NET の相互運用性
 .NETFrameworkの使用

記事終わり

灰色スズメの足跡

2017年10月19日木曜日