encryptado de datos

[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.