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'));

Otras entradas de la web que podrian interesarte:

(491) nov 30 DELPHI Operaciones variadas con cadenas
(473) nov 30 DELPHI Puntos de miles en cadenas)
(469) nov 30 DELPHI Convierte cadenas a numeros, mucho mas robusto que strtoint, convierte correctamente '1.500 pesetas' a 1500
(495) nov 30 DELPHI Procedimiento que ordena una lista de cadenas (los lines de los richedit, meno, listbox, ...) usando el algoritmo de la burbuja
(727) nov 06 DELPHI Lanzar el notepad con el fichero que queramos cargado

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 :huh:

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 :roll:

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.

2610

Anonimo (2008-08-14 02:49:33)

a ver.. con clave[i-1 mod length(clave)]+1
como proponen arriba kedaria así:

texto = "casa grande"
length(texto) = "11"

clave = "miclave"
length(clave) = "7"

(i-1) empezando con i=1
0 mod 7 = 0 :push:

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

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!

2611

Anonimo (2008-08-14 02:57:55)

Perdon la anterior la envio mientras editaba.. :roll:

prosigo... con clave[i-1 mod length(clave)]+1
como proponen arriba kedaria así:

texto = "casa grande"
length(texto) = "11"

clave = "miclave"
length(clave) = "7"

(i-1) empezando con i=1
0 mod 7 = 0 :push:

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

con la funcion "clave[(i mod length(clave))+1])" por el contrario kedaría

empezando con i=1
1 mod 7 = 1 + 1 = 2
2 mod 7 = 2 + 1 = 3
3 mod 7 = 3 + 1 = 4
4 mod 7 = 4 + 1 = 5
5 mod 7 = 5 + 1 = 6
6 mod 7 = 6 + 1 = 7
7 mod 7 = 0 + 1 = 1
8 mod 7 = 1 + 1 = 2
9 mod 7 = 2 + 1 = 3
10 mod 7 = 3 + 1 = 4
11 mod 7 = 4 + 1 = 5

Así que creo q está claro como debe ir

2628

Anonimo (2008-08-21 11:35:51)

no ps es muy bueno lo q uno baja de aqui
ps qui les dejo mi mns xq si quieren comprobarlo ssl_snoop13@hotmail.com

4328

Anonimo (2010-03-26 04:18:15)

4737

Xakko (2010-08-20 21:52:17)

hola.
se q la pagina ya lleva un par de años, pero varios han pasado y pasaran por aqui googlenado "encriptacion xor", como yo, que, conociendo el tema (encriptacion por xor), he tenido q hacer un ingreso por usuario y pass para un sistema y, como no tenia ganas de deducir la formula (tardar, como mucho, 30 minutos mas de programacion), he decido buscarla, y aqui he caido.

Bueno, como alternativa a esta funcion, propongo las siguientes variaciones:

1) una tabla con:
a- Numero de usuario (num)
b- Nombre de usuario (nom)
c- Pass (pas)
d- Tipo de usuario (opcional, para operacion en programacion)
....

2) subida de num, nom, pas y etc (los 3 primeros, obligatorios)
3) ahora la primera variacion:
la clave con la q vamos a encriptar el pass, es el mismo 'nom' del usuario
punto en contra: podes deducir (si sabes el tema), de la misma tabla subida, el pass del usuario
puntos a favor: a) no tenes q poner la cadena general de encriptacion en la programacion, lo q hace algo vulnerable al sistema. de todas formas, si saben programar y entran a los fuentes, siempre van a sacar esa cadena, o la forma en q trabaja la encriptacion.
b) es de longitud variable, mas dificil de sacar deduciendo de varias pass, teniendo la tabla (usualmente la cadena de encriptacion no dejan de ser un juego de caracteres q pone el programador y, al ser siempre el mismo, y encima de long fija, y teniendo ya varias pass encriptadas, digamos q es 'sacable')
4) para complicar el punto en contra, tendremos q jugar con los ASC del nom o del pas (o con los dos), dentro de la programacion. OJO ACA con lo que hacen, q no genere ni overflows, ni divisiones por 0, ni decimales... en mi caso (uno facil), solo multiplique el ascii del nom por 2. aqui pueden dividir, multiplicar, exponenciar, lo que quieran. para desencriptar, HAY QUE HACER LO MISMO Y NO EL INVERSO: si hicieron *2, hagan *2 tambien, y NO /2. o sea, USEN LA MISMA FORMULA...

nom nombre de usuaro
pas contraseña
lnom longitud del nombre
lpas longitud de la contraseña

result=''
for i=1 to lclave
result = result + CHR (BITXOR (ASC (substr (pas,i,1)), ASC (substr (nom,MOD (i, lnom)+1,1))*2))
endfor (o next)

es todo

Xakko

4738

Xakko (2010-08-20 21:54:03)

fe de erratas:

for i=1 to lclave

es

for i=1 to lpas

o o o o