Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Hilfe:Caesar-Verfahren

Thema: Delphi Hilfe:Caesar-Verfahren

Einzelnen Beitrag anzeigen

Benutzerbild von MaBuSE

MaBuSE

Registriert seit: 23. Sep 2002
Ort: Frankfurt am Main (in der Nähe)
1.837 Beiträge

Delphi 10 Seattle Enterprise

#22

Re: Hilfe:Caesar-Verfahren

Alt

12. Jan 2005, 10:36

Zitat von generic:

wie ist es damit?

Delphi-Quellcode:

			...

      Result:=Result+chr((Ord(Upcase(s[i]))-Ord('A')+rotation) mod 26+Ord('A'))

...

Mod 26 ist viel effizienter als ein if.
(An mod hatte ich in dem Moment gar nicht gedacht

)

(°¿°) MaBuSE - proud to be a DP member
(°¿°) MaBuSE - proud to be a "Rüsselmops" ;-)