vb6 - 加密可打印文本，使结果仍然可打印(可以输入)

Question

我想为许可系统加密一些信息，我希望结果能够由用户输入。

更新:这个操作必须是可逆的(可解密的)例如。，加密 (ComputerID+ProductID) ->(可以输入的任何标准 ASCII 字符。理想情况下甚至可能只是 A-Z)。

到目前为止，我所做的是将加密文本转换为 HEX(因此它是 0-F 中的任何字符)，但这会使字符数加倍。

我正在使用 VB6。

我想我会对每对 (Input$(x) 和 Key$(x)) 做一些操作，然后做一个 MOD 使其保持在 ascii 值范围内(可能是 0-9- A-Z)

有什么好的算法建议吗？

Answer 1

研究 Base64“加密”。

Base 64 会将数字转换为 64 个不同的 ASCII 字符，而 hex 只有 16 个不同的 ASCII 字符...使 Base64 更紧凑，这就是您正在寻找的。

编辑:在 VB6 中执行此操作的代码可在此处获得:http://www.nonhostile.com/howto-encode-decode-base64-vb6.asp

根据下面的 Fuzzy Lollipop，Base32 看起来是一个更好的选择。如果您能找到那个的示例，则可加分。

编辑:我找到了一个 example of Base32 for VB6虽然我还没有尝试过。 -黏土