AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Algorithmus umgekehrt darstellen

Ein Thema von DavidJNG · begonnen am 29. Mai 2015 · letzter Beitrag vom 29. Mai 2015
 
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.533 Beiträge
 
Delphi 12 Athens
 
#4

AW: Algorithmus umgekehrt darstellen

  Alt 29. Mai 2015, 08:43
if summe < 0 then summe := summe + 94; sollte sich bestimmt auch als summe := (summe + 94) mod 94; darstellen lassen.

Delphi-Quellcode:
// verschlüsseln
summe := (ord(zeile[i]) - 32) + (ord(code[j]) - 32);
summe := summe mod 94; // summe := (summe + 94) mod 94; siehe PS
hilf := hilf + chr(summe + 32); // hilf[i] := chr(summe + 32); wenn man vorher SetLength(Hilf, Length(Zeile)); macht oder man verschlüsselt direkt in Zeile, ohne Hilf

// entschlüsseln
summe := (ord(zeile[i]) - 32) - (ord(code[j]) - 32);
summe := (summe + 94) mod 94;
hilf := hilf + chr(summe + 32);
Fällt dir was auf? (so vonwegen fast gleicher Code und so )


PS: Wenn man im positiven Bereich ganze Vielfache von 94 dazuaddiert, dann ändert das am Ergebnis von (x + 94*x) div 94 nichts (i=1 geht natürlich auch).
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (29. Mai 2015 um 08:45 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz