|
Hola,
una vez obtenida la cadena, simplemente tienes que ejecutar las siguientes funciones:
//Obtiene el sello a partir de la cadena
Sello := SelloDigital('aaa010101aaa_CSD_01.key.pem',cadena);
//Obtiene el certificado (clave pública)
Certificado := LoadPublicKey('aaa010101aaa_CSD_01.cer.pem');
//Obtiene la serie del certificado
NoCertificado := GetNoCertificado('aaa010101aaa_CSD_01.cer.pem');
Todas las funciones están declaradas en el archivo que subí.
Saludos
|