Imports System.Web.Security
Public Class CreateHashValue
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents RBL As System.Web.UI.WebControls.RadioButtonList
    Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnGetHash As System.Web.UI.WebControls.Button
    Protected WithEvents lblHashValue As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btnGetHash_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetHash.Click
        Dim strHash, strFormat As String
        strFormat = RBL.SelectedItem.ToString
        strHash = _
            FormsAuthentication.HashPasswordForStoringInConfigFile _
            (txtPassword.Text, strFormat)
        lblHashValue.Text = strHash
    End Sub
End Class