| |
Access2013で、以下のコードで暗号化データを復号化して
復号化した値をDataDecodeに格納しようとしていますが
復号化されず EncryptedData.Content の結果がEmptyとなります。
Function DataDecode(Data, Key) 'Data:暗号化されたデータ、Key:復号化キー
On Error Resume Next
Set EncryptedData = CreateObject("CAPICOM.EncryptedData")
EncryptedData.Algorithm.name = 3
EncryptedData.Algorithm.KeyLength = 0
EncryptedData.SetSecret Key
EncryptedData.Decrypt Data
DataDecode = EncryptedData.Content
Set EncryptedData = Nothing
On Error GoTo 0
End Function
10年近く前の情報に、端末にCAPICOM.DLLをインストールする必要があると書かれていたので
端末にCAPICOM.DLLが存在するか確認したところ、存在しませんでした。
MicrosoftのダウンロードサイトでCAPICOM 2.1.0.1のインストーラを見つけましたが
2007/5/8に公開されたファイルのためWindows8でも使えるのか疑問なので、
端末にCAPICOM 2.1.0.1はインストールしていません。
Windows8ではCAPICOMに変わる別のDLLを使用するのでしょうか。
それともWindows8でもCAPICOM 2.1.0.1を使用できるのでしょうか。
環境等:
・Access2003で作成したmdbをAccess2013で動かしています）
・いずれのDBもC:\AccessDB配下に配置しています。
・C:\AccessDBフォルダはセキュリティセンターで信頼できる場所に追加しています。
・OSはAccess2003環境とAccess2013環境いずれもWindows8 Pro(64bit)です。
・Access2003環境とAccess2013環境いずれもローカルで動作させています。
ご教授お願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
