Encriptacion de cadenas con XOR

Por Saiyine  el 2005-12-29 23:54:00 - Secciones:  DELPHI  - Enlace permanente: 474

// EncriptaXOR('esta es la frase de ejemplo','claveXXX')
function EncriptaXOR(cadena,clave : string) : string;
var
i : integer;
begin
        result:='';
        for i:=1 to length(cadena) do
        result:=result+chr(ord(cadena[i]) xor ord(clave[(i mod length(clave))+1]));
end;

La encriptacion con XOR es un clasico entre los clasicos... antes se usaba mucho, por ejemplo, en los virus para hacerlos mas dificiles de encontrar (¿os suena 'virus polimorficos'?). El XOR tiene la propiedad de que si le haces a un numero la operacion XOR dos veces con el mismo numero, obtienes de nuevo el primer numero...

A ver si lo se explicar:

23 xor 6 = 17

17 xor 6 = 23

Por eso no hace falta una rutina desencriptadora, con pasar dos veces la rutina de encriptacion con la misma clave obtienes la cadena original.

cadenaencriptada:=EncriptaXOR('mmm rosquillas','homer');
// mostrara la cadena 'mmm rosquillas'
ShowMessage(EncriptaXOR(cadenaencriptada,'homer'));

133 

Anonimo (2005-12-28 14:34:00) a ver.. texto = "casa grande" length(texto) = "11" clave = "miclave" length(clave) = "7" 1 mod 7 = 1 2 mod 7 = 2 3 mod 7 = 3 4 mod 7 = 4 5 mod 7 = 5 6 mod 7 = 6 7 mod 7 = 0 8 mod 7 = 1 9 mod 7 = 2 10 mod 7 = 3 11 mod 7 = 4 En delphi si buscamos el valor 0 de un string no nos dara el valor correcto (dado que empieza desde 1 en adelante). La solucion podria ser: reemplazar: clave[i mod length(clave)] por: clave[i-1 mod length(clave)]+1 En JS se pued implementar como lo hiciste vos, ya que los string empiezan con 0. Saludos PD: muy buena la web!

134 

Saiyine (2005-12-29 23:35:00) Absolutamente correcto. Al principio no comprendia porqué hablabas de un mod en vez de xor, pero tienes razón, hay un momento que el mod de la clave devuelve un valor erroneo. Se corregirá en breve, lo correcto es lo que indica el comentario anterior.

1383 

loubens (2007-07-30 05:15:24) como encriptar y desencriptar con una clave de seguridad.Todo eso se hace en Delphi. Saludos,

1855 

Anonimo (2008-02-15 02:28:18) oye podrias poner el codigo completo porfa lo que pasa es que estoy iniciando en esto. gracias

2040 

Macchiavello (2008-04-01 02:44:40) Hola me podeis ayudar quiero encriptar una canion pero no tengo ni idea como se hace me podeis ayudar

2041 

Saiyine (2008-04-01 03:25:52) Mi primera respuesta es que no lo hagas. Si aun así quieres hacerlo, necesitas que el disco duro o pendrive donde esté la canción esté formateado como NTFS. Despues es simplemente cuestión de botón derecho, propiedades, opciones avanzadas, cifrar. Tambien puedes usar un programa muy bueno que genera falsos discos duros con clave donde meter tus ficheros y que nadie los pueda ver, se llama Truecrypt.