mmmm... lo que estás buscando es codificar más que cifrar.
Según la Real Academia Española, codificar es: "Transformar mediante las reglas de un código la formulación de un mensaje."
Es decir, algo así como el algoritmo de César antes mencionado.
También se puede codificar a Hexadecimal, Binario, Mime, etc.
Por otra parte Cifrar, según la Rae, significa: Transcribir en guarismos, letras o símbolos, de acuerdo con una clave, un mensaje cuyo contenido se quiere ocultar.
Es decir, se necesita de algo ajeno al mensaje (clave) para poder "revelar" el mensaje ocultado.
Algoritmos de Cifrado hay muchísimos, como ser Rijndael (AES), blowfish, towfish, 3des, etc...
Igual, el más fácil que conozco es el de Xor: el cual consiste en recorrer byte por byte y hacerle un XOR por un valor (clave).
luego, para, descifrarlo, repertir lo hecho antes (con la misma clave, por supuesto).
La Jedi (JVCL) viene con un componente para crifrado Xor y otro para César; TJvXORCipher y TJvCaesarCipher respectivamente (Unit JvCipher.pas).
ahí se puede chusmear el código.
De todos modos el algoritmo de Xor NO es considerado seriamente para cosas que requieran algo de seguridad... simplemente sirve de ejemplo.
y el César menos.
copio el algoritmo principal del Xor de la Jedi (funciona tanto como para cifrar y descifrar, pues el encode hace lo siguiente)
Código Delphi
[-]
procedure TJvXORCipher.Encode(const Key: AnsiString; Buf: PAnsiChar; Size: Cardinal);
begin
Decode(Key, Buf, Size);
end;
procedure TJvXORCipher.Decode(const Key: AnsiString; Buf: PAnsiChar; Size: Cardinal);
var
I: Cardinal;
J: Cardinal;
begin
if Key <> '' then
begin
J := 1;
for I := 1 to Size do
begin
Buf[I-1] := AnsiChar(Ord(Buf[I-1]) xor Ord(Key[J]));
J := (J mod Cardinal(Length(Key))) + 1;
end;
end;
end;
por ahí yo creo que tenía implementada unas funciones de encriptación con xor que las escribí hace unos años. una trabajaba sobre un string y la otra creo que trabajaba directamente sobre un TMemoryStream. si es necesario habría que buscar... :-°