Funcao para criptografar e descriptografar uma string.


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;

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 pod

Artigos relacionados