十六进制到十进制转换器(ESN Algo)

Question

如何在此页面上进行转换？ http://www.esnconverter.com/index.php?esn=88888888

我试图这样做,但结果是错误的

procedure TForm1.btn1Click(sender: TObject);
begin
memo1.Lines.Add (IntToStr(StrToInt('$'+Edit1.text)));
end;

Answer 1

根据维基百科

对于十进制格式,前三位是前8位的十进制表示(在000和255之间),接下来的8位从剩余的24位中得出,将介于00000000和16777215之间

Memo1.Lines.Add( Format('%.3d%.8d',
  [StrToInt(('$' + Copy(Edit1.Text, 1, 2))),
  StrToInt(('$' + Copy(Edit1.Text, 3, 6)))]));

上面给出了与该页面相同的输出,但是,我对ESN一无所知.