How to encrypt password entered in login form using VB?

Hi, thank you for your reply, do you mean something like this?

Option Strict On
Imports System.Text
Imports System.Security.Cryptography

Public Class Form1
Function CreateSalt(MinimumLen As Integer, MaximumLength As Integer) As String
Dim StrReturn As String = String.Empty
Dim CharsToUse As String = "ACBDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmmopqrstuvwxyz0123456789,.<>/?';:[]{}`~!@#$%^&*()-_=+"
Dim GetRandom As New Random
Dim Index As Integer = 0
For Index = 1 To GetRandom.Next(MinimumLen, MaximumLength + 1)
StrReturn &= CharsToUse.Substring(GetRandom.Next(0, CharsToUse.Length), 1)
Next
Return StrReturn
End Function
Function GetSHA1Hash(ByVal Txt As String) As String
Dim sha As New SHA1Managed()
Dim ae As New ASCIIEncoding()
Dim Hash() As Byte = sha.ComputeHash(ae.GetBytes(Txt))
Dim sb As New StringBuilder(Hash.Length * 2)
Dim ndx As Integer
For ndx = 0 To Hash.Length - 1
sb.Append(Hash(ndx).ToString("X2"))
Next
Return sb.ToString
End Function

Private Sub BtnProcess_Click(sender As System.Object, e As System.EventArgs) Handles BtnProcess.Click
If NUMSaltMin.Value >= NUMSaltMax.Value Then
TXTSalt.Text = "Minimum must be at least equal to or greater than Maximum"
Exit Sub
End If
TXTSalt.Text = CreateSalt(CInt(NUMSaltMin.Value), CInt(NUMSaltMax.Value))
TXTHash.Text = GetSHA1Hash(TXTSalt.Text & txtPassword.Text)
End Sub
End Class