鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

MEID校验码算法

来源:互联网 作者:佚名 时间:2015-11-04 09:11
MEID校验码算法: (1).将偶数位数字分别乘以2,分别计算个位数和十位数之和,注意是16进制数 (2).将奇数位数字相加,再加上上一步算得的值 (3).如果得出的数个位是0则校验位为0,否则为10(这里的10是16进制,,即十进制的16)减去个位数 如:AF0123450ABCDE偶数
MEID校验码算法:
(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 MEID 校验码
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;
网友评论
<