Frage : Funktion ROT13 u. Verfahren


Ich benötige ein Funktion abd Verfahren Delphi-2010 für das Lösen von ROT13 using Schnur und stringlist


etwas mögen


Tciphermode = (cmEncrypt, cmDecrypt)

Funktion ROT13 (AStr: Schnur; cMode: TcipherMode): Schnur;
anfangen
 //
 Resultat: =
Ende;


Verfahren ROT13 (Linien: TStringList; cMode: TcipherMode)
anfangen
 //
Ende;

danke

Antwort : Funktion ROT13 u. Verfahren

Warum benötigen Sie cMode Param? Die gleiche Funktion verschlüsselt und entschlüsselt. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Verfahren ROT13 (AStrLst: TStringList);
var
  I, J: ganze Zahl;
  c: Putzfrau;
  AStr: Schnur;
  s: Schnur;
anfangen

  für i: = 0 zu AStrLst.Count - 1 fangen an
    AStr: = AStrLst [i];
    s: = '';
    für J: = fangen 1 zur Länge (AStr) an
      c: = AStr [J];

      wenn (((c >= „A ") UND (c <>= „a ") UND (c <>= „N ") UND (c <>= „n ") UND (c  <>
Weitere Lösungen  
 
programming4us programming4us