Verschlüsselungs-algo

[ibp]

Zitat:

Zitat von glkgereon

hmm, ist doch noch besser wenn der potenzielle "hacker" schon mühe hat die buchstaben/zeichen überhaupt einzugeben!

und was ist mit denen, die damit arbeiten müssen?

[glkgereon]

Oooopppsss, ich habe gesagt Keine For-Schleife????

hmm, in der schule hatte ich im kopf ich würde es mit while machen *ggg*
na gut, is doch for

hier mal der code:
verschlüsseln

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, adder, toggle:integer;
begin
  toggle:=SpinEdit1.Value;
  adder:=SpinEdit2.Value;
  Memo2.Clear;
  for i:=1 to length(Memo1.Text) do
    begin
    Memo2.Text:=Memo2.Text+ Chr((Ord(Memo1.Text[i])+adder) mod 256);
    adder:=adder+toggle;
    if abs(adder)>SpinEdit3.Value then toggle:=toggle*(-1);
    end;
end;

entschlüsseln

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i, adder, toggle:integer;
begin
  toggle:=SpinEdit4.Value;
  adder:=SpinEdit5.Value;
  Memo1.Clear;
  for i:=1 to length(Memo2.Text) do
    begin
    Memo1.Text:=Memo1.Text+ Chr((Ord(Memo2.Text[i])-adder) mod 256);
    adder:=adder+toggle;
    if abs(adder)>SpinEdit6.Value then toggle:=toggle*(-1);
    end;
end;

aber keine sorge, ich habe den code bereits modifiziert und verbessert.... :mrgreen:
der hier ist von gestern

[glkgereon]

die, die damit arbeiten, die können text per copy&paste einfügen ;)

[jfheins]

Oben der Klartext, darunter der Codetext, 3. zeile ist die Differenz ...

Code:

 68 97  83 32 75 114 73 101 71 116 32 73 104 82 32 69 104 32 78 105 67 104 84 32 82 97 85 115 33
 71 102 90 37 78 115 72 98  66 109 27 70 103 83 35 74 111 37 81 106 66 101 79 25 77 94 84 116 36
 +3 +5  +7 +5 +3 +1  -1 -3  -5 -7  -5 -3 -1  +1 +3 +5 +7  +5 +3  +1 -1  -3 -5 -7 -5 -3 -1  +1 +3

Bin zu faul, delphi aufzumachen, müsste aber so in der Art gehen:

Delphi-Quellcode:

zahl := 1;
increment := TRUE;

for i := 1 to length (KlarText) do
begin
  if increment then inc (zahl, 2);
  else dec (zahl, 2);

  Codetext := Codetext + chr (ord (Klartext[i]) + zahl);

  if abs (zahl) = 7 then increment := not increment;
end;

[Binärbaum]

Zur Problematik des Text eingebens mit Sonder-/Steuerzeichen:

Wer sagt denn, dass man (=Benutzer) den verschlüsselten Text eingeben muss?
Am Anfang hat man doch erstmal einen Text im "Originalzustand", den man dann verschlüsseln und in einer Datei abspeichern kann. Um den Text dann wieder zu entschlüsseln, muss man ihn nur aus der datei ins Memo (oder was auch immer) einlesen und dann durch die Entschlüsselungsprozedur jagen. Somit müssen sich die Benutzer auch nicht mit Sonderzeichen rumquälen. :-D

MfG
Binärbaum