Ver Mensaje Individual
  #9 (permalink)  
Antiguo 09/06/2010, 20:02
Oscargf
 
Fecha de Ingreso: junio-2010
Mensajes: 23
Antigüedad: 14 años
Puntos: 1
Respuesta: Factura electroncia sat mexico

Este es el codigo para crear la digestion MD5 con vb.net

Pones la cadena original en la variable "cadena" y el resultado te lo da en la variable"digestion"


Sub prueba()

Dim cadena 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||"
Dim CadenaUTF8 As Byte()
Dim tmpHash() As Byte
Dim Digestion As String

'convierte en UTF8
CadenaUTF8 = System.Text.Encoding.UTF8.GetBytes(cadena)

'crea el hash
tmpHash = New MD5CryptoServiceProvider().ComputeHash(CadenaUTF8)

' lo pasa a una variable string mediante la funcion ByteArrayToString
Digestion = ByteArrayToString(tmpHash)


End Sub

Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim i As Integer
Dim sOutput As New StringBuilder(arrInput.Length)
For i = 0 To arrInput.Length - 1
sOutput.Append(arrInput(i).ToString("x2"))
Next
Return sOutput.ToString()
End Function


Saludos
Oscar