Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-04-2008
pcicom pcicom is offline
Miembro
 
Registrado: may 2003
Ubicación: MONTERREY MEXICO
Posts: 248
Poder: 15
pcicom Va por buen camino
Mexico - Como crear sellos en FACTURA ELECTRONICA..

Saludos a todos..

He iniciado un proyecto nuevo en el cual requiero crear FACTURA-ELECTRONICA, creando el sello-digital de la FACTURA solo que no he encontrado la forma en como hacerlo, si alguien tiene conocimiento
del tema ya que no he encontrado nada para DELPHI..

Esta Factura Electronica es del SAT de Mexico..

El procedimiento se describe de la siguiente forma..
1. Obtener la cadena original

2.- De la cadena original obtener la digestión MD5

3.- A la digestión MD5 de la cadena original encriptarla usando la llave WEP

4.- Al resultado binario de la encripcion de la digestión MD5 de la cadena original convertirla a base64 hexadecimal para que pueda ser legible.

CADENA ORIGINAL
Código:
||A|1|2005-09-02T16:30:00|1|ISP900909Q88|Industrias del Sur Poniente, S.A. de C.V.|Alvaro Obregón|37|3|Col. Roma Norte|México|Cuauhtémoc|Distrito Federal|México|06700|Pino Suarez|23|Centro|Monterrey|Monterrey|Nuevo Léon|México|95460|CAUR390312S87|Rosa María Calderón Uriegas|Topochico|52|Jardines del Valle|Monterrey|Monterrey|Nuevo León|México|95465|10|Caja|Vasos decorados|20|200|1|pieza|Charola metálica|150|150|IVA|52.5||
OBTENER la DIGESTION MD5 <--- Este es el Resultado
Código:
8aa2b617944427353697e694a2e35a07

SELLO DIGITAL <-- Esto es lo que quiero obtener..
Código:
iYyIk1MtEPzTxY3h57kYJnEXNae9lvLMgAq3jGMePsDtEOF6XLWbrV2GL/2
TX00vP2+YsPN+5UmyRdzMLZGEfESiNQF9fotNbtA487dWnCf5pUu0ikV
pgHvpY7YoA4lB1D/JWc+zntkgW+Ig49WnlKyXi0LOlBOVuxckDb7EAx4=

Para mas Info en este Link

http://www.sat.gob.mx/sitio_internet...s/15_6522.htmlGracias...
__________________
Poco ha de saber el que no pregunta.. Yo por eso soy un pregunton

Última edición por pcicom fecha: 15-04-2008 a las 10:57:30.
Responder Con Cita
  #2  
Antiguo 08-05-2008
Avatar de boreg
boreg boreg is offline
Miembro
 
Registrado: oct 2007
Ubicación: México, México
Posts: 76
Poder: 10
boreg Va por buen camino
Espero que esto te ayude

Hola, encontre esta informacion sobre como se calcula el MD5, en esta otra explican lo de la encriptacion RSA pues es lo que menciona el link que
proporcinas. Espero te sea de ayuda esta informacion.
Responder Con Cita
  #3  
Antiguo 19-03-2010
jourdan jourdan is offline
Miembro
 
Registrado: may 2003
Ubicación: Mexico
Posts: 125
Poder: 15
jourdan Va por buen camino
Hola a todos, alguien sabe como implementar la encriptacion RSA en delphi
Muchas gracias
Alejandro Jourdan
__________________
Alejandro Jourdan
Responder Con Cita
  #4  
Antiguo 19-03-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 27.419
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Hola, te aconsejo que inicies un nuevo tema para esta pregunta.
También puedes hacer una búsqueda por clubdelphi, se ha tratado varias veces ese asunto
Responder Con Cita
  #5  
Antiguo 19-03-2010
jourdan jourdan is offline
Miembro
 
Registrado: may 2003
Ubicación: Mexico
Posts: 125
Poder: 15
jourdan Va por buen camino
Muchas gracias
__________________
Alejandro Jourdan
Responder Con Cita
  #6  
Antiguo 27-03-2010
Dordixs Dordixs is offline
Registrado
 
Registrado: mar 2010
Ubicación: USA
Posts: 2
Poder: 0
Dordixs Va por buen camino
Mexico Como crear sellos en FACTURA ELECTRONICA

Hola Foreros me decide abrir este tema para saber como se puede crear un estadio y/o insertar, mas detalladamente me encantaria insertar el Stamford Bridge para reemplazarlo por otro que no nos guste, espero puedan ayudarme y a despejar esta duda saludos ok
Responder Con Cita
  #7  
Antiguo 27-03-2010
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 15
AzidRain Va por buen camino
Utiliza los componentes LockBox de Turbo Power, los puedes descargar aquí. Traen documentación y varios ejemplos, creo que es lo que necesitas.
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
  #8  
Antiguo 13-10-2010
alexsazu alexsazu is offline
Registrado
 
Registrado: ene 2010
Posts: 4
Poder: 0
alexsazu Va por buen camino
si necesitan informacion favor de contarse conmigo.. ya tengo hecho la factura electronica en delphi 2010
Responder Con Cita
  #9  
Antiguo 23-10-2010
macmax macmax is offline
Registrado
 
Registrado: nov 2007
Posts: 2
Poder: 0
macmax Va por buen camino
pasar la llave privada a tlockbox

hola...
estoy intentado usar el componente lockbox pero no se como ponerle la llave privada.
tengo mi cadena original pero en que formato tiene que esta la llave privada.
si alguien puede ayudarme.
Responder Con Cita
  #10  
Antiguo 09-11-2010
E=M*C^2 E=M*C^2 is offline
Miembro
 
Registrado: jun 2007
Posts: 18
Poder: 0
E=M*C^2 Va por buen camino
Componente para factura electrónica

Quiere comentarte que estoy a punto de liberar una librería de clases que te permite de forma rápida y sencilla generar un CFD y CFDI y lo lo mejor de todo, es que son totalmente gratuitas.

Si quieres leer mas del tema puedes entrar a

electronicdocument.wordpress.com
Responder Con Cita
  #11  
Antiguo 10-11-2012
Alexis De la Cr Alexis De la Cr is offline
Miembro
 
Registrado: may 2006
Ubicación: Puebla
Posts: 124
Poder: 12
Alexis De la Cr Va por buen camino
si puedieran eliminar este mensaje muchas gracias.

Última edición por Alexis De la Cr fecha: 10-11-2012 a las 16:44:48. Razón: mensaje duplicado y mal presentado
Responder Con Cita
  #12  
Antiguo 10-11-2012
Alexis De la Cr Alexis De la Cr is offline
Miembro
 
Registrado: may 2006
Ubicación: Puebla
Posts: 124
Poder: 12
Alexis De la Cr Va por buen camino
Estimados compañeros. Tengo una duda con respecto al sello digital, y aunque este tema ya esta olvidado, es el que mas se acerca a la duda que tengo

en general para obtener el sello digital, en la version 2.0 o 2.2 hay que obtener la cadena original la cual la obtengo a traves de un XSLPageProducer

mediante el siguiente codigo
Código Delphi [-]
XSLPageProducer1.XMLData := XMLDoc3;
XSLPageProducer1.FileName:='lcadenaoriginal_2_0.xslt';
cadenaoriginal := XSLPageProducer1.Content;

despues hay que eliminar todos aquellos caracteres indeseados como son el Retorno de carro, el escape, los espacios antes y despues del pipe, etc, y se codifica en UTF8 mediante el sisguiente codigo

Código Delphi [-]
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#13,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#10,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#8,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'  ','');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,' |','|');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'| ','|');
    cadenaoriginal := UTF8Encode(cadenaoriginal);

apliacamos la encriptacion md5 con la llave privada en formato pem y al resultado le aplicacmos la encriptacion base64

Código Delphi [-]
    StrPCopy(inbuf,cadenaoriginal);
    InitOpenSSL;
    key:=LoadPrivateKey(llaveprivada,'');
    EVP_SignInit(@mdctx,EVP_md5());
    EVP_SignUpdate(@mdctx,@inbuf,StrLen(inbuf));
    EVP_SignFinal(@mdctx,@outbuf,Len,key);
  EVP_MD_CTX_cleanup(@mdctx);
  EVP_PKEY_free(key);;
    FreeOpenSSL;
    result := bintobase64(@outbuf,Len);

Hasta aqui todo bien, al menos eso creo, porque en su tiempo validaba los documentos xml generados en el sat y pasaba dicha validacion. En la actualidad dicho validador del SAT me marca error de que la version 2.0 no estaba vigente en la fecha de emision del comprobante, y por mas que le he movido a las fechas no logro hacerlo funcionar.

si hay algun error y algiuen lo detecta pues le agradeceria la ayuda.

Ahora bien que pasa con el sello en la version 3.2? es exactamente el mismo tratamiento excepto que en lugar de hacer la encriptacion md5, se hace con sha1? porque asi lo he intentado y el v alidador del sat me rechaza el sello de l documento, incluso con esta herramienta el sello sale distinto

http://solucionfactible.com/sfic/cap...rramientaSello


utilizo el siguiente codigo

Código Delphi [-]

     XSLPageProducer1.XMLData := XMLDoc3;
     XSLPageProducer1.FileName:='cadenaoriginal_3_2.xslt';
    cadenaoriginal := XSLPageProducer1.Content;

    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#13,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#10,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,#8,'');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'  ','');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,' |','|');
    cadenaoriginal := AnsiReplaceStr(cadenaoriginal,'| ','|');
    cadenaoriginal := UTF8Encode(cadenaoriginal);

    StrPCopy(inbuf,cadenaoriginal);
    InitOpenSSL;
    key:=LoadPrivateKey(llaveprivada,'');
    EVP_SignInit(@mdctx,EVP_sha1());
    EVP_SignUpdate(@mdctx,@inbuf,StrLen(inbuf));
    EVP_SignFinal(@mdctx,@outbuf,Len,key);
  EVP_MD_CTX_cleanup(@mdctx);
  EVP_PKEY_free(key);;
    FreeOpenSSL;
    result := bintobase64(@outbuf,Len);


muchas gracias por su tiempo, y por su ayuda en caso de aplicar

Alexis De la Cruz
Responder Con Cita
  #13  
Antiguo 10-11-2012
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 15
AzidRain Va por buen camino
Te recomiendo que descargues los componentes de Bambucode, son código abierto y su creador personalmente lo ha estado mejorando con ayuda de muchas otras personas y también te apoya con dudas. Es 100% Delphi y trae código fuente completo así como su correspondiente demo. En 5 minutos lo echas a andar. Lo puedes descargar aquí: http://www.bambucode.com/codigoabier...ica_delphi.php No se paga nada solo se pide que si puedes aportar algo al código lo hagas. Yo las estoy utilizando y sencillamente son estupendas.

Había otro proyecto por ahí que era libre al principio pero se volvio pago hace poco además de que no te daban el código.
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Factura Electrónica aig Varios 13 10-12-2010 17:12:44
factura electronica spia Varios 2 22-02-2009 21:30:06
La pone-sellos más rápida del oeste Bicho Humor 2 04-06-2007 11:20:19
Factura electronica AUNA Aprendiz Varios 5 01-09-2005 10:44:15
Fallo Nº Factura y Linea Factura CarmaZone Tablas planas 5 26-05-2005 11:17:19


La franja horaria es GMT +2. Ahora son las 17:05:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi