FormsAuthentication.HashPasswordForStoringInConfigFile(PWDandSalt, "SHA1")
Private Shared DES As New TripleDESCryptoServiceProvider
Private Shared RNG As New RNGCryptoServiceProvider
Public Shared Function GenerateHash(ByVal Password As String, ByVal Salt As String) As String
'--Salt+Pwd
Dim PWDandSalt As String = String.Concat(Salt, Password)
'--Create Byte() from Salt+Pwd
Dim Enc As New System.Text.ASCIIEncoding
'--Create SHA256
Dim SHA As New SHA256Managed
Dim Hash = SHA.ComputeHash(Enc.GetBytes(PWDandSalt))
'--Return String
Dim HashString = Enc.GetString(Hash)
Return TextTools.Base64Encode(HashString)
End Function