求Delphi版式的 JScript.Encode 过的解密函数

JScript.Encode是用什么加密算法。

这里有JAVASCRIPT实现的，但对JAVASCRIPT不是很熟，本人学DELPHI不太久，转过来有困难，请高手帮忙转成DELPHI函数
<Script language="javaScript" runat="server">
/* Start 解密实现 Start*/
var STATE_COPY_INPUT        = 100
var STATE_READLEN       = 101
var STATE_DECODE        = 102
var STATE_UNESCAPE      = 103var pick_encoding = new Array(
    1, 2, 0, 1, 2, 0, 2, 0, 0, 2, 0, 2, 1, 0, 2, 0,
    1, 0, 2, 0, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 2,
    1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 1, 2, 0, 1, 0, 2,
    1, 0, 2, 0, 1, 1, 2, 0, 0, 1, 1, 2, 0, 1, 0, 2
)var rawData = new Array(
    0x64,0x37,0x69, 0x50,0x7E,0x2C, 0x22,0x5A,0x65, 0x4A,0x45,0x72,
    0x61,0x3A,0x5B, 0x5E,0x79,0x66, 0x5D,0x59,0x75, 0x5B,0x27,0x4C,
    0x42,0x76,0x45, 0x60,0x63,0x76, 0x23,0x62,0x2A, 0x65,0x4D,0x43,
    0x5F,0x51,0x33, 0x7E,0x53,0x42, 0x4F,0x52,0x20, 0x52,0x20,0x63,
    0x7A,0x26,0x4A, 0x21,0x54,0x5A, 0x46,0x71,0x38, 0x20,0x2B,0x79,
    0x26,0x66,0x32, 0x63,0x2A,0x57, 0x2A,0x58,0x6C, 0x76,0x7F,0x2B,
    0x47,0x7B,0x46, 0x25,0x30,0x52, 0x2C,0x31,0x4F, 0x29,0x6C,0x3D,
    0x69,0x49,0x70, 0x3F,0x3F,0x3F, 0x27,0x78,0x7B, 0x3F,0x3F,0x3F,
    0x67,0x5F,0x51, 0x3F,0x3F,0x3F, 0x62,0x29,0x7A, 0x41,0x24,0x7E,
    0x5A,0x2F,0x3B, 0x66,0x39,0x47, 0x32,0x33,0x41, 0x73,0x6F,0x77,
    0x4D,0x21,0x56, 0x43,0x75,0x5F, 0x71,0x28,0x26, 0x39,0x42,0x78,
    0x7C,0x46,0x6E, 0x53,0x4A,0x64, 0x48,0x5C,0x74, 0x31,0x48,0x67,
    0x72,0x36,0x7D, 0x6E,0x4B,0x68, 0x70,0x7D,0x35, 0x49,0x5D,0x22,
    0x3F,0x6A,0x55, 0x4B,0x50,0x3A, 0x6A,0x69,0x60, 0x2E,0x23,0x6A,
    0x7F,0x09,0x71, 0x28,0x70,0x6F, 0x35,0x65,0x49, 0x7D,0x74,0x5C,
    0x24,0x2C,0x5D, 0x2D,0x77,0x27, 0x54,0x44,0x59, 0x37,0x3F,0x25,
    0x7B,0x6D,0x7C, 0x3D,0x7C,0x23, 0x6C,0x43,0x6D, 0x34,0x38,0x28,
    0x6D,0x5E,0x31, 0x4E,0x5B,0x39, 0x2B,0x6E,0x7F, 0x30,0x57,0x36,
    0x6F,0x4C,0x54, 0x74,0x34,0x34, 0x6B,0x72,0x62, 0x4C,0x25,0x4E,
    0x33,0x56,0x30, 0x56,0x73,0x5E, 0x3A,0x68,0x73, 0x78,0x55,0x09,
    0x57,0x47,0x4B, 0x77,0x32,0x61, 0x3B,0x35,0x24, 0x44,0x2E,0x4D,
    0x2F,0x64,0x6B, 0x59,0x4F,0x44, 0x45,0x3B,0x21, 0x5C,0x2D,0x37,
    0x68,0x41,0x53, 0x36,0x61,0x58, 0x58,0x7A,0x48, 0x79,0x22,0x2E,
    0x09,0x60,0x50, 0x75,0x6B,0x2D, 0x38,0x4E,0x29, 0x55,0x3D,0x3F
)var transformed = new Array()
for (var i=0; i<3; i++) transformed[i] = new Array()
for (var i=31; i<=126; i++) for (var j=0; j<3; j++) transformed[j][rawData[(i-31) * 3 + j]] = (i==31) ? 9 : ivar digits = new Array()
for (var i=0; i<26; i++)
{
    digits["A".charCodeAt(0)+i] = i
    digits["a".charCodeAt(0)+i] = i+26
}
for (var i=0; i<10; i++)    digits["0".charCodeAt(0)+i] = i+52
digits[0x2b] = 62
digits[0x2f] = 63function unescape(char)
{
    var escapes = "#&!*$"
    var escaped = "\r\n<>@"    if (char.charCodeAt(0) > 126)   return char
    if (escapes.indexOf(char) != -1)    return escaped.substr(escapes.indexOf(char), 1)
    return "?"
}function decodeBase64(string)
{
    var val = 0
    val +=  (digits[string.substr(0,1).charCodeAt(0)] << 2)
    val +=  (digits[string.substr(1,1).charCodeAt(0)] >> 4)
    val +=  (digits[string.substr(1,1).charCodeAt(0)] & 0xf) << 12
    val += ((digits[string.substr(2,1).charCodeAt(0)] >> 2) << 8)
    val += ((digits[string.substr(2,1).charCodeAt(0)] & 0x3) << 22)
    val +=  (digits[string.substr(3,1).charCodeAt(0)] << 16)
    return val
}function strdec(encodingString)
{

    var er = "#@~^"
    var stringIndex = 0
    var scriptIndex = -1
    var unEncodingIndex = 0
    var char = null
    var encodingLength = unEncodinglength = 0
    var state = STATE_COPY_INPUT
    var unEncodingString = ""
    var re, arr

    while(state)
    {
        switch (state)
        {
            case (STATE_COPY_INPUT) :
                scriptIndex = encodingString.indexOf(er, stringIndex)
                if (scriptIndex != -1)
                {
                    unEncodingString += encodingString.substring(stringIndex, scriptIndex)
                    scriptIndex += er.length
                    state = STATE_READLEN
                }
                else
                {
                    stringIndex = stringIndex==0 ? 0 : stringIndex
                    unEncodingString += encodingString.substr(stringIndex, encodingString.length)
                    state = 0
                }
                break

            case (STATE_READLEN)    :
                encodingLength = encodingString.substr(scriptIndex, 6)
                unEncodinglength = decodeBase64(encodingLength)
                scriptIndex += (6 + "==".length)
                state = STATE_DECODE
                break

            case (STATE_DECODE) :
                if (!unEncodinglength)
                {
                    stringIndex = scriptIndex + "DQgAAA==^#~@".length
                    unEncodingIndex = 0
                    state = STATE_COPY_INPUT
                    break
                }
                char = encodingString.substr(scriptIndex, 1)
                if (char == "@")    state = STATE_UNESCAPE
                else
                {
                    if (char.charCodeAt(0) < 0xFF)
                    {
                        unEncodingString += String.fromCharCode(transformed[pick_encoding[unEncodingIndex%64]][char.charCodeAt(0)])
                        unEncodingIndex++
                    }
                    else
                    {
                        unEncodingString += char
                    }
                    scriptIndex++
                    unEncodinglength--
                    break
                }

            case STATE_UNESCAPE:
                unEncodingString += unescape(encodingString.substr(++scriptIndex, 1))
                scriptIndex++;  unEncodinglength -=2
                unEncodingIndex++
                state = STATE_DECODE
                break
        }
    }

    re  = new RegExp("(JScript|VBscript).encode", "gmi")
    while(arr = re.exec(unEncodingString))  unEncodingString = RegExp.leftContext + RegExp.$1 + RegExp.rightContext
    return unEncodingString
}/* End 解密实现 End*/
</script>

const STATE_COPY_INPUT :integer = 100;
const STATE_READLEN    :integer = 101;
const STATE_DECODE     :integer = 102;
const STATE_UNESCAPE   :integer = 103;const pick_encoding : Array[0..63] of integer=(
    1, 2, 0, 1, 2, 0, 2, 0, 0, 2, 0, 2, 1, 0, 2, 0,
    1, 0, 2, 0, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 2,
    1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 1, 2, 0, 1, 0, 2,
    1, 0, 2, 0, 1, 1, 2, 0, 0, 1, 1, 2, 0, 1, 0, 2
    );

//把JS中16进制标志"0x"改为Delphi的"$"
const rawData : Array[0..287] of WORD=(
    $64,$37,$69, .......
  );var transformed:array[0..2] of array[0..287] of integer;procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
  //var transformed = new Array()
  //for (var i=0; i<3; i++) transformed[i] = new Array()
  //for (var i=31; i<=126; i++) for (var j=0; j<3; j++) transformed[j][rawData[(i-31) * 3 + j]] = (i==31) ? 9 : i
  for i:=0 to 287 do for j:=0 to 2 do transformed[j,i]:=0; //初始化
  for i:=31 to 126 do begin
    for j:=0 to 2 do begin
      if i=31 then
        transformed[j,rawData[(i-31) * 3 + j]] := 9
      else
        transformed[j,rawData[(i-31) * 3 + j]] := i;
    end;
  end;

end;

var digits = new Array() 往下没有转换

谢谢LuckyJan
还有哪位高手帮下忙的撒

调试易

求Delphi版式的 JScript.Encode 过的解密函数

解决方案 »