Imports System.Web.Security
 Private HashingAlgorithmName As String = "SHA1"
    Private Sub KeyGenerator()
        Dim strkey As String = FormsAuthentication.HashPasswordForStoringInConfigFile(Me.TextBox4.Text, HashingAlgorithmName)
        Me.TextBox18.Text = strkey.Substring(0, 7)
    End Sub