unit_formmain.dfm

破解网页中的 VB.Encode 加密, 批量操作, 超快,爽

            ' )'
            ' 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'
            ' '
            ' var 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] = 63'
            ' function 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 marker = "#@~^"'
            '  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(marker, stringIndex)'
            '     if (scriptIndex != -1)'
            '     {'
            
              '      unEncodingString += encodingString.substring(stringIndex, ' +
              'scriptIndex)'
            '      scriptIndex += marker.length'
            '      state = STATE_READLEN'
            '     }'
            '     else'
            '     {'
            '      stringIndex = stringIndex==0 ? 0 : stringIndex'
            
              '      unEncodingString += encodingString.substr(stringIndex, enc' +
              'odingString.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(++script' +
              'Index, 1))'
            '     scriptIndex++; unEncodinglength -=2'
            '     unEncodingIndex++'
            '     state = STATE_DECODE'
            '     break'
            '   }'
            '  }'
            '  '
            '  re  = new RegExp("(JScript|VBscript).encode", "gmi")'
            
              '  while(arr = re.exec(unEncodingString)) unEncodingString = RegE' +
              'xp.leftContext + RegExp.$1 + '
            'RegExp.rightContext'
            '  return unEncodingString'
            ' }'
            ' ')
          TabOrder = 0
        end
        object Memo2: TMemo
          Left = 1
          Top = 245
          Width = 336
          Height = 222
          Align = alLeft
          Lines.Strings = (
            'Memo2')
          TabOrder = 1
        end
        object Memo3: TMemo
          Left = 341
          Top = 245
          Width = 320
          Height = 222
          Align = alClient
          Lines.Strings = (
            'Memo3')
          TabOrder = 2
        end
        object Panel2: TPanel
          Left = 1
          Top = 1
          Width = 660
          Height = 41
          Align = alTop
          TabOrder = 3
          object Label5: TLabel
            Left = 432
            Top = 16
            Width = 78
            Height = 12
            Caption = #35843#29992#30340#20989#25968':  '
          end
          object Button4: TButton
            Left = 40
            Top = 8
            Width = 75
            Height = 25
            Caption = #25191#34892
            TabOrder = 0
            OnClick = Button4Click
          end
          object Button5: TButton
            Left = 122
            Top = 8
            Width = 75
            Height = 25
            Caption = #20840#37096#25191#34892
            TabOrder = 1
            OnClick = Button5Click
          end
          object Button6: TButton
            Left = 260
            Top = 8
            Width = 75
            Height = 25
            Caption = #20445#23384
            TabOrder = 2
            OnClick = Button6Click
          end
          object Button7: TButton
            Left = 342
            Top = 8
            Width = 75
            Height = 25
            Caption = #21478#23384#20026'...'
            TabOrder = 3
          end
          object Edit3: TEdit
            Left = 536
            Top = 11
            Width = 105
            Height = 20
            TabOrder = 4
            Text = 'strdec'
          end
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 468
        Align = alLeft
        TabOrder = 1
        object ListBox1: TListBox
          Left = 1
          Top = 65
          Width = 183
          Height = 402
          Align = alClient
          ItemHeight = 12
          TabOrder = 0
          OnDblClick = ListBox1DblClick
        end
        object Panel4: TPanel
          Left = 1
          Top = 1
          Width = 183
          Height = 64
          Align = alTop
          TabOrder = 1
          object Label3: TLabel
            Left = 8
            Top = 8
            Width = 24
            Height = 12
            Caption = #36335#24452
          end
          object Label4: TLabel
            Left = 8
            Top = 40
            Width = 24
            Height = 12
            Caption = #31867#22411
          end
          object Edit1: TEdit
            Left = 40
            Top = 8
            Width = 129
            Height = 20
            TabOrder = 0
            Text = 'D:\wwwroot\BJX-OA'#32593#32476#21150#20844#31995#32479'2.0'
          end
          object Edit2: TEdit
            Left = 40
            Top = 32
            Width = 73
            Height = 20
            TabOrder = 1
            Text = '*.asp'
          end
          object Button8: TButton
            Left = 128
            Top = 30
            Width = 41
            Height = 22
            Caption = #25628#32034
            TabOrder = 2
            OnClick = Button8Click
          end
        end
      end
    end
  end
  object FindFile1: TFindFile
    OnFileMatch = FindFile1FileMatch
    OnSearchFinish = FindFile1SearchFinish
    Left = 80
    Top = 96
  end
end