CryptDecodeMessage
関数シグネチャ
// CRYPT32.dll
#include <windows.h>
BOOL CryptDecodeMessage(
DWORD dwMsgTypeFlags,
CRYPT_DECRYPT_MESSAGE_PARA* pDecryptPara, // optional
CRYPT_VERIFY_MESSAGE_PARA* pVerifyPara, // optional
DWORD dwSignerIndex,
const BYTE* pbEncodedBlob,
DWORD cbEncodedBlob,
DWORD dwPrevInnerContentType,
DWORD* pdwMsgType, // optional
DWORD* pdwInnerContentType, // optional
BYTE* pbDecoded, // optional
DWORD* pcbDecoded, // optional
CERT_CONTEXT** ppXchgCert, // optional
CERT_CONTEXT** ppSignerCert // optional
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| dwMsgTypeFlags | DWORD | in | メッセージの種類を示します。メッセージの種類はビット単位の OR 演算子で組み合わせることができます。このパラメーターには次のいずれかのメッセージの種類を指定できます。
注意 関数から戻った後、pdwMsgType が指す DWORD には、メッセージの種類が設定されます。
|
| pDecryptPara | CRYPT_DECRYPT_MESSAGE_PARA* | inoptional | 復号パラメーターを格納する CRYPT_DECRYPT_MESSAGE_PARA 構造体へのポインターです。 |
| pVerifyPara | CRYPT_VERIFY_MESSAGE_PARA* | inoptional | 検証パラメーターを格納する CRYPT_VERIFY_MESSAGE_PARA 構造体へのポインターです。 |
| dwSignerIndex | DWORD | in | メッセージに存在しうる複数の署名者のうち、どの署名者を検証するかを示します。このインデックスを変えながら関数を複数回呼び出すことで、追加の署名者を検証できます。 最初の署名者では dwSignerIndex を 0 に設定します。関数が FALSE を返し、かつ GetLastError が CRYPT_E_NO_SIGNER を返した場合、直前の呼び出しでメッセージの最後の署名者が返されたことを意味します。このパラメーターは CMSG_SIGNED_AND_ENVELOPED 型または CMSG_SIGNED 型のメッセージでのみ使用します。その他のメッセージの種類では 0 に設定してください。 |
| pbEncodedBlob | BYTE* | in | デコード対象となるエンコードされた BLOB へのポインターです。 |
| cbEncodedBlob | DWORD | in | エンコードされた BLOB のサイズ (バイト単位) です。 |
| dwPrevInnerContentType | DWORD | in | 入れ子になった暗号化メッセージを処理する場合にのみ適用されます。外側の暗号化メッセージを処理する場合は 0 に設定する必要があります。入れ子になった暗号化メッセージをデコードする場合は、外側のメッセージに対する以前の CryptDecodeMessage の呼び出しで pdwInnerContentType に返された値を設定します。pdwMsgType に一覧表示されている任意の CMSG 型を指定できます。下位互換性のため、dwPrevInnerContentType は 0 に設定してください。 |
| pdwMsgType | DWORD* | outoptional | 返されるメッセージの種類を指定する DWORD へのポインターです。このパラメーターには次のいずれかのメッセージの種類を指定できます。 |
| pdwInnerContentType | DWORD* | outoptional | 内側のメッセージの種類を指定する DWORD へのポインターです。pdwMsgType で使用されるメッセージの種類のコードがここでも使用されます。 暗号化の入れ子がない場合は CMSG_DATA が返されます。 |
| pbDecoded | BYTE* | outoptional | デコードされたメッセージを受け取るバッファーへのポインターです。 デコードされたメッセージが不要な場合、またはメモリ割り当てのためにデコードされたメッセージのサイズを取得する場合は、このパラメーターを NULL にできます。このパラメーターが NULL の場合、デコードされたメッセージは返されません。詳細については、 Retrieving Data of Unknown Length を参照してください。 |
| pcbDecoded | DWORD* | inoutoptional | pbDecoded パラメーターが指すバッファーのサイズ (バイト単位) を指定する変数へのポインターです。関数から戻ると、この変数にはデコードされたメッセージのサイズが格納されます。 注意 バッファーに返されたデータを処理する際、アプリケーションは実際に返されたデータのサイズを使用する必要があります。実際のサイズは、入力時に指定したバッファーのサイズよりわずかに小さくなる場合があります。(入力時には、出力されうる最大のデータが収まるよう、通常は十分に大きなバッファーサイズを指定します。) 出力時には、このパラメーターが指す変数が、バッファーにコピーされた実際のデータサイズを反映するように更新されます。
|
| ppXchgCert | CERT_CONTEXT** | outoptional | メッセージのデコードに必要な秘密交換キーに対応する証明書を持つ CERT_CONTEXT 構造体へのポインターへのポインターです。このパラメーターは CMSG_ENVELOPED 型および CMSG_SIGNED_AND_ENVELOPED 型のメッセージに対してのみ設定されます。 |
| ppSignerCert | CERT_CONTEXT** | outoptional | 署名者の証明書コンテキストを表す CERT_CONTEXT 構造体へのポインターへのポインターです。このパラメーターは CMSG_SIGNED 型および CMSG_SIGNED_AND_ENVELOPED 型のメッセージに対してのみ設定されます。 |
戻り値の型: BOOL
公式ドキュメント
暗号化メッセージのデコード、復号、および検証を行います。
戻り値
関数が成功すると、0 以外の値 (TRUE) が返されます。
関数が失敗すると、0 (FALSE) が返されます。拡張エラー情報を取得するには、 GetLastError を呼び出します。
CryptDecryptMessage、 CryptVerifyMessageSignature、または CryptVerifyMessageHash 関数のエラーがこの関数に伝播することがあります。
次のエラーコードが GetLastError 関数によって返される最も一般的なものです。
| 戻り値 | 説明 |
|---|---|
| pbDecoded パラメーターで指定したバッファーが返されるデータを保持するのに十分な大きさでない場合、関数は ERROR_MORE_DATA コードを設定し、必要なバッファーサイズ (バイト単位) を pcbDecoded が指す変数に格納します。 |
解説(Remarks)
dwMsgTypeFlags パラメーターは、許可されるメッセージの集合を指定します。たとえば、SIGNED メッセージまたは ENVELOPED メッセージのいずれかをデコードするには、dwMsgTypeFlags に CMSG_SIGNED_FLAG | CMSG_ENVELOPED_FLAG を設定します。pDecryptPara パラメーターまたは pVerifyPara パラメーターのいずれか一方、または両方を指定する必要があります。
メッセージのデコードまたは検証に成功すると、ppXchgCert および ppSignerCert が指す証明書コンテキストのポインターが更新されます。これらは CertFreeCertificateContext を呼び出して解放する必要があります。関数が失敗した場合、これらは NULL に設定されます。
関数を呼び出す前に ppXchgCert または ppSignerCert パラメーターを NULL に設定できます。これは、交換証明書または署名者の証明書コンテキストの取得を呼び出し元が必要としないことを示します。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// CRYPT32.dll
#include <windows.h>
BOOL CryptDecodeMessage(
DWORD dwMsgTypeFlags,
CRYPT_DECRYPT_MESSAGE_PARA* pDecryptPara, // optional
CRYPT_VERIFY_MESSAGE_PARA* pVerifyPara, // optional
DWORD dwSignerIndex,
const BYTE* pbEncodedBlob,
DWORD cbEncodedBlob,
DWORD dwPrevInnerContentType,
DWORD* pdwMsgType, // optional
DWORD* pdwInnerContentType, // optional
BYTE* pbDecoded, // optional
DWORD* pcbDecoded, // optional
CERT_CONTEXT** ppXchgCert, // optional
CERT_CONTEXT** ppSignerCert // optional
);[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("CRYPT32.dll", SetLastError = true, ExactSpelling = true)]
static extern bool CryptDecodeMessage(
uint dwMsgTypeFlags, // DWORD
IntPtr pDecryptPara, // CRYPT_DECRYPT_MESSAGE_PARA* optional
IntPtr pVerifyPara, // CRYPT_VERIFY_MESSAGE_PARA* optional
uint dwSignerIndex, // DWORD
IntPtr pbEncodedBlob, // BYTE*
uint cbEncodedBlob, // DWORD
uint dwPrevInnerContentType, // DWORD
IntPtr pdwMsgType, // DWORD* optional, out
IntPtr pdwInnerContentType, // DWORD* optional, out
IntPtr pbDecoded, // BYTE* optional, out
IntPtr pcbDecoded, // DWORD* optional, in/out
IntPtr ppXchgCert, // CERT_CONTEXT** optional, out
IntPtr ppSignerCert // CERT_CONTEXT** optional, out
);<DllImport("CRYPT32.dll", SetLastError:=True, ExactSpelling:=True)>
Public Shared Function CryptDecodeMessage(
dwMsgTypeFlags As UInteger, ' DWORD
pDecryptPara As IntPtr, ' CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara As IntPtr, ' CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex As UInteger, ' DWORD
pbEncodedBlob As IntPtr, ' BYTE*
cbEncodedBlob As UInteger, ' DWORD
dwPrevInnerContentType As UInteger, ' DWORD
pdwMsgType As IntPtr, ' DWORD* optional, out
pdwInnerContentType As IntPtr, ' DWORD* optional, out
pbDecoded As IntPtr, ' BYTE* optional, out
pcbDecoded As IntPtr, ' DWORD* optional, in/out
ppXchgCert As IntPtr, ' CERT_CONTEXT** optional, out
ppSignerCert As IntPtr ' CERT_CONTEXT** optional, out
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function' dwMsgTypeFlags : DWORD
' pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional
' pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional
' dwSignerIndex : DWORD
' pbEncodedBlob : BYTE*
' cbEncodedBlob : DWORD
' dwPrevInnerContentType : DWORD
' pdwMsgType : DWORD* optional, out
' pdwInnerContentType : DWORD* optional, out
' pbDecoded : BYTE* optional, out
' pcbDecoded : DWORD* optional, in/out
' ppXchgCert : CERT_CONTEXT** optional, out
' ppSignerCert : CERT_CONTEXT** optional, out
Declare PtrSafe Function CryptDecodeMessage Lib "crypt32" ( _
ByVal dwMsgTypeFlags As Long, _
ByVal pDecryptPara As LongPtr, _
ByVal pVerifyPara As LongPtr, _
ByVal dwSignerIndex As Long, _
ByVal pbEncodedBlob As LongPtr, _
ByVal cbEncodedBlob As Long, _
ByVal dwPrevInnerContentType As Long, _
ByVal pdwMsgType As LongPtr, _
ByVal pdwInnerContentType As LongPtr, _
ByVal pbDecoded As LongPtr, _
ByVal pcbDecoded As LongPtr, _
ByVal ppXchgCert As LongPtr, _
ByVal ppSignerCert As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
CryptDecodeMessage = ctypes.windll.crypt32.CryptDecodeMessage
CryptDecodeMessage.restype = wintypes.BOOL
CryptDecodeMessage.argtypes = [
wintypes.DWORD, # dwMsgTypeFlags : DWORD
ctypes.c_void_p, # pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional
ctypes.c_void_p, # pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional
wintypes.DWORD, # dwSignerIndex : DWORD
ctypes.POINTER(ctypes.c_ubyte), # pbEncodedBlob : BYTE*
wintypes.DWORD, # cbEncodedBlob : DWORD
wintypes.DWORD, # dwPrevInnerContentType : DWORD
ctypes.POINTER(wintypes.DWORD), # pdwMsgType : DWORD* optional, out
ctypes.POINTER(wintypes.DWORD), # pdwInnerContentType : DWORD* optional, out
ctypes.POINTER(ctypes.c_ubyte), # pbDecoded : BYTE* optional, out
ctypes.POINTER(wintypes.DWORD), # pcbDecoded : DWORD* optional, in/out
ctypes.c_void_p, # ppXchgCert : CERT_CONTEXT** optional, out
ctypes.c_void_p, # ppSignerCert : CERT_CONTEXT** optional, out
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('CRYPT32.dll')
CryptDecodeMessage = Fiddle::Function.new(
lib['CryptDecodeMessage'],
[
-Fiddle::TYPE_INT, # dwMsgTypeFlags : DWORD
Fiddle::TYPE_VOIDP, # pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional
Fiddle::TYPE_VOIDP, # pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional
-Fiddle::TYPE_INT, # dwSignerIndex : DWORD
Fiddle::TYPE_VOIDP, # pbEncodedBlob : BYTE*
-Fiddle::TYPE_INT, # cbEncodedBlob : DWORD
-Fiddle::TYPE_INT, # dwPrevInnerContentType : DWORD
Fiddle::TYPE_VOIDP, # pdwMsgType : DWORD* optional, out
Fiddle::TYPE_VOIDP, # pdwInnerContentType : DWORD* optional, out
Fiddle::TYPE_VOIDP, # pbDecoded : BYTE* optional, out
Fiddle::TYPE_VOIDP, # pcbDecoded : DWORD* optional, in/out
Fiddle::TYPE_VOIDP, # ppXchgCert : CERT_CONTEXT** optional, out
Fiddle::TYPE_VOIDP, # ppSignerCert : CERT_CONTEXT** optional, out
],
Fiddle::TYPE_INT)#[link(name = "crypt32")]
extern "system" {
fn CryptDecodeMessage(
dwMsgTypeFlags: u32, // DWORD
pDecryptPara: *mut CRYPT_DECRYPT_MESSAGE_PARA, // CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara: *mut CRYPT_VERIFY_MESSAGE_PARA, // CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex: u32, // DWORD
pbEncodedBlob: *const u8, // BYTE*
cbEncodedBlob: u32, // DWORD
dwPrevInnerContentType: u32, // DWORD
pdwMsgType: *mut u32, // DWORD* optional, out
pdwInnerContentType: *mut u32, // DWORD* optional, out
pbDecoded: *mut u8, // BYTE* optional, out
pcbDecoded: *mut u32, // DWORD* optional, in/out
ppXchgCert: *mut *mut CERT_CONTEXT, // CERT_CONTEXT** optional, out
ppSignerCert: *mut *mut CERT_CONTEXT // CERT_CONTEXT** optional, out
) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("CRYPT32.dll", SetLastError = true)]
public static extern bool CryptDecodeMessage(uint dwMsgTypeFlags, IntPtr pDecryptPara, IntPtr pVerifyPara, uint dwSignerIndex, IntPtr pbEncodedBlob, uint cbEncodedBlob, uint dwPrevInnerContentType, IntPtr pdwMsgType, IntPtr pdwInnerContentType, IntPtr pbDecoded, IntPtr pcbDecoded, IntPtr ppXchgCert, IntPtr ppSignerCert);
"@
$api = Add-Type -MemberDefinition $sig -Name 'CRYPT32_CryptDecodeMessage' -Namespace Win32 -PassThru
# $api::CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert)#uselib "CRYPT32.dll"
#func global CryptDecodeMessage "CryptDecodeMessage" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; CryptDecodeMessage dwMsgTypeFlags, varptr(pDecryptPara), varptr(pVerifyPara), dwSignerIndex, varptr(pbEncodedBlob), cbEncodedBlob, dwPrevInnerContentType, varptr(pdwMsgType), varptr(pdwInnerContentType), varptr(pbDecoded), varptr(pcbDecoded), varptr(ppXchgCert), varptr(ppSignerCert) ; 戻り値は stat
; dwMsgTypeFlags : DWORD -> "sptr"
; pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "sptr"
; pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "sptr"
; dwSignerIndex : DWORD -> "sptr"
; pbEncodedBlob : BYTE* -> "sptr"
; cbEncodedBlob : DWORD -> "sptr"
; dwPrevInnerContentType : DWORD -> "sptr"
; pdwMsgType : DWORD* optional, out -> "sptr"
; pdwInnerContentType : DWORD* optional, out -> "sptr"
; pbDecoded : BYTE* optional, out -> "sptr"
; pcbDecoded : DWORD* optional, in/out -> "sptr"
; ppXchgCert : CERT_CONTEXT** optional, out -> "sptr"
; ppSignerCert : CERT_CONTEXT** optional, out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "CRYPT32.dll" #cfunc global CryptDecodeMessage "CryptDecodeMessage" int, var, var, int, var, int, int, var, var, var, var, var, var ; res = CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert) ; dwMsgTypeFlags : DWORD -> "int" ; pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "var" ; pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "var" ; dwSignerIndex : DWORD -> "int" ; pbEncodedBlob : BYTE* -> "var" ; cbEncodedBlob : DWORD -> "int" ; dwPrevInnerContentType : DWORD -> "int" ; pdwMsgType : DWORD* optional, out -> "var" ; pdwInnerContentType : DWORD* optional, out -> "var" ; pbDecoded : BYTE* optional, out -> "var" ; pcbDecoded : DWORD* optional, in/out -> "var" ; ppXchgCert : CERT_CONTEXT** optional, out -> "var" ; ppSignerCert : CERT_CONTEXT** optional, out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "CRYPT32.dll" #cfunc global CryptDecodeMessage "CryptDecodeMessage" int, sptr, sptr, int, sptr, int, int, sptr, sptr, sptr, sptr, sptr, sptr ; res = CryptDecodeMessage(dwMsgTypeFlags, varptr(pDecryptPara), varptr(pVerifyPara), dwSignerIndex, varptr(pbEncodedBlob), cbEncodedBlob, dwPrevInnerContentType, varptr(pdwMsgType), varptr(pdwInnerContentType), varptr(pbDecoded), varptr(pcbDecoded), varptr(ppXchgCert), varptr(ppSignerCert)) ; dwMsgTypeFlags : DWORD -> "int" ; pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "sptr" ; pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "sptr" ; dwSignerIndex : DWORD -> "int" ; pbEncodedBlob : BYTE* -> "sptr" ; cbEncodedBlob : DWORD -> "int" ; dwPrevInnerContentType : DWORD -> "int" ; pdwMsgType : DWORD* optional, out -> "sptr" ; pdwInnerContentType : DWORD* optional, out -> "sptr" ; pbDecoded : BYTE* optional, out -> "sptr" ; pcbDecoded : DWORD* optional, in/out -> "sptr" ; ppXchgCert : CERT_CONTEXT** optional, out -> "sptr" ; ppSignerCert : CERT_CONTEXT** optional, out -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; BOOL CryptDecodeMessage(DWORD dwMsgTypeFlags, CRYPT_DECRYPT_MESSAGE_PARA* pDecryptPara, CRYPT_VERIFY_MESSAGE_PARA* pVerifyPara, DWORD dwSignerIndex, BYTE* pbEncodedBlob, DWORD cbEncodedBlob, DWORD dwPrevInnerContentType, DWORD* pdwMsgType, DWORD* pdwInnerContentType, BYTE* pbDecoded, DWORD* pcbDecoded, CERT_CONTEXT** ppXchgCert, CERT_CONTEXT** ppSignerCert) #uselib "CRYPT32.dll" #cfunc global CryptDecodeMessage "CryptDecodeMessage" int, var, var, int, var, int, int, var, var, var, var, var, var ; res = CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert) ; dwMsgTypeFlags : DWORD -> "int" ; pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "var" ; pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "var" ; dwSignerIndex : DWORD -> "int" ; pbEncodedBlob : BYTE* -> "var" ; cbEncodedBlob : DWORD -> "int" ; dwPrevInnerContentType : DWORD -> "int" ; pdwMsgType : DWORD* optional, out -> "var" ; pdwInnerContentType : DWORD* optional, out -> "var" ; pbDecoded : BYTE* optional, out -> "var" ; pcbDecoded : DWORD* optional, in/out -> "var" ; ppXchgCert : CERT_CONTEXT** optional, out -> "var" ; ppSignerCert : CERT_CONTEXT** optional, out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; BOOL CryptDecodeMessage(DWORD dwMsgTypeFlags, CRYPT_DECRYPT_MESSAGE_PARA* pDecryptPara, CRYPT_VERIFY_MESSAGE_PARA* pVerifyPara, DWORD dwSignerIndex, BYTE* pbEncodedBlob, DWORD cbEncodedBlob, DWORD dwPrevInnerContentType, DWORD* pdwMsgType, DWORD* pdwInnerContentType, BYTE* pbDecoded, DWORD* pcbDecoded, CERT_CONTEXT** ppXchgCert, CERT_CONTEXT** ppSignerCert) #uselib "CRYPT32.dll" #cfunc global CryptDecodeMessage "CryptDecodeMessage" int, intptr, intptr, int, intptr, int, int, intptr, intptr, intptr, intptr, intptr, intptr ; res = CryptDecodeMessage(dwMsgTypeFlags, varptr(pDecryptPara), varptr(pVerifyPara), dwSignerIndex, varptr(pbEncodedBlob), cbEncodedBlob, dwPrevInnerContentType, varptr(pdwMsgType), varptr(pdwInnerContentType), varptr(pbDecoded), varptr(pcbDecoded), varptr(ppXchgCert), varptr(ppSignerCert)) ; dwMsgTypeFlags : DWORD -> "int" ; pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "intptr" ; pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "intptr" ; dwSignerIndex : DWORD -> "int" ; pbEncodedBlob : BYTE* -> "intptr" ; cbEncodedBlob : DWORD -> "int" ; dwPrevInnerContentType : DWORD -> "int" ; pdwMsgType : DWORD* optional, out -> "intptr" ; pdwInnerContentType : DWORD* optional, out -> "intptr" ; pbDecoded : BYTE* optional, out -> "intptr" ; pcbDecoded : DWORD* optional, in/out -> "intptr" ; ppXchgCert : CERT_CONTEXT** optional, out -> "intptr" ; ppSignerCert : CERT_CONTEXT** optional, out -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
crypt32 = windows.NewLazySystemDLL("CRYPT32.dll")
procCryptDecodeMessage = crypt32.NewProc("CryptDecodeMessage")
)
// dwMsgTypeFlags (DWORD), pDecryptPara (CRYPT_DECRYPT_MESSAGE_PARA* optional), pVerifyPara (CRYPT_VERIFY_MESSAGE_PARA* optional), dwSignerIndex (DWORD), pbEncodedBlob (BYTE*), cbEncodedBlob (DWORD), dwPrevInnerContentType (DWORD), pdwMsgType (DWORD* optional, out), pdwInnerContentType (DWORD* optional, out), pbDecoded (BYTE* optional, out), pcbDecoded (DWORD* optional, in/out), ppXchgCert (CERT_CONTEXT** optional, out), ppSignerCert (CERT_CONTEXT** optional, out)
r1, _, err := procCryptDecodeMessage.Call(
uintptr(dwMsgTypeFlags),
uintptr(pDecryptPara),
uintptr(pVerifyPara),
uintptr(dwSignerIndex),
uintptr(pbEncodedBlob),
uintptr(cbEncodedBlob),
uintptr(dwPrevInnerContentType),
uintptr(pdwMsgType),
uintptr(pdwInnerContentType),
uintptr(pbDecoded),
uintptr(pcbDecoded),
uintptr(ppXchgCert),
uintptr(ppSignerCert),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // BOOLfunction CryptDecodeMessage(
dwMsgTypeFlags: DWORD; // DWORD
pDecryptPara: Pointer; // CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara: Pointer; // CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex: DWORD; // DWORD
pbEncodedBlob: Pointer; // BYTE*
cbEncodedBlob: DWORD; // DWORD
dwPrevInnerContentType: DWORD; // DWORD
pdwMsgType: Pointer; // DWORD* optional, out
pdwInnerContentType: Pointer; // DWORD* optional, out
pbDecoded: Pointer; // BYTE* optional, out
pcbDecoded: Pointer; // DWORD* optional, in/out
ppXchgCert: Pointer; // CERT_CONTEXT** optional, out
ppSignerCert: Pointer // CERT_CONTEXT** optional, out
): BOOL; stdcall;
external 'CRYPT32.dll' name 'CryptDecodeMessage';result := DllCall("CRYPT32\CryptDecodeMessage"
, "UInt", dwMsgTypeFlags ; DWORD
, "Ptr", pDecryptPara ; CRYPT_DECRYPT_MESSAGE_PARA* optional
, "Ptr", pVerifyPara ; CRYPT_VERIFY_MESSAGE_PARA* optional
, "UInt", dwSignerIndex ; DWORD
, "Ptr", pbEncodedBlob ; BYTE*
, "UInt", cbEncodedBlob ; DWORD
, "UInt", dwPrevInnerContentType ; DWORD
, "Ptr", pdwMsgType ; DWORD* optional, out
, "Ptr", pdwInnerContentType ; DWORD* optional, out
, "Ptr", pbDecoded ; BYTE* optional, out
, "Ptr", pcbDecoded ; DWORD* optional, in/out
, "Ptr", ppXchgCert ; CERT_CONTEXT** optional, out
, "Ptr", ppSignerCert ; CERT_CONTEXT** optional, out
, "Int") ; return: BOOL●CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert) = DLL("CRYPT32.dll", "bool CryptDecodeMessage(dword, void*, void*, dword, void*, dword, dword, void*, void*, void*, void*, void*, void*)")
# 呼び出し: CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert)
# dwMsgTypeFlags : DWORD -> "dword"
# pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "void*"
# pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "void*"
# dwSignerIndex : DWORD -> "dword"
# pbEncodedBlob : BYTE* -> "void*"
# cbEncodedBlob : DWORD -> "dword"
# dwPrevInnerContentType : DWORD -> "dword"
# pdwMsgType : DWORD* optional, out -> "void*"
# pdwInnerContentType : DWORD* optional, out -> "void*"
# pbDecoded : BYTE* optional, out -> "void*"
# pcbDecoded : DWORD* optional, in/out -> "void*"
# ppXchgCert : CERT_CONTEXT** optional, out -> "void*"
# ppSignerCert : CERT_CONTEXT** optional, out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "crypt32" fn CryptDecodeMessage(
dwMsgTypeFlags: u32, // DWORD
pDecryptPara: [*c]CRYPT_DECRYPT_MESSAGE_PARA, // CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara: [*c]CRYPT_VERIFY_MESSAGE_PARA, // CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex: u32, // DWORD
pbEncodedBlob: [*c]u8, // BYTE*
cbEncodedBlob: u32, // DWORD
dwPrevInnerContentType: u32, // DWORD
pdwMsgType: [*c]u32, // DWORD* optional, out
pdwInnerContentType: [*c]u32, // DWORD* optional, out
pbDecoded: [*c]u8, // BYTE* optional, out
pcbDecoded: [*c]u32, // DWORD* optional, in/out
ppXchgCert: [*c][*c]CERT_CONTEXT, // CERT_CONTEXT** optional, out
ppSignerCert: [*c][*c]CERT_CONTEXT // CERT_CONTEXT** optional, out
) callconv(std.os.windows.WINAPI) i32;proc CryptDecodeMessage(
dwMsgTypeFlags: uint32, # DWORD
pDecryptPara: ptr CRYPT_DECRYPT_MESSAGE_PARA, # CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara: ptr CRYPT_VERIFY_MESSAGE_PARA, # CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex: uint32, # DWORD
pbEncodedBlob: ptr uint8, # BYTE*
cbEncodedBlob: uint32, # DWORD
dwPrevInnerContentType: uint32, # DWORD
pdwMsgType: ptr uint32, # DWORD* optional, out
pdwInnerContentType: ptr uint32, # DWORD* optional, out
pbDecoded: ptr uint8, # BYTE* optional, out
pcbDecoded: ptr uint32, # DWORD* optional, in/out
ppXchgCert: ptr CERT_CONTEXT, # CERT_CONTEXT** optional, out
ppSignerCert: ptr CERT_CONTEXT # CERT_CONTEXT** optional, out
): int32 {.importc: "CryptDecodeMessage", stdcall, dynlib: "CRYPT32.dll".}pragma(lib, "crypt32");
extern(Windows)
int CryptDecodeMessage(
uint dwMsgTypeFlags, // DWORD
CRYPT_DECRYPT_MESSAGE_PARA* pDecryptPara, // CRYPT_DECRYPT_MESSAGE_PARA* optional
CRYPT_VERIFY_MESSAGE_PARA* pVerifyPara, // CRYPT_VERIFY_MESSAGE_PARA* optional
uint dwSignerIndex, // DWORD
ubyte* pbEncodedBlob, // BYTE*
uint cbEncodedBlob, // DWORD
uint dwPrevInnerContentType, // DWORD
uint* pdwMsgType, // DWORD* optional, out
uint* pdwInnerContentType, // DWORD* optional, out
ubyte* pbDecoded, // BYTE* optional, out
uint* pcbDecoded, // DWORD* optional, in/out
CERT_CONTEXT** ppXchgCert, // CERT_CONTEXT** optional, out
CERT_CONTEXT** ppSignerCert // CERT_CONTEXT** optional, out
);ccall((:CryptDecodeMessage, "CRYPT32.dll"), stdcall, Int32,
(UInt32, Ptr{CRYPT_DECRYPT_MESSAGE_PARA}, Ptr{CRYPT_VERIFY_MESSAGE_PARA}, UInt32, Ptr{UInt8}, UInt32, UInt32, Ptr{UInt32}, Ptr{UInt32}, Ptr{UInt8}, Ptr{UInt32}, Ptr{CERT_CONTEXT}, Ptr{CERT_CONTEXT}),
dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert)
# dwMsgTypeFlags : DWORD -> UInt32
# pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> Ptr{CRYPT_DECRYPT_MESSAGE_PARA}
# pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> Ptr{CRYPT_VERIFY_MESSAGE_PARA}
# dwSignerIndex : DWORD -> UInt32
# pbEncodedBlob : BYTE* -> Ptr{UInt8}
# cbEncodedBlob : DWORD -> UInt32
# dwPrevInnerContentType : DWORD -> UInt32
# pdwMsgType : DWORD* optional, out -> Ptr{UInt32}
# pdwInnerContentType : DWORD* optional, out -> Ptr{UInt32}
# pbDecoded : BYTE* optional, out -> Ptr{UInt8}
# pcbDecoded : DWORD* optional, in/out -> Ptr{UInt32}
# ppXchgCert : CERT_CONTEXT** optional, out -> Ptr{CERT_CONTEXT}
# ppSignerCert : CERT_CONTEXT** optional, out -> Ptr{CERT_CONTEXT}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
int32_t CryptDecodeMessage(
uint32_t dwMsgTypeFlags,
void* pDecryptPara,
void* pVerifyPara,
uint32_t dwSignerIndex,
uint8_t* pbEncodedBlob,
uint32_t cbEncodedBlob,
uint32_t dwPrevInnerContentType,
uint32_t* pdwMsgType,
uint32_t* pdwInnerContentType,
uint8_t* pbDecoded,
uint32_t* pcbDecoded,
void* ppXchgCert,
void* ppSignerCert);
]]
local crypt32 = ffi.load("crypt32")
-- crypt32.CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert)
-- dwMsgTypeFlags : DWORD
-- pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional
-- pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional
-- dwSignerIndex : DWORD
-- pbEncodedBlob : BYTE*
-- cbEncodedBlob : DWORD
-- dwPrevInnerContentType : DWORD
-- pdwMsgType : DWORD* optional, out
-- pdwInnerContentType : DWORD* optional, out
-- pbDecoded : BYTE* optional, out
-- pcbDecoded : DWORD* optional, in/out
-- ppXchgCert : CERT_CONTEXT** optional, out
-- ppSignerCert : CERT_CONTEXT** optional, out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('CRYPT32.dll');
const CryptDecodeMessage = lib.func('__stdcall', 'CryptDecodeMessage', 'int32_t', ['uint32_t', 'void *', 'void *', 'uint32_t', 'uint8_t *', 'uint32_t', 'uint32_t', 'uint32_t *', 'uint32_t *', 'uint8_t *', 'uint32_t *', 'void *', 'void *']);
// CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert)
// dwMsgTypeFlags : DWORD -> 'uint32_t'
// pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> 'void *'
// pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> 'void *'
// dwSignerIndex : DWORD -> 'uint32_t'
// pbEncodedBlob : BYTE* -> 'uint8_t *'
// cbEncodedBlob : DWORD -> 'uint32_t'
// dwPrevInnerContentType : DWORD -> 'uint32_t'
// pdwMsgType : DWORD* optional, out -> 'uint32_t *'
// pdwInnerContentType : DWORD* optional, out -> 'uint32_t *'
// pbDecoded : BYTE* optional, out -> 'uint8_t *'
// pcbDecoded : DWORD* optional, in/out -> 'uint32_t *'
// ppXchgCert : CERT_CONTEXT** optional, out -> 'void *'
// ppSignerCert : CERT_CONTEXT** optional, out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("CRYPT32.dll", {
CryptDecodeMessage: { parameters: ["u32", "pointer", "pointer", "u32", "pointer", "u32", "u32", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert)
// dwMsgTypeFlags : DWORD -> "u32"
// pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> "pointer"
// pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> "pointer"
// dwSignerIndex : DWORD -> "u32"
// pbEncodedBlob : BYTE* -> "pointer"
// cbEncodedBlob : DWORD -> "u32"
// dwPrevInnerContentType : DWORD -> "u32"
// pdwMsgType : DWORD* optional, out -> "pointer"
// pdwInnerContentType : DWORD* optional, out -> "pointer"
// pbDecoded : BYTE* optional, out -> "pointer"
// pcbDecoded : DWORD* optional, in/out -> "pointer"
// ppXchgCert : CERT_CONTEXT** optional, out -> "pointer"
// ppSignerCert : CERT_CONTEXT** optional, out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t CryptDecodeMessage(
uint32_t dwMsgTypeFlags,
void* pDecryptPara,
void* pVerifyPara,
uint32_t dwSignerIndex,
uint8_t* pbEncodedBlob,
uint32_t cbEncodedBlob,
uint32_t dwPrevInnerContentType,
uint32_t* pdwMsgType,
uint32_t* pdwInnerContentType,
uint8_t* pbDecoded,
uint32_t* pcbDecoded,
void* ppXchgCert,
void* ppSignerCert);
C, "CRYPT32.dll");
// $ffi->CryptDecodeMessage(dwMsgTypeFlags, pDecryptPara, pVerifyPara, dwSignerIndex, pbEncodedBlob, cbEncodedBlob, dwPrevInnerContentType, pdwMsgType, pdwInnerContentType, pbDecoded, pcbDecoded, ppXchgCert, ppSignerCert);
// dwMsgTypeFlags : DWORD
// pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional
// pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional
// dwSignerIndex : DWORD
// pbEncodedBlob : BYTE*
// cbEncodedBlob : DWORD
// dwPrevInnerContentType : DWORD
// pdwMsgType : DWORD* optional, out
// pdwInnerContentType : DWORD* optional, out
// pbDecoded : BYTE* optional, out
// pcbDecoded : DWORD* optional, in/out
// ppXchgCert : CERT_CONTEXT** optional, out
// ppSignerCert : CERT_CONTEXT** optional, out
// 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
// WINAPI(stdcall): x64 では呼出規約が統一されるため問題なし。x86 では __stdcall 対応のラッパが必要な場合あり。import com.sun.jna.*;
import com.sun.jna.ptr.*;
import com.sun.jna.win32.StdCallLibrary;
import com.sun.jna.win32.W32APIOptions;
public interface Crypt32 extends StdCallLibrary {
Crypt32 INSTANCE = Native.load("crypt32", Crypt32.class);
boolean CryptDecodeMessage(
int dwMsgTypeFlags, // DWORD
Pointer pDecryptPara, // CRYPT_DECRYPT_MESSAGE_PARA* optional
Pointer pVerifyPara, // CRYPT_VERIFY_MESSAGE_PARA* optional
int dwSignerIndex, // DWORD
byte[] pbEncodedBlob, // BYTE*
int cbEncodedBlob, // DWORD
int dwPrevInnerContentType, // DWORD
IntByReference pdwMsgType, // DWORD* optional, out
IntByReference pdwInnerContentType, // DWORD* optional, out
byte[] pbDecoded, // BYTE* optional, out
IntByReference pcbDecoded, // DWORD* optional, in/out
Pointer ppXchgCert, // CERT_CONTEXT** optional, out
Pointer ppSignerCert // CERT_CONTEXT** optional, out
);
}@[Link("crypt32")]
lib LibCRYPT32
fun CryptDecodeMessage = CryptDecodeMessage(
dwMsgTypeFlags : UInt32, # DWORD
pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA*, # CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA*, # CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex : UInt32, # DWORD
pbEncodedBlob : UInt8*, # BYTE*
cbEncodedBlob : UInt32, # DWORD
dwPrevInnerContentType : UInt32, # DWORD
pdwMsgType : UInt32*, # DWORD* optional, out
pdwInnerContentType : UInt32*, # DWORD* optional, out
pbDecoded : UInt8*, # BYTE* optional, out
pcbDecoded : UInt32*, # DWORD* optional, in/out
ppXchgCert : CERT_CONTEXT**, # CERT_CONTEXT** optional, out
ppSignerCert : CERT_CONTEXT** # CERT_CONTEXT** optional, out
) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef CryptDecodeMessageNative = Int32 Function(Uint32, Pointer<Void>, Pointer<Void>, Uint32, Pointer<Uint8>, Uint32, Uint32, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint8>, Pointer<Uint32>, Pointer<Void>, Pointer<Void>);
typedef CryptDecodeMessageDart = int Function(int, Pointer<Void>, Pointer<Void>, int, Pointer<Uint8>, int, int, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint8>, Pointer<Uint32>, Pointer<Void>, Pointer<Void>);
final CryptDecodeMessage = DynamicLibrary.open('CRYPT32.dll')
.lookupFunction<CryptDecodeMessageNative, CryptDecodeMessageDart>('CryptDecodeMessage');
// dwMsgTypeFlags : DWORD -> Uint32
// pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> Pointer<Void>
// pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> Pointer<Void>
// dwSignerIndex : DWORD -> Uint32
// pbEncodedBlob : BYTE* -> Pointer<Uint8>
// cbEncodedBlob : DWORD -> Uint32
// dwPrevInnerContentType : DWORD -> Uint32
// pdwMsgType : DWORD* optional, out -> Pointer<Uint32>
// pdwInnerContentType : DWORD* optional, out -> Pointer<Uint32>
// pbDecoded : BYTE* optional, out -> Pointer<Uint8>
// pcbDecoded : DWORD* optional, in/out -> Pointer<Uint32>
// ppXchgCert : CERT_CONTEXT** optional, out -> Pointer<Void>
// ppSignerCert : CERT_CONTEXT** optional, out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function CryptDecodeMessage(
dwMsgTypeFlags: DWORD; // DWORD
pDecryptPara: Pointer; // CRYPT_DECRYPT_MESSAGE_PARA* optional
pVerifyPara: Pointer; // CRYPT_VERIFY_MESSAGE_PARA* optional
dwSignerIndex: DWORD; // DWORD
pbEncodedBlob: Pointer; // BYTE*
cbEncodedBlob: DWORD; // DWORD
dwPrevInnerContentType: DWORD; // DWORD
pdwMsgType: Pointer; // DWORD* optional, out
pdwInnerContentType: Pointer; // DWORD* optional, out
pbDecoded: Pointer; // BYTE* optional, out
pcbDecoded: Pointer; // DWORD* optional, in/out
ppXchgCert: Pointer; // CERT_CONTEXT** optional, out
ppSignerCert: Pointer // CERT_CONTEXT** optional, out
): BOOL; stdcall;
external 'CRYPT32.dll' name 'CryptDecodeMessage';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "CryptDecodeMessage"
c_CryptDecodeMessage :: Word32 -> Ptr () -> Ptr () -> Word32 -> Ptr Word8 -> Word32 -> Word32 -> Ptr Word32 -> Ptr Word32 -> Ptr Word8 -> Ptr Word32 -> Ptr () -> Ptr () -> IO CInt
-- dwMsgTypeFlags : DWORD -> Word32
-- pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> Ptr ()
-- pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> Ptr ()
-- dwSignerIndex : DWORD -> Word32
-- pbEncodedBlob : BYTE* -> Ptr Word8
-- cbEncodedBlob : DWORD -> Word32
-- dwPrevInnerContentType : DWORD -> Word32
-- pdwMsgType : DWORD* optional, out -> Ptr Word32
-- pdwInnerContentType : DWORD* optional, out -> Ptr Word32
-- pbDecoded : BYTE* optional, out -> Ptr Word8
-- pcbDecoded : DWORD* optional, in/out -> Ptr Word32
-- ppXchgCert : CERT_CONTEXT** optional, out -> Ptr ()
-- ppSignerCert : CERT_CONTEXT** optional, out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let cryptdecodemessage =
foreign "CryptDecodeMessage"
(uint32_t @-> (ptr void) @-> (ptr void) @-> uint32_t @-> (ptr uint8_t) @-> uint32_t @-> uint32_t @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr uint8_t) @-> (ptr uint32_t) @-> (ptr void) @-> (ptr void) @-> returning int32_t)
(* dwMsgTypeFlags : DWORD -> uint32_t *)
(* pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> (ptr void) *)
(* pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> (ptr void) *)
(* dwSignerIndex : DWORD -> uint32_t *)
(* pbEncodedBlob : BYTE* -> (ptr uint8_t) *)
(* cbEncodedBlob : DWORD -> uint32_t *)
(* dwPrevInnerContentType : DWORD -> uint32_t *)
(* pdwMsgType : DWORD* optional, out -> (ptr uint32_t) *)
(* pdwInnerContentType : DWORD* optional, out -> (ptr uint32_t) *)
(* pbDecoded : BYTE* optional, out -> (ptr uint8_t) *)
(* pcbDecoded : DWORD* optional, in/out -> (ptr uint32_t) *)
(* ppXchgCert : CERT_CONTEXT** optional, out -> (ptr void) *)
(* ppSignerCert : CERT_CONTEXT** optional, out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library crypt32 (t "CRYPT32.dll"))
(cffi:use-foreign-library crypt32)
(cffi:defcfun ("CryptDecodeMessage" crypt-decode-message :convention :stdcall) :int32
(dw-msg-type-flags :uint32) ; DWORD
(p-decrypt-para :pointer) ; CRYPT_DECRYPT_MESSAGE_PARA* optional
(p-verify-para :pointer) ; CRYPT_VERIFY_MESSAGE_PARA* optional
(dw-signer-index :uint32) ; DWORD
(pb-encoded-blob :pointer) ; BYTE*
(cb-encoded-blob :uint32) ; DWORD
(dw-prev-inner-content-type :uint32) ; DWORD
(pdw-msg-type :pointer) ; DWORD* optional, out
(pdw-inner-content-type :pointer) ; DWORD* optional, out
(pb-decoded :pointer) ; BYTE* optional, out
(pcb-decoded :pointer) ; DWORD* optional, in/out
(pp-xchg-cert :pointer) ; CERT_CONTEXT** optional, out
(pp-signer-cert :pointer)) ; CERT_CONTEXT** optional, out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $CryptDecodeMessage = Win32::API::More->new('CRYPT32',
'BOOL CryptDecodeMessage(DWORD dwMsgTypeFlags, LPVOID pDecryptPara, LPVOID pVerifyPara, DWORD dwSignerIndex, LPVOID pbEncodedBlob, DWORD cbEncodedBlob, DWORD dwPrevInnerContentType, LPVOID pdwMsgType, LPVOID pdwInnerContentType, LPVOID pbDecoded, LPVOID pcbDecoded, LPVOID ppXchgCert, LPVOID ppSignerCert)');
# my $ret = $CryptDecodeMessage->Call($dwMsgTypeFlags, $pDecryptPara, $pVerifyPara, $dwSignerIndex, $pbEncodedBlob, $cbEncodedBlob, $dwPrevInnerContentType, $pdwMsgType, $pdwInnerContentType, $pbDecoded, $pcbDecoded, $ppXchgCert, $ppSignerCert);
# dwMsgTypeFlags : DWORD -> DWORD
# pDecryptPara : CRYPT_DECRYPT_MESSAGE_PARA* optional -> LPVOID
# pVerifyPara : CRYPT_VERIFY_MESSAGE_PARA* optional -> LPVOID
# dwSignerIndex : DWORD -> DWORD
# pbEncodedBlob : BYTE* -> LPVOID
# cbEncodedBlob : DWORD -> DWORD
# dwPrevInnerContentType : DWORD -> DWORD
# pdwMsgType : DWORD* optional, out -> LPVOID
# pdwInnerContentType : DWORD* optional, out -> LPVOID
# pbDecoded : BYTE* optional, out -> LPVOID
# pcbDecoded : DWORD* optional, in/out -> LPVOID
# ppXchgCert : CERT_CONTEXT** optional, out -> LPVOID
# ppSignerCert : CERT_CONTEXT** optional, out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
- f CryptDecryptMessage — 暗号化メッセージを復号して元データを取得する。
- f CryptVerifyMessageHash — ハッシュ付きメッセージのハッシュ値を検証する。
- f CryptVerifyMessageSignature — 署名付きメッセージの署名を検証し署名者証明書を取得する。