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
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
If you want to obfuscate it farther, run whatever you can/want through encryptions, combine different parts of MD5 hashes, etc.