ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
00:47:54 21/08/2017
¿No estas registrado?
Login: Clave:
9 Usuarios en línea: 0 registrados, 9 invitados.
Conéctate y verás los usuarios en línea
Tema: Probar fortaleza de mi nuevo algoritmo de cifrado/descifrado
    Responder
Todos Los Foros -> Criptografia -> Probar fortaleza de mi nuevo algoritmo de cifrado/descifrado
Autor Mensaje (Ver Versión para Imprimir)
byronzapatillas
Usuario muy espontáneo
Sin Imagen

Mensajes: 1
Registrad@:
25/06/2010
Estado: Desconectad@
Ver último Post
Probar fortaleza de mi nuevo algoritmo de cifrado/descifrado

hola amigos, hoy les traigo un pequeño algoritmo de cifrado y descifrado que puede ser muy útil para cifrar archivos, ejecutables, cadenas de texto y todo lo que quieran. Lo escribí en delphi pero es sencillo de entender el código:

CÓDIGO

function cifrar(cadena, Key: string): String;
var
i,j:integer;
temp:integer;
begin
    Result:='';
    for i:=1 to Length(cadena) do
    begin
      for j:=1 to length(key) do
      begin
         temp:= temp + ord(key) + j mod i;
      end;
      Randseed:= temp*i+length(cadena);
      if i mod 2= 0 then
          Result:=Result+Chr(ord(cadena) xor (temp*i+random(512)+length(cadena))+i)
      else
          Result:=Result+Chr(ord(cadena) xor (randseed*i*random(1024)-length(cadena))-randseed)   ;
      end;
end;

function descifrar(cadena, Key: string): String;
var
i,j:integer;
temp:integer;
begin
    Result:='';
    for i:=1 to Length(cadena) do
    begin
      for j:=1 to length(key) do
      begin
         temp:= temp + ord(key) + j mod i;
      end;
      Randseed:= temp*i+length(cadena);
      if i mod 2= 0 then
          Result:=Result+Chr((ord(cadena)-i) xor (temp*i+random(512)+length(cadena)))
      else
          Result:=Result+Chr((ord(cadena)+randseed) xor (randseed*i*random(1024)-length(cadena)))   ;
      end;
end;



Ejemplo de uso:
CÓDIGO

showmessage(cifrar('hola mundo', 'estaesmypass')); //el resultado seria: Þ‘)x›vïJù
showmessage(descifrar('Þ‘)x›vïJù', 'estaesmypass')); //el resultado seria: 'hola mundo'



Este algoritmo se basa en el cifrado XOR combinado con trasposición, haciendo de él un fuerte método de cifrado. A ver si le echan un vistazo e intentan mejorarlo o buscan posibles vulnerabilidades. Estaría muy bien que publiquen sus impresiones y propuestas de mejora. Saludos!!
28/08/2012 14:51:14 
NT38K
Casi Maestro Nivel 3

Mensajes: 235
Registrad@:
17/01/2010
Estado: Desconectad@
Ir Arriba
RE: Probar fortaleza de mi nuevo algoritmo de cifrado/descifrado

A la vista se ve sencillo, al menos las cadenas llevan orden y la estructura se ve clara, cuestion de probarlo a ver q tal ... es autoria tuya? .   si es autoria tuya ánimo, sigue adelante vas bien.. saludos..
01/09/2012 02:24:43 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com