VBS加密算法问题，加密VBS

将 ASC 转换为具有统一位数的十六进制，并忽略负号。

function generatecode(strtext)

输入字符串 （strtext） 并返回十六进制 ANSI 编码。

dim ifor i=1 to len(strtext)

generatecode = generatecode & hex(asc(mid(strtext,i,1)))

nextend function

function gettext(strcode)

输入十六进制 ANSI 编码 （strcode） 以返回原始字符串。

dim i,strtmp

for i=1 to len(strcode) step 2

if cint(strtmp)<128 then

gettext = gettext & chr(strtmp)

elsei = i + 2

gettext = gettext & chr(strtmp & mid(strcode,i,2))

end if

nextend function

这是我自己用来加密字符串的。 密文是一个十六进制无分隔字符串，其中 ASCII 字符 （0-127） 为 2 位，其他 ANSI 字符 （256-65535） 为 4 位。

编写此算法的目的是平衡 [加密和解密量] 与 [密文长度]。

我不知道你想用加密货币做什么，但我还是建议你：

不要想着通过计算等手段进一步“加密”，因为在VBS下，解密算法是明文的，所有的加密在知道的人眼里都是没有意义的。 在我看来，VBS的加密充其量只是隐藏了一点字符串或**，这样就不会一目了然地看到意图。 所以，我的算法就足够了。

如果你想进一步隐藏它，你可以[ ]不意外，这也可以解密。

**如有不明白之处，可以询问。

直接的位数不足以弥补零。 它速度快，易于理解，并且所有数字都填充到最长的数字。

阅读时，只需严格按位数阅读即可。

这很简单。 只需使用字符串函数即可。

您想按数字读出 ASCII 代码然后 CHR 吗？

有 3 种方法可以加密文件：

1 使用系统内置的EFS加密，但要注意备份加密证书，加密后的账号下加密效果不会显现。

2 使用 Winrar 的压缩进行加密，但操作缓慢且麻烦。

3 使用超级加密 3000 加密文件，超级加密 3000 使用先进的加密算法，让您的文件在加密后真正达到超高加密强度，让您的加密文件无可挑剔，没有密码就无法解密。

您可以根据实际需求选择自己的文件加密方法。

没有多大意义。

如果你不想被别人利用，就不要为别人用。

对于此问题，您可以使用转换工具将 VBS 打包成可执行文件 （exe）！ 这是可以实现的。 批处理程序也可用。

VBS加密其实只是对菜鸟的欺骗，我真的不想透露你的**可以写一个dll来调用。

你应该被加密，但我说你的**不能在asp环境中运行，有什么解释？ 是不是不完整？ 我会在前面添加它。

@ language = %>

仍然无法运行，错误消息。

有些**不能显示在网页上，必须使用源文件来破解它。