Ver Mensaje Individual
  #254 (permalink)  
Antiguo 27/10/2010, 08:30
ikari84
 
Fecha de Ingreso: septiembre-2010
Ubicación: Chetumal
Mensajes: 7
Antigüedad: 14 años, 3 meses
Puntos: 1
Respuesta: Duda

Cita:
Iniciado por antoniooo Ver Mensaje
Disculpa, soy nuevo en el foro y estoy tratando de hacer lo de facturacion electronica, hago como dices para generar el sello en vb.net con el shell pero no me genera nada, estaba leyendo lo de Markx, Matias y de Vero que lo hacian en .net pero tampoco entendi, no sabes cual pudiera ser mi error, en linea de comandos si funciona. No se si me explique bien si alguien me pudiera dar un ejemplo en vb.net o en lo que sea tratare de entender. Gracias.

Mi codigo va asi
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim cadenaoriginal As String = "||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|| "
Label1.Text = cadenaoriginal
System.IO.File.WriteAllText("C:\fepruebas\cadena.t xt", cadenaoriginal)
Dim CadenaUTF8 As Byte()
Dim tmpHash() As Byte
Dim Digestion As String
'convierte en UTF8
CadenaUTF8 = System.Text.Encoding.UTF8.GetBytes(cadenaoriginal)
'crea el hash
tmpHash = New MD5CryptoServiceProvider().ComputeHash(CadenaUTF8)
' lo pasa a una variable string mediante la funcion ByteArrayToString
Digestion = ByteArrayToString(tmpHash)
System.IO.File.WriteAllText("C:\fepruebas\MD5.txt" , Digestion, Encoding.UTF8)
Shell("C:\OpenSSL-Win32\bin\openssl.exe pkcs8 -inform DER -in C:\fepruebas\aaa010101aaa_csd_01.key -passin pass:a0123456789 -out C:\fepruebas\aaa010101aaa_csd_01.key.pem")
Shell("c:\OpenSSL-Win32\bin\openssl dgst -sign c:\fepruebas\aaa010101aaa_CSD_01.key.pem c:\fepruebas\md5.txt | c:\OpenSSL-Win32\bin\openssl enc -base64 -A > c:\fepruebas\sello.txt")
End Sub

Checa mi post ahi explico como hacerlo con el openssl :D [URL="http://www.forosdelweb.com/f29/factura-electroncia-sat-mexico-806167/index7.html#post3572492"]Ir al post[/URL]