将函数解密javascript转换为asp经典

我需要转换为asp classic中的javascript函数，但我无法获得

如果有人能帮我，我很感激

代码如下：

<script type="text/javascript">
function decrypt(str, key1, key2) {

   var loc1 = [];

   for (var loc3 = 0; loc3 < str.length; ++loc3) {
      loc1.push(("000" + parseInt(str.charAt(loc3), 16).toString(2)).slice(-4));
   }

   loc1 = loc1.join("").split("");

   var loc6 = [];

   for (var loc3 = 0; loc3 < 384; ++loc3) {
      key1 = (key1 * 11 + 77213) % 81371;
      key2 = (key2 * 17 + 92717) % 192811;
      loc6[loc3] = (key1 + key2) % 128;
   }

   for (var loc3 = 256; loc3 >= 0; --loc3) {
      var loc5 = loc6[loc3];
      var loc4 = loc3 % 128;
      var loc8 = loc1[loc5];
      loc1[loc5] = loc1[loc4];
      loc1[loc4] = loc8;
   }

   for (var loc3 = 0; loc3 < 128; ++loc3) {
      loc1[loc3] = loc1[loc3] ^ loc6[loc3 + 256] & 1;
   }

   var loc12 = loc1.join("");
   var loc7 = [];

   for (var loc3 = 0; loc3 < loc12.length; loc3 = loc3 + 4) {
      var loc9 = loc12.substr(loc3, 4);
      loc7.push(loc9);
   }

   var loc2 = [];

   for (var loc3 = 0; loc3 < loc7.length; ++loc3) {
      loc2.push(parseInt(loc7[loc3], 2).toString(16));
   }
   return loc2.join("");
}
</script>

函数解密（str，key1，key2）{
变量loc1=[]；
对于（变量loc3=0；loc3=0；--loc3）{
变量loc5=loc6[loc3]；
变量loc4=loc3%128；
var loc8=loc1[loc5]；
loc1[loc5]=loc1[loc4]；
loc1[loc4]=loc8；
}
对于（变量loc3=0；loc3<128；++loc3）{
loc1[loc3]=loc1[loc3]^loc6[loc3+256]&1；
}
var loc12=loc1.join（“”）；
var loc7=[]；
对于（变量loc3=0；loc3

---

求求你，任何能帮我的人，谢谢你！谢谢

您可以在服务器上运行javascript。
将开始脚本标记更改为：

<script language="JScript" runat="server">

---

然后试着运行查看结果

为什么要转换它呢？如果服务器端需要，您可以让经典asp运行jScript代码。@Pointy希望将其转换为经典asp VBScript函数。