Criptografia de TStringList ??? Como fazer?

Delphi

19/04/2006

Tenho uma aplicaçao e gostaria de saber como criptografar pra trabalhar com Tstringlist?


var
Linhas:TStringList;
a : String;
.
.
.
Linhas:=TStringList.Create;
Linhas.Add(´-------------- [Dados Clientes] --------------------------´);
Linhas.Add(´!´+´[Nome].....: ´ +Edtnome.Text +´´);
Linhas.Add(´!´+´[Idade]......: ´ +EdtIdade.Text +´´);
Linhas.Add(´!´+´[End].....: ´ +EdtEnd.Text +´´);
Linhas.Add(´!´+´[Bairro].....: ´ +Edtbairro.Text +´´);
Linhas.Add(´!´+´[CEP]...: ´ +edtcep.Text +´´);
Linhas.Add(´!´+´-------------------------------------------´);
except end;
a:=funcaoCriptoqualquer(Linhas); /// como eu faço isto


O4pr3ndiz

O4pr3ndiz

Curtidas 0

Respostas

Paulocesar1301

Paulocesar1301

19/04/2006

Coloque [b:ee9e82e14d].Text[/b:ee9e82e14d] após a váriável TStrings

a:=funcaoCriptoqualquer(Linhas.Text);


e o caminho inverso para descriptografar:

Linhas.Text :=funcaoDesCriptoqualquer(a);


Abraços e Bons Códigos :wink:


GOSTEI 0
POSTAR