Visual Basic VS Delphi -> String Encode / Decode

[agm65]

man es läuft genau wie im vb ...ihr seit spitze ! !! YIPPI ! ...hoffentlich schaffe ich die decode alleine .....*freu*

[MrSpock]

Hallo agm65,

für Hilfe beim Decode musst du aber noch Zuckerkuchen besorgen. Vielleicht mit Kaffee oder so, weil mit Bier :cheers: ...

[agm65]

hehe lol okay...hab alles organisiert ...habs versucht ...aber nicht geschafft ..ist doch nicht so leicht trotz perfect laufender encode function....darf ich euch nochmal um eure hilfe bitten :)

dann geb ich ne runde aus, für alle :) !

[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]

[SirThornberry]

na toll, habs auch gerade fertig :(

[agm65]

tut mir leid....gibt trotzdem freibier für alle !

die funktion ist echt top und läuft genau wie in vb..habt dank !
könnt beide (en & decode) bei den sources posten wenn ihr wollt !


cu agm65


:cheers: :cheers: :cheers: