Fórum como descriptografar arq.txt ??? #188189

galera e o seguinte:

eu to usando esta rotinha pra critografia e descriptografia:

function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := ´´;
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;

, eu estou salvando os dados dos edits num arq.txt. eu tenho um form com um memo onde eu carrego
o conteudo do arq , para ter controle dos cadastros, so q eu n sei como fazer pra descriptografar
o conteudo do arq.

eu uso isso aqui pra carregar o arq pro memo:

begin


memo1.clear;
assignfile(arq, ´C:\Documents and Settings\leo\Desktop\trywell.tad´);
reset(arq);
While not eof(arq) do begin

Readln(arq,linha);
Memo1.lines.add(linha);
End;
Closefile(arq);
end;

eu n sei como fazer pra descriptogrfar o conteudo do arquivo. ele aparece(obviamente) criptografado
ainda no memo, eu preciso q no memo ele faca a descriptografia e n to consseguindo.

obrigado desde ja galera

aquele abraco

viper0!!! :twisted: