String verschlüsseln

[Masteric]

Hi,
ich wollte mal eine Funktion von mir vorstellen, mit der man ganz einfach Texte verschlüsseln, bzw. entschlüsseln kann

Delphi-Quellcode:

function crypt(text:string; key:string; difference:integer):string;
var i,o,e,u,fi,a:integer; b,c,d,f,g,h,j:widestring;
begin

b:=text;

 For e:=1 to length(key) do begin
 a:=ord(key[e]);
 d:=inttobin(a);


   For i:=1 to length(b) do begin

    u:=ord(b[i]);
    c:=inttobin(u);
    g:='';
    IF d<>c then begin
    For o:=1 to 8 do begin
    IF (d[o]='1') and (c[o]='0') then g:=g+'1';
    IF (d[o]='1') and (c[o]='1') then g:=g+'0';
    IF (d[o]='0') and (c[o]='0') then g:=g+'0';
    IF (d[o]='0') and (c[o]='1') then g:=g+'1';
    end;

   j:=j+char(bintoint(g));
  end;
  IF d=c then
  j:=j+char(u);
  end;

   b:=j;
  j:='';
 end;


  For i:=1 to length(b) do begin

  a:=ord(key[length(key) mod (i+difference)]);
  d:=inttobin(a);
  u:=ord(b[i]);
    c:=inttobin(u);
    g:='';
    IF d<>c then begin
    For o:=1 to 8 do begin
    IF (d[o]='1') and (c[o]='0') then g:=g+'1';
    IF (d[o]='1') and (c[o]='1') then g:=g+'0';
    IF (d[o]='0') and (c[o]='0') then g:=g+'0';
    IF (d[o]='0') and (c[o]='1') then g:=g+'1';
    end;

  j:=j+char(bintoint(g));
  end;

  IF d=c then
  j:=j+char(u);
  end;


  b:=j;
  j:='';

  crypt:=b;

end;



function decrypt(text:string; key:string; difference:integer):string;
var i,o,e,u,fi,a:integer; b,c,d,f,g,h,j:widestring;
begin

b:=text;

  For i:=1 to length(b) do begin

  a:=ord(key[length(key) mod (i+difference)]);
  d:=inttobin(a);
  u:=ord(b[i]);
    c:=inttobin(u);
    g:='';
    IF d<>c then begin
    For o:=1 to 8 do begin
    IF (d[o]='1') and (c[o]='0') then g:=g+'1';
    IF (d[o]='1') and (c[o]='1') then g:=g+'0';
    IF (d[o]='0') and (c[o]='0') then g:=g+'0';
    IF (d[o]='0') and (c[o]='1') then g:=g+'1';
    end;

  j:=j+char(bintoint(g));
  end;

  IF d=c then
  j:=j+char(u);
  end;
    b:=j;
  j:='';





 For e:=length(key) downto 1 do begin
 a:=ord(key[e]);
 d:=inttobin(a);


   For i:=1 to length(b) do begin
  
    u:=ord(b[i]);
    c:=inttobin(u);
    g:='';
    IF d<>c then begin
    For o:=1 to 8 do begin
    IF (d[o]='1') and (c[o]='0') then g:=g+'1';
    IF (d[o]='1') and (c[o]='1') then g:=g+'0';
    IF (d[o]='0') and (c[o]='0') then g:=g+'0';
    IF (d[o]='0') and (c[o]='1') then g:=g+'1';
    end;

   j:=j+char(bintoint(g));
  end;
  IF d=c then
  j:=j+char(u);
  end;

   b:=j;
  j:='';
 end;
decrypt:=b;

end;

Das ganze benötigt noch die funktionen Inttobin und bintoint.

Zur erklärung: das ganze funktioniert folgender Maßen:
Einfaches Beispiel:

Der Buchstabe der Verschlüsselt werden soll ist A. Das Passwort ist nur der Buchstabe B.
A sieht in Binärschreibweise so aus: 01000001
B sieht in Binärschreibweise so aus: 01000010

wenn das ganze dann verschlüsselt wird komm 00000011 bei raus und das wäre das Zeichen "". Es ist also keine einfache verschiebung im Alphabet. Bei mehreren Zeichen im Passwort, wird jedes Zeichen des Strings nach jedem Zeichen des Passwortes auf diese Art verschlüsselt, wodurch die Sicherheit mit der länge des Passwortes steigt, außerdem wird am Ende nochmal jedes Zeichen einzelln nach einem bestimmten Zeichen des Passwortes verschlüsselt, damit man die Wörter nicht durch ihre Form , z.B. @((@ = OTTO entschlüsseln kann.


So wollte mal nach euer Meinung zu dieser Verschlüsselungstechnik fragen.
Hoffe auf reges Feedback, kann auch gern kritik sein.