Penso che si riferisca a questo:
pierotofy.it/pages/… .
Si tratta di un programma di Albertking82.
Mi sono permesso di commentare la parte principale del programma.
Private Sub Timer1_Timer()
l = Len(Text2.Text) 'Ottiene la lunghezza della password
Cmdaccedi.Enabled = False 'Disattiva il Cmdaccedi
Randomize
char = Chr((Rnd * 221) + 32) 'Randomizza un carattere
pass = Text2.Text 'Alloca nella variabile pass la password
Text1.Text = psw & char 'Scrive nella Text1 tutti i caratteri, uno per volta
If char = Mid(pass, j, 1) Then 'Se la prima lettera è uguale al carattere randomizzato...
j = j + 1 'Passa alla seconda lettere
i = i + 200 'Incrementa di cento unità la variabile i, frequenza del Beep
psw = psw & char 'Alloca nella variabile psw il contenuto della variabile stessa più la lettera appena scoperta
Call Beep(i, 100) 'Emette un beep
End If
If psw = pass Then 'Se ha scoperto l'intera password...
Cmdaccedi.Enabled = True 'Attiva il Cmdaccedi
Timer1.Enabled = False 'Disattiva il Timer1
End If
End Sub