Re: Hilfe:Caesar-Verfahren
Hey,
so ist es ja nun auch net, aheb ich mir teilwesie schon selber gedacht, aber cih brauchte halt bestimmt befehle, weil wir uns ds selbst beibringen mussten und uns nicht geholfen wurde. Ich will ja auch net nerven, aber ich bin halt sonst hilflos. Ich weiß einfach net mehr weiter und die Zensur ist mir schon wichtig! |
Re: Hilfe:Caesar-Verfahren
Zitat:
|
Danke euch!!!
ja es steht schon eigentlich alles im Quelltext drin, nur möchte ich gerne im Alphabet (a-z) bleiben, aber das kriege ich mit meienm Quellcode leider net hin. Das müsste ein einfacher Befehl sein, aber keine Ahnung.
Aber danke schon mal. Ihr habt mir schon jetzt geholfen. Achso und was heißen diese Befehle: Memo1.Lines.Count > 0 ZNr:= 1 TO Memo1.Lines.Count DO Nochmal Danke!!! |
Re: Hilfe:Caesar-Verfahren
[1] wenn memo1 nicht leer ist...
[2] setze ZNr bei jedem Durchgang eins rauf und höre auf wenn ZNr die Zahl der Zeilen im Memo erreicht hat. |
Re: Danke euch!!!
Zitat:
Delphi-Quellcode:
das heißt, der code, der nach do kommt, wird bei jeder Zeile des Memos ausgeführt ;)
for ZNr := 1 to Memo1.Lines.Count do
|
Re: Hilfe:Caesar-Verfahren
Das war schon wirklich gut. Ich bin euch sehr dankbar.
Ich kriege es nur leider nicht hin, den Text nur im Alphabet zu verschlüsseln, aslo nicht mit Sonderzeicehn(ASCII). Das mag ich nämlich net. Mir fällt nur leider nichts ein, wie ich das schaffe. Bsp.: Das X soll um 5 Stellen verschlüsselt werden, also: x -> y -> z -> (und dann soll wieder a kommen)a -> b -> c Also aus dem x soll ein c werden und KEIN Sonderzeichen. Ihr seid doch alle Profis. Kann mir jemand das helfen? |
Re: Hilfe:Caesar-Verfahren
Zitat:
Delphi-Quellcode:
...
function decode(s: string): string; var i: Integer; begin for i := 1 to Length(s) do begin // Für alle Buchstaben if UpCase(s[i]) in ['A'..'W'] then begin // Wenn Buchstabe zwischen A und W ist Inc(s[i],3); // Um 3 Zeichen nach rechts verschieben end else begin if UpCase(s[i]) in ['X'..'Z'] then begin // Wenn Buchstabe zwischen X, Y oder Z ist Dec(s[i],23); // Um 23 Zeichen nach links verschieben // X = A, Y = B, Z = C end; end; end; Result := s; // Verschlüsselten Text zurückgeben end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.Text := decode(Memo1.Lines.Text); end; ... oder :mrgreen:
Delphi-Quellcode:
...
function decodeBuchstabe(c: Char): Char; begin case c of 'a' : Result := 'd'; 'b' : Result := 'e'; 'c' : Result := 'f'; 'd' : Result := 'g'; 'e' : Result := 'h'; 'f' : Result := 'i'; 'g' : Result := 'j'; 'h' : Result := 'k'; 'i' : Result := 'l'; 'j' : Result := 'm'; 'k' : Result := 'n'; 'l' : Result := 'o'; 'm' : Result := 'p'; 'n' : Result := 'q'; 'o' : Result := 'r'; 'p' : Result := 's'; 'q' : Result := 't'; 'r' : Result := 'u'; 's' : Result := 'v'; 't' : Result := 'w'; 'u' : Result := 'x'; 'v' : Result := 'y'; 'w' : Result := 'z'; 'x' : Result := 'a'; 'y' : Result := 'b'; 'z' : Result := 'c'; 'A' : Result := 'D'; 'B' : Result := 'E'; 'C' : Result := 'F'; 'D' : Result := 'G'; 'E' : Result := 'H'; 'F' : Result := 'I'; 'G' : Result := 'J'; 'H' : Result := 'K'; 'I' : Result := 'L'; 'J' : Result := 'M'; 'K' : Result := 'N'; 'L' : Result := 'O'; 'M' : Result := 'P'; 'N' : Result := 'Q'; 'O' : Result := 'R'; 'P' : Result := 'S'; 'Q' : Result := 'T'; 'R' : Result := 'U'; 'S' : Result := 'V'; 'T' : Result := 'W'; 'U' : Result := 'X'; 'V' : Result := 'Y'; 'W' : Result := 'Z'; 'X' : Result := 'A'; 'Y' : Result := 'B'; 'Z' : Result := 'C'; else Result := c; end; end; procedure TForm1.Button2Click(Sender: TObject); var i: Integer; s: string; begin s := Memo1.Lines.Text; for i := 1 to Length(s) do begin s[i] := decodeBuchstabe(s[i]); end; Memo1.Lines.Text := s; end; ... |
???Verschlüsselung nur im Alphabet???
Also ich hatte mal ein bisschen rumprobiert, aber bekomme es net hin, aus dem vorhandenen Quelltext, eine verschlüsselung zu vollführen OHNE Sonderzeichen. Ich möchte also, dass die Verschlüsselung im Alphabet bleibt. Aber ich muss nicht um 3 Buchstaben den Text verschlüsseln sondern um eine Variable, sonst wäre es ja ent so schwer. Aber das überfordert mich.
Bitte nochmals um Hilfe! Quelltext: siehe erste Eintragung. Danke euch!!! |
Re: ???Verschlüsselung nur im Alphabet???
Zitat:
Statt 3 einfach Anzahl verwenden. Statt 23 einfach 26 - Anzahl verwenden. Um den richtigen Buchstaben auszuwählen verwende ich hier ein Array. (Es geht auch effizienter, aber das Array ist sehr anschaulich). Ließ Dir meine oberen Postings noch mal durch, dann solltest Du den Quelltext verstehen. Hier die Lösung:
Delphi-Quellcode:
...
const Buchstabe : Array[1..26] of Char = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'); function decode(s: string; Anzahl: Integer): string; var i: Integer; begin // Anzahl darf nur zw. 1 und 25 sein !!! for i := 1 to Length(s) do begin // Für alle Buchstaben if UpCase(s[i]) in ['A'..Buchstabe[26 - Anzahl]] then begin // wenn es ein Buchstabe ist, der gefahrenlos verschoben werden kann Inc(s[i], Anzahl); // Um Anzahl Zeichen nach rechts verschieben end else begin if UpCase(s[i]) in [Buchstabe[27 - Anzahl]..'Z'] then begin // wenn es ein Buchstabe ist, der ncht so einfach verschoben werden kann Dec(s[i],26 - Anzahl); // Um 26 - anzahl Zeichen nach links verschieben // bei Anzahl = 3 zB: X = A, Y = B, Z = C end; end; end; Result := s; // Verschlüsselten Text zurückgeben end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Text := decode(Memo1.Lines.Text, 3); end; ... |
Re: ???Verschlüsselung nur im Alphabet???
Zitat:
Die klassische Cäsar Verschlüsselung ist mit drei Buchstaben! Und Du wolltest eine Cäsar Verschlüsselung. Das steht im WikiPedia Der Name Cäsarchiffre rührt aus der historischen Verwendung dieses Chiffres durch Julius Cäsar zur verschlüsselten Kommunikation. Cäsar rotierte das Alphabet um 3 Buchstaben. [equote:739ac0d25c="Das Verfahren wird bei Sueton wie folgt beschrieben (De Vita Caesarum: Divus Julius LVI)"]... si qua occultius perferenda erant, per notas scripsit, id est sic structo litterarum ordine, ut nullum verbum effici posset: quae si qui investigare et persequi velit, quartam elementorum litteram, id est D pro A et perinde reliquas commutet. ... wenn etwas Geheimes zu überbringen war, schrieb er in Zeichen, das heißt, er ordnete die Buchstaben so, dass kein Wort gelesen werden konnte: Um diese zu lesen, vertausche man den vierten Buchstaben, also D, für A und ebenso mit den restlichen.[/equote:739ac0d25c] |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz