procedure TForm1.btnGenSnClick(Sender: TObject);
var
A1,A2,A3,A4,A5,A6,A7,A8:integer;
S1,S2,S3,S4,S5,S6,S7,S8,sn:string;
begin
edtsn.Text:='';
A1:=GetNum; //随机产生
A4:=A1 xor 85;
S1:=reverse(OcttoHex(A1)); //转为16进制字符，再反转
S4:=reverse(OcttoHex(A4));

A2:=GetNum;
A8:=A2 xor 110;
S2:=reverse(OcttoHex(A2));
S8:=reverse(OcttoHex(A8));

A3:=GetNum;
A6:=A3 xor 78;
S3:=reverse(OcttoHex(A3));
S6:=reverse(OcttoHex(A6));

A5:=GetNum;
A7:=A5 xor 25;
S5:=reverse(OcttoHex(A5));
S7:=reverse(OcttoHex(A7));

sn:=s1+s2+s3+s4+s5+s6+s7+s8; //连接

edtsn.text:=sn;

end;

上一页  [1] [2] [3] [4] [5]