Facturacion Electronica SAT mexico VB6

[elfkampher]

bueno hasta aqui todo bien el problema es que cuando envio a hacienda esto me dice el validador que el sello es invalido asi que probe otra manera ya que al parecer en openssl cuando uno pone dgst pone por defaul MD5 asi que estaba ejecutando un sha1 y un md5 haciendo con esto un chile con carne bien sabroso por lo cual quite la primera digestion sha1 que mostre arriba y sustitui por el siguiente codigo


Dim gencer1, gencer2 As String
Dim per
Close #n_file
Open "H:\certificados\sello.bat" For Output As #3
Print #3, "cd \"
Print #3, "cd openssl"
Print #3, "cd bin"
gencer1 = "\OpenSSL\bin\openssl.exe dgst -sha1 -sign H:\certificados\nombre_de_su_clave_aqui.key.pem -out h:\certificados\firma.txt h:\certificados\cadena.txt"
gencer2 = "\OpenSSL\bin\openssl.exe enc -base64 -A -in h:\certificados\firma.txt -out h:\certificados\sello.txt"
Print #3, gencer1
Print #3, "cd \"
Print #3, "cd openssl"
Print #3, "cd bin"
Print #3, gencer2
MsgBox "generado codigo para el sello"
Close #3
per = Shell("H:\certificados\sello.bat", vbNormalNoFocus)
MsgBox "generando sello"
'extraiendo sello
Dim sello As String
Open "H:\certificados\sello.txt" For Input As #5
Line Input #5, sello
Close #5