Como hacer un tipo de cifrado en VB?

[Andre20]

Solo digo que sea algo así
a = m
b = 3
c = p

Y bueno, así seguiría el diccionario de la a-z, A-Z, símbolos y así, pienso que puede ser fácil pero no tengo ninguna base, ¿alguien me podría ayudar directamente o darme alguna base para aprender un poco?
Gracias a todos

Modifico: No sé por que no puedo usar las palabras que quiero usar y se modifican... La palabra que pondría en vez de cifrado en el título tendría que ser encripta|ción (sin el |)

[Stakewinner00]

Si quieres hacer algun tipo fácil de cifrado puedes buscar el de cesar o vigenere.

EL de cesar es avanzar un cierto numero de posiciones, ejemplo
A +3 -> D
E +3 -> H
etc y el de vigenere consiste en sumar dos mensajes.

Hace poco cree este en c++.

http://codepad.org/SqG55mTm  

pego la parte que cifra las letras con la esperanza de que te sirva de algo. En este caso el sistema para encriptarlo es un vigenere + algo de aleatoriedad + división de los elementos para desencriptarlo.

Código (cpp) [Seleccionar] Expandir

             letra = pass[ii] + num; //A la variable letra se le asigna el primer caracter de la password y se le suma un numero aleatorio (num)
            letra = letra + pass[ii]; //A la primera letra de la password se le suma otra vez la primera
    clave += letra; //Se almacena este caracter en el archivo clave
    mens = entrada.get(); //Se obtiene un caracter del archivo a cifrar
            letra = mens + num; //Al caracter se le suma un numero aleatorio
            letra = letra + pass[ii]; //Al resultado de la operacion anterior se le suma la password
            letra = letra - num2; //Al resultado anterior se le resta un numero aleatorio
            num=1+rand()%(90-1); //Genera un numero aleatorio
            mens2 += letra + num2; //Se almacena el caracter cifrado en mens2
    num2=1+rand()%(200-1); //Genera un numero aleatorio
salida << mens2; //Se guarda la letra cifrada en el archivo

[Partel]

Como dice el compañero en su contestación anterior...
Lo sencillo es CESAR, te adjunto un link donde puedes ver conceptos para comenzar..

http://es.wikipedia.org/wiki/Cifrado_C%C3%A9sar

Saludos

[MCKSys Argentina]

Te paso 2 funciones que emplean Cesar:

Código (vb) [Seleccionar] Expandir


Function Cifrar (cad as string) as string
;Encriptacion HAL (HAL -> IBM: Cesar + 1)
Dim i as long
dim ret as string

ret = ""
for i = 1 to len(cad)
    ret = ret + chr(asc(mid(cad,i,1)) + 1)
next i
Cifrar = ret
end function

Function DESCifrar (cad as string) as string
;DESEncriptacion HAL (IBM -> HAL: Cesar - 1)
Dim i as long
dim ret as string

ret = ""
for i = 1 to len(cad)
    ret = ret + chr(asc(mid(cad,i,1)) - 1)
next i
DESCifrar = ret
end function


No tengo VB aca, pero deberian funcionar bien. Sólo es para que veas algo básico.

Saludos!

[tincopasan]

MCKSyS: aguante 2001