algoritmo de encriptración

[roman]

Posteado originalmente por Mick
Efectivamente eso es de lo que hablaba en el anterior post: MD5 es un hash como SHA1, solo que SHA1 es un algoritmo mucho mas moderno (y mejor ya que fue diseñado para eliminar problemas de algoritmos mas antiguos como el MD5).

Salud2 !!!

En efecto, mi mensaje llegó después del tuyo sin yo saberlo. Por eso es que parece que no lo leí. Pido disculpas.

// Saludos

[roman]

Posteado originalmente por marcoszorrilla
Respecto a lo último dicho, creo que la pregunta de Román, estaba encriptada y más bien era una lítote.

En conclusión negaba lo incierto para darnos su siempre apreciado punto de vista.

Un Saludo si es que sigues frente al monitor.

Aquí sigo pero no entendí ¿lítote?

// Saludos (si es que sigues en Cantabria )

[marcoszorrilla]

Si sigues frente al monitor, te aclaro que es una figura de dicción que se comete cuando se niega algo para atenuar su significado. Es decir retórica, lo contrario a la programación.

Un Saludo.

[hgiacobone]

Vean mi Nuevo hilo sobre seguridad porque esto se ha desvirtuado por completo.

[Rubiel]

Ante ke kualkier cosa pase... y viendo ke alguno de ustedes puso ke ya no habia regresado digo lo siguiente: NO HABIA ESCRITO NADA DEBIDO A KE EL HILO FUE MOVIDO DE FORO... PRIMERO PENSE KE LO HABIAN BORRADO ASI KE LE ENVIE UN MAIL A CADETILL(KE ERA EL MODERADOR DEL FORO EN EL KE ESCRIBI EL HILO) Y ME DIJO KE LO HABIA CAMBIADO PARA ACÁ... ASI KE DISCULPEN

Agradezco todas y cada una de las opciones ke me dan en este hilo, aunke creo ke el tema ha causado cierta polémica... Buscaré e intentaré aplicar cada una de las opciones ke me brindan y veré cual es la ke me conviene más... Aunke lo ke notó después de leer todo lo ke escribieron es ke no hay una técnica al 100% segura asi ke trataré de aplicar no solo una (claro, si es ke puedo plicar mas de una a la vez...).

Muchas gracias y salu2...

[frankmch]

puedes probar este algoritmo.
yo no lo he probado, asi que no conosco muy bien cuan seguro sea.
espero te sirva

program Crypt;


uses WinCRT;

const
C1 = 52845;
C2 = 22719;

function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result[0] := S[0];
for I := 1 to Length(S) do begin
Result[i] := char(byte(S[i]) xor (Key shr 8));
Key := (byte(Result[i]) + Key) * C1 + C2;
end;
end;

function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result[0] := S[0];
for I := 1 to Length(S) do begin
Result[i] := char(byte(S[i]) xor (Key shr 8));
Key := (byte(S[i]) + Key) * C1 + C2;
end;
end;

var
S: string;
begin
Write('>');
ReadLn(S);
S := Encrypt(S,12345);
WriteLn(S);
S := Decrypt(S,12345);
WriteLn(S);
end.