Eigene kleine Verschlüsslung

[scrat1979]

... ich mach mal eine Ausnahme :-)

Delphi-Quellcode:

function Encrypt(const AString: String): String;
var i : integer;
begin
  Result := '';
  for i := 1 to Length(AString) do begin
    if UpperCase(AString[i]) <> 'Z' then
      Result := Result + Chr(Ord(AString[i])+1)
    else
      if AString[i] = 'Z' then
        Result := Result + 'A'
      else
        Result := Result + 'a';
  end; // for
end;

[himitsu]

Aber bezüglich dem "Eigene":
http://de.wikipedia.org/wiki/Caesar-...l%C3%BCsselung