|
Registriert seit: 31. Mai 2009
1.198 Beiträge
Turbo Delphi für Win32
|
AW: Eigene kleine Verschlüsslung
24. Jun 2012, 14:37
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...
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
|