Olá pessoal, abaixo tem um codigo para descobrir a senha do banco de dados ACCESS, eu gostaria que alguém pudesse me explicar passoa a passo qual a lógica desse cod?, se possível detalhadamente, como que eles sabiam que isso iria chegar na senha? Como eles chegaram a esta conclusão?

============================================================
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String

Open "c:Banco.mdb" For Binary As #1
Open text1.text For Binary As #2
Seek #1, &H43
Seek #2, &H43
For n = 1 To 40 Step 2
   s1 = Input(1, 1)
   s2 = Input(1, 2)
   If (Asc(s1) Xor Asc(s2)) <> 0 Then
       lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
   End If
   s1 = Input(1, 1)
   s2 = Input(1, 2)
Next
Close 1
Close 2
MsgBox "A senha é...:" & lsClave

att,
Rodrigo Porto