Agradecimiento
 

Muchas gracias.

Corregido.

Muchas gracias.

Muchas Gracias felipep, quité el UTF8Encode y ya sale bien mi cadena original.

Por otro lado, me puedes indicar la sintaxis en delphi para los comandos:

openssl pkcs8 -inform DER -in AAA010101AAA_Test.key -out AAA010101AAA.key.pem
openssl x509 -inform DER -in AAA010101AAA_Test.cer -out AAA010101AAA.cer.pem

Quiero incluir la conversion a PEM en la unidad que subiste (Sello.pas) que estoy usando en mi proyecto

Nuevamente muchas gracias me has ayudado mucho.

yo ya me perdi

¡¿son diferentes la FEA. Firma Electronica Avanzada, existe ya no existe?
¿Comprobante digital.?
como n estoy dado de alta, no se como comprobar que mi factura este bien.
quiero hacer un software para hacer facturas electronicas.

sigo revisando.

La FEA y Firma electronica avanzada es lo mismo y te sirve entre otras cosas para solicitar los folios que vas a usar para elaborar tus comprobantes fiscales digitales
Saludos

siguiendo con esto encontre que

http://www.sat.gob.mx/sitio_internet...s/15_6522.html

que es eso de

Resultado de la digestión MD5 como HEX:

8aa2b617944427353697e694a2e35a07

¿como se obtiene.

ya intente pasar el ejemplo de la cadena original a md5?
y me sale


c3e1583ea29b67349fa2eb733279bb98

¿esta cadena md5 como se pasa a Hex?

En esta liga pueden encontrar la solucion completa para Delphi.

articulo.mercadolibre.com.mx/...

Contacte con el desarrollador y me dio muy buena asesoria para completar mi trabajo, se los recomiendo.

dado = UAMERO?
 

Esta pregunta es para dado.
Solo por curiosidad, no eres tu UAMERO? el que consiguio sacar toda la informacion de la factura electronica de este y otros foros, y que ahora lo estas vendiendo en mercado libre, haciendote promocion en estos mismo foros, dandote de alta como otro usuario. digo, solo por curiosidad.

Por que es curioso que:
UAMERO elimine todos los posts.
Aparece una venta en mercado libre que de antemano se que es de UAMERO.
y luego apareces tu haciendole promocion.

SOLO POR CURIOSIDAD.
saludos.

Uamero
 

No compren el código de UAMERO en Mercado Libre... No se dejen engañar.

Todo el código en Delphi para la facturación electrónica está en estos foros y de aquí lo sacó, después quitó sus posts y empezó a vender el código a un precio ridículo.

Está desvirtuando el trabajo de todos los desarrolladores que estamos trabajando en este proyecto en el país.

Sintaxis en delphi
 

Alguien sabe la sintaxis en delphi para los comandos:

openssl pkcs8 -inform DER -in AAA010101AAA_Test.key -out AAA010101AAA.key.pem
openssl x509 -inform DER -in AAA010101AAA_Test.cer -out AAA010101AAA.cer.pem

gracias.

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

Pues así, a primera vista, no parece que incumplas nada. De todas formas, te lees la Guía de estilo y Santas Pascuas. ;) :D

Y re-bienvenido, Joaquín. :D

Alguien de ustedes save para que sirve el password que proporciona el SAT junto con el Certificado y la Llave ???

Pues así, a bulto, diría que para autentificar el producto o el servicio... :rolleyes:

Así a grandes rasgos, el password te sirve para desencriptar la llave... y la llave te sirve para abrir el certificado.

Pues si, ya confirmé y si es uamero el que vende esa "solución" en mercadolibre!
Irónicamente él acusó de plagio a un forista y ahora él anda haciendo de las suyas.
Hay que reconocer que es buena puntada eso de ofrecer ese "producto" en mercadolibre... no es un producto de calidad, pero al menos hace lo que algunos necesitan.

Bueno, no seré yo quien defienda a uamero, pero, sí es su código ¿no?. No estoy muy al tanto de este hilo, pero tú mismo comentaste que él era el único que habia aportado algo útil al tema de la facturación digital. Así que supongo que puede hacer lo que quiera con él.

// Saludos

Supongo que te refieres a mí, pues no has citado mi post.

Si, es SU código. No lo he negado. Y si, él es de los pocos que han aportado algo útil.
¿Cual es el problema roman? ¿Cual es el punto?

Hey, hey, vengo en son de paz :D

A lo que me refiero es que eso de que anda haciendo de las suyas, podría interpretarse como que él ahora anda plagiando, cosa que no sería cierta si se trata de su código.

// Saludos

Creo que lo que ha molestado a nuk3zito es que uamero en lugar de disculparse y demás, lo que ha hecho es eliminar sus posts aquí, ponerlo a la venta y anunciándolo (con otro nombre) también aquí, en clubdelphi.
En el #48

Ah ok ok!!!
Jeje, ya me quité los guantes. Mira, realmente yo no apoyo el hecho que este usuario haya acusado a caral, pero si es irónico el asunto, no? El pide en su publicación de la venta que si el software se utiliza para fines comerciales, pues que cada quien agregue su nombre a los créditos, pero él seguramente (y talvez me estoy equivocando) no mencionará al clubdelphi, pero bueno, no vivimos de la fama.

Debo aclarar mi postura: NO CONSIDERO A ESTO UN PLAGIO!, de hecho tuvo buena idea aventarse así. Yo voy a hacer algo muy parecido, pero sin anunciarme en mercadolibre... es válido. Todos vivimos de esto, o me equivoco?
Ah, creo que para algunos esto es un hobbie, sorry!

Uamero le ha invertido tiempo a esto, ya sea investigando en foros o haciendo pruebas... se merece vender su trabajo.

Sí. En esto todos estamos de acuerdo. Por ello digo que no seré yo quien lo defienda :)

// Saludos

De hecho Casimiro, recuerda que te envié mensajes privados a petición de uamero... y entiendo que no ofreció disculpas, pues era el camino de regreso, y luego sale con esto otro!
Mis molestias son pocas, pero si hay molestia en eso. Simplemente en el hecho de acusar a un forista de ciertas cosas y el hacer lo mismo de lo que acusa... pero...
pero por el hecho de que él venda su trabajo... no hay de que oponerse ni molestarse, todos lo merecemos.

Bueno, allá cada uno con su conciencia :)

Si mejor... no desviemos el hilo! sorry :o

Veo que has puesto en un hilo dado=uamero y si fuese él mismo, ese nick le ha quedado como anillo al dedo.

A palo DADO ni Dios lo quita

:D :D :D

Saludos

Perdon pero no nude resistirme y he desviado el hilo (por última vez), aún tengo corajo :o

Veo que hay mucha confusion con los caracteres raros que aparecen en la cedena original.

Em MUY IMPORTANTE que la cadena original tenga esos caracteres raros, esa es la codificacion UTF8 a la que se refiere el Anexo 20, ES INDISPENSABLE sellar la cadena original con esos caracteres.

Ahora, para mostrar la cadena de forma "normal" lo que tienen que usar es por ejemplo :

Memo1.Text := UTF8Decode(CadenaOriginal);

Esto es, cuando vayan a mostrar / imprimir /grabar la cadena hay que Decodificarla

La FEA y la FIEL son lo mismo, solo le cambiaron de nombre, como cuando cambiaron la "CIE" (Clave de identificacion electronica) por la "CIEF" (clave de identificacion electronica fuerte)

No es necesario estar dado de alta para programar la factura electronica, el SAT ofrece certificados de prueba con sus respectivas llaves para que los desarrolladores puedan hacer pruebas.

Si hay un bug en la rutina del sello. Solo tienes que hacer el buffer mas grande, quedaria asi :

Código Delphi [-]
function CalculaSello(llaveprivada,cadenaoriginal: string): string;
var inbuf: array [0..8192] of char; //AQUI AUMENTAMOS EL BUFFER PARA PASAR CADENAS MAS GRANDES
 outbuf: array [0..1024] of char;
 key: pEVP_PKEY;
 mdctx: EVP_MD_CTX;
 Len: cardinal;
begin
 StrPCopy(inbuf,cadenaoriginal);
 key := ReadPrivateKey(llaveprivada);
 EVP_SignInit(@mdctx,EVP_md5());
 EVP_SignUpdate(@mdctx,@inbuf,StrLen(inbuf));
 EVP_SignFinal(@mdctx,@outbuf,Len,key);
 result := BinToBase64(@outbuf,Len);
end;

La cadena YA ESTA en hex, Hex significa que se usan solo los numeros 0 al 9 y las letras A a la F.

Si no te sale el mismo digest que el de la muestra seguramente estas cometiendo el error mas comun . LA CADENA ORIGINAL NO DEBE TENER retornos de carros, doble espacios, tabuladores, fin de archivo (EOF) etc etc etc, todos esos son caracteres invisibles que echan a perder la cadena.

Utiliza lo siguiente para tu cadena ANTES de hacer el digest MD5

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

Otra recomendacion, las soluciones que he visto (OpenSSL, Chillkat) pueden hacer en un solo paso la digestion MD5 y el sellado

Solo quisiera aclarar este dato y es que considero que tratandose de SISTEMAS DE SEGURIDAD hay que saber bien que es que.

Es correcto, la clave (de 8 digitos o mas) que uno proporciona sirve para abrir la llave privada (esto es, el archivo que tiene extension *.key).

Esta llave privada (*.key) es la que se usa para sellar cualquier documento digase factura electronica o cualquier otra cosa. Este archivo DEBEN GUARDARLO MUY BIEN, es super privado.

El Certificado (archivo con extension *.cer) SE ABRE SIN NECESIDAD DE CLAVES NI NADA, es mas, si le dan doble clic podran ver que Windows abre el certificado y les muestra mucha informacion interesante.

El CERTIFICADO ES PUBLICO, pueden darselo a quien lo solicite, lo unico que viene dentro del certificado son : fechas de vigencia, el emisor, la empresa a la que se le otorgo y la LLAVE PUBLICA.

Dentro del CERTIFICADO PUBLICO esta la LLAVE PUBLICA, esta SOLO SIRVE para verificar que la cadena origial y el sello "empaten".

Espero no haberlos hecho mas bolas.....

Que tal raza,
Se me ha pasado decirles que ya terminé parte del trabajo de la Facturación Electrónica, y digo parte porque tengo un problemita con la Addenda, sin embargo, ya llevo aprox. unos 500 cfd's generados con éxito.

Agradezco a todos los que han aportado a este hilo, pues algunas cosas me fueron muy útiles para sacar mi trabajo adelante.

Saludos.

Muchas gracias por aclarar el punto, creo que esto de la factura electrónica nos está sacando de quicio, y pensar que todo es para que el SAT nos controle mejor... pero ni modo esas son las reglas y hay que cumplir con ellas.

Aplicacion gratuita Factura Electronica SAT
 

Aplicacion gratuita Factura Electronica SAT

El SAT puso a disposicion su aplicacion gratuita para factura electronica y contabilidad en linea, SIN COSTO, por lo que es necesario poner en duda hasta que punto es necesario el trabajo que todos estan haciendo. ?



No puedo poner links, pero pueden descargar y usar la aplicacion desarrollada por el SAT buscando en google:

Microe-sat

Sinceramente y sin ofender creo que muchos estan trabajando para nada, ademas de esta aplicacion del SAT existen otras mas que son gratuitas como TRALIX MISFACTURAS.


Recomendaria que mejor se relajen y observen que pasa a partir de Enero 2011, el SAT hara publicidad total a sus sistema de facturacion electronica y sera el estandar en Facturacion Electronica en Mexico.

Mmmm... no encontré como integrarlo al ERP y tampoco encontré como capturar cuentas en el sistema contable... bueno, de hecho no encontré el sistema o módulo contable. Jeje.
Pues esa es la gran diferencia... o lo integras a tu Sitema, o contratas a alguien para que le mueva a ese otro programita diariamente.
El Microe está muy completo... pero solo sirve para lo que anuncian (no para ERP's)

Saludos

Microe-SAT
 

Entonces ¿ cres que un cliente estaria dispuesto a pagar algo adicional por sistema con factura electronica ?, ¿Pagaria lo mismo pero lo compraria porque tiene factura electronica?, ¿Optaria por la solucion del SAT? ¿Que ventajas y desventajas vez entre una solucion y otra?. Gracias.

Ah mira, bien. Si hablamos de clientes pequeños (tienditas por ejemplo), pues es muy probable que esos clientes opten por usar Microe y seguir usando su sistema de punto de venta, total, al final del día integran su factura global y tantan.
Por ejemplo en mi caso, que ante el sat soy persona física con actividad profesional, pues yo mismo opto por usar Microe, pues tiene muchas ventajas para las declaraciones que tengo que hacer; yo mismo declaro, no tengo un contador que lo haga, pero aún así, un contador lo usaría.
En el caso de empresas grandes, te aseguro que si evaluan un sistema sin los comprobantes fiscales digitales ya integrados, verán ese sistema como obsoleto. Por el contrario, los que incorporen esta funcionalidad ya llevan ventaja sobre los otros sistemas.
Bueno, de hecho no es necesario que la empresa sea grande para optar por llevar sus CFD's y contabilidad en línea, solo digo que una empresa muy pequeña puede verse en esa disyuntiva por no tener la capacidad de compra de un sistema más completo.

También podemos preguntarle a uamero, o a dado. Te aseguro que el vio esta necesidad en las empresas y está ofreciendo su solución.

Yo acabo de implementar las CFD's en una empresa, pero tengo otra en puerta que también lo están requiriendo. No lo hacen por antojo, si no que la complejidad de su sistema y sus operaciones así lo requieren.

No eches al saco roto el trabajo de los lectores de este hilo, pues realmente es útil siempre y cuando se implemente de manera correcta, claro.

Saludos.

Microe-SAT
 

Gracias por tu respuesta, me fue muy util.

Ah decir verdad, yo no sabía que ya habían sacado el Microe, pero si sabía de su existencia. Y no esperaba menos de esa aplicación... es igual de confusa que las otras que genera el sat, jeje, pero sin embargo yo si la usaré para mis declaraciones.

Saludos.