Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Delphi Kryptologie

   
    by bigben37, 4. Nov 2008
  var
  l: Integer;
  text1, text2: string;
  klartext : string;
  begin
  klartext := '123456';
  l := Length(klartext);
  text1 := Copy(klartext, 1, l div 2);
  text2 := Copy(klartext, l div 2 + 1, l);
  ShowMessage(text1);
• Forum: Sonstige Fragen zu Delphi

  Re: Delphi Kryptologie

   
    by bigben37, 4. Nov 2008
  vielleicht mal ein Ansatz:
  
  procedure Verschluessle;
  var
  l: Integer;
  text1, text2: string;
  begin
  l := Length(klartext);
  text1 := Copy(klartext, 1, l div 2);
  text2 := Copy(klartext, l div 2 + 1, l);