Dim Password As Long
Private Sub CmdAccedi_Click()
MsgBox "La password è: " & txtNumero.Text & _
vbCr & "Grazie per avere usato software creati da Kr1pto"
End Sub
Private Sub CmdEsci_Click()
If MsgBox("Sei sicuro di voler uscire?", vbYesNo) = vbYes Then
End
End If
End Sub
Private Sub CmdFerma_Click()
Timer1.Enabled = False
CmdFerma.Enabled = False
CmdEsci.Enabled = True
CmdTrova.Enabled = True
txtUsername.Enabled = True
txtPassword.Enabled = True
txtNumero.Text = "0"
Text1.Locked = False
txtNumero.Locked = False
Timer3.Enabled = True
Label4.Caption = "Attacco interrotto."
End Sub
Private Sub CmdTrova_Click()
Label4.Caption = "Attacco in corso..."
Label6.Caption = ""
Timer2.Enabled = False
Timer1.Enabled = True
CmdFerma.Enabled = True
CmdTrova.Enabled = False
txtUsername.Enabled = False
txtPassword.Enabled = False
txtNumero.Locked = True
Timer3.Enabled = False
Text1.Locked = True
End Sub
Private Sub Timer1_Timer()
Password = txtNumero.Text
txtNumero.Text = Password + 1
If txtNumero.Text = txtPassword.Text Then
Label4.Caption = "Password Trovata."
Label6.Caption = "La password è " & txtNumero.Text & "."
CmdTrova.Caption = "Riprova"
CmdTrova.Enabled = True
Timer1.Enabled = False
CmdFerma.Enabled = False
txtUsername.Enabled = True
txtPassword.Enabled = True
Text1.Locked = False
Timer3.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
If txtPassword.Text <> "" And txtUsername.Text <> "" And Text1.Text <> "" Then
CmdTrova.Enabled = True
Else
CmdTrova.Enabled = False
End If
End Sub
Private Sub Timer3_Timer()
If Text1.Text = "*" Then
txtNumero.Text = 0
txtNumero.Text = "0"
End If
If Text1.Text = "**" Then
txtNumero.Text = 9
txtNumero.Text = "9"
End If
If Text1.Text = "***" Then
txtNumero.Text = 99
txtNumero.Text = "99"
End If
If Text1.Text = "****" Then
txtNumero.Text = 999
txtNumero.Text = "999"
End If
If Text1.Text = "*****" Then
txtNumero.Text = 9999
txtNumero.Text = "9999"
End If
If Text1.Text = "******" Then
txtNumero.Text = 99999
txtNumero.Text = "99999"
End If
If Text1.Text = "*******" Then
txtNumero.Text = 999999
txtNumero.Text = "999999"
End If
If Text1.Text = "********" Then
txtNumero.Text = 9999999
txtNumero.Text = "9999999"
End If
If Text1.Text = "*********" Then
txtNumero.Text = 99999999
txtNumero.Text = "99999999"
End If
End Sub
Private Sub txtPassword_Change()
If Not (IsNumeric(txtPassword.Text)) Then
txtPassword.Text = ""
MsgBox "La password può essere composta solo da numeri."
End If
End Sub