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 |)
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 (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.
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
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
Te paso 2 funciones que emplean Cesar:
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!
MCKSyS: aguante 2001