Visual Basic - creador de contraseñas

sabeis de algun programa (o como hacerlo) que deje elegir el algoritmo en el que se crerá una contraseña para un dato que se introduzca??

ejemplo: 1234 -> ueiiskd8a3ks

algoritmo:
---------
1: uei
2: isk
3: d8a
4: 3ks
5: id9
...


se que es algo raro y mal explicado, pero necesito algo asi

MUCHAS GRACIAS:

Tengo algo parecido Raul. Mi e-mail es [email protected]

Saludos

dim N as interger,clave as string
N=len(text1)
clave=""
For M= 1 to N
select case mid(text1,m,1)
case 1
clave=clave+"asdas"
case 2
clave=clave+"fhhfgh"

.......

next

Puede ser algo asi, depuralo

Hola Vicente, te he enviado un correo ;) gracias!!