form1.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 41 行

Imports Microsoft.Practices.Mobile.PasswordAuthentication

Public Class Form1

    Private isValid As Boolean = False

    Private Sub buttonShowToken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonShowToken.Click
        If (isValid) Then
            Using provider As RsaAesCryptographyProvider = New RsaAesCryptographyProvider("MobileDevelopersHandbook")
                Dim identity As PasswordIdentity = New PasswordIdentity(textBoxUsername.Text, textBoxPassword.Text, provider)
                Dim token As AuthenticationToken = New AuthenticationToken(identity)
                textBoxToken.Text = token.TokenData
            End Using

        End If
    End Sub

    Private Sub textBoxPassword_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles textBoxPassword.Validating
        isValid = False

        If textBoxPassword.Text.Length < 6 Then
            Me.ErrorProvider1.SetError(Me.textBoxPassword, "The password must be numeric and at least 6 digits")
            e.Cancel = True
        Else
            Me.ErrorProvider1.Clear()
        End If

        Dim result As Integer
        If Not Int32.TryParse(Me.textBoxPassword.Text, result) Then
            Me.ErrorProvider1.SetError(Me.textBoxPassword, "The password must be numeric and at least 6 digits")
            e.Cancel = True
        Else
            Me.ErrorProvider1.Clear()
        End If
    End Sub

    Private Sub textBoxPassword_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBoxPassword.Validated
        isValid = True
    End Sub
End Class