Como crear un "Cryptographic Message Syntax" en Delphi?
 

Estoy realizando un trabajo de factura electrónica sobre Delphi 7.

Una parte de la aplicacion requiere el empaquetamiento en un mensaje CMS ("Cryptographic Message Syntax" ), de un archivo XML, junto con una firma electronica utilizando SHA1+RSA.

El problema radica en que no encuentro nada de documentacion sobre como generar el CMS desde Delphi (tengo algo de java y php, pero no veo como adaptarlo a Delphi).

Si alguien puede tirar un poco de luz sobre el asunto, será de agradecer...

Saludos y Gracias!

Factura Electronica en Argentina AFIP

Hola yo todavía no lo pude hacer andar, los manuales están en
https://wswhomo.afip.gov.ar/wsfedocs/

estoy utilizando las http://openssl.org
con la unit para delphi de
http://www.devarticles.com/c/a/Delph...nt-with-Delphi
que tienen para generar el CMS que realmente se lo conoce como PKCS7

si pudiste hacer la conección contra AFIP por favor mandame un ejemplo
de los pasos

yo generé el LoginTicketRequest.xml.cms.bse64 (bien o mal, no lo sé)

con el archivo base.xml, mi_clave.key, mi_certificado.csr y el certificado.csr que me mandaron en respuesta al certificado que yo envié

pero al querer conectarme a
httpw://wsaahomo.afip.gov.ar/ws/services/LoginCms
me aparece
"The certificate authority is invalid or incorrect"

Muchas Gracias

Conexión contra la AFIP
 

Te comento que lo primero que tenes que hacer es importar el archivo AFIPcerthomo que esta en : https://wswhomo.afip.gov.ar/wsfedocs/certificados/.
Con darle doble clic ya lo importa.

Ahora tenes que tomar el archivo de certificado que te enviaron y generar un archivo .p12. Para eso usé el OpenSSL. Puse el certificado (.CRT) y la clave (.KEY) en el directorio bin y ejecute lo siguiete desde línea de comandos:

openssl pkcs12 -export -in mi_certificado.crt -inkey mi_claveprivada.key -name 'un_nombre' -out un_p12.p12

Te va a pedir una contraseña para usar después al importar.

Eso me generó el archivito .p12 (un_p12.p12)

Ahora vamos a Panel de Control >> Opciones de Internet >> Solapa 'Contenido' >> Botón Certificados

Ahí importamos el .p12. En la pantalla donde pones la contraseña fijate de tener tildado la opcion 'Marcar esta clave como exportable'.

Una vez que lo importó, hay que exportarlo. Al entrar tenes que marcar la opcion 'Exportar la clave privada'. Las demas opciones son las por defecto.
Luego te pide un nombre para el .pfx.

Listo, con esos pasos ya pude conectarme al webservice. Son los pasos que me dijeron que siga desde la AFIP cuando no pude conectarme.

Otra cosita, fijate que tu reloj debe estar sincronizado contra el de la Afip. Está en la documentación.

Saludos!

Como crear un "Cryptographic Message Syntax" en Delphi?
 

Hola, este post te va a servir

http://www.clubdelphi.com/foros/show...rvice+delphi+7

es un trabajo muy bueno

Estoy trabajando en Delphi 7 con el WebService de la AFIP para Liquidación de Tabaco Verde
Actualmente he logrado lo sgte

• generar los certificados para homologación
• descargar los wsdl del web service y el logincms, este ultimo me dio algunos problemas, no me permitía la importación directa, por lo que tuve que tomar la definición en xml, guardarla en un archivo y desde ahi importar a Delphi, estimo que no tendr[a consecuencias despues. Me llamó la atención que desde VS2015 ambos wsdl se importaron sin problemas.
• el dummy responde correctamente
• tengo el TicketLoginRequest.xml firmado, en un rato voy a saber si esta bien o no, tengo que averiguar como se lo envía a través del LoginCMS
  

Saludos!