Dim pass As String, char As String, psw As String, l As Integer, j As Integer, i As Integer
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Cmdaccedi_Click()
MsgBox "By Albertking82!!!", vbInformation, "Creatore"
Cmdaccedi.Enabled = False
End Sub
Private Sub Cmdok_Click()
If Text2.Text <> "" Then
Call Form_Load
Timer1.Enabled = True
End If
End Sub
Private Sub cmdstop_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
psw = ""
j = 1
i = 300
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "By Albertking82!!!", vbInformation, "Creatore"
End Sub
Private Sub Timer1_Timer()
l = Len(Text2.Text)
Cmdaccedi.Enabled = False
Randomize
char = Chr((Rnd * 221) + 32)
pass = Text2.Text
Text1.Text = psw & char
If char = Mid(pass, j, 1) Then
j = j + 1
i = i + 200
psw = psw & char
Call Beep(i, 100)
End If
If psw = pass Then
Cmdaccedi.Enabled = True
Timer1.Enabled = False
End If
End Sub