XOR Verknüpfung, wie?

[Sharky]

Zitat von DoktorD:

.... Das OWE_509_ bleibt ja immer gleich. Aber wie kann ich das in diese Schleife mit einbringen? ...

Hai DoktorD,

entweder übergiebst Du das "OWE 509 " immer mit an die Funktion oder Du baust es dort einfach ein:

Delphi-Quellcode:

function checksum(SNr:String):String; 
VAR 
  i:Byte; 
  dummy:Byte; 
begin  
  SNr := 'OWE 509 ' + SNr; // OWE__509_ wird vor jede Seriennummer gesetzt.
  dummy:=ord(SNr[1] XOR ord (SNr[2]); 
  for i:=3 to length(SNr) DO 
    begin 
      dummy:=dummy XOR ord(SNr[i]); 
    end; 
  result := IntToHex(dummy); 
end;