Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DavidJNG,
29. Mai 2015
Hab's:
summe := (ord(zeile) - 32) - (ord(code) - 32);
if summe < 0
then summe := summe + 94;
summe := summe + 32;
hilf := hilf + chr(summe);
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by DavidJNG,
29. Mai 2015
Hallo, folgender Algorithmus zum kodieren:
summe := (ord(zeile) - 32) + (ord(code) - 32);
summe := summe MOD 94;
summe := summe + 32;
hilf := hilf + chr(summe);
Beispielsweise der Buchstabe "H" für zeile und "C" für code.
Verschlüsselt kommt ein "k" raus.
Nun möchte ich es dekodieren.