?? 登錄1.vb
字號(hào):
?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("密碼有誤,請(qǐng)重新輸入!")
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -