Visual Basic VS Delphi -> String Encode / Decode

[MrSpock]

Hallo agm65,

Delphi-Quellcode:

function Encode(what: string): string;
var
   Zeile,
   PW,
   Crypt    : string;
   k,
   P,
   NewChar  : integer;
   z2,
   Zeichen  : Char;

begin
   Zeile := What;
   PW := 'Password';
   P := 0;
   k := 0;

   repeat
      k := k + 1;
      P := P + 1;

      If k = Length(PW) Then
         k := 1;

      Z2 := Copy(PW, k, 1)[1];
      If Z2 = ' ' Then
      begin
         Z2 := Copy(PW, k + 1, 1)[1];
         k := k + 1;
      end;
      Zeichen := Copy(Zeile, P, 1)[1];
      NewChar := Ord(Zeichen) + Ord(Z2);
      If NewChar > 255 Then
         NewChar := NewChar - 255;

      Crypt := Crypt + Chr(NewChar);
   Until Length(Zeile) = P;
   Result := Crypt;
end;

Versuch einmal, ob das funktioniert.