十六进制到十进制转换器（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

根据Wikipedia

  

对于十进制格式，前三位是小数   表示前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一无所知。