Visual Basic VS Delphi -> String Encode / Decode

[agm65]

bei mir sieht das jetzt so aus

Delphi-Quellcode:

function Encode(what: string): string;
var
Zeile: string;
PW: string;
U: integer;
P: integer;
k: integer;
z2: string;

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

  repeat Until Length(Zeile) = P;
   k := k + 1;
   U := U + 1;
   P := P + 1;

   If k = Length(PW) Then k := 1;
   Z2 := Copy(PW, k, 1);
      If Z2 = ' ' Then;
    Z2 := Copy(PW, k + 1, 1);
    k := k + 1;
    End;
   Zeichen := Copy(Zeile, P, 1); <--- hier sagt er mir: auf u zugewiesener wert wird niemals benutzt
   NewChar := Ord(Zeichen) + Ord(Z2);
   If NewChar > 255 Then NewChar = NewChar - 255;
   Crypt = Crypt + Chr$(NewChar);
  Loop;
  Encode = Crypt;

end;

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

[fkerber]

Hi!

Das ist nur ein Hinweis, dass du U gar nicht brauchst.
Einfach u rausschmeißen.

Ciao fkerber

[MrSpock]

Hallo agm65,

das ist nur eine Warnung, die du nur als Hinweis bekommst. Aber der Compiler hat zurecht festgestellt, dass die Variable u mit 0 initialisiert und dann hochgezählt wird, ohne jemals verwendet zu werden. Deshalb der Hinweis.

Außerdem müssen Zeichen, Crypt und NewChar noch deklariert werden.

[agm65]

dann geht es so weiter...hey kann das nicht mal einer für mich machen ,....ich bin damit echt übervordert !....thx alot cu agm65

[agm65]

MAYDAY, MAYDAY -> an die PRO Delphi Coder....

Hilfe...ich gehe unter... :duck:

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

[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.... :-D

[MrSpock]

Sir ...
Ich war zwei Minuten eher, somit gebührt mir der Zuckerkuchen, sofern man logisch entscheidet. :mrgreen:

[SirThornberry]

@Spocki: du warst ni wirklich eher - ich hatte den source fertig und hab dann geguckt ob schon jemand die antwort gepostet hat. Da noch keiner geantwortet hab, hab ich nen weiteren test gemacht, und dann geantwortet - hast mich dann wohl in derzeit überholt :? Ist ja auch egal - hauptsache ich bekomme wenigstens nen halben zuckerkuchen :tongue:

außerdem stimmt dein repeat nicht. in Basi ist es ja auch ne anfangsgeprüfte schleife. Bei dir wird die schleife aber mindestens einmal durchlaufen was nicht correkt ist - sollte schief gehen wenn ich einen leerstring übergebe

[agm65]

ich idiot warte die ganze zeit auf seite 1....da kann ich lange warten ..danke euch beiden ich werde es gleich testen .,...zuckerkuchen habe ich leider keine aber ein bier !

:cheers: