Unit zur verschlüsselung von Passwörtern!

[Cöster]

Zwei Button und zwei Edit-Felder ins Formular. Und hier die zwei procedures:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,k,l: integer;
    Basis,Code,Wort: String;
begin
 Basis:='asdfqwertzuighjklöäopümnbvcxyQWERASDFYXCVBNMGHJKLÖÄÜPOIUZTß0987654321 fdsaghkl1234567890poiuzXCVBNM';         {diesen String solltest du noch ein bisschen durchwurschteln, er muss hier aber der gleiche sein wie unten. Du könntest ihn auch verlängern oder zusätzliche Zeichen reinpacken, musst einige Schleifenvariablen dann aber evtl. ändern}
 Edit2.Text:='';
 Wort:=Edit1.Text;
 l:=0;
 For i:=1 to Length(Wort) do begin
  k:=0;
  repeat
   k:=k+1;
   l:=l+1;
   If l>99 then l:=l-99;
  until Wort[i]=Basis[l];
  If k<10 then Code:='0'+IntToStr(k)
  Else if k<100 then Code:=IntToStr(k);
  Edit2.Text:=Edit2.Text+Code;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,k,l: integer;
    Basis,Code: String;
begin
 Basis:='asdfqwertzuighjklöäopümnbvcxyQWERASDFYXCVBNMGHJKLÖÄÜPOIUZTß0987654321 fdsaghkl1234567890poiuzXCVBNM';
 Edit1.Text:='';
 Code:=Edit2.Text;
 l:=0;
 For i:=1 to Length(Code) div 2 do begin
  k:=StrToInt(Code[2*i-1]+Code[2*i]);
  l:=l+k;
  If l>99 then l:=l-99;
  Edit1.Text:=Edit1.Text+Basis[l];
 end;
end;