Fórum Como Poço Criptografar os dados de um tabela? #197922

Vc pode criar uma função que criptografa e descritografa os dados

function criptografa(texto: string; chave: word): String;
var
buffer: array of byte;
i: integer;
resultado: String;
begin
resultado:=´´;
SetLength(buffer,Length(texto));
for i:=0 to Length(texto) -1 do
begin
buffer[i]:= ord(texto[i]);
buffer[i]:= buffer[i] xor ((not buffer[i]) shr chave);
resultado:= resultado + chr(buffer[i]);
end;

Result:= resultado;
end;

Esta função serve tanto para criptografar quanto para descriptografar os dados.