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