Question : Fonction ROT13 et procédé


J'ai besoin d'une procédure d'abd de fonction de Delphes 2010 pour résoudre ROT13 using la corde et le stringlist


quelque chose aiment


Tciphermode = (cmEncrypt, cmDecrypt)

fonction ROT13 (AStr : Corde ; cMode : TcipherMode) : Corde ;
commencer
 //
 résultat : =
extrémité ;


procédé ROT13 (lignes : TStringList ; cMode : TcipherMode)
commencer
 //
extrémité ;

merci

Réponse : Fonction ROT13 et procédé

Pourquoi avez-vous besoin du param de cMode ? La même fonction chiffre et déchiffre.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
procédé ROT13 (AStrLst : TStringList) ;
variété
  i, j : nombre entier ;
  c : char ;
  AStr : corde ;
  s : corde ;
commencer

  pour I : = 0 à AStrLst.Count - 1 commencent
    AStr : = AStrLst [I] ;
    s : = '' ;
    pour j : = 1 à la longueur (AStr) commencent
      c : = AStr [j] ;

      si (((>= « A de c ") ET (c <>= « a ") ET (c <>= « N ") ET (c <>= « n ") ET (c  <>
           
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us