Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Caesar Verschlüsselung Probleme

    Delphi
    by issejal, 28. Nov 2005
  danke toxman für den ansatz, vielleicht schaffe ich es doch noch. sieht aber eher schlecht aus...
• Forum: Sonstige Fragen zu Delphi

  Re: Caesar Verschlüsselung Probleme

    Delphi
    by issejal, 28. Nov 2005
  hab nen quellcode gefunden für den festen schlüssel 3:
  
  for i:=0 to richedit1.lines.count-1 do
  begin
  for j:=1 to length(richedit1.lines) do
  if ((ord((richedit1.lines))>64) and (ord((richedit1.lines))<88))
  then s:=s+chr(ord((richedit1.Lines))+3)
  else if ((ord((richedit1.lines))>87) and (ord((richedit1.lines))<91)) then s:=s+chr(ord((richedit1.Lines))-23)
  ...
• Forum: Sonstige Fragen zu Delphi

  Re: Caesar Verschlüsselung Probleme

    Delphi
    by issejal, 28. Nov 2005
  ok gut, die rechnung verstehe ich, aber ich bin in delphi nicht der hellste,
  ich weiß ehrlich nicht wie ich das in delphi soll.
  
  mit ord() wandle ich den Buchstaben in eine zahl um und mit chr() wieder zurück.
  
  kannst du mir bitte einen kleinen ansatz geben, wo ich drauf aufbauen kann?
• Forum: Sonstige Fragen zu Delphi

  Re: Caesar Verschlüsselung Probleme

    Delphi
    by issejal, 28. Nov 2005
  hallo, vielen dank für die schnelle antwort
  mit chr und ord habe ich noch nicht gearbeitet, weil
  wenn ich den schlüssel 5 eingebe und beim X bin, kommen beim ASCII nur Zeichen.
  
  das problem ist, dass man bei den letzten buchstaben (z.b. x,y,z) den schlüssel
  ja nicht mehr addieren muss, sondern subtrahieren und das bereitet mir auch probleme.
  
  gibt es irgendwo ein FAQ zu chr und ord?
• Forum: Sonstige Fragen zu Delphi

  Caesar Verschlüsselung Probleme

    Delphi
    by issejal, 28. Nov 2005
  hallo,
  ich versuche gerade einen Text per Caesar-Verschlüsselung wie folgt zu verschlüsseln:
  
  function decodeBuchstabe(c: Char): Char;
  begin
  
  case c of
  'a' : Result := 'd';
  'b' : Result := 'e';
  'c' : Result := 'f';