Generating 25 character key from a password

[William]

that cant be that hard, well it can take some time. I will construct a tiny version for you:

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 Ask Verrigan, he is the perfect man for the job when it comes to these things