function TFSCryptoCertificates.CertContextToSignAlgorithms(ipCertContext:PCCERT_CONTEXT; var oHashAlg, oSignAlg:ALG_ID):boolean;
var cHashAlgorithms:array of ALG_ID;
vKeyAlgorithm:array [1..2] of ALG_ID;
vKeyOIDInfo:PCRYPT_OID_INFO;
vInd:integer;
const cHashAlgCount=5;
begin
//Инициализируем структуру алгоритмов хэширования, которые будут перебираться
SetLength(cHashAlgorithms, cHashAlgCount);
cHashAlgorithms[0]:=CALG_SHA1;
cHashAlgorithms[1]:=CALG_MD5;
cHashAlgorithms[2]:=CALG_MD4;
cHashAlgorithms[3]:=CALG_MD2;
cHashAlgorithms[4]:=CALG_MAC;
//Структура перебора хэш функций создана
Result:=false;
oHashAlg:=0;
oSignAlg:=0;
vKeyOIDInfo:=nil;
vKeyAlgorithm[2]:=CertOIDToAlgId(ipCertContext.pCertInfo.SubjectPublicKeyInfo.Algorithm.pszObjId);
//Если алгоритм подписи RSA то сразу переключаемся на хэширование SHA1
if vKeyAlgorithm[2]=CALG_RSA_KEYX then
begin
oHashAlg:=CALG_SHA1;
oSignAlg:=vKeyAlgorithm[2];
Result:=true;
Exit;
end;
//А теперь перебираем алгоритмы хэширования и пробуем найти нужный
for vInd:=0 to cHashAlgCount do
begin
vKeyAlgorithm[1]:=cHashAlgorithms[vInd];
vKeyOIDInfo:=CryptFindOIDInfo(CRYPT_OID_INFO_SIGN_KEY, @vKeyAlgorithm, CRYPT_SIGN_ALG_OID_GROUP_ID);
if Assigned(vKeyOIDInfo) then
begin
oHashAlg:=vKeyAlgorithm[1];
oSignAlg:=vKeyAlgorithm[2];
Result:=true;
Exit;
end else
vKeyOIDInfo:=nil;
end;
Result:=Assigned(vKeyOIDInfo);
end;

1. Декодировать и просматривать сертификаты