FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#11
|
|||
|
|||
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Mexico - Como crear sellos en FACTURA ELECTRONICA.. | pcicom | API de Windows | 12 | 10-11-2012 18:46:55 |
Factura Electrónica | aig | Varios | 13 | 10-12-2010 17:12:44 |
factura electronica | cmm07 | Varios | 4 | 02-04-2009 17:46:03 |
factura electronica | spia | Varios | 2 | 22-02-2009 21:30:06 |
Factura electronica AUNA | Aprendiz | Varios | 5 | 01-09-2005 10:44:15 |
|