Factura Electronica México

[Willo]

Hola a todos....

he estado leyendo todos los mensajes del hilo y ya me perdi, aun no entro a las danzas esas de la facturacion electronica, pero tengo en puerta un problema sino igual, muy muy parecido...

tengo una empresa que por ley debe presentar declaraciones de IDE, en formato XML, encriptadas y firmadas digitalmente.

el SAT tambien proporciona un certificado y una llave para ello, y aunque finalmente pude generar los archivos XML, no entiendo muy bien como debo proceder para encriptarlos (con el estandar PKCS7 ) y firmarlos digitalmente.

alguien podra proporcionarme una guia de como lograr esto?

gracias de antemano

[dado]

Empezado por Willo

Hola a todos....

he estado leyendo todos los mensajes del hilo y ya me perdi, aun no entro a las danzas esas de la facturacion electronica, pero tengo en puerta un problema sino igual, muy muy parecido...

tengo una empresa que por ley debe presentar declaraciones de IDE, en formato XML, encriptadas y firmadas digitalmente.

el SAT tambien proporciona un certificado y una llave para ello, y aunque finalmente pude generar los archivos XML, no entiendo muy bien como debo proceder para encriptarlos (con el estandar PKCS7 ) y firmarlos digitalmente.

alguien podra proporcionarme una guia de como lograr esto?

gracias de antemano

Hola, estuve investigando tu problema, vi en la pagina del SAT la forma en que deberia hacerse dicha declaracion y te puedo confirmar con certeza que la factura electronica NO ES igual a lo que necesitas.

Veras, la Factura Electronica maneja un certificado PKCS8 y genera una cadena original para firmarla.

Tu declaracion usa PKCS7 y NO requiere de cadena original. Claro que debe haber algunas similitudes pero definitivamente no aplican las mismas rutinas

[JXJ]

y como se genera el archivo .pem

a mi me pide contraseña o me da error.
pkcs8 -inform DER -in AAA010101AAA_0408021316S.key -out AAA010101AAA.key.pem


o mejor aun usando delphi, ¿como se hace?

[Mosis2k2]

Empezado por JXJ

y como se genera el archivo .pem

a mi me pide contraseña o me da error.
pkcs8 -inform DER -in AAA010101AAA_0408021316S.key -out AAA010101AAA.key.pem


o mejor aun usando delphi, ¿como se hace?

te paso el codigo que yo utilice para convertir el archivo a .pem.

//---------------------------------------------------------
procedure TfrmEmpresa.KeyToPem;
var
  BatFile: TStringList;
  LlaveDerToPEM, OutFile, BatFileName: string;
begin
  //Convertimos el CERTIFICADO de formato DER a formato PEM con la siguiente instrucción de OpenSSL
  OutFile:= FolderFilesPEM + ExtractFileName(txtPrivateKey.Text)+'.pem';
  LlaveDerToPEM := 'C:\MiFactura\Bin\openssl pkcs8 -inform DER -in '+ txtPrivateKey.Text  +' -out ' + OutFile;
  //Creamos el archivo .Bat
  BatFileName:= 'C:\MiFactura\Bin\'+LlaveBat;
  BatFile:= TStringList.Create;
  BatFile.Add(LlaveDerToPEM);
  BatFile.SaveToFile(BatFileName);
  try
    WinExecAndWait32(BatFileName,1);
  except
    on E : Exception do
      ShowMessage(E.ClassName+' Se provoco la excepción : '+E.Message);
  end;
  if FileExists(OutFile) then begin
    if LengthFile(OutFile) = 0 then
      MessageDlg('Verifique que la contraseña sea correcta e intentelo nuevamente.', mtError, [mbOk], 0);
  end;
  PrivateKeyPemFile:= OutFile;
end;
//---------------------------------------------------------

Saludos.

[dado]

te paso el codigo que yo utilice para convertir el archivo a .pem.

Código:
//---------------------------------------------------------procedure TfrmEmpresa.KeyToPem;var BatFile: TStringList; LlaveDerToPEM, OutFile, BatFileName: string;begin //Convertimos el CERTIFICADO de formato DER a formato PEM con la siguiente instrucción de OpenSSL OutFile:= FolderFilesPEM + ExtractFileName(txtPrivateKey.Text)+'.pem'; LlaveDerToPEM := 'C:\MiFactura\Bin\openssl pkcs8 -inform DER -in '+ txtPrivateKey.Text +' -out ' + OutFile; //Creamos el archivo .Bat BatFileName:= 'C:\MiFactura\Bin\'+LlaveBat; BatFile:= TStringList.Create; BatFile.Add(LlaveDerToPEM); BatFile.SaveToFile(BatFileName); try WinExecAndWait32(BatFileName,1); except on E : Exception do ShowMessage(E.ClassName+' Se provoco la excepción : '+E.Message); end; if FileExists(OutFile) then begin if LengthFile(OutFile) = 0 then MessageDlg('Verifique que la contraseña sea correcta e intentelo nuevamente.', mtError, [mbOk], 0); end; PrivateKeyPemFile:= OutFile;end;//---------------------------------------------------------
Saludos.

No he probado esta rutina aunque parece muy buena, ahora, si me permites dos consejos :

1. Enmarca los nombre de archivo con comilla doble, eso te permite usar directorios con nombres largos y espacios entre ellos
2. usa la opcion -passin para pasarle la clave y que no te la pida en la ventana de MSDOS

Es decir, te recomiendo que agregues:

Código Delphi [-]
clave := InputBox('SE REQUIERE LA CLAVE','Introduzca su Clave Privada del Certificado','');
...
...
LlaveDerToPEM := 'C:\MiFactura\Bin\openssl pkcs8 -inform DER -in "'+ txtPrivateKey.Text  +'" -passin pass:' + clave + ' -out "' + OutFile +'"';
  //Creamos el archivo .Bat << nota las comillas doble " que se agregaron

//De esta forma txtPrivateKey.Text puede ser = 'c:\archivos de programa\mis documentos\es decir\nombres largos y con espacios\privatekey.key'