[code lang=”delphi”]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;
[/code]
[tags]Delphi, Strings[/tags]
0 Kommentare zu “Encrypt & DeCrypt”