encriptacion simple "xor"

[roman]

Pues se usa exactamente igual:

Código Delphi [-]
var
  A, B, C: Integer;

begin
  A := $0F;
  B := $75;
  C := A xor B; // C es ahora $7A
  C := C xor B; // C es ahora $0F
end;

// Saludos