unit_formmain.dfm

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

object FormMain: TFormMain
  Left = 214
  Top = 221
  Width = 867
  Height = 522
  Caption = 'MS ScriptControl Demo'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 859
    Height = 495
    ActivePage = TabSheet4
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20989#25968#35299#26512
      object Label1: TLabel
        Left = 0
        Top = 201
        Width = 24
        Height = 12
        Caption = #20256#20837
      end
      object Label2: TLabel
        Left = 0
        Top = 223
        Width = 24
        Height = 12
        Caption = #20256#20986
      end
      object mmo_FileDirCode: TMemo
        Left = 0
        Top = 0
        Width = 851
        Height = 193
        Align = alTop
        HideSelection = False
        Lines.Strings = (
          'function ParseFileDir(a_strFileName)'
          '{    '
          '  var l_FunNo;'
          '  var l_BaseDir;'
          '  var result;'
          '  l_BaseDir = "D:\\X'#39033#30446'\\";'
          '  l_FunNo = a_strFileName.substring(0, 5);'
          '  result = l_BaseDir+l_FunNo + '#39'\\'#39'+a_strFileName;'
          '  return result;'
          '}')
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object Button3: TButton
        Left = 272
        Top = 196
        Width = 75
        Height = 25
        Caption = #36816#34892
        TabOrder = 1
        OnClick = Button3Click
      end
      object edt_input: TEdit
        Left = 36
        Top = 197
        Width = 230
        Height = 20
        TabOrder = 2
        Text = 'CF514_Tform_main_CHS.xml'
      end
      object edt_output: TEdit
        Left = 36
        Top = 221
        Width = 230
        Height = 20
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35745#31639#20844#24335
      ImageIndex = 1
      object edt_formula: TEdit
        Left = 24
        Top = 24
        Width = 257
        Height = 20
        TabOrder = 0
        Text = 'LOG(SQR(1+2)+3)'
      end
      object Button2: TButton
        Left = 24
        Top = 56
        Width = 75
        Height = 25
        Caption = #35745#31639
        TabOrder = 1
        OnClick = Button2Click
      end
      object edt_result: TEdit
        Left = 24
        Top = 96
        Width = 257
        Height = 20
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = #27491#21017#34920#36798#24335
      ImageIndex = 2
      object mmo_result: TMemo
        Left = 0
        Top = 226
        Width = 425
        Height = 118
        TabOrder = 0
      end
      object Button1: TButton
        Left = 350
        Top = 197
        Width = 75
        Height = 25
        Caption = #36816#34892
        TabOrder = 1
        OnClick = Button1Click
      end
      object mmo_FunGetUrlFile: TMemo
        Left = 0
        Top = 0
        Width = 425
        Height = 193
        Lines.Strings = (
          'function GetUrlFile(Url)'
          '    Set RegObject = New RegExp '
          '    With RegObject'
          '    .Pattern = "\w+\.\w+(?!.)"'
          '    .IgnoreCase = True'
          '    .Global = True'
          '    End With'
          '    Set matchs =  RegObject.Execute(Url)'
          '    If matchs.Count > 0 Then'
          '        For Each mach in matchs'
          '            GetUrlFile=mach.value'
          '        Next'
          '    End If'
          '    Set RegObject = nothing'
          'end function ')
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object edt_www: TEdit
        Left = 0
        Top = 200
        Width = 348
        Height = 20
        TabOrder = 3
        Text = 'http://blog.csdn.net/jie115/archive/2004/09/15/104900.aspx'
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'TabSheet4'
      ImageIndex = 3
      object Splitter1: TSplitter
        Left = 185
        Top = 0
        Width = 4
        Height = 468
        Cursor = crHSplit
        Beveled = True
      end
      object Panel1: TPanel
        Left = 189
        Top = 0
        Width = 662
        Height = 468
        Align = alClient
        TabOrder = 0
        object Splitter2: TSplitter
          Left = 1
          Top = 241
          Width = 660
          Height = 4
          Cursor = crVSplit
          Align = alTop
          Beveled = True
        end
        object Splitter3: TSplitter
          Left = 337
          Top = 245
          Width = 4
          Height = 222
          Cursor = crHSplit
          Beveled = True
        end
        object Memo1: TMemo
          Left = 1
          Top = 42
          Width = 660
          Height = 199
          Align = alTop
          Lines.Strings = (
            ' var STATE_COPY_INPUT  = 100'
            ' var STATE_READLEN  = 101'
            ' var STATE_DECODE  = 102'
            ' var STATE_UNESCAPE  = 103'
            ' var 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'