V.B 6.0: Find The Number.. VB Program Code

Place TextBox, Label, Timer and a CommandButton on a form. Set the Timer1 Interval property to 100, Change the caption of Label1 as (blank) " " and change the Command1 caption property as Get password. Following vb code is used to finding the password. Ex: password is 103

   Dim password As Integer
    Dim crackpass As Integer

    Private Sub Command1_Click()
    Timer1.Enabled = True
    End Sub

    Private Sub Form_Load()
    password = 103
    End Sub

    Private Sub Timer1_Timer()
    Randomize Timer
    crackpass = Int(Rnd * 100) + 100
    If crackpass = password Then
    Timer1.Enabled = False
    Text1.Text = crackpass
    Label1.Visible = True
    Label1.Caption = "Password Cracked!Login Successful!"
    Else
    Text1.Text = crackpass
    Label1.Visible = True
    Label1.Caption = "Please wait..."
    End If
    End Sub