Visual Basic

Private Function GenerateSalt(ByVal size As Integer) As String
    ' The drop dead minumum useful salt size is 5 bytes, and
    ' a max of 12 would generate a string of 8 to 20 Base64 characters.
    size = Math.Min(Math.Max(5, size), 12)
 
    Dim rng As New RNGCryptoServiceProvider()
    Dim buffer(size) As Byte
    rng.GetBytes(buffer)
 
    Return Convert.ToBase64String(buffer)
End Function
 
Private Function GenerateSaltedPasswordHash(ByVal password As String, ByVal salt As String) As String
    ' This section is GREATLY simplified.  I normally do something MUCH more
    ' wicked to combine the password and salt, and hash it.  Of course, I'm not saying what...
    Dim saltedPassword As String = password & salt
    Dim SHA As New SHA512Managed
    Dim buffer() As Byte = Encoding.UTF8.GetBytes(saltedPassword)
 
    Return Convert.ToBase64String(SHA.ComputeHash(buffer))
End Function

boyindie wrote:

Dim data() As Byte
data = New Byte(6) {}
Dim rng As New RNGCryptoServiceProvider
rng.GetBytes(data)

Dim PSalt As String = encoder.GetString(data)

param = cmdString.Parameters.Add("?p_Password", MySqlDbType.VarChar)
param.Direction = ParameterDirection.Input
param.Value = PWhash

cmdStringS.ExecuteScalar()

boyindie wrote:

hashedBytes = shaHash.ComputeHash(encoder.GetBytes(txtPassword.Text & PSalt))
Dim PWhash As String = encoder.GetString(hashedBytes)

boyindie wrote:

I have the thing working when i don't use the salt

bala_kathir wrote:

so can anyone give me the codings to develop it.Thanks