encryptado de datos

[dec]

Hola,

Ya te digo. Hay no pocos componentes que pueden echarte una mano a la hora de cifrar datos en memoria o en un archivo, por ejemplo. Eres tú quien sabe de qué datos hablamos, cuándo se "sacan" de algún sitio esos datos... en fin, es cuestión de que donde digas "esto tendría que ser cifrado" utilizes alguno de los componentes que tienes disponibles. ¿No?

Si ya te pones a ello y encuentras algún problema... coméntalo en los Foros y alguien habrá que tal vez pueda echarte una mano.

[ckaki]

A mi juicio tu lo que quieres es encriptar los caracteres de una contraseña en una tabla y a la hora de leerlas desencriptarlas. si es así puedes escribir a mi correo y te envio dos funciones que realizan estas operaciones.

Saludos
kaki

[marcoszorrilla]

Esas funciones sería mejor publicarlas en los Foros para conocimiento general o al menos la idea de como actúan y no mandarlo únicamente al correo privado, pues el espíritu de los Foros es el compartir conocimientos entre todos.

Un Saludo.

[[ArdiIIa]]

Algo sencillo:

Código Delphi [-]

function Encrypt(const S: String; Key: Word): String;
var
  I: integer;
begin
  SetLength(Result, length(S));
  for I := 1 to Length(S) do
    begin
     Result[i] := char(byte(S[i]) xor (Key shr 8));
     Key := (byte(Result[i]) + Key) * EncryptC1 + EncryptC2;
    end;
end;


function Decrypt(const S: String; Key: Word): String;
var
  I: integer;
begin
  SetLength(Result, length(S));
  for I := 1 to Length(S) do
    begin
      Result[i] := char(byte(S[i]) xor (Key shr 8));
      Key := (byte(S[i]) + Key) * EncryptC1 + EncryptC2;
    end;
end;

EncryptC1 y EncryptC2 son dos constantes a elección de cada uno... Y porsupuesto Key, también a elección de cada uno.

[ckaki]

Marcos tiene toda la razón, además las funciones no se si las tomé del propio foro o de trucomannia

Código Delphi [-]
function Encript(aFrase: String; aClave: Integer): String;
Var
  aa: Integer;
begin
   Result:='';
   RandSeed:=aClave;
   for aa:=1 to Length(aFrase) do
       Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end

;

Código Delphi [-]
function Decript(aFrase: String; aClave: Integer): String;
var
  aa: Integer;
begin
   Result:='';
   RandSeed:=aClave;
   for aa:=1 to Length(aFrase) do
       Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end

;


Salud y suerte
Kaki

[anubis]

os lo agradezco, siento no haber escrito antes pero no tenia internet. En cuanto lo pruebe os comento.

Muchas gracias otra vez por la ayuda.