Encriptar en visual basic

Puedes ayudarme necesito encriptar por sustitución de letras en visual basic
a=g
b=h
c=i, etc.. Creo que tengo que utilizar varios ciclos for... Puedes explicarme como lo hago..
1

1 Respuesta

83.000 pts. Reparación electronica ,electricidad ,automoviles y...
Si solo se trata de una substitución
Puedes utilizar un "select case"
(="en caso que...")
Public Function encriptar(a as string)as string
Dim b as string
Select case a
case "a"
b="g"
case "b"
b="h"
case "c"
b="i"
case else
msgbox "error de select en funcion encriptar"
b=""
End select
encriptar=b
End Function
=============================================
resultado y ejemplo para usar la funcion:
=============================================
Private Sub PruebaEncriptar()
Dim d as string
Dim e as string
d=inputbox ("introduce una letra")
'...aqui llamamos a la funcion encriptar...
e= encriptar d
msgbox d & "encriptada es " & e
End Sub
=============================================
Para encriptar una cadena de texto (o palabra)
Puedes usar la función LEN() y MID() con todo lo anterior.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas