Visual Basic VS Delphi -> String Encode / Decode

[SirThornberry]

Hmm, hoffe ich hab keinen Fehler reingemacht, bin nicht so der VBLer...

Delphi-Quellcode:

function Encode(What: String): String;
var Zeile, PW, Crypt: String;
    P, k, NewChar: Integer;
    zeichen, Z2: Char;
begin
  Zeile := What;
  Crypt := '';
  PW := 'Password';
  P := 0;
  k := 0;
  while not(Length(Zeile) = P) do
  begin
   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 + Char(NewChar);
  end;
  result := Crypt;
end;

Als Belohnung will ich nen Zuckerkuchen....