VBA GF(256)日志表

Question

我正在开发一个在vba中生成二维码的函数。我在跟踪this tutorial。我现在正在用this step生成纠错字。这需要GF(256)个对数/反对数表，seen here。我真的不想把整张表都敲进去。有谁知道用来生成这些表的函数，这样我就可以将它们存储在数组中？本教程有一个指向如何生成表的链接，但它被破坏了。

我应该早些时候提到它，但这将在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