Kleine Verschlüsselung

[Sascha_OW]

Delphi-Quellcode:

function verschüssel (Wort: string) : string;
var i,f,x:integer;
    test, test1, test2 : string;
begin
  test := '';
  For i := 1 to length(wort) do begin
       test := Test+  '#' + Inttostr(Ord(Wort[i])) + '#';
       test2 := Inttostr(Ord(Wort[i])) + '#';
       For f := Length(test2) to 9 do begin
             x := random (215) +36;
             test1 := Chr(x);
             test := test + test1;
       end;
  end;
  result := tesT;
end;

function entschüssel (Wort: string) : string;
var Buchstaben : TStringList;
   i,f : integer;
   test: string;
   Test1 : TStringList;
begin
    test := '';
    Test1 := TStringList.Create;
    Buchstaben := TStringList.Create;
    For i := 1 to length( wort) do begin
        If wort[i] = '#' then begin
            Buchstaben.add (InttoStr(i));
        end;
    end;
    For i := 1 to Buchstaben.count -1 do begin
        For f := StrtoInt(Buchstaben[i-1]) +1 to StrtoInt(Buchstaben[i])-1 do begin
            test := test + wort[f];
        end;
        try
        StrtoInt(test);
        If test <> '' then Test1.add (test);
        test := '';
        except
        test := '';
        end;
    end;
    test := '';
    For i:= 0 to Test1.Count -1 do begin
        test := test + chr (StrtoInt(Test1[i]));
    end;
    result := test;
end;

Das ist meine kleine Verschlüsslung ist nicht sehr hart zu knacken aber auch da muss man erstmal drauf kommen

[himitsu]

OK, jetzt sieht es schon schwerer aus, aber die "zufälligen" Werte da rauszufiltern sollte auch kein großes Problem darstellen und der Rest ist für 'nen halbwegs begabten CodeKnacker bestimmt auch keine große Angelegenheit mehr.

Diese "Zufallszahlen" bringen dir wie gesagt überhaupt nüschts, außer, daß sie den Verschlüsselten String nochmal vergrößern.
Ohne Randomize sieht man vorallem bei unterschiedlichen Eingabestrings sehr gut wo sich diese befinden und mit Randomize vorallem bei gleichem Eingabestring ... so oder so, die bringen garnüschts.

[Sascha_OW]

ja das mag sein. Ich der anfang vom string könnte einen noch ein bisschen verwirren.... und da ist ja festgelegt wo die zufallszahlen sind.

Ist ja auch meiner aller erste verschlüsselung die ich jemals gemacht habe, ich werde mich da jetzt vlt wenn ich zeit haben mal ein bisschen reinlesen und mal schauen was ich denn da so auf die beine stelle, vieleicht ja "md6" ne scherz

[phXql]

md5 is keine verschlüsselung...

[Sharky]

Hai Sascha_OW,

ohne jetzt dein System für die "Verschlüsselung" bewerten zu wollen möchte ich Dir doch eines an dein Herz legen (doller Satz oder *G*)

Wenn Du einen Beitrag in die Code-Lib stellst (was ich grundsätzlich immer sehr gut finde!!!)
Wäre es doch gut wenn Du den Code auch etwas "erklären" würdest.

Nur so haben andere aus unserem schönen Forum die Möglichkeit deinen Code für sich zu verwenden.

Aber das ist nur so ein "Denkanstoss" von dem alten Hai

[Sascha_OW]

deswegen steht ja auch dahinter "ne scherz"

also ich wollte das ding ja nie in die CL stellen es wurde dahin verschoben

aber trotzdem für die die das programm noch nicht gelesen haben:

Die Verschlüsselung macht nicht viel aber für den Anfang reicht es:
als erstes wird der Asciiwert der einzelen Zeichen ausgelesen
dann werden die mit 154 Multipliziert und danach noch mit der eigenen länge
danach werden zwischen die einzelnen Zeichenwerte eine Zufallszahl hinzufegügt
die Position, besser gesagt die stelle im String wo die Zufallszahl steht wird an den Anfang des Verschlüsselten strings geschrieben
und davor kommt noch die anzahl der steller, des teilstring, der die Position der zufallszahlen festfällt.

Das war es schon ist nicht besonderes, aber ist mein, deswegen für mich was besonderes

[Sascha_OW]

das war auch nicht zu einfach zu entschlüssln auch mit quelltext:
http://www.hackerboard.de/thread.php...866#post168866