AYUDA, conversion en Visul Basic

[rafapaskual]

Hola, podrias crearte un vector de dos dimensiones y poner en el primer indice los caracteres i en el subindice los valores, de esa manera de con crearte un par de funciones que te busquen los caracteres en el vector y te den el resultado tendrias bastante

Seria algo asi como

Dim Alfabeto (27,2) as variant
Dim i as integer

Alfabeto(1,0)="A"
Alfabeto(1,1)=45
Alfabeto(2,0)="B"
Alfabeto(2,1)=75
...

No se si los indices estan bien , no recuerdo si en VB empiezan en el 0 o en el 1, pero bueno, es un ejemplo de como podria ir la cosa, si dices que lo recuperarás de una BD te será mucho mas facil llenar el vector.
Y crear la cadena seria algo asi como

Dim i as integer
Dim cadena,cadencript as string
cadena="Hola"
cadencript=""
for i=0 to len(cadena)
cadencript=cadencript & fBuscarCodigo(mid(cadena,i,1))
next

fBuscarCodigo es una funcion que tendrias que hacer para buscar la equivalencia en el vector

Espero que te sirva de algo.

Saludos!