RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi MEID校验码算法

作者:admin 来源: 日期:2013/11/12 11:21:29 人气: 标签:

EID校验码算法: 
(1).将偶数位数字分别乘以2,分别计算个位数和十位数之和,注意是16进制数 
(2).将奇数位数字相加,再加上上一步算得的值 
(3).如果得出的数个位是0则校验位为0,否则为10(这里的10是16进制,,即十进制的16)减去个位数 
如:AF 01 23 45 0A BC DE 偶数位乘以2得到F*2=1E 1*2=02 3*2=06 5*2=0A A*2=14 C*2=1C E*2=1C,计算奇数位数字之和和偶数位个位十位之和,得到 A+(1+E)+0+2+2+6+4+A+0+(1+4)+B+(1+8)+D+(1+C)=64 => 校验位 16-4

 

function TForm1.MeidTail(MEIDStr: string): string;var  DEC_Total,DEC_ch,i:integer;  ch,Hex_oushu,Hex_Total,MEIDT:string;begin//'输入MEID前14位,返回MEID第15位,如果返回空值,表示程序出错  If Length(MEIDStr) <> 14 Then  begin    showmessage('MEID越界!');    ExitProcess(0);    Application.Terminate;  end  else  begin    MEIDStr:=UpperCase(MEIDStr);    DEC_Total:=0;    for i:=1 to 14 do   // '计算MEID校验位    begin      ch:= '$'+copy(MEIDStr,i,1);      if(i mod 2<>0) then //将奇数位数字相加      begin        DEC_ch:=StrToInt(ch); //奇数位数字+$变为16进制,再转换为十进制      end      else      begin    //将偶数位数字分别乘以2,分别计算个位数和十位数之和,注意是16进制数        Hex_oushu:=inttohex((StrToInt(ch)*2),2);        DEC_ch:= StrToInt('$'+Hex_oushu[1])+ StrToInt('$'+Hex_oushu[2]);      end;      DEC_Total:= DEC_Total + DEC_ch;    end;    Hex_Total:=inttohex(DEC_Total,2);    If Hex_Total[1]= '0' Then    begin      MEIDT:= '0';    end    Else    begin      MEIDT:=inttohex((16-StrToInt('$'+Hex_Total[2])),1);    End;    Result:=MEIDT;  end;end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: