|
Obtener Datos de Certificado
Espero no estar violando las reglas he obtenido nucha ayuda aqui, fui un usuario del foro en la epoca 1993-1997 ....
En esta unidad viene como obtener los datos del certificado.. usando como base unidad sello.pas y esta de aqui. (gettime esta en OpenSSLUtils.pas)
( No puedo subir el enlace, buscarla en google )
function GetInicioVigencia(const AFileName: string): TdateTime;
var
bp: pBIO;
fn: PAnsiChar;
x: pX509;
x509: pX509;
Fecha:TDateTime;
begin
InitOpenSSL;
fn := PAnsiChar(ansistring(AFileName));
bp := BIO_new(BIO_s_file());
BIO_read_filename(bp, fn);
x := X509_new;
x509 := PEM_read_bio_X509(bp, x, nil, nil);
Fecha:=getTime(X509_get_notBefore(x509));
X509_free(x509);
BIO_free(bp);
Result := Fecha;
EVP_cleanup;
end;
Gracias, Saludos desde Tijuana B.C. Mexico
|