Ver Mensaje Individual
  #3 (permalink)  
Antiguo 12/05/2010, 15:10
thebman
 
Fecha de Ingreso: mayo-2010
Mensajes: 16
Antigüedad: 13 años, 11 meses
Puntos: 5
Digestion MD5

Bueno pues en este paso aplciaremos la digestion MD5 a nuestra cadena original.

Bueno a estas alturas espero y minimo ya tengan creado su proyecto FacturaElectronica y si no pues a crearlo.

Declararemos una variable tipo String que se llamara cadena original y le pasaraemos como valor la cadena antes mencionada quedaria de la siguiente manera:

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|| "

A continuacion guardaremos la cadena en un archivo con su formato UTF-8 como lo pide SAT:

System.IO.File.WriteAllText("C:\cadena.txt", cadenaoriginal)

Una vez hecho esto generaremos la digestion MD5 para la generacion usaremos la libreria del Openssl.

Con esta instruccion crearemos un archivo llamado md5.txt con la digestion de la cadena original
C:\OpenSSL-Win32\bin\openssl.exe dgst -MD5 C:\cadena.txt > C:\md5.txt

el archivo se guardara con el valor:
MD5(C:\cadena.txt)= 8aa2b617944427353697e694a2e35a07

Última edición por thebman; 12/05/2010 a las 15:27