01-03-2007, 02:57 PM
that cant be that hard, well it can take some time. I will construct a tiny version for you:
You get the idea how I would have done it
Ask Verrigan, he is the perfect man for the job when it comes to these things
Code:
Password: abc
Code:
' Get the key from the password
For i = 1 To Len(Password)
If LCase$(Mid$(Password, i, 1)) = "a" Or Mid$(Password, i, 1) = "a" Then
key = key & "a23fr"
End If
If LCase$(Mid$(Password, i, 1)) = "b" Or Mid$(Password, i, 1) = "b" Then
key = key & "blt5d"
End If
If LCase$(Mid$(Password, i, 1)) = "c" Or Mid$(Password, i, 1) = "c" Then
key = key & "cm48d"
End If
etc..
Next i
Code:
The key would be: a23frblt5dcm48d
You get the idea how I would have done it

