Imports System.Text
Imports System.Security.Cryptography
 
   Private Function StringToHash(ByVal sText As String) As String
      Dim sBytes() As Byte = Encoding.Default.GetBytes(sText)
      Dim Md5 As New MD5CryptoServiceProvider()
      Dim hBytes() As Byte = Md5.ComputeHash(sBytes)
      Dim sRet As String = Convert.ToBase64String(hBytes).ToUpper
      Return sRet.Substring(0, 6) & "-" & sRet.Substring(7, 6)
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control