Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: XOR Verschlüsselung ANFÄNGER

   
    by himitsu, 2. Jun 2006
  Einfach jedes Zeichen in eine Zahl (Byte, Integer...) umwandeln, diese per XOR verknüpfen und dann zurück in ein Zeichen (Char, AnsiChar...)
  For i := 1 to Length(Text) do Begin
  B1 := Byte(Text);
  B2 := Byte(Key);
  Bx := B1 xor B2;
  Text := Char(Bx);
  End;
  Zusammen isses natürlich kürzer:
  For i := 1 to Length(Text) do
  Text := Char(Byte(Text) or Byte(Key));