登录1.vb

用VB.NET开发的记事本,功能强大 用VB.NET开发的记事本,功能强大

Public Class 登录1
    Private Sub 密码_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 密码.Click
        txt_gen1.Text = coding("")
    End Sub
    Private Sub denglu_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles denglu.Click

        If txt_check1.Text = txt_gen1.Text And txt_check1.Text <> "" Then
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("密码有误，请重新输入！")
        End If
    End Sub
    Public Function coding(ByVal Input_code As String) As String
        Randomize()
        If Input_code = "" Then
            Dim temp_code As String = ""
            temp_code = temp_code & Chr(65 + CInt(Rnd() * 7))
            temp_code = temp_code & Chr(65 + CInt(Rnd() * 7))
            temp_code = temp_code & Chr(Asc(temp_code(0)) + 3)
            temp_code = temp_code & Chr(Asc(temp_code(1)) + 4)
            temp_code = temp_code & Chr(Asc(temp_code(0)) + Asc(temp_code(1)) - 63)
            temp_code = temp_code & Chr(Asc(temp_code(2)) - Asc(temp_code(3)) + Asc(temp_code(4)))
            Return temp_code
        Else
            Dim temp_code(5) As Char
            temp_code(0) = Chr(Asc(Input_code(0)) + 1)
            temp_code(1) = Chr(Asc(Input_code(1)) + 1)
            temp_code(2) = Chr(Asc(Input_code(2)) + 1)
            temp_code(3) = Chr(Asc(Input_code(3)) + 1)
            temp_code(4) = Chr(Asc(Input_code(4)) + 1)
            temp_code(5) = Chr(Asc(Input_code(5)) + 1)
            Array.Reverse(temp_code)
            Return temp_code
        End If
    End Function
    Public Function decode(ByVal s0, ByVal s1, ByVal s2, ByVal s3, ByVal s4) As Boolean
        If Asc(s0(2)) = Asc(s0(0)) + 3 And Asc(s0(3)) = Asc(s0(1)) + 4 And _
            Asc(s0(4)) = Asc(s0(0)) + Asc(s0(1)) - 63 And _
            Asc(s0(5)) = Asc(s0(2)) - Asc(s0(3)) + Asc(s0(4)) Then

            If s0 = decoding(s1) And s1 = decoding(s2) And _
            s2 = decoding(s3) And s3 = decoding(s4) Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If

    End Function

    Public Function decoding(ByVal Input_code As String) As String
        Dim temp_code(5) As Char
        temp_code(0) = Chr(Asc(Input_code(0)) - 1)
        temp_code(1) = Chr(Asc(Input_code(1)) - 1)
        temp_code(2) = Chr(Asc(Input_code(2)) - 1)
        temp_code(3) = Chr(Asc(Input_code(3)) - 1)
        temp_code(4) = Chr(Asc(Input_code(4)) - 1)
        temp_code(5) = Chr(Asc(Input_code(5)) - 1)
        Array.Reverse(temp_code)
        Return temp_code
    End Function
End Class