Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Werte vergleichen

   
    by Klaus01, 5. Dez 2006
  Hallo Sierra,
  
  eine Lösung zu Deinem Problem findes Du hier oder hier.
  
  Und hier ist die Verschlüsselung beschrieben:
  
  Ich weiß es nicht so genau, aber ...
  
  function Verschluesseln(pPlaintext, pSchluessel: String):String;
  var i, j: integer;
• Forum: Sonstige Fragen zu Delphi

  Re: Werte vergleichen

   
    by Klaus01, 5. Dez 2006
  nein, ich meinte diese:
  edit2: Ist bei Dir A = 0 B = 1 ... und a = 0 und b = 1 ...?
  Dann mußt Du von allen ord-Werten den Ordinalwert von A abziehen, dann solltest Du auf Deine
  Werte kommen.
  
  edit3: ord(t) != 19 und ord(k) != 10, ord gibt Dir den Ascii Wert eines Zeichens zurück.
  19= ord(t) - ord(a);
  
  Grüße
  Klaus
• Forum: Sonstige Fragen zu Delphi

  Re: Werte vergleichen

   
    by Klaus01, 5. Dez 2006
  Habe in meinem ersten Beitrag noch etwas hinzugefügt.
  
  Grüße
  Klaus
• Forum: Sonstige Fragen zu Delphi

  Re: Werte vergleichen

   
    by Klaus01, 5. Dez 2006
  procedure TVigenere.Verschluesseln(pPlaintext, pSchluessel: String);
  var i, j, k: integer;
  lBuchstabe: char;
  begin
  zPlaintext:=pPlaintext;
  zSchluessel:=pSchluessel;
  zCiphertext:='';
  for i:=1 to length(zPlaintext) do
  begin
  j:=i mod ord(zSchluessel); // ausgebessert