Que tal dado, yo obtuve la misma información que tu obtuviste pero pues ya no quise contradecir más a nejamube porque pues el mismo SAT se hace bolas el solito y la verdad nada está escrito.
Lo que es un hecho y que nos salva es, el que quiera entrarle a las CFD's, que lo haga ya en este año, porque iniciar apenas para el siguiente va a estar más complicado el asunto.
Dentro de las reformas de esto de la factura electrónica, está la manera en que los xml's deben almacenarse, pues recientemente en un anteproyecto le agregaron a una frase una simple palabrita ("después") que cambia todo un esquema de como deben almacenarse los xml's en tu empresa. Lo que intento decir con esto es que el SAT como dice una cosa dice otra, y en este sentido prefiero confiar en expertos en la materia para que me diga "lo que el SAT quizo decir fue...". Así que preocupado no estoy, pues el desarrollo en que se le ha invertido tiempo sigue vigente para el 2011. Ya después veremos.

En todo este embrollo puedo decir que "Las reglas cambian para los que no han empezado a utilizarlas" pues el simple hecho de inciar con CFD's ya es un cambio radical en una empresa. Los demás, seguimos igual hasta que tengamos que añadir el BarCode de dos dimensiones que indica el SAT y las nuevas propiedades en el xml.

Saludos.

De acuerdo contigo dado, es lo que finalmente salió, al principio de habló de hologramas pero quedó en códigos de barra 2D que se pueden pegar a cualquier papel para hacerlo en automático un comprobante fiscal (siempre que no rebase los 2,000 pesos).

el link del proveedor que encontre que da servicio ya sea web, api o conector es buzón fiscal,aunque el SAT tiene listados otros 21 proveedores autorizados.

Mi querido nejamube, tu link es de la miscelánea del 2007. Por otro lado no hemos mencioando (para que les digan a sus clientes) que todos los contribuyentes del régimen general de ley que se encuentren dictaminados podrán optar por emitir CFDs o comprobantes en papel.

Por ciertor y sin que suene a comercial, los de buzón fiscal dan asesoría y lo necesario para conectar aplicaciones ya hechas con su servicio y de hecho creo que es lo que mejor hacen. Los otros proveedores que he revisado sirven bien pero para pequeños volúmenes de facturación. NO olvidemos que hay la obligación de registrar lo facturado directamente en contabilidad electrónica.

nuk3zito

Es correcto lo que dices, pero fijate, por pimera vez ya pasamos de "se dice por ahi..." a un Anteproyecto publicado en la pagina OFICIAL del SAT, eso ya es un avance ENOOORME.

Ahora, en otro foro (el mio...je je je) comentabamos que el SAT esta "del tingo al tango" y no da una.

Hay que reconocer que para el SAT la presion es mucha, incluso se comento que el "Esquema 2010" va a durar por lo menos todo el 2011 debido a las presiones por parte de la iniciativa privada para "desquitar" lo invertido, o como dicen los expertos, para que se cumple el Retorno de la Inversion.

Solo la primera mitad del 2011
 

Claramente en el utlimo parrafo dice que durante el primer semestre del 2011, en ninguna parte dice que todo el 2011, creo que algunas personas interpretan o entienden mal las cosas, o las entienden como los conviene o les gustaria que fuera.

:confused:

http://www.sat.gob.mx/sitio_internet.../66_18807.html

:eek:

Lo anterior implica que para quienes ya optaron u opten por el uso de la facturación electrónica hasta diciembre de 2010, se les respetará el uso de los modelos vigentes, considerando, además, que los contribuyentes que emiten facturas electrónicas a través de proveedores actuales podrán seguir operando esté esquema, durante el primer semestre de 2011.

:rolleyes:

Mi estimado nejamube, porque siento que incluso te molesta cuando te corregimos ??

Ok. Dice textualmente :

Lo anterior implica que para quienes ya optaron u opten por el uso de la facturación electrónica hasta diciembre de 2010, se les respetará el uso de los modelos vigentes, considerando, además, que los contribuyentes que emiten facturas electrónicas a través de proveedores actuales podrán seguir operando esté esquema, durante el primer semestre de 2011.


".....LOS CONTRIBUYENTES QUE EMITEN F.E. ATRAVEZ DE PACFD...", es decir, atravez de terceros autorizados.

Para los MEDIOS PROPIOS se puede usar durante todo el 2011.

Ahora, te explico, porque los que usan PACFD lo van a poder hacer "durante el 1er semestre del 2011", bueno, porque los PACFD VA A DESAPARECER !!!

SI, como lo oyes, desaparecen los PACFD y APARECEN los PAC (Proveedor Autorizado de Certificacion), ahora, donde esta el truco? bueno los MISMOS PACFD se va a adaptar para ser PAC y les estan dando ese chance hasta mediados del 2011.

Aqui esta el dicho que dice :

Y si, si es a mi conveniencia, al igual que todos los desarrolladores de CFD que estan facturando actualmente..........


Saludos,

Cambia La Forma De Generar El Sello
 

NOTICIA IMPORTANTE:

PASEN LA VOZ!!!

VA A CAMBIAR LA FORMA DE GENERAR EL SELLO.

En el anteproyecto del Anexo 20 menciona que ahora el Sello Digital debera usarse SHA-1 , YA NO ES MD5, ahora va a ser SHA-1

Dice en la Seccion I inciso C):

Ahora, recuerden, esta en anteproyecto, todavia puede cambiar.[/font]

En efecto dado, los PACFD se convertiran en PAC, de hecho muchos ya están trabajando en esa trancisión. Se dice que con la figura de PAC será mas sencillo hacerlo por medios propios pues ya solo le mandas al PAC la factura que puede ser en un formato de archivo x, y o z (no necesariamente xml) y el PAC lo formatea y certifica regresándote el comprobante fiscal ya en su formato digital.

Abrá que esperar el "Nuevo Anexo 20", y supongo que el CFD cambiará de versión.

Por eso digo yo: eso de entender los puntos y las comas se lo dejo a los expertos. Tu deberías hacer lo mismo pues tienes muchas confusiones. :p No dejes que el SAT se salga con la suya, mejor apóyate en alguien más.

Saludos.

Cambiar .cer a .pem y obtener fecha de caducidad del certificado
 

Hola quetal programadores quiero aportar un poco al tema de facturacion electronica voy a explicar brevemente este codigo esperando que le sirva a mas de uno:
1:Primero Busco con dialogExecute el archivo .cer
2:ejecuto el openssl con shellexecute y paso los parametros para convertir a formato pem y creo un archivo de texto.
3:con una funcion de escaneo busco la palabra not after y copio solo la fecha con copy y la proceso para lograr un formato de echa valido
4:la funcion LongDateStrToShortDateStr me rotorna el numero de mes ya que en el archivo caduca aparece el mes abreviado ejem:ene,feb,mar....dic

Código Delphi [-]
procedure Tfrm_datos_empresa.BitBtn5Click(Sender: TObject);
var
Rutacerti,nombrecerti:string;
position: integer;
dia,mes,yy,h,m,s:string;
begin
if Opencerti.Execute then
  begin
    Rutacerti := Opencerti.FileName ;
    if Rutacerti <> '' then
    begin
      nombrecerti:=ExtractFileName(opencerti.FileName);
      CopyFile(PChar(rutacerti), PChar('C:\SAT\'+nombrecerti), false);
      certi.Text:=nombrecerti;
      ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('x509 -inform DER -outform PEM -in '+PChar('C:\SAT\'+nombrecerti)+' -out C:\SAT\'+nombrecerti+'.pem'),nil,SW_SHOW);
      Sleep(1000);
      ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('x509 -in C:\SAT\'+nombrecerti+'.pem -text -out C:\SAT\caduca.txt'),nil,SW_SHOW);
      Sleep(1000);
      //proceso para sacar la fecha de caducidad
      position := ScanFile('C:\SAT\caduca.txt', 'Not After', true);
      if position <> -1 then
      begin
        //showmessage(archivo_caduca);
        dia:=Copy(archivo_caduca,17,2);
        mes:=LongDateStrToShortDateStr(Copy(archivo_caduca,13,3));//(Copy(archivo_caduca,13,3)));
        yy:=Copy(archivo_caduca,29,4);
        h:=Copy(archivo_caduca,20,8);
        if date>=strtodatetime(dia+'/'+mes+'/'+yy+' '+h) then
         showmessage('Este certificado ya esta caducado:'+ dia+'/'+mes+'/'+yy+' '+h)
        else
        showmessage('Certificado Vigente hasta:'+ dia+'/'+mes+'/'+yy+' '+h);
        caduca.DateTime:= strtodatetime(dia+'/'+mes+'/'+yy+' '+h);
      end
      else
      begin
        ShowMessage('No se econtro Fecha de caducidad (Not After)');
      end;
    end;
end//fin del dialog1 execute
else
begin
    showmessage('no se ejecuto');
end;

Cambiar .key a .pem con openssl y shellexecute
 

Hola programadores de delphi, quiero aportar un poco al tema de facturacion electronica les explico brevemente el siguiente codigo:
1:busco con el opendialog execute el archivo .key
2:abro con shell execute opennssl y paso los parametros para crear el archivo .pem
3:el sleep esta dando 10 segundos para teclear el password que corresponde el sello, despues de poner la clave correcta te crea el archivo .pem

Código Delphi [-]
procedure Tfrm_datos_empresa.BitBtn4Click(Sender: TObject);
var
Rutasello,nombresello:string;
begin
if Opensello.Execute then
  begin
    Rutasello := Opensello.FileName ;
    if Rutasello <> '' then
    begin
      nombresello:=ExtractFileName(opensello.FileName);
      CopyFile(PChar(rutasello), PChar('C:\SAT\'+nombresello), false);
      sello.Text:=nombresello;
      ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('pkcs8 -inform DER -in '+PChar('C:\SAT\'+nombresello)+' -out C:\SAT\'+nombresello+'.pem'), nil, SW_SHOW);
      Sleep(10000);
    end;
  end//fin del dialog1 execute
  else
  begin
    showmessage('no se ejecuto');
  end;
end;

Ps con la novedad de que el sat ya liberó su nuevo Anexo 20.

Búsquenlo para que vean las diferencias. Que jijos!


http://www.sat.gob.mx/sitio_internet...on/default.asp

mmkela, y yo que acabo de terminar de acomodar el formato anterior... ¿ahora tengo que hacer uno para las digitales?

shaaalee....


Pues parece que el más sencillo es el criptosys junto con firmasat... al menos de 10 que conozco, 8 lo están... estamos usando...

Pues no hubo diferencias... o al menos no para los que ya emitimos CFD's. Los requerimientos "nuevos" son para los que emiten CFDI.
Saludos.

Qué onda con el SAT?
 

Hola programadores y foreros, les envío un cordial saludo.
Este es mi primer post y antes que nada permítanme felicitarlos por el excelente trabajo que están haciendo en estos foros del clubdelphi.com ya que me han salvado incontables veces; pero en especial en este foro de las facturas electrónicas SAT, este foro me ha salvado la vida (bueno tal vez no tanto como la vida pero me ha dado una gran ayudadota): MUUUUCHAS GRACIAAAAAAS!!!!

Gracias al código que han puesto aquí estoy haciendo mi modulito de facturas electrónicas, si no, quién sabe si lo hubiera podido hacer. De nuevo muchas gracias.

Y me gustaría añadir mi granito de arena al tema, ya que yo tuve problemas para añadir los encabezados y el tipo de documento al documento xml y en estos foros leí un hilo que decía que tienes que respetar los namespaces del documento, y no fijarlo como atributo:

véase: Attributos fantasmas en nodos XML (www_clubdelphi_com/foros/showthread.php?t=40379)

y leyendo sus indicaciones llegué a esto:

aunque para usar CFD.Schema tuve que hacer un poco más de argucias en el unit que me generó el delphi xml bind ;)

Por cierto, primero use el xml binder para que delphi me generara una unidad de interface para manejar automáticamente el documento xml en el formato que pide hacienda como está ejemplificado arriba (IXMLComprobante).

Y luego use el TSXLPageProducer para que automáticamente me generara la cadena original (Ejemplo de TSXLPageProducer):
Y así dejas que delphi se haga bolas por tí, jejeje.
espero que sea de ayuda para alguien como lo fue para mí.

Entonces mis preguntas son:
De dónde obtienes NoAprobación y AnoAprobación ??

Y finalmente usando Sello.pas que bajas de este mismo hilo (muchísimas gracias felipep) puedes producir el sello, el certificado y el NoCertificado.

Y precisamente aquí es donde está mi última pregunta:
la función GetNoCertificado(const AFileName: string): string; de la unidad Sello.pas me regresa un string muy raro, así debe ser?
ejemplo de resultado:
〱〰㈱〰〰〰〰㈰㔲㜱圌¨
que cuando le hago: UTF8Decode(NoCertificado) me da:
??????????? (puros signos de interrogación)

Muchas gracias por su atención.


Saludos!

El número de aprobación y el año de aprobación, se te proporcionan cuando solicitas los folios. En el documento de solicitud de folios ahí encuentras estos datos. Obviamente esto se configuran junto con los folio.

Ooooooh! osea que ese control lo tiene que llevar uno mismo, por decir, "manualmente"... oh! yo pensé que lo sacabas del certificado o de alguno de los archivos que te manda hacienda, qué burro! jajaja.

Ok, entonces uno debe llevar el control y debe saber el NoAprobacion y el AnoAprobacion.

Muchas gracias!

Entonces rápidamente, lo único que generas en el momento es:
1.-cadena original
2.-sello digital
3.-NoCertificado

verdad?

gracias!

Te la rifaste con ese código... yo no sabía como obtener la cadena original en Delphi (en C# no me dio nadita de problemas).

En serio, te agradezco el aporte. Solo me resta probarlo.

De nada
 

Gracias y de nada nuk3zito, sabía que a alguien le iba a ayudar, es mi pequeña aportación al foro que tanto me ha dado, a mí me sirvió muchísimo y te lo hace automático tal como hacienda te lo pide, tú mientras te dedicas a otras cosas, y además tiene la enorme ventaja que con los cambios que está haciendo hacienda, cuando salga la versión nueva del cadenaoriginal_2_0.XSLT nomás le cambias el archivo y listo!!!!

Saludos!

Así es... conozco las bondades que esto ofrece pues lo uso en C#. En los primeros post que puse en este hilo yo solicitaba que alguien me ayudara a realizar esta "transformación" en Delphi (de hecho está en la primer página) pero no tuve éxito, aunque aún me sirve (y mucho) tu aporte, ya solo me queda probar aunque no tengo dudas de que esto vaya a funcionar bien.

Ahora me estoy metiendo en la onda de CFDI, a ver como me va con eso.

Saludos.

ayuda
 

No tengo dudas de que te va a funcionar perfectamente nuk3zito!

Por cierto amigos programadores, tengo un problemilla con la unidad Sello.pas que postearon en este hilo, ojalá me puedan ayudar.

Ya había preguntado sobre esto en mi primer post, pero sigo con eso, y es que por más que le muevo y le busco, no doy.

Mi problema esta en la función:
como podrán ver, el primer cambio que le tuve que hacer fue cambiar el tipo de la variable fn de PAnsiChar a PWideChar, esto es porque así me lo pide el delphi, pero de ahí en fuera todo esta igual.

Alguna sugerencia?

Gracias!

corrigiendo mi mensaje anterior
 

Corrigiendo mi mensaje anterior (perdón, no se cómo editarlo), al final hablé del primer cambio que le hice, quise decir, el único cambio que le hice, que fue cambiar el tipo de dato, de PAnsiChar a PWideChar o PChar, porque al compilarlo como PAnsiChar, el delphi me dice que no es un tipo compatible:
E2010 Incompatible Types: 'Ansi' and 'Char'

Y si le hago un typecast como:
BIO_read_filename(bp, PChar(fn));

Ya me lo compila pero al correr y asignar el valor que me devuelve esta función al documento XML me marca un error:
EOleException : 'se encontró un carácter no válido en el contenido del texto'

Y he estado cambiándole los tipos de dato y me sigue devolviendo 'carácter no válido' o si le quito el typecast a AnsiString en fn := PAnsiChar(AnsiString(AFileName)); me marca otro error:
access violation at address 10055fd4 in module 'libeay32.dll'

Alguna sugerencia?

será por la versión del libeay32.dll?

Gracias

versión de delphi
 

Hola de nuevo amigos, creo que mi problema es la versión de Delphi, estoy usando:
Embarcadero® Delphi® 2010 Version 14.0.3513.24210

será?...

edgaronfo.

Supongo que sí es el problema la versión de Delphi, ya que con la versión 7 no hay problema, deberías revisar si los parámetros que le pasas al libeay32.dll son correctos, ya que esto puede ser tu problema.

Sip, definitivamente tiene que ver con la versión del delphi y la forma en la que maneja los tipos...

Oye, pero de lo que me estoy dando cuenta es que esta función (getNoCertificado) regresa como string un array de chars (array [0..19] of char) que contiene el numero de certificado en formato big-endian, estoy en lo correcto?

Entonces lo que me regresa es un numero en binario en formato big endian... Alguien sabe cómo lo paso a formato string entendible? como que tengo que usar Ord() o algo asi, no?

Siento que es una tontería lo que me está pasando aquí... ustedes que hacen con el valor en string que regresa getNoCertificado() ?... así como viene se lo pasan al xml? o lo transforman primero?

Gracias!

GetNoCertificado en Delphi 2010
 

Hola, yo tuve el mismo problema con Delphi 2010 y tuve que corregir la funcion. Aqui esta como quedo y funciona bien.

Código Delphi [-]
 
function GetNoCertificado(const AFileName: string): string;
var
bp: pBIO;
fn: PAnsiChar;
x: pX509;
x509: pX509;
bn: pBIGNUM;
num: array [0..19] of AnsiChar;
begin
InitOpenSSL;
fn := PAnsiChar(ansistring(AFileName));
bp := BIO_new(BIO_s_file());
BIO_read_filename(bp, Pchar(fn));
x := X509_new;
x509 := PEM_read_bio_X509(bp, x, nil, nil);
bn := ASN1_INTEGER_to_BN(X509_get_serialNumber(x509), nil);
BN_bn2bin(bn, @num[0]);
BN_free(bn);
X509_free(x509);
BIO_free(bp);
Result := num;
EVP_cleanup;
end;

Espero que te sirba, la gran diferencia es que Delphi 2010 usa Unicode en los carcteres, entonces el Char ya no es de 1 byte, ahora es de 2.

pregunta sobre el resultado devuelto
 

Muchas gracias Morrismx, observe bien la función que posteaste también tuve que hacer el mismo typecast a PChar al llamar BIO_read_filename y ya corre el programa, pero veo que el error que me marca ahora no es por eso, sino por el resultado que me da la función.

Una pregunta, usaste el XML DATA BIND del delphi para manejar tu xml??

porque el error que me marca ahora es cuando intento asignarle el resultado de la función a mi atributo NoCertificado en el xml:

Código Delphi [-]
CFD.NoCertificado := GetNoCertificado('aaa010101aaa_CSD_01.cer.pem');

EOleException : 'se encontró un carácter no válido en el contenido del texto'

Es decir, le hiciste algo al resultado antes de pasárselo a NoCertificado?

algo como:

Código Delphi [-]
CFD.NoCertificado := BinaryToStr(GetNoCertificado('aaa010101aaa_CSD_01.cer.pem'));

Muchas gracias.

Certificado
 

Hola,

No le doy ningun tratamiento especial, la funcion regresa un String y en mi caso uso ese string y lo meto a la base de datos y archivo XML

Código Delphi [-]
procedure TFrmFacturacion.Button1Click(Sender: TObject);
var
NoCertificado:String;
begin
NoCertificado:=GetNoCertificado(ExtractFilePath(Application.ExeName)+'aaa010101aaa_CSD_01.cer.pem');
Label1.Caption:=NoCertificado;
end;

Saludos
Morris

Regreso misterioso
 

Híjole, a mí me regresa:
〱〰㈱〰〰〰〰㈰㔲㜱䓻@篖@텐·V

Entonces creo que estará perdiendo el apuntador de la cadena de regreso o algo por el estilo... o será la versión del libeay32.dll???

Edgar, asegurate de hacer los cambios a la funcion

Código Delphi [-]
function GetNoCertificado(const AFileName: string): string;
var
bp: pBIO;
fn: PAnsiChar;
x: pX509;
x509: pX509;
bn: pBIGNUM;
num: array [0..19] of AnsiChar;  <<==== Este es el cambio
begin
InitOpenSSL;
fn := PAnsiChar(ansistring(AFileName));
bp := BIO_new(BIO_s_file());
BIO_read_filename(bp, Pchar(fn));
x := X509_new;
x509 := PEM_read_bio_X509(bp, x, nil, nil);
bn := ASN1_INTEGER_to_BN(X509_get_serialNumber(x509), nil);
BN_bn2bin(bn, @num[0]);
BN_free(bn);
X509_free(x509);
BIO_free(bp);
Result := num;
EVP_cleanup;
end;

el resto de la funcion no cambia, solo reemplza Char por AnsiChar y listo

dejame saber si te funciona

saludos
Morris

Liiissto!
 

CLARO!!!!!! Aaaaarg qué coraje!!!! qué ciego estaba!

Ya está!

Chihuahua! Un día entero buscando la solución y en mis narices estuvo todo el tiempo! jajajaja, a veces eso pasa verdad?...

MUCHISISISISÍSIMAS GRACIAS MORRIS!!!!

Eso era.

Gracias y Saludos!!!!!

Wooot!!!
 

Me da gusto que ya te funcionó!

Saludos
Morris

A lo que sigue
 

Pues nuevamente gracias Morris, ya funcionó lo que no me funcionaba y ahora a lo que sigue.

Cuando andaba buscando posibles soluciones para mi problema llegué a una página en la que podían sacar el periodo de validez del certificado (nomás que ahorita volviendo a buscar no la puedo hallar :( )

También encontré, como muchos, en la página de La Corona (gracias a fortiz) la descripción de un comando openssl que te muestra las fechas de inicio y fin del certificado:
http_//www_lacorona_com_mx/fortiz/sat/firma.htm

y el comando es:
y regresa los limites de validez del certificado.

Ahora pregunto, ¿No nos sirve esto para poder validar nuestros certificados?

Validar Certificado
 

Edgar,

Si te sirve para validar el certificado y no hacer facturas si este esta vencido. Por otra parte a mi no me gusta ejecutar un archivo .bat con la instrucción de OpenSSL ya que ademas de presentar problemas de permisos en Vista y Windows 7, no es muy *Elegante*. Aqui les comparto la funcion que uso, espero les sirva.

Primero declaras

Código Delphi [-]
 type
  TCertInfo=Record
  Issuer:String;
  Subject:String;
  NotBefore:TDateTime;
  NotAfter:TDateTime;
  ISExpired:Boolean;
  IsTrusted:Boolean;
end;

la funcion es:

Código Delphi [-]
function GetCertInfio(const AFileName:String):TCertInfo;
var
  bp:   pBIO;
  fn:   PAnsiChar;
  x:    pX509;
  x509: pX509;
  Cert:TX509Certificate;
begin
  InitOpenSSL;
  Cert:=TX509Certificate.Create;
  try
   fn := PAnsiChar(ansistring(AFileName));
   bp := BIO_new(BIO_s_file());
   BIO_read_filename(bp, Pchar(fn));
   x    := X509_new;
   x509 := PEM_read_bio_X509(bp, x, nil, nil);
   Cert.fCertificate:=x;
   Result.NotBefore:=Cert.NotBefore;
   Result.Issuer:=Cert.Issuer;
   Result.Subject:=Cert.Subject;
   Result.NotBefore:=Cert.NotBefore;
   Result.NotAfter:=Cert.NotAfter;
   Result.ISExpired:=Cert.IsExpired;
   Result.IsTrusted:=Cert.IsExpired;
   X509_free(x509);
  finally
   Cert.Free;  
   EVP_cleanup;
  end;
end;

y la llamas:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
CertInfo:TCertInfo;
begin
 CertInfo:=GetCertInfio(ExtractFilePath(Application.ExeName)+'aaa010101aaa_CSD_01.cer.pem');
 ListBox1.Items.Add(CertInfo.Issuer);
 ListBox1.Items.Add(CertInfo.Subject);
 ListBox1.Items.Add(DateTimeToStr(CertInfo.NotBefore));
 ListBox1.Items.Add(DateTimeToStr(CertInfo.NotAfter));
 ListBox1.Items.Add(BoolToStr(CertInfo.ISExpired,True));
 ListBox1.Items.Add(BoolToStr(CertInfo.IsTrusted,true));
end;

y veras que obtienes mucha mas información que solo las fechas de inicio/vencimiento

espero que les sirva

Saludos
Morris

Excelente!
 

Morris, Excelente! algo así había encontrado.

Oye, pero continuando con las molestias, lo estoy implementando y veo que el tipo TX509Certificate está en OpenSSLUtils.pas, verdad? yo bajé la unidad de la http://www.disi.unige.it/person/Ferr...delphiopenssl/, es la versión 0.5, 2010-10-23. Y de entrada le tuve que cambiar en la declaración de la clase el fCertificate: pX509; lo tuve de des-privatizar, jejeje, pero luego me empezó a dar problemas otra vez con los tipos creo yo en la función TX509Certificate.getTime(asn1_time: pASN1_TIME): TDateTime;

A tí también te dió todos estos problemas el delphi 2010? o tienes otra versión?

Gracias

Localizando el error
 

Hola Morris, oye, ando modificando OpenSSLUtils.pas y como te comentaba, al principio me marcaba el error en TX509Certificate.getTime(asn1_time: pASN1_TIME): TDateTime; así que me puse a cambiar los tipos Char a AnsiChar

Pero ahora me está marcando el error en el procedure donde lo llamo (que es el procedure que posteaste) en la asignación del certificado:

Código Delphi [-]
function GetCertInfio(const AFileName:String):TCertInfo;
var
  bp:   pBIO;
  fn:   PAnsiChar;
  x:    pX509;
  x509: pX509;
  Cert:TX509Certificate;
begin
  InitOpenSSL;
  Cert:=TX509Certificate.Create;
  try
   fn := PAnsiChar(ansistring(AFileName));
   bp := BIO_new(BIO_s_file());
   BIO_read_filename(bp, Pchar(fn));
   x    := X509_new;
   x509 := PEM_read_bio_X509(bp, x, nil, nil);
   Cert.fCertificate:=x; <-----------------AQUÍ EL ERROR
   Result.NotBefore:=Cert.NotBefore;
   Result.Issuer:=Cert.Issuer;
   Result.Subject:=Cert.Subject;
   Result.NotBefore:=Cert.NotBefore;
   Result.NotAfter:=Cert.NotAfter;
   Result.ISExpired:=Cert.IsExpired;
   Result.IsTrusted:=Cert.IsExpired;
   X509_free(x509);
  finally
   Cert.Free;  
   EVP_cleanup;
  end;
end;

Habré echado todo a perder?...

Saludos.

busco, busco, busco...
 

ok, después de mover varias cosas en OpenSSLUtils.pas, la clase TX509Certificate me quedó así, primero re-privatizé fCertificate, osea, la dejé como estaba :

Código Delphi [-]
TX509Certificate = class
  private
    fCertificate: pX509;
    function getDN(pDn: pX509_NAME): String;
    function getTime(asn1_time: pASN1_TIME): TDateTime;
    ...

con fCertificate re-privatizada, añadí a la clase:

Código Delphi [-]
  public
    procedure assignCertificate(certificate : pX509);

que solamente asigna el apuntador:

Código Delphi [-]
procedure TX509Certificate.assignCertificate(certificate: pX509);
begin
  fCertificate := certificate;
end;

eso y los cambios de Char a AnsiChar fueron algunas de las cosas le hice a OpenSSLUtils.pas, luego en mi programa, la función quedó:

Código Delphi [-]
function GetCertInfo(const AFileName:String) : CertificadoX509;
var
  bp:   pBIO;
  fn:   PAnsiChar;
  x:    pX509;
  x509: pX509;
  Cert: TX509Certificate;
begin
  InitOpenSSL;
  Cert := TX509Certificate.Create;
  try
    fn := PAnsiChar(AnsiString(AFileName));
    bp := BIO_new(BIO_s_file());
    BIO_read_filename(bp, PChar(fn));
    x    := X509_new;
    x509 := PEM_read_bio_X509(bp, x, nil, nil);
    //Result.NotBefore:=getTime(X509_get_notBefore(x509));
    Cert.assignCertificate(@x);
    //Cert.fCertificate:=x;
    //Result.NotBefore:=Cert.NotBefore;
    Result.Issuer:=Cert.Issuer;
    //Result.Subject:=Cert.Subject;
    //Result.NotBefore:=Cert.NotBefore;
    //Result.NotAfter:=Cert.NotAfter;
    //Result.ISExpired:=Cert.IsExpired;
    //Result.IsTrusted:=Cert.IsExpired;
    X509_free(x509);
  finally
    BIO_free(bp);
    Cert.Free;
    EVP_cleanup;
  end;
end;

Aquí, como pueden ver, solo puedo acceder a Cert.Issuer, si descomento cualquier otra, me marca Access violation.

Creo que no estoy pudiendo asignar bien el apuntador al fCertificate.

Por cierto, usando uno de los certificados de ejemplo que te da el SAT me devolvió:
NO X509_NAME

Seguiré moviendole a ver si me sale

Saludos

Cambios OpenSSL
 

Edgar,

me parece que si le hice cambios al unit OpenSSL, te la mando para que hagas tus pruebas, esta es la que yo estoy usando en Delphi 2010

Saludos

Muchas Gracias!
 

Morris, de nueva cuenta muchas gracias, estoy bajando la unidad para hacer las pruebas necesarias, y te aviso los resultados.

Gracias!

No puede seeeeer....
 

Morris!, qué crees? no funciona!

Ya probé el OpenSSLUtils.pas que posteaste y nada! me sigue dando el error al asignar fCertificate y cuando le pongo @, osea Cert.fCeretificate:=@x; ya corre pero me marca Access violation in module libeay32.dll

Y luego, para empeorarla más, lo corrí en delphi 2006 y sí funciona!!!!

Qué será?

Lo tendré que pasar todo a delphi 2006???

No debe ser, no crees? se debe de poder en 2010!!!

Voy a postear el código que use para probar si funcionaba esto, es una forma con un botón y un listbox, y le pegué las funciones que pusiste en tu primer ejemplo.
Oye, si no es mucha molestia, te importaría probar el proyectito a ver si contigo sí jala? para saber si es mi configuración o qué, sale?

Muchas gracias.