Delphi dicas

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 ~!@#$%^&*()';



        Simbolos[2]:=

        'ÂÀ©Øû׃çêùÿ5Üø£úñѪº¿®¬¼ëèïÙýÄÅÉæÆôöò»Á';



        Simbolos[3]:='abcdefghijlmnopqrstuvxzywk1234567890';



        Simbolos[4]:='áâäàåíóÇü龶§÷ÎÏ-+ÌÓ߸°¨·¹³²Õµþîì¡«½';



        for x := 1 to Length(Trim(wStri)) do begin

                if pos(copy(wStri,x,1),Simbolos[1])>0 then

                Result := Result+copy(Simbolos[2],

                pos(copy(wStri,x,1),Simbolos[1]),1)



                else if pos(copy(wStri,x,1),Simbolos[2])>0 then

                Result := Result+copy(Simbolos[1],

                pos(copy(wStri,x,1),Simbolos[2]),1)



                else if pos(copy(wStri,x,1),Simbolos[3])>0 then

                Result := Result+copy(Simbolos[4],

                pos(copy(wStri,x,1),Simbolos[3]),1)



                else if pos(copy(wStri,x,1),Simbolos[4])>0 then

                Result := Result+copy(Simbolos[3],

                pos(copy(wStri,x,1),Simbolos[4]),1);

        end;

end;