vba - VBA GF(256) 日志表

Question

我正在开发一个在 vba 中生成 QR 码的功能。我正在关注本教程。我现在正在这一步中生成纠错字。这需要 GF(256) 对数/反对数表，参见此处。我真的不想输入整个表格。有谁知道用于生成这些表的函数，所以我可以将它们存储在数组中？该教程有一个指向如何生成表的链接，但它被破坏了。

我应该在前面提到它，但是这将在 access 中运行，因此粘贴到 excel 中效果不佳。但是当我写这篇文章时，我意识到我可以使用访问表。虽然我更愿意在代码中完成这一切。

Answer 1

Const GF = 256 '// define the Size & Prime Polynomial of this Galois field
Const PP = 285
Dim logg(GF)  'establish global Log and Antilog arrays
Dim alogg(GF)


'fill the logg() and alogg() arrays with appropriate integer values

logg(0) = 1
alogg(0) = 1

For i = 1 To 255
  alogg(i) = alogg(i - 1) * 2
  If alogg(i) >= GF Then alogg(i) = alogg(i) Xor PP
  logg(alogg(i)) = i
Next i