Eigene kleine Verschlüsslung

[Aphton]

Zitat von Premaider:

Delphi-Quellcode:

      For h := 1 to j do
      If (Text2<>'Z') and (Text2[h]<>'z') Then Text2:=Text2 + Chr(Ord(Text1[i])+1) Else
      If Text2[h]='Z' Then Text2[h]:='A';
      If Text2[h]='z' Then Text2[h]:='a';

Fehlerhafte Stelle! Hättest du richtig eingerück, wärs dir sofort aufgefallen...