经典的 ASP 等价于 PHP 的 pack()答案

【问题标题】：Classic ASP equivalent of PHP's pack()经典的 ASP 等价于 PHP 的 pack()
【发布时间】：2016-11-14 08:20:27
【问题描述】：

经典 ASP 中 PHP 的 pack() 函数的等效函数是什么？

【问题讨论】：

Classic ASP 中没有等效的功能。多年来，作为开源的 PHP 已经为第三方库提供了大量支持，并且在版本之间添加了很多内容，而 Classic ASP 从未有过如此多的持续开发，这在我看来使其处于劣势。添加到 Classic ASP 的唯一真正方法是使用 COM 组件，这些组件是您在 Web 服务器上注册并通过 COM 访问 Classic ASP 的 DLL。有一些免费的，但好的通常是许可的，并且会花费你。

标签： php asp-classic

【解决方案1】：

Classic ASP 中没有开箱即用的等效功能。在 Classic ASP 中实现此功能时，您基本上有几个选择；

使用模仿功能的 COM 组件，包括使用向 COM 公开的 .NET 程序集。
尝试自己编写代码，但尤其是使用 VBScript，您可能会遇到使用字节数组等问题。
用 C++ 或 C# 等主流语言编写您自己的 COM 组件（还有其他的我只是没有列出它们，并且不确定是否支持启用 COM 的 DLL）。

【讨论】：

在哪里可以找到这些 COM 组件？尝试搜索，但找不到任何相关内容。
@Raptor 只有我能想到的一个是motobit.com - ASP file upload and ScriptUtilities (Binary data manipulation)。他们还为binary manipulation between variant arrays and true byte arrays 提供了一些简单的方法，不过这有点繁重，如果我不得不这样做，我会尝试使用像 c# 这样的东西来编写我自己的 COM 可见 DLL，它可以为我完成繁重的工作。
谢谢。会调查的
我以前用过这个，效果很好：planet-source-code.com/vb/scripts/…
@TimWilliams 据我所知，OP 不在上传解决方案之后，我只是将他指向该站点，因为它处理字节数组操作。我过去使用过类似的东西，曾经使用 FreeASPUpload 直到站点停止工作，但仍然有大量修改过的代码版本。

【解决方案2】：

我有另一种方法来实现这一点：

Dim key2, hexarr, binstr
key2 = "12 34 56 78 90 AB CD EF"
hexarr = Split(key2)
ReDim binarr(UBound(hexarr))

For i = 0 To UBound(hexarr)
  binarr(i) = Chr(CInt("&h" & hexarr(i)))
Next

binstr = Join(binarr, "")

其中key2 是原始秘密，每 2 个字符用空格填充。

结果与 PHP 的 pack() 相同，但 Classic ASP 中的其他函数无法正确读取 binstr。

【讨论】：