Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: xor funktioniert nicht

    Delphi
    by shmia, 4. Mai 2009
  120 MByte brauchen auf meinem (2.8GHz) Rechner unter 1 Sekunde.
  Alles unter naja sagen wir 5 Sekunden braucht nur eine Sanduhr.
  Sollte die Datenmenge so groß werden, daß man mehr als 3 Sekunden braucht, dann kann man immer noch
  die Funktion auf Zeigerarithmetik umbauen...
  // 250 MB => ~ 1 Sekunde
  function StringXorCrypt(const text, key:string):string;
  var
  i, j, keylen : Integer;
  ...
• Forum: Multimedia

  Re: xor funktioniert nicht

    Delphi
    by shmia, 4. Mai 2009
  Am Besten du nimmst eine sauber programmierte Funktion wie diese:
  function StringXorCrypt(const text, key:string):string;
  var
  i, j, keylen : Integer;
  begin
  SetLength(Result, length(text));
  j := 1;
  keylen := Length(key);
  for i := 1 to Length(text) do
  begin