eine Variable bei jedem Durchlauf ändern, aber immer anders?

[malo]

Und zwar will ich in meinem Verschlüsselungsprogramm die ASCII-Codes verändern und anzeigen (das ist dann meine "Verschlüsselung"). Nun will ich aber keine regelmäßige Veränderung des ASCII-Codes haben, sondern immer eine neue Veränderung.

Und zwar benutze ich für die Verschlüsselung eine For-Schleife, mit der ich jedes Zeichen durchgehe, den ASCII-Code herausfinde und diesen ändere. Das klappt auch wunderbar. Aber, da ich ja eine "unregelmäßige" Veränderung haben will, dacht ich mir, dass ich innerhalb dieser Schleife die Variable, die meinen ASCII-Code ändert, ändere.

Da hatte ich auch ein paar Ideen, zu denen alle Probleme auftraten.

:arrow: die Durchlaufvariable der For-Schleife abfragen und per Case-Anweisung die Änderungsvariable ändern --> Problem: ich kann ja keine "unendlichen"-Caseanweisungen schreiben, sondern muss irgendwo eine Art Limit haben. Und da ich ja nicht weiß, wie lang die Strings werden, die verschlüsselt werden sollen, kann ich ja nicht ewig weitermachen, case-Abfragen zu schreiben ;)


:arrow: Innerhalb der For-Schleife eine andere Variable hochzählen und abfragen, irgendwann dann die Variable zurücksetzen und weiter machen --> Problem: Entweder bekomme ich einen ASCII-Code raus, der bis ins 6-Stellige hereingeht, oder die Änderungsvariable wird gar nicht zum ASCII-Code dazuaddiert.



Naja, das sind die einzigen zwei Möglichkeiten, die halbwegs in Frage kämen, aber es funktionieren halt beide nicht richtig. Hat jemand eine Ahnung, wie ich die Probleme löse, bzw. hat jemand eine andere Idee, wie ich die Variable regelmäßig ändern kann?


Danke schonmal!

[Binärbaum]

Man könnte es so probieren:

Delphi-Quellcode:

var
 mein_text: string;//Original
 neuer_Text: string;//Verschlüsselt

...

neuer_text:=mein_Text; //Verschlüsselter Text initialisieren
for i:= 1 to Length(mein_Text) do begin
 neuer_Text[i]:= Chr(Ord(mei_text[i])+ (i mod 25));
end;

Damit würde die "Änderung" sich nur alle 25 Zeichen wiederholen.

MfG
Binärbaum
//Edit: Quelltext korrigiert

[Niels]

Zitat:

Zitat von malo

:arrow: die Durchlaufvariable der For-Schleife abfragen und per Case-Anweisung die Änderungsvariable ändern --> Problem: ich kann ja keine "unendlichen"-Caseanweisungen schreiben, sondern muss irgendwo eine Art Limit haben. Und da ich ja nicht weiß, wie lang die Strings werden, die verschlüsselt werden sollen, kann ich ja nicht ewig weitermachen, case-Abfragen zu schreiben ;)

Die Case-Anweisung würde ich so ungefähr gestalten:

Delphi-Quellcode:

case (variable mod 7) of
0: machwas;
1: machwas;
...
6: machwas;
end;

Anstatt der 7 nimmst du halt die Anzahl der Variationen, die du willst. Ich find die Variante der Verschlüsselung aber viel zu einfach zu knacken. Beschäftige dich mal mit Matritzen-Verschlüsselung, da braucht man schon sehr lange Texte um Regelmäßigkeiten zu erkennen.

Zitat:

Zitat von malo

:arrow: Innerhalb der For-Schleife eine andere Variable hochzählen und abfragen, irgendwann dann die Variable zurücksetzen und weiter machen --> Problem: Entweder bekomme ich einen ASCII-Code raus, der bis ins 6-Stellige hereingeht, oder die Änderungsvariable wird gar nicht zum ASCII-Code dazuaddiert.

Sollte eigentlich funktionieren, hast sicher nen Fehler im Code, musste mal nen Ausschnitt posten

MfG Niels

[edit]Fehler im Quote-Tag[/edit]

[malo]

@Binärbaum: Aber da wär mir die Änderung wieder etwas zu regelmäßig. Ich will jedes Mal eine komplett neue Änderung haben. Also z.B. beim ersten mal +5, beim 2. mal +77, beim 3. Mal +88, beim 4. mal +2, beim 5. mal -20 oder sowas... nur halt bei jedem Zeichen!

@Niels:

Meine Case-Anweisung sieht so aus:

Delphi-Quellcode:

      case AenderungsZaehler of
        1: Aenderung := Aenderung + 7;
        2: Aenderung := Aenderung + 4;
        3: Aenderung := Aenderung + 9;
        4: Aenderung := Aenderung + 61;
        5: Aenderung := Aenderung - 70;
        6: Aenderung := Aenderung + 21;
        7: Aenderung := Aenderung + 1;
        8: Aenderung := Aenderung + 11;
        9: Aenderung := Aenderung - 20;
        10: Aenderung := Aenderung + 71;
        11: Aenderung := Aenderung + 22;
        12: Aenderung := Aenderung - 61;
        13: Aenderung := Aenderung - 51;
      end;
      inc(AenderungsZaehler);

Der Code ist innerhalb meiner Verschlüsselungsschleife ;)

Wenn ich da jetzt "a" (ohne "...") verschlüsseln will, kommt das hier raus:

Code:

1243145

//edit: wegen "leicht zu knacken": Ich versuch ja erstmal etwas einfaches zu machen, zum lernen. Das soll jetzt keine perfekte unknackbare verschlüsselung werden, das kann ich eh nicht :stupid:

[Binärbaum]

Dann könnte man es mit Zufallszahlen probieren:

Delphi-Quellcode:

var
 mein_text: string;//Original
 neuer_Text: string;//Verschlüsselt
 keycode: array[0..24] of Byte;//Schlüsselwerte

...

//Zufallszahlen erzeugen
Randomize;
for i:= 0 to 24 do
 keycode[i]:= random(256);

neuer_text:=mein_Text; //Verschlüsselter Text initialisieren
for i:= 1 to Length(mein_Text) do begin
 neuer_Text[i]:= Chr(Ord(mei_text[i])+ keycode[i mod 25]);
end;

Damit würde die "Änderung" sich zwar auch alle 25 Zeichen wiederholen, aber wäre nicht so regelmäßig.
Allerdings müsste man hier die Schlüsselwerte in keycode irgendwo abspeichern, um den Text wieder entschlüsseln zu können.

MfG
Binärbaum

[malo]

Zufallszahlen sind nicht gut, ich will ja später einen beliebigen verschlüsselten Text auch wieder entschlüsseln können ;)

[Niels]

Zitat:

Zitat von malo

Meine Case-Anweisung sieht so aus:

Delphi-Quellcode:

      case AenderungsZaehler of
        1: Aenderung := Aenderung + 7;
        2: Aenderung := Aenderung + 4;
        3: Aenderung := Aenderung + 9;
        4: Aenderung := Aenderung + 61;
        5: Aenderung := Aenderung - 70;
        6: Aenderung := Aenderung + 21;
        7: Aenderung := Aenderung + 1;
        8: Aenderung := Aenderung + 11;
        9: Aenderung := Aenderung - 20;
        10: Aenderung := Aenderung + 71;
        11: Aenderung := Aenderung + 22;
        12: Aenderung := Aenderung - 61;
        13: Aenderung := Aenderung - 51;
      end;
      inc(AenderungsZaehler);

Der Code ist innerhalb meiner Verschlüsselungsschleife ;)

Wenn ich da jetzt "a" (ohne "...") verschlüsseln will, kommt das hier raus:

Code:

1243145

Damit kann ich leider nicht viel anfangen, da ich ja nicht weiß, wie sich die Variable Änderung auf die Veränderung des ASCII-Symbols auswirkt. Aber die Summer der Veränderungen der Variable Aenderung (komischer Satz) sollte 0 und nicht 5 sein, sonst wird Aenderung langsam aber sicher größer, und erreicht bei längeren Texten dann eben auch den 6-stelligen Bereich.

MfG Niels

[malo]

Ich zähle die Variable "Aenderung" einfach nur zu dem ASCII-Code dazu. Also nix groß mit Rechnerei.

Und dein komischer Satz ist echt komisch, den kapier ich nämlich nicht :gruebel:

[Binärbaum]

Dann musst du die Zufallszahlen halt seperat speichern und beim Entschlüsseln wieder einlesen. Da das allerdings ein Sicherheitsrisiko darstellt, könnte man auch eine kleine Änderung vornehmen:
Im obigen Quelltext müsste man Randomize durch RandomSeed (oder so ähnlich heißt es) ersetzen und dann immer den selben Wert zuweisen. Damit bräuchte man die Zahlen nicht speichern, weil der Zufallsgenerator somit stets die gleichen Zufallszahlen erzeugt. Natürlich muss man dann den Startwert von RandomSeed geheimhalten.

MfG
Binärbaum

[Niels]

Zitat:

Zitat von malo

Und dein komischer Satz ist echt komisch, den kapier ich nämlich nicht :gruebel:

Ok, da is auch n Rechtschreibfehler drin gewesen :)

Ich hab nur gemeint, dass deine Variable Aenderung immer größer wird. Du addierst zwar dazu und ziehst auch wieder ab, aber was du abziehst ist weniger, als das was du dazu addierst.

MfG Niels