Encoding Vb6用base64编码一个数字

我正在寻找一个

VB6

库，该库具有对20位数字进行编码/解码的功能，如：

00001020120000001

---

我需要它来压缩数字。我只找到了对字符串进行编码的函数，但随着数字的增加，它会生成更多的字符。

您可以编写自己的RLE（运行长度编码）算法。只有当您的数据中有大量重复字符时，它才会对您有所帮助。本质上，您可以使用控制字符或标志、字符重复次数的计数以及字符本身替换一部分重复的字符。您的样本将成为†

ÿ0ÿ02012ÿ0

。完整的样本模块可在上找到

---

†编码产生了两个无法打印的字符，因此我无法显示准确的编码字符串。

您需要在问题中更加明确。Base64（编码，而不是数字基）通常用于字符串/二进制数据编码，以确保安全。您可以像对任何其他字符串一样对数字的字符串表示进行Base64编码，但它不会缩短字符串，只会将其增加三分之一左右。如果要将其转换为基数64（数字基数，而不是编码），则有一些算法可以更改基数，但VB6本身没有任何更改。