AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Verschlüsselung bzw. Entschlüsselung will nicht gelingen
Thema durchsuchen
Ansicht
Themen-Optionen

Verschlüsselung bzw. Entschlüsselung will nicht gelingen

Ein Thema von Faffy · begonnen am 25. Jan 2014 · letzter Beitrag vom 27. Jan 2014
Antwort Antwort
DayDreamer87

Registriert seit: 25. Feb 2012
2 Beiträge
 
#1

AW: Verschlüsselung bzw. Entschlüsselung will nicht gelingen

  Alt 25. Jan 2014, 18:17
Das sind doch die relevanten Stellen:

Delphi-Quellcode:
  Code := Code - Z;
  If (Code > 122) Then
    Code := Code - 26;
Delphi-Quellcode:
  Code := Code + Z;
  If (Code < 122) Then
    Code := Code + 26;
Überleg dir mal, warum bei der Verschlüsselung die IF-Abfrage kommt und was sie bewirkt. Dann überleg mal, wie dieser Vorgang rückgängig gemacht werden muss. Dann siehst du auch, was bei der Enschlüsselung falsch läuft.
Ich bin in der Materie zwar noch relativ neu und, sofern falsch, beachtet mich gar nicht...

Aber nachdem ich das ganze mal nachgebastelt habe, funktionierts nu bei mir
Fehler dürfte das im Zitat rot markierte Zeichen sein.

Hoffe mal, dass mein erster Beitrag korrekt ist.

Grüße

Day

Edit: Farbige Markierungen im Delphi Code funktionieren nicht...
In Prozedur B:
If (Code > 122) Then ... so funktionierts
  Mit Zitat antworten Zitat
Faffy

Registriert seit: 25. Jan 2014
10 Beiträge
 
#2

AW: Verschlüsselung bzw. Entschlüsselung will nicht gelingen

  Alt 26. Jan 2014, 00:26
Perfekt, vielen Dank. Jetzt funktioniert es echt wunderbar, ihr habt mir sehr geholfen.

Eine Frage hätte ich jedoch noch, da mir das nicht ganz klar ist.
Warum muss bei Procedure A
Procedure TCaesar.A (T : String; Var T2 : String; Z : Integer); Das "Var T2 : String" hinter "T : String;" stehen und bei Procedure B

Procedure TCaesar.B (Var T2 : String; T : String; Z : Integer); das "Var T2 : String;" eben am Anfang?

Geändert von Faffy (26. Jan 2014 um 00:36 Uhr)
  Mit Zitat antworten Zitat
Faffy

Registriert seit: 25. Jan 2014
10 Beiträge
 
#3

AW: Verschlüsselung bzw. Entschlüsselung will nicht gelingen

  Alt 26. Jan 2014, 02:35
Perfekt, vielen Dank. Jetzt funktioniert es echt wunderbar, ihr habt mir sehr geholfen.

Eine Frage hätte ich jedoch noch, da mir das nicht ganz klar ist.
Warum muss bei Procedure A
Procedure TCaesar.A (T : String; Var T2 : String; Z : Integer); Das "Var T2 : String" hinter "T : String;" stehen und bei Procedure B

Procedure TCaesar.B (Var T2 : String; T : String; Z : Integer); das "Var T2 : String;" eben am Anfang?
Dies hier steht bitte immer noch als zentrale Frage offen, verzeiht mir den Doppelpost, aber ich hatte Angst, dass es so sonst übergangen wird .
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.784 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Verschlüsselung bzw. Entschlüsselung will nicht gelingen

  Alt 26. Jan 2014, 08:43
Perfekt, vielen Dank. Jetzt funktioniert es echt wunderbar, ihr habt mir sehr geholfen.

Eine Frage hätte ich jedoch noch, da mir das nicht ganz klar ist.
Warum muss bei Procedure A
Procedure TCaesar.A (T : String; Var T2 : String; Z : Integer); Das "Var T2 : String" hinter "T : String;" stehen und bei Procedure B

Procedure TCaesar.B (Var T2 : String; T : String; Z : Integer); das "Var T2 : String;" eben am Anfang?
Wie sieht denn die Parameterlist in der Type/Klassen-Deklaration aus?
Grüße
Klaus
Klaus

Geändert von Klaus01 (26. Jan 2014 um 08:48 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


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 13:27 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