| ( |
|
|
|||
| Returns value of all bits Bit Xor operation of 2 Integers | |||
 |
|
| Parameters: | |
| Integer | |
| Integer | |
|
|
global
procedure POSNETCheckSum(var string CtrlSeq)
BEGIN
Integer i,l;
Integer c;
string 1 ch;
l = len(CtrlSeq);
c = 255;
for (i=2;i<=len(CtrlSeq);i=i+1) begin
ch = Mid(CtrlSeq,i,1);
ch = ConvertStringToCodePage("MAZOVIA",ch);
c = BitXor(c,asc(ch));
end;
RETURN;
END;
|
|
| Related topics: | |