求一个简单的算法

Question

有五个变量wf,qh,id,zm,log值假设分别为C730,2003001,430102690121411,*0102030405060708,2603030
想请大侠帮忙提供一个函数分别取各个变量的前四个字节，每个字节分别异或0x9f，输出char(20)十六进制校验码

Answer 1

function func(var ary:array[1..20] of char):integer
var
  i，k:integer;
begin
  for i:=1 to 4 do
  begin
    ary[i] := wf[i] xor $9f;
    ary[i+4] := qh[i] xor $9f;
    ... ...
  end;
end;仅仅提供一个思路，可能这个程序运行不了,wf[i]可能先要ord()函数处理一下再异或，然后再chr()函数转换回来。不明白你说的16进制校验码，应该有一个规则吧。