Arsip: Cara Enkrip & Dekrip Teks

//Begin Code
function TForm1.EnDeCode(const Value : String) : String;
var
  CharIndex   : Integer;
  ReturnValue : String;
begin
  ReturnValue := '';
  for CharIndex := 1 to Length(Value) do
  begin
    ReturnValue := ReturnValue + chr(NOT(ord(Value[CharIndex])));
  end;
  Result := ReturnValue;
end;
//End Code

label1.caption:= enDeCode(edtPassword.Text);