Win32 API 日本語リファレンス
ホームSecurity.Cryptography › BCryptQueryProviderRegistration

BCryptQueryProviderRegistration

関数
CNGプロバイダーの登録情報を照会して取得する。
DLLbcrypt.dll呼出規約winapi対応OSWindows Vista 以降

シグネチャ

// bcrypt.dll
#include <windows.h>

NTSTATUS BCryptQueryProviderRegistration(
    LPCWSTR pszProvider,
    BCRYPT_QUERY_PROVIDER_MODE dwMode,
    BCRYPT_INTERFACE dwInterface,
    DWORD* pcbBuffer,
    CRYPT_PROVIDER_REG** ppBuffer   // optional
);

パラメーター

名前方向説明
pszProviderLPCWSTRin情報を取得する対象のプロバイダー名を格納した、null 終端の Unicode 文字列へのポインター。
dwModeBCRYPT_QUERY_PROVIDER_MODEin

取得する情報の種類を指定します。次の値のいずれかを指定できます。

意味
CRYPT_ANY
プロバイダーの任意の情報を取得します。
CRYPT_UM
プロバイダーのユーザーモード情報を取得します。
CRYPT_KM
プロバイダーのカーネルモード情報を取得します。
CRYPT_MM
プロバイダーのユーザーモード情報とカーネルモード情報の両方を取得します。
dwInterfaceBCRYPT_INTERFACEin

情報を取得する対象のインターフェイスを指定します。次の値のいずれかを指定できます。

意味
BCRYPT_ASYMMETRIC_ENCRYPTION_INTERFACE
非対称暗号化インターフェイスを取得します。
BCRYPT_CIPHER_INTERFACE
暗号 (cipher) インターフェイスを取得します。
BCRYPT_HASH_INTERFACE
ハッシュインターフェイスを取得します。
NCRYPT_KEY_STORAGE_INTERFACE
キーストレージインターフェイスを取得します。
BCRYPT_RNG_INTERFACE
乱数ジェネレーターインターフェイスを取得します。
NCRYPT_SCHANNEL_INTERFACE
Schannel インターフェイスを取得します。
BCRYPT_SECRET_AGREEMENT_INTERFACE
秘密協定 (secret agreement) インターフェイスを取得します。
BCRYPT_SIGNATURE_INTERFACE
署名インターフェイスを取得します。
pcbBufferDWORD*inout

ULONG 値へのポインター。呼び出し時には、ppBuffer パラメーターが指すバッファーのサイズ (バイト単位) を格納します。戻り時には、この値にバッファーへコピーされたバイト数、または必要なバッファーのサイズ (バイト単位) のいずれかが格納されます。

注意 これはバッファー全体の総サイズ (バイト単位) であり、CRYPT_PROVIDER_REG 構造体のサイズだけではありません。バッファーは、CRYPT_PROVIDER_REG 構造体に加えて、プロバイダーに関するその他のデータも保持できる必要があります。
ppBufferCRYPT_PROVIDER_REG**outoptional

プロバイダーを記述する CRYPT_PROVIDER_REG 構造体およびその他のデータを受け取る、バッファーポインターへのポインター。

このパラメーターが NULL の場合、この関数は STATUS_BUFFER_TOO_SMALL を返し、pcbBuffer パラメーターが指す値に、すべてのデータに必要なサイズ (バイト単位) を格納します。

このパラメーターが NULL ポインターのアドレスである場合、この関数は必要なメモリを割り当て、プロバイダー情報を書き込み、このメモリへのポインターをこのパラメーターに格納します。このメモリの使用を終えたら、このポインターを BCryptFreeBuffer 関数に渡して解放してください。

このパラメーターが非 NULL ポインターのアドレスである場合、この関数はプロバイダー情報をこのバッファーにコピーします。pcbBuffer パラメーターには、バッファー全体のサイズ (バイト単位) を格納する必要があります。バッファーがすべてのプロバイダー情報を保持できる大きさでない場合、この関数は STATUS_BUFFER_TOO_SMALL を返します。

戻り値の型: NTSTATUS

公式ドキュメント

CNG プロバイダーに関する情報を取得します。

戻り値

関数の成否を示すステータスコードを返します。

返される可能性のあるコードには、次のものが含まれますが、これらに限定されません。

戻り値コード 説明
STATUS_SUCCESS
関数は成功しました。
STATUS_INVALID_PARAMETER
1 つ以上のパラメーターが有効ではありません。
STATUS_BUFFER_TOO_SMALL
pcbBuffer パラメーターで指定されたサイズが、すべてのデータを保持するのに十分ではありません。
STATUS_NOT_FOUND
指定された条件に一致するプロバイダーが見つかりませんでした。

解説(Remarks)

BCryptQueryProviderRegistration はユーザーモードでのみ呼び出すことができます。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

// bcrypt.dll
#include <windows.h>

NTSTATUS BCryptQueryProviderRegistration(
    LPCWSTR pszProvider,
    BCRYPT_QUERY_PROVIDER_MODE dwMode,
    BCRYPT_INTERFACE dwInterface,
    DWORD* pcbBuffer,
    CRYPT_PROVIDER_REG** ppBuffer   // optional
);
[DllImport("bcrypt.dll", ExactSpelling = true)]
static extern int BCryptQueryProviderRegistration(
    [MarshalAs(UnmanagedType.LPWStr)] string pszProvider,   // LPCWSTR
    uint dwMode,   // BCRYPT_QUERY_PROVIDER_MODE
    uint dwInterface,   // BCRYPT_INTERFACE
    ref uint pcbBuffer,   // DWORD* in/out
    IntPtr ppBuffer   // CRYPT_PROVIDER_REG** optional, out
);
<DllImport("bcrypt.dll", ExactSpelling:=True)>
Public Shared Function BCryptQueryProviderRegistration(
    <MarshalAs(UnmanagedType.LPWStr)> pszProvider As String,   ' LPCWSTR
    dwMode As UInteger,   ' BCRYPT_QUERY_PROVIDER_MODE
    dwInterface As UInteger,   ' BCRYPT_INTERFACE
    ByRef pcbBuffer As UInteger,   ' DWORD* in/out
    ppBuffer As IntPtr   ' CRYPT_PROVIDER_REG** optional, out
) As Integer
End Function
' pszProvider : LPCWSTR
' dwMode : BCRYPT_QUERY_PROVIDER_MODE
' dwInterface : BCRYPT_INTERFACE
' pcbBuffer : DWORD* in/out
' ppBuffer : CRYPT_PROVIDER_REG** optional, out
Declare PtrSafe Function BCryptQueryProviderRegistration Lib "bcrypt" ( _
    ByVal pszProvider As LongPtr, _
    ByVal dwMode As Long, _
    ByVal dwInterface As Long, _
    ByRef pcbBuffer As Long, _
    ByVal ppBuffer As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

BCryptQueryProviderRegistration = ctypes.windll.bcrypt.BCryptQueryProviderRegistration
BCryptQueryProviderRegistration.restype = ctypes.c_int
BCryptQueryProviderRegistration.argtypes = [
    wintypes.LPCWSTR,  # pszProvider : LPCWSTR
    wintypes.DWORD,  # dwMode : BCRYPT_QUERY_PROVIDER_MODE
    wintypes.DWORD,  # dwInterface : BCRYPT_INTERFACE
    ctypes.POINTER(wintypes.DWORD),  # pcbBuffer : DWORD* in/out
    ctypes.c_void_p,  # ppBuffer : CRYPT_PROVIDER_REG** optional, out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('bcrypt.dll')
BCryptQueryProviderRegistration = Fiddle::Function.new(
  lib['BCryptQueryProviderRegistration'],
  [
    Fiddle::TYPE_VOIDP,  # pszProvider : LPCWSTR
    -Fiddle::TYPE_INT,  # dwMode : BCRYPT_QUERY_PROVIDER_MODE
    -Fiddle::TYPE_INT,  # dwInterface : BCRYPT_INTERFACE
    Fiddle::TYPE_VOIDP,  # pcbBuffer : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # ppBuffer : CRYPT_PROVIDER_REG** optional, out
  ],
  Fiddle::TYPE_INT)
#[link(name = "bcrypt")]
extern "system" {
    fn BCryptQueryProviderRegistration(
        pszProvider: *const u16,  // LPCWSTR
        dwMode: u32,  // BCRYPT_QUERY_PROVIDER_MODE
        dwInterface: u32,  // BCRYPT_INTERFACE
        pcbBuffer: *mut u32,  // DWORD* in/out
        ppBuffer: *mut *mut CRYPT_PROVIDER_REG  // CRYPT_PROVIDER_REG** optional, out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("bcrypt.dll")]
public static extern int BCryptQueryProviderRegistration([MarshalAs(UnmanagedType.LPWStr)] string pszProvider, uint dwMode, uint dwInterface, ref uint pcbBuffer, IntPtr ppBuffer);
"@
$api = Add-Type -MemberDefinition $sig -Name 'bcrypt_BCryptQueryProviderRegistration' -Namespace Win32 -PassThru
# $api::BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
#uselib "bcrypt.dll"
#func global BCryptQueryProviderRegistration "BCryptQueryProviderRegistration" sptr, sptr, sptr, sptr, sptr
; BCryptQueryProviderRegistration pszProvider, dwMode, dwInterface, varptr(pcbBuffer), varptr(ppBuffer)   ; 戻り値は stat
; pszProvider : LPCWSTR -> "sptr"
; dwMode : BCRYPT_QUERY_PROVIDER_MODE -> "sptr"
; dwInterface : BCRYPT_INTERFACE -> "sptr"
; pcbBuffer : DWORD* in/out -> "sptr"
; ppBuffer : CRYPT_PROVIDER_REG** optional, out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "bcrypt.dll"
#cfunc global BCryptQueryProviderRegistration "BCryptQueryProviderRegistration" wstr, int, int, var, var
; res = BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
; pszProvider : LPCWSTR -> "wstr"
; dwMode : BCRYPT_QUERY_PROVIDER_MODE -> "int"
; dwInterface : BCRYPT_INTERFACE -> "int"
; pcbBuffer : DWORD* in/out -> "var"
; ppBuffer : CRYPT_PROVIDER_REG** optional, out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; NTSTATUS BCryptQueryProviderRegistration(LPCWSTR pszProvider, BCRYPT_QUERY_PROVIDER_MODE dwMode, BCRYPT_INTERFACE dwInterface, DWORD* pcbBuffer, CRYPT_PROVIDER_REG** ppBuffer)
#uselib "bcrypt.dll"
#cfunc global BCryptQueryProviderRegistration "BCryptQueryProviderRegistration" wstr, int, int, var, var
; res = BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
; pszProvider : LPCWSTR -> "wstr"
; dwMode : BCRYPT_QUERY_PROVIDER_MODE -> "int"
; dwInterface : BCRYPT_INTERFACE -> "int"
; pcbBuffer : DWORD* in/out -> "var"
; ppBuffer : CRYPT_PROVIDER_REG** optional, out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	bcrypt = windows.NewLazySystemDLL("bcrypt.dll")
	procBCryptQueryProviderRegistration = bcrypt.NewProc("BCryptQueryProviderRegistration")
)

// pszProvider (LPCWSTR), dwMode (BCRYPT_QUERY_PROVIDER_MODE), dwInterface (BCRYPT_INTERFACE), pcbBuffer (DWORD* in/out), ppBuffer (CRYPT_PROVIDER_REG** optional, out)
r1, _, err := procBCryptQueryProviderRegistration.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pszProvider))),
	uintptr(dwMode),
	uintptr(dwInterface),
	uintptr(pcbBuffer),
	uintptr(ppBuffer),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // NTSTATUS
function BCryptQueryProviderRegistration(
  pszProvider: PWideChar;   // LPCWSTR
  dwMode: DWORD;   // BCRYPT_QUERY_PROVIDER_MODE
  dwInterface: DWORD;   // BCRYPT_INTERFACE
  pcbBuffer: Pointer;   // DWORD* in/out
  ppBuffer: Pointer   // CRYPT_PROVIDER_REG** optional, out
): Integer; stdcall;
  external 'bcrypt.dll' name 'BCryptQueryProviderRegistration';
result := DllCall("bcrypt\BCryptQueryProviderRegistration"
    , "WStr", pszProvider   ; LPCWSTR
    , "UInt", dwMode   ; BCRYPT_QUERY_PROVIDER_MODE
    , "UInt", dwInterface   ; BCRYPT_INTERFACE
    , "Ptr", pcbBuffer   ; DWORD* in/out
    , "Ptr", ppBuffer   ; CRYPT_PROVIDER_REG** optional, out
    , "Int")   ; return: NTSTATUS
●BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer) = DLL("bcrypt.dll", "int BCryptQueryProviderRegistration(char*, dword, dword, void*, void*)")
# 呼び出し: BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
# pszProvider : LPCWSTR -> "char*"
# dwMode : BCRYPT_QUERY_PROVIDER_MODE -> "dword"
# dwInterface : BCRYPT_INTERFACE -> "dword"
# pcbBuffer : DWORD* in/out -> "void*"
# ppBuffer : CRYPT_PROVIDER_REG** optional, out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "bcrypt" fn BCryptQueryProviderRegistration(
    pszProvider: [*c]const u16, // LPCWSTR
    dwMode: u32, // BCRYPT_QUERY_PROVIDER_MODE
    dwInterface: u32, // BCRYPT_INTERFACE
    pcbBuffer: [*c]u32, // DWORD* in/out
    ppBuffer: [*c][*c]CRYPT_PROVIDER_REG // CRYPT_PROVIDER_REG** optional, out
) callconv(std.os.windows.WINAPI) i32;
proc BCryptQueryProviderRegistration(
    pszProvider: WideCString,  # LPCWSTR
    dwMode: uint32,  # BCRYPT_QUERY_PROVIDER_MODE
    dwInterface: uint32,  # BCRYPT_INTERFACE
    pcbBuffer: ptr uint32,  # DWORD* in/out
    ppBuffer: ptr CRYPT_PROVIDER_REG  # CRYPT_PROVIDER_REG** optional, out
): int32 {.importc: "BCryptQueryProviderRegistration", stdcall, dynlib: "bcrypt.dll".}
pragma(lib, "bcrypt");
extern(Windows)
int BCryptQueryProviderRegistration(
    const(wchar)* pszProvider,   // LPCWSTR
    uint dwMode,   // BCRYPT_QUERY_PROVIDER_MODE
    uint dwInterface,   // BCRYPT_INTERFACE
    uint* pcbBuffer,   // DWORD* in/out
    CRYPT_PROVIDER_REG** ppBuffer   // CRYPT_PROVIDER_REG** optional, out
);
ccall((:BCryptQueryProviderRegistration, "bcrypt.dll"), stdcall, Int32,
      (Cwstring, UInt32, UInt32, Ptr{UInt32}, Ptr{CRYPT_PROVIDER_REG}),
      pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
# pszProvider : LPCWSTR -> Cwstring
# dwMode : BCRYPT_QUERY_PROVIDER_MODE -> UInt32
# dwInterface : BCRYPT_INTERFACE -> UInt32
# pcbBuffer : DWORD* in/out -> Ptr{UInt32}
# ppBuffer : CRYPT_PROVIDER_REG** optional, out -> Ptr{CRYPT_PROVIDER_REG}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t BCryptQueryProviderRegistration(
    const uint16_t* pszProvider,
    uint32_t dwMode,
    uint32_t dwInterface,
    uint32_t* pcbBuffer,
    void* ppBuffer);
]]
local bcrypt = ffi.load("bcrypt")
-- bcrypt.BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
-- pszProvider : LPCWSTR
-- dwMode : BCRYPT_QUERY_PROVIDER_MODE
-- dwInterface : BCRYPT_INTERFACE
-- pcbBuffer : DWORD* in/out
-- ppBuffer : CRYPT_PROVIDER_REG** optional, out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('bcrypt.dll');
const BCryptQueryProviderRegistration = lib.func('__stdcall', 'BCryptQueryProviderRegistration', 'int32_t', ['str16', 'uint32_t', 'uint32_t', 'uint32_t *', 'void *']);
// BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
// pszProvider : LPCWSTR -> 'str16'
// dwMode : BCRYPT_QUERY_PROVIDER_MODE -> 'uint32_t'
// dwInterface : BCRYPT_INTERFACE -> 'uint32_t'
// pcbBuffer : DWORD* in/out -> 'uint32_t *'
// ppBuffer : CRYPT_PROVIDER_REG** optional, out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("bcrypt.dll", {
  BCryptQueryProviderRegistration: { parameters: ["buffer", "u32", "u32", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer)
// pszProvider : LPCWSTR -> "buffer"
// dwMode : BCRYPT_QUERY_PROVIDER_MODE -> "u32"
// dwInterface : BCRYPT_INTERFACE -> "u32"
// pcbBuffer : DWORD* in/out -> "pointer"
// ppBuffer : CRYPT_PROVIDER_REG** optional, out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t BCryptQueryProviderRegistration(
    const uint16_t* pszProvider,
    uint32_t dwMode,
    uint32_t dwInterface,
    uint32_t* pcbBuffer,
    void* ppBuffer);
C, "bcrypt.dll");
// $ffi->BCryptQueryProviderRegistration(pszProvider, dwMode, dwInterface, pcbBuffer, ppBuffer);
// pszProvider : LPCWSTR
// dwMode : BCRYPT_QUERY_PROVIDER_MODE
// dwInterface : BCRYPT_INTERFACE
// pcbBuffer : DWORD* in/out
// ppBuffer : CRYPT_PROVIDER_REG** 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 Bcrypt extends StdCallLibrary {
    Bcrypt INSTANCE = Native.load("bcrypt", Bcrypt.class);
    int BCryptQueryProviderRegistration(
        WString pszProvider,   // LPCWSTR
        int dwMode,   // BCRYPT_QUERY_PROVIDER_MODE
        int dwInterface,   // BCRYPT_INTERFACE
        IntByReference pcbBuffer,   // DWORD* in/out
        Pointer ppBuffer   // CRYPT_PROVIDER_REG** optional, out
    );
}
@[Link("bcrypt")]
lib Libbcrypt
  fun BCryptQueryProviderRegistration = BCryptQueryProviderRegistration(
    pszProvider : UInt16*,   # LPCWSTR
    dwMode : UInt32,   # BCRYPT_QUERY_PROVIDER_MODE
    dwInterface : UInt32,   # BCRYPT_INTERFACE
    pcbBuffer : UInt32*,   # DWORD* in/out
    ppBuffer : CRYPT_PROVIDER_REG**   # CRYPT_PROVIDER_REG** 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 BCryptQueryProviderRegistrationNative = Int32 Function(Pointer<Utf16>, Uint32, Uint32, Pointer<Uint32>, Pointer<Void>);
typedef BCryptQueryProviderRegistrationDart = int Function(Pointer<Utf16>, int, int, Pointer<Uint32>, Pointer<Void>);
final BCryptQueryProviderRegistration = DynamicLibrary.open('bcrypt.dll')
    .lookupFunction<BCryptQueryProviderRegistrationNative, BCryptQueryProviderRegistrationDart>('BCryptQueryProviderRegistration');
// pszProvider : LPCWSTR -> Pointer<Utf16>
// dwMode : BCRYPT_QUERY_PROVIDER_MODE -> Uint32
// dwInterface : BCRYPT_INTERFACE -> Uint32
// pcbBuffer : DWORD* in/out -> Pointer<Uint32>
// ppBuffer : CRYPT_PROVIDER_REG** optional, out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function BCryptQueryProviderRegistration(
  pszProvider: PWideChar;   // LPCWSTR
  dwMode: DWORD;   // BCRYPT_QUERY_PROVIDER_MODE
  dwInterface: DWORD;   // BCRYPT_INTERFACE
  pcbBuffer: Pointer;   // DWORD* in/out
  ppBuffer: Pointer   // CRYPT_PROVIDER_REG** optional, out
): Integer; stdcall;
  external 'bcrypt.dll' name 'BCryptQueryProviderRegistration';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "BCryptQueryProviderRegistration"
  c_BCryptQueryProviderRegistration :: CWString -> Word32 -> Word32 -> Ptr Word32 -> Ptr () -> IO Int32
-- pszProvider : LPCWSTR -> CWString
-- dwMode : BCRYPT_QUERY_PROVIDER_MODE -> Word32
-- dwInterface : BCRYPT_INTERFACE -> Word32
-- pcbBuffer : DWORD* in/out -> Ptr Word32
-- ppBuffer : CRYPT_PROVIDER_REG** optional, out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let bcryptqueryproviderregistration =
  foreign "BCryptQueryProviderRegistration"
    ((ptr uint16_t) @-> uint32_t @-> uint32_t @-> (ptr uint32_t) @-> (ptr void) @-> returning int32_t)
(* pszProvider : LPCWSTR -> (ptr uint16_t) *)
(* dwMode : BCRYPT_QUERY_PROVIDER_MODE -> uint32_t *)
(* dwInterface : BCRYPT_INTERFACE -> uint32_t *)
(* pcbBuffer : DWORD* in/out -> (ptr uint32_t) *)
(* ppBuffer : CRYPT_PROVIDER_REG** optional, out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library bcrypt (t "bcrypt.dll"))
(cffi:use-foreign-library bcrypt)

(cffi:defcfun ("BCryptQueryProviderRegistration" bcrypt-query-provider-registration :convention :stdcall) :int32
  (psz-provider (:string :encoding :utf-16le))   ; LPCWSTR
  (dw-mode :uint32)   ; BCRYPT_QUERY_PROVIDER_MODE
  (dw-interface :uint32)   ; BCRYPT_INTERFACE
  (pcb-buffer :pointer)   ; DWORD* in/out
  (pp-buffer :pointer))   ; CRYPT_PROVIDER_REG** optional, out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $BCryptQueryProviderRegistration = Win32::API::More->new('bcrypt',
    'int BCryptQueryProviderRegistration(LPCWSTR pszProvider, DWORD dwMode, DWORD dwInterface, LPVOID pcbBuffer, LPVOID ppBuffer)');
# my $ret = $BCryptQueryProviderRegistration->Call($pszProvider, $dwMode, $dwInterface, $pcbBuffer, $ppBuffer);
# pszProvider : LPCWSTR -> LPCWSTR
# dwMode : BCRYPT_QUERY_PROVIDER_MODE -> DWORD
# dwInterface : BCRYPT_INTERFACE -> DWORD
# pcbBuffer : DWORD* in/out -> LPVOID
# ppBuffer : CRYPT_PROVIDER_REG** optional, out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

公式の関連項目
使用する型