{Abaixo seguem 3 funcoes, a primeira retorna o código ASCII de cada caracter, a segunda Criptografa uma string e a terceira descriptografa.}
Créditos por tudo: M C Zanetti
Créditos por tudo: M C Zanetti
- Código:
//funcao que retorno o código ASCII dos caracteres
function AsciiToInt(Caracter: Char): Integer;
var
i: Integer;
begin
i := 32;
while i < 255 do begin
if Chr(i) = Caracter then
Break;
i := i + 1;
end;
Result := i;
end;
{Esta funcao tem como objetivo criptografar uma string utilizando o código ASCII de cada caracter e somando a esse código o valor da CHAVE}
- Código:
Function Criptografa(texto:string;chave:integer):String;
var
cont:integer;
retorno:string;
begin
if (trim(texto)=EmptyStr) or (chave=0) then begin
result:=texto;
end else begin
retorno:='';
for cont:=1 to length(texto) do begin
retorno:=retorno+chr(asciitoint(texto[cont])+chave);
end;
result:=retorno;
end;
end;
{Esta funcao é semelhante a funcao de Criptografia mais com o objetivo de descriptografar a string}
- Código:
Function DesCriptografa(texto:string;chave:integer):String;
var
cont:integer;
retorno:string;
begin
if (trim(texto)=EmptyStr) or (chave=0) then begin
result:=texto;
end else begin
retorno:='';
for cont:=1 to length(texto) do begin
retorno:=retorno+chr(asciitoint(texto[cont])-chave);
end;
result:=retorno;
end;
end;
{Exemplo de Utilização das funcoes}
- Código:
data_inicio:=criptografa(strtran(datetostr(date),'/',''),108); //esta linha criptografa a data, somando ao codigo ASCII 108 posicoes
data_inicio:=DesCriptografa(inicio,108); //esta linha descriptografa a data, retirando as mesmas 108 posicoes
Dica: Em um mesmo campo ou string utilize sempre a mesma chave para criptografar e descriptografar.
![[Dica][Delphi] Função para Criptografar e Descriptografar uma String Vote_lcap](https://2img.net/i/fa/prosilver_grey/vote_lcap.png){kind=small}
![[Dica][Delphi] Função para Criptografar e Descriptografar uma String Voting_bar](https://2img.net/i/fa/prosilver_grey/voting_bar.png){kind=small}
![[Dica][Delphi] Função para Criptografar e Descriptografar uma String Vote_rcap](https://2img.net/i/fa/prosilver_grey/vote_rcap.png){kind=small}