ganz einfache Verschlüsselung von einem Memo Text

**Penelopee**

Ich habe in einem Memo einen Text geladen und möchte wenn ich auf den Button verschlüssele klicke , dass sich alle Buchstaben um eine Stelle Verschieben , also Cäsar Verchlüsselung.Muss ich dazu alle Buchstaben speichern und dann einfach a:=b setzen oder wie mache ich das am besten???
Vielen Dank im Vorraus!

Cäsar Verschlüsselung hatten wir schon ein paar Mal, einfach mal die Forensuche bemühen.

**Penelopee**

ja ich habs gesehen.Aber da sind so lange quellcodes und das ist viel zum kompliziert.Ich möchte einen Text , der aus 2 Worten besteht:'Hallo du' , möchte ich verschlüsseln.

**Maximus**

Es gibt viele verschiedene Wege so eine Verschlüsselung umzusetzen ...

Eine Möglichkeit ist z.b. dass du ein Schlüssel nimmst, den aktuellen Buchstaben suchst und dann durch den nächsten ersetzt

zusammenfalten · markieren

Delphi-Quellcode:

			function Verschluessle(Text: String) : String;

const

 Key = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ ';

{ ... }

function Verschluessle(Text: String) : String;

var i,j: Integer;

begin

 Result := ''; //Ergebniss zurücksetzen

 for i := 1 to length(Text) do //Jeden Buchstaben des Textes durchgehen

 begin

   for j := 1 to 27 do //Jeden Buchstaben des Schlüssels durchgehen

   begin

     if Text[i] = Key[j] then //Sobald der Buchststabe gefunden ist

      Result := Result + Key[j+1]; //Den nächsten Buchstaben des Schlüssels hinzufügen

   end;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 Memo1.Lines.Text := Verschluessle(Memo1.Lines.Text); //Möglicher ausruf der Funktion

end;

Natürlich funktioniert dies nur mit Großbuchstaben, aber ich denke du wirst hier auch ganz leicht Kleinbuchstaben implementieren können, und noch diverse Bugs behebn können. (Eigeninitiative)

MFG
Maximus

**Penelopee**

Hier ist nochmal mein Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  Text:string;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

begin

Text:='Wer diesen Text verschlüsseln kann ist gut';

Memo1.Lines.Text:=Text;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

end.

Ich möchte jetzt diesen Text ganz einfach verschlüsseln.Brauche ich dafür eine Funktion oder geht das auch ohne??

**ichbins**

Probier mal das:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure encode(key:integer);

var

  i,j,k,pos:integer;

  s:string;

  done:tpoint;

const

  letters:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ßöäüÖÄÜ'; //diese Buchstabenliste kann beliebig erweitert werden.

begin

  for i:=0 to form1.memo1.lines.Count-1 do

    for j:=1 to length(form1.memo1.lines.Strings[i]) do

      for k:=1 to length(letters) do

        if byte(form1.memo1.lines.Strings[i][j])=byte(letters[k]) then

        begin

          if not ((done.x=i) and (done.y=j)) then

          begin

            pos:=k+key;

            while pos>length(letters) do

              pos:=pos-length(letters);

            while pos<1 do

              pos:=pos+length(letters);

            s:=form1.memo1.lines.strings[i];

            s[j]:=letters[pos];

            form1.memo1.lines.Strings[i]:=s;

            done.X:=i;

            done.Y:=j;

          end;

        end;

end;

**Penelopee**

das funktionirt irgendwie nicht , danke für die mühe!!!!

**3_of_8**

Mal ne ganz einfache Möglichkeit:

Verschlüsseln:

markieren

Delphi-Quellcode:

			function encodestr(Str: String; Key: Byte): String;

var I: Cardinal;

begin

Result:=Str;

for I:=1 to length(Result) do

Result[I]:=Chr(Ord(Result[I]) xor Key);

end;

Zum Entschlüsseln eines Strings die Funktion encodestr einfach noch einmal anwenden, das ganze ist umkehrbar.

Die "Cäsarverschlüsselung" ist auch ganz einfach:

zusammenfalten · markieren

Delphi-Quellcode:

			function encodestr(Str: String): String;

var I: Cardinal;

begin

Result:=Str;

for I:=1 to length(Result) do

Result[I]:=Chr(Ord(Result[I])+1);

end;

function decodestr(Str: String): String;

var I: Cardinal;

begin

Result:=Str;

for I:=1 to length(Result) do

Result[I]:=Chr(Ord(Result[I])-1);

end;

**Ultimator**

markieren

Delphi-Quellcode:

			function encodestr(Str: String; Key: Byte): string; 

var I: Cardinal; 

begin 

  Result:=Str; 

  for I:=1 to length(Str) do 

   Result[I]:=Chr(Ord(Result[I] xor Key); 

end;

Du hast vergessen, den Typ des Result anzugeben

ganz einfache Verschlüsselung von einem Memo Text

ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Re: ganz einfache Verschlüsselung von einem Memo Text

Forumregeln

PierreB (Gast) n/a Beiträge	#2 Re: ganz einfache Verschlüsselung von einem Memo Text 19. Nov 2005, 10:49 Cäsar Verschlüsselung hatten wir schon ein paar Mal, einfach mal die Forensuche bemühen.
	Zitat

Penelopee Registriert seit: 7. Okt 2005 69 Beiträge	#3 Re: ganz einfache Verschlüsselung von einem Memo Text 19. Nov 2005, 11:28 ja ich habs gesehen.Aber da sind so lange quellcodes und das ist viel zum kompliziert.Ich möchte einen Text , der aus 2 Worten besteht:'Hallo du' , möchte ich verschlüsseln.
	Zitat

Penelopee Registriert seit: 7. Okt 2005 69 Beiträge	#8 Re: ganz einfache Verschlüsselung von einem Memo Text 19. Nov 2005, 17:36 das funktionirt irgendwie nicht , danke für die mühe!!!!
	Zitat

Ultimator Registriert seit: 17. Feb 2004 Ort: Coburg 1.860 Beiträge FreePascal / Lazarus	#10 Re: ganz einfache Verschlüsselung von einem Memo Text 19. Nov 2005, 17:45 markieren Delphi-Quellcode: function encodestr(Str: String; Key: Byte): string; var I: Cardinal; begin Result:=Str; for I:=1 to length(Str) do Result[I]:=Chr(Ord(Result[I] xor Key); end; Du hast vergessen, den Typ des Result anzugeben Julian J. Pracht
	Zitat