Delphi 亂體文字編碼

 function EnDeCrypt(const Value: String): String;

function TForm1.EnDeCrypt(const Value : String) : String;
var
   CharIndex : integer;
begin
   Result := Value;
   for CharIndex := 1 to Length(Value) do
     Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

 EnDeCrypt(Memo1.Text);

重複去做 EnDeCrypt()  編碼解碼

以上 參考並記錄\