财务软件版1楼: 要加密这段字符：*2* H12345 R072 T01 H345635 R 220 T06 N1234 P

首位字符开始累加到P字前面的那个字符为止，将该结果保留，然后对该结果进行变
;换：用高4位异或低4位，结果保留在低4位，再将高4位强制=H＇＇3x＇＇

2楼: 不好意思，没说明！就说高4位强制等于＝3，x就是＝低4位的值，h不用管！谢谢 如erp管理软件

3楼: 首位字符开始累加到P字前面的那个字符为止，以ASCII码累加？

4楼: 怎么加呀，以什么加呀。。。。？

5楼: 用AnsiChar，以一个字节一个字节加，用Ord换成int值

6楼: procedure TForm1.Button1Click(Sender: TObject);
var st:pchar; len,i:integer ; b,b1,b2:byte;
begin
st:=＇＇*2* H12345 R072 T01 H345635 R 220 T06 N1234 ＇＇;
b:=0;
len:=length(st);
for i:=0 to len-1 do
b:=b + ord(st[i]);

b1:=b mod 16;
b2:=b div 16;
b1:=b2 xor b1 ;
b:=3*16+b1;
showmessage(inttostr(b));
end;

财务软件版7楼: 谢谢，现在才有空上网！我接受答案，呵！

8楼: 谢谢，现在才有空上网！我接受答案，呵！