Geheimsprache

[Tidus]

Was muss man bei console application in den Quelltext eingeben, um aus


einem eingegebenen Satz ( <= 255 Zeichen) durch Verschiebung der Buchstaben im Alphabet jeweils um einen Buchstaben nach vorne verschlüsselt und den verschlüsselten Satz auf den Bildschirm ausgeben.
Beispiel: Gut geraten, ist halb gewusst. = Hvu hfsbufo, jtu ibmc hfxvttu.

Wäre sehr froh um Hilfe

[Kaiborg]

eine (zugegebenermaßen recht kompliziierte) Methode wäre es den text zeichen für zeichen auszulesen, diese zeichen intern in einen integer umzuwandeln(jeder buchstabe hat seinen eigenen wert) und wandelst es danach zurück um

[Tidus]

tut mir leid aber ich verstehe es nicht. was muss ich denn dann in den Quelltext eingeben. Odre gibt es vielleicht noch eine einfachere Lösung

[flomei]

Hm... :roll:

Man könnte ein Array erstellen und für jedes Zeichen einen Wert nehmen.
Wenn man den Text dann verschlüsselt überprüft man den Wert und rechnet -1.
Die daraus resultierende Kette rechnet man wieder in Zeichen um. Fertig!
Beim Zurückrechnen rechnet man einfach +1 bei jedem Wert.

Diese Methode ist allerdings SEHR SEHR unsicher!

MfG Florian :hi:

[Die Muhkuh]

Oder benutz Verschlüsselung Kompos wie Rijndael.
Zu finden auf www.crypto-central.com

[Tidus]

Könnte mir jemand eine Antwort geben indem er mir den Quelltext hinschreibt, ansonsten weiß ich nämlich nicht viel mit den Sachen anzufangen, da ich ja noch ziemlich unerfahren in Sachen Delphi bin

[Luckie]

Ord lieferet dir den ordinalen ASCII Wert. Und mit Chr geht es weider zurück. Wie man Addiert und subtrahiert, weißt du?

[CalganX]

Hi,
selbst dann kannst du nachfragen, wenn du was nicht verstehst.
Aber du kannst es zum Beispiel so machen:

Delphi-Quellcode:

// sEingabe = Eingabestring (string)
// sAusgabe = Ausgabestring (string)
// i = Laufvariable (integer)
for i:=1 to length(sEingabe) do begin
  sAusgabe[i] := Chr(Ord(sEingabe[i]) + 1);
end;

Chris

[Tidus]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Satz, Satz2: Char; x: Integer;

begin
  Writeln('Gib einen Satz ein');
  Readln(Satz);
  x := ord(Satz);
  x := x+1;
  Satz2 := chr(x);
  Writeln(Satz2:1);

  Readln;

end.

SO wenn ich das schreibe bekomme ich einen Buchstaben umgewandelt. Ich will aber einen ganzen Satz
wie geht das

PS
Sorry wegen der Unübersichtlichen Delphi Schreibweise, weiß aber nicht wie es anders geht

[edit=Admin]Einfach die Tags [ delphi] und [ /delphi] nutzen. Ich habe diese eben für Dich eingefügt und schon sieht der Quellcode übersichtlicher aus. Bitte künftig selber machen. Danke. ;-) Mfg, Daniel[/edit]

[braingrenade]

Moin !

Du musst das ganze noch in eine schleife packen die jeden Buchstaben des Satzes durchgeht :

Delphi-Quellcode:

program Project1; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 

var Satz, Satz2: Char; x,i: Integer; 

begin 
Writeln('Gib einen Satz ein'); 
Readln(Satz); 
for i :=0 to length(satz) do  //Die for-schleife geht alle Buchstaben von satz durch
begin
 x := ord(Satz[i]); 
 x := x+1; 
 Satz2 := satz2 + chr(x); 
end;

Writeln(Satz2:1); 
Readln; 

end.