Como Poço Criptografar os dados de um tabela?
Como Poço Criptografar os dados de um tabela, para que so o meu sistema leia os dados produzidos pelo meu sistema!
Gostaria de saber outras dicas sobre segurança de sistemas.
Gostaria de saber outras dicas sobre segurança de sistemas.
Jj_malka
Curtidas 0
Respostas
Jackson
29/11/2003
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.
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.
GOSTEI 0