Imports System.Security.Cryptography Public Class L2User Friend Shared Function Encode(ByVal value As String) As String Dim sha As SHA1 = New SHA1Managed() Return Convert.ToBase64String(sha.ComputeHash(System.Text.Encoding.UTF8.GetBytes(value))) End Function End Class
Last edited by tiagohumbs on Sat Dec 19, 2009 4:48 am, edited 1 time in total.