AYUDA PARA ENCARAR APLICACIÓN! por favor

Hola,

Const ALFABETO = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const CIFRADO = "JNOPSRAQBZKMCYRE..." ' falta completar

Public Function Transformar(ByVal palabra As String, _
ByVal alfabetoEntrada As String, _
ByVal alfabetoSalida As String) As String
Dim copia As String
Dim i as Integer, n as Integer, q As Integer
Dim c As String
copia = UCase(palabra)
q = Len(copia)
For i = 1 To q
c = Mid(copia, i, 1)
n = InStr(1, alfabetoEntrada, c)
If (n > 0) Then _
c = Mid(alfabetoSalida, n, 1)
Mid(copia, i, 1) = c
Next
Transformar = copia
End Function

Para cifrar una palabra P, usarías

C = Transformar(P, ALFABETO, CIFRADO)

y para descifrarla:

P = Transformar(P, CIFRADO, ALFABETO)

Lo demás es crear un formulario y escribir el código de manejo de los
eventos...

Salud!




"Elías Burgos" escribió en el mensaje
news:
Hola! estoy incursionando en visual basic, tengo conocimientos básicos
de programación.
Necesito ayuda para encarar una aplicación que se me ocurrió para
poder practicar con este programa.
Lo que quiero hacer es:
¿Cómo puedo intercambiar letras de una palabra por otras ?

osea yo haciendo un equivalente de las letras del abecedario
asignarles otras letras entonces
ejemplo:

A = J
B = N
C = k
( así con todo el abecedario)
A partir de eso, lo que quiero hacer es introduciendo un texto con
el formato del código osea, si escribo JNK que en otro campo de texto
me aparezca ABC, como en el ejemplo.
Sería como la creación de una especie de traductor pero letra por
letra.
ejemplo si mis equivalentes son:
E = y
L= t
I = p
A = w
S = q

yo poniendo en la aplicacion YTPWQ como resultado me aparezca mi
nombre osea ELIAS y que tambien pueda hacer la operación
contraria no sé si soy claro!!

gracias de antemano y saludos!