Funcao para criptografar e descriptografar uma string.
Funcao para criptografar e descriptografar um string.
Quando vc informa uma String Normal ela retornara a mesma
criptografada e quando vc informa uma String criptografada
ele retorna a string original.
Bom para guardar dados que não podem ser identificados em Tabelas.
(*
Função Criptografar
Codifica e descodifica um string ( Seguranca )
Parametros Tipo Objetivo
wStri String Especificar o string a ser codificado
Retorno String O string codificado ou descodificado
*)
function Criptografar(wStri: String): String;
var Simbolos : array [0..4] of String;
x : Integer;
begin
Simbolos[1]:=
'ABCDEFGHIJLMNOPQRSTUVXZYWK ~!@#$%^&*()'
Leia mais: Funcao para criptografar e descriptografar uma string.