Author: William Gerbert

How to Encrypt and DeCrypt string?

Answer:

Try this very simple algorithm

f
1   unction TForm1.EnDeCode(const Value: string): string;
2   var
3     CharIndex: Integer;
4     ReturnValue: string;
5   begin
6     ReturnValue := '';
7     for CharIndex := 1 to Length(Value) do
8     begin
9       ReturnValue := ReturnValue + chr(not (ord(Value[CharIndex])));
10    end;
11    Result := ReturnValue;
12  end;