Geheimsprache

[CalganX]

Hi,
nur mit dem Unterschied, dass Satz und Satz2 vom Typ string und nicht char sein dürfen.

[braingrenade]

jup , hatte ich übersehen !

[Seniman]

Hallo Tidus,

versuch es mal folgendermaßen:
Lass bei Readln() einen STRING einlesen keinen CHAR.
Ein String kann bei Delphi verwendet werden wie ein Array. D.h. ist ein String eingegeben, sagen wir er heißt "Satz", dann kannst du mit Satz[1] auf den ersten Buchstaben zugreifen, mit Satz[2] auf den zweiten usw. Um herauszufinden, wie viele Buchstaben der String enthält benutze die Funktion length. Das ganze baust du in eine For-Schleife ein. Es könnte etwa so aussehen:

Delphi-Quellcode:

begin
Writeln('Gib einen Satz ein');
Readln(Satz);
for i:=1 to Length(Satz) do
  begin
    {Hier musst du noch auf das Z achten, denn das soll ja zu A werden}
    Satz2[i]:=Chr(Ord(Satz[i])+1);
  end;
Writeln(Satz2);
Readln;
end.

An der markierten Stelle solltest du noch eine Abfrage einbauen, ob der Buchstabe ein "z" oder ein "Z" ist und dann gegen "a" bzw. "A" ersetzten. Außerdem solltest du dir überlegen, was du mit Satzzeichen machst.

Ach nochwas: Ich weiß nicht, wofür du diese Verschlüsselung brauchst, aber wenn du damit ernsthaft Texte verschlüsseln willst, damit sie keiner Lesen kann, dann benutz einen anderen Algorithmus, dieser ist SEHR unsicher.

Grüße
Seniman

[Tidus]

Das klappt aber nicht so ganz
einmal steht da
array type required und dann incompatible types: 'Char' and 'ShortString'

[Tidus]

Bei braingrenade ist das Problem das er bei leerzeichen kein Leerzeichen macht sondern ein Ausrufzeichen und das vor jedem Satz so eine Art Smiley macht und das das Z nicht zum A wird

Und bei Seniman
lässt es sich nicht starten

[Thunderchild]

@braingrenade:
wenn Du das so machst, bekommst Du was Falsches.
Du darfst mit der Schleife erst bei Index 1 anfangen, denn im Index 0 steht die Länge des Strings.
Diese Möglichkeit dürfte weiter helfen (hab se nicht getestet):

Delphi-Quellcode:

procedure umwandeln(var satz:string);
var zeichen:char; i:byte;
begin
for i:=1 to length(satz) do
  case satz[i] of
    'a'..'y','A'..'Y': satz[i]:=chr(ord(satz[i])+1);
    'z': satz[i]:='a';
    'Z': satz[i]:='A';
  end;
end;

Man könnte jetzt noch die Umlaute mit einbauen, Ziffern, usw.
Das ließe sich dann eleganter über einen eigenen Typ machen.
Bsp:
type tZeichen=('a'..'z','A'..'Z','ä','ö','ü','Ä','Ö','Ü','ß'); Dann reicht ein einfaches inc(zeichen), um von 'z' nach 'A' zu schieben.
Man könnte auch nur kleine ODER große Zeichen verwenden und arbeitet beim Vergleich mit UpperCase oder LowerCase.

[Tidus]

Code:

 program Geheimsprache2;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

begin
Writeln('Gib einen Satz ein');
Readln(Satz);
for i :=1 to length(satz) do
begin
x := ord(Satz[i]);
x := x+1;
Satz2 := satz2 + chr(x);
end;

Writeln(Satz2:1);
Readln;

end.

Soweit so gut. Nur noch mit der Leerstelle und mit dem Z habert es noch, da für Leerstelle eine Ausrufezeichen kommt und für Z kein A
Was muss ich in meiner Konstruktion verändern

[braingrenade]

So , hab hier mal was zusammengescjustert was funktionieren sollte.

Delphi-Quellcode:

 program Geheimsprache2;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

begin
Writeln('Gib einen Satz ein');
Readln(Satz);
for i :=1 to length(satz) do
begin
x := ord(Satz[i]);
if (x >= 65) and (x<=122) then
begin
x := x - 65 ;
x := (x+1) mod 58 ;
x := x +65 ;
Satz2 := satz2 + chr(x);
end
else Satz2 := satz2 + chr(x);
 

end;

Writeln(Satz2:1); 
Readln; 

end.

edit : Umlaute funktionieren aber nicht !
edit2 : @thunderchild : vergess ich immer wieder das mit den strings

[HAF4ever]

das ist ja das prinzip der XOR Verschlüsselung wenn ich das richtig verstehe.

dann würde die Funktion ungefähr so aussehen:

Delphi-Quellcode:

function umwandeln(s: String):String;
var
  i: Integer;
begin
  for i:=1 to length(s) do
      s[i]:=Chr(Ord(s[i]) XOR Ord(254));
  umwandeln:=s;
end;

[Tidus]

Delphi-Quellcode:

begin 
x := ord(Satz[i]); 
if (x >= 65) and (x<=122) then 
begin 
x := x - 65 ; 
x := (x+1) mod 58 ; 
x := x +65 ; 
Satz2 := satz2 + chr(x); 
end 
else Satz2 := satz2 + chr(x);

kannst du mir erklären wie das funktioniert, ich verstehe es nämlich nicht

[edit=Sharky]Delphi Tags korrigiert. Mfg, Sharky[/edit]