Задания на лабораторные работы / WINCRYPT

unit Wincrypt;

interface
uses Windows;
const
//коды криптографических алгоритмов
CALG_MD2=$8001;
CALG_MD4=$8002;
CALG_MD5=$8003;
CALG_SHA=$8004;
CALG_RC2=$6602;
CALG_RC4=$6801;
//константы для функции CryptAcquireContext
PROV_RSA_FULL=1;
CRYPT_NEWKEYSET=$8;
//константы для функции создания ключа
CRYPT_EXPORTABLE=$1;
CRYPT_CREATE_SALT=$4;
AT_SIGNATURE= 2;
//константы для функции установки параметров ключа
KP_MODE=4;
//коды режимов шифрования
CRYPT_MODE_CBC=1;
CRYPT_MODE_ECB=2;
CRYPT_MODE_CFB=4;
type
ALG_ID=Cardinal;
//функции CryptoAPI
function CryptAcquireContext(
var hProv:THandle;
pszContainer,pszProvider:PChar;
dwProvType,dwFlags:Longint):Longbool;
stdcall; external 'advapi32.dll' name 'CryptAcquireContextA';
function CryptCreateHash(
hProv:THandle;
Algid:ALG_ID;
hKey:THandle;
dwFlags:Longint;
var hHash:THandle):Longbool;
stdcall; external 'advapi32.dll';
function CryptHashData(
hHash:THandle;
pbData:Pointer;
dwDataLen,dwFlags:Longint):Longbool;
stdcall; external 'advapi32.dll';
function CryptDestroyHash(
hHash:THandle):Longbool;
stdcall; external 'advapi32.dll';
function CryptDeriveKey(
hProv:THandle;
Algid:ALG_ID;
hBaseData:THandle;
dwFlags:Longint;
var hKey:THandle):Longbool;
stdcall; external 'advapi32.dll';
function CryptDestroyKey(
hKey:THandle):Longbool;
stdcall; external 'advapi32.dll';
function CryptReleaseContext(
hProv:THandle;
dwFlags:Longint):Longbool;
stdcall; external 'advapi32.dll';
function CryptEncrypt(
hKey,hHash:THandle;
Final:Longbool;
dwFlags:Longint;
pbData:Pointer;
var dwDataLen:Longint;
dwBufLen:Longint):Longbool;
stdcall; external 'advapi32.dll';
function CryptDecrypt(
hKey,hHash:THandle;
Final:Longbool;
dwFlags:Longint;
pbData:Pointer;
var dwDataLen:Longint):Longbool;
stdcall; external 'advapi32.dll';
function CryptSetKeyParam(
hKey:THandle;
dwParam:Longint;
pbData:Pointer;
dwFlags:Longint):Longbool;
stdcall; external 'advapi32.dll';
function CryptGenKey(
hProv:THandle;
Algid:ALG_ID;
dwFlags:Longint;
var phKey:THandle):Longbool;
stdcall; external 'advapi32.dll';
function CryptGetUserKey(
hProv:THandle;
dwKeySpec:Longint;
var phUserKey:THandle):Longbool;
stdcall; external 'advapi32.dll';
function CryptSignHash(
hHash:THandle;
dwKeySpec:Longint;
sDescription:PChar;
dwFlags:Longint;
pbSignature:Pointer;
var pdwSigLen:Longint):Longbool;
stdcall; external 'advapi32.dll' name 'CryptSignHashA';
function CryptVerifySignature(
hHash:THandle;
pbSignature:Pointer;
dwSigLen:Longint;
hPubKey:THandle;
sDescription:PChar;
dwFlags:Longint):Longbool;
stdcall; external 'advapi32.dll' name 'CryptVerifySignatureA';
implementation

end.