Visual Basic VS Delphi -> String Encode / Decode

[agm65]

so gehts ! habs danke !

Delphi-Quellcode:

Function Decode(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 < 0 Then NewChar := NewChar + 255;
   Crypt := Crypt + Char(NewChar);
  end;
  result := Crypt;

End;

[edit=MrSpock]Code Tags durch Delphi Tags ersetzt. Mfg, MrSpock[/edit]