Guidance
指路人
g.yi.org
software / rapidq / Examples / Security / crypttest / crypttest.rq

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'-------------------------------------RapidQ Header Information------------------
     $APPTYPE GUI
     $OPTIMIZE ON
     $OPTION ICON "encryptx.ICO"
     $TYPECHECK OFF
     $INCLUDE "RAPIDQ.INC"
'-------------------------------------RapidQ Header End--------------------------

     DECLARE SUB TabChange
     DECLARE SUB OvalBtn1Click (Sender AS QOVALBTN)
     DECLARE SUB OvalBtn2Click (Sender AS QOVALBTN)

     DECLARE SUB exit2
     DECLARE SUB Open_X
     DECLARE SUB Crypt2
     DECLARE SUB activate
     DECLARE SUB Mastera_1
     DECLARE SUB Mastera_2
     DECLARE SUB Mastera_5
     DECLARE SUB FormPaint (Sender AS QFORM)
     DECLARE SUB TimerOver
     DECLARE SUB ABG2
     DECLARE SUB ABG1


     DECLARE SUB decod (Sender AS QOVALBTN)
     DECLARE SUB OpenS (Sender AS QBUTTON)
     DECLARE SUB OpenF (Sender AS QBUTTON)
     DECLARE SUB FreeF
     DECLARE SUB quit
     DECLARE SUB createF (Sender AS QOVALBTN)
     DECLARE SUB formFocus
     DECLARE SUB paint
     DECLARE SUB About
     DECLARE SUB Help
     DECLARE SUB PaintSZ
     DECLARE SUB BITCRYO


'--------------------------------------Password SUBS--------------------------------------------
     DECLARE SUB CheckBox1Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox2Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox3Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox4Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox5Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox6Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox7Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox8Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox9Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox10Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox11Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox12Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox13Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox14Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox15Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox17Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox18Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox19Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox20Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox21Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox22Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox23Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox24Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox26Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox27Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox28Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox29Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox30Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox31Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox32Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox33Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox34Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox35Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox36Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox37Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox38Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox39Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox40Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox41Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox42Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox43Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox44Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox45Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox46Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox47Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox48Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox49Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox50Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox51Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox52Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox53Click (Sender AS QCHECKBOX)
     DECLARE SUB CheckBox54Click (Sender AS QCHECKBOX)
'------------------------------------------------------------------------------------------------
'---------------------------------------------------RapidQ Encryption Data Start ----------------
     DIM f$ AS STRING
     DIM b AS BYTE
     DIM opendialog AS QOPENDIALOG
     DIM file1 AS QFILESTREAM
     DIM file2 AS QMEMORYSTREAM
     DIM x AS INTEGER
     DIM newstring AS STRING
     DIM s(1255)
     DIM k(1255)
'-------------------------------------------- RapidQ Encryption Data End--------------------------

     DIM Nfile AS QFILESTREAM
     DIM Nfile2 AS QFILESTREAM
     DIM Nfile3 AS QFILESTREAM
     DIM MemF AS QMEMORYSTREAM
     DIM SaveF AS QFILESTREAM
     DIM mem AS QMEMORYSTREAM
     DIM bmp AS QBITMAP
     DIM bmpS AS QBITMAP
     DIM SF_f$ AS STRING
     DIM F_f$ AS STRING
     DIM nbCar AS INTEGER
     DIM sz AS INTEGER
     DIM file$ AS STRING
     DIM Sfile$ AS STRING
     DIM nameF$ AS STRING
     DIM dh AS INTEGER
     DIM dw AS INTEGER
     dh=25
     dw=25
     DIM Source AS QRECT
     DIM Destination AS QRECT
     DEFINT bmpTop = 0, bmpLeft = 0, Busy = 0
     DEFSNG Zoom = 1
     DIM OpenBmp AS QOPENDIALOG
     DIM OpenBmpD AS QOPENDIALOG
     DIM OpenAllS AS QOPENDIALOG
     DIM bmpcrypt AS QFORM


     CREATE MainForm AS QFORM
      Center
      Height = 650
      Width = 650
      CAPTION = "Windows Encryption System"

      CREATE Tab AS QTABCONTROL
       AddTabs "Encrypt/Decrypt File","Public Key","Encryption Output","Output Files","Open File","About"
       Width = 640
       Height = 505
       OnChange = TabChange
       HotTrack = True

       CREATE Panel0 AS QPANEL
        Top = 40
        Left = 5
        Width = Tab.ClientWidth - 10
        Height = Tab.ClientHeight - 50
        BevelInner = bvLowered


        CREATE GUI_interface AS QGROUPBOX
         CAPTION = "Encryption Interface:"
         Left = 0
         Top = 0
         Width = 778
         Height = 534
         Font.Name = "Tempus Scans ITC"
         Font.AddStyles(fsBold)
         Font.COLOR = 16711680
         Font.size = 11
         Font.Name = "Verdana"

         CREATE Panel1_shift AS QPANEL
          Left = 9
          Top = 24
          CAPTION = "Primary Encryption:"
          Width = 249
          Height = 137
          CREATE OvalBtn1 AS QOVALBTN
           CAPTION = "Encrypt"
           Left = 3
           Top = 3
           Width = 236
           Height = 50
           Transparent = 1
           OnClick = OvalBtn1Click
           Font.Name = "Verdana"
           Font.Size = 11
          END CREATE
          CREATE OvalBtn2 AS QOVALBTN
           CAPTION = "Decrypt"
           Left = 59
           Top = 80
           Width = 188
           Height = 50
           Transparent = 1
           OnClick = OvalBtn1Click
           Font.Name = "Verdana"
           Font.Size = 11
          END CREATE
         END CREATE
         CREATE Panel2_shift AS QPANEL
          Left = 265
          Top = 24
          CAPTION = "Secondary Encryption: "
          Width = 241
          Height = 137
          TabOrder = 1
          CREATE OvalBtn3 AS QOVALBTN
           CAPTION = "Encrypt "
           Left = 3
           Top = 3
           Width = 236
           Height = 50
           Transparent = 1
           OnClick = Crypt2
           Font.Name = "Verdana"
           Font.Size = 11
           Enabled = False
           COLOR = 12632256
           Font.COLOR = 12632256
          END CREATE
          CREATE OvalBtn4 AS QOVALBTN
           CAPTION = "Decrypt"
           Left = 3
           Top = 80
           Width = 188
           Height = 50
           Transparent = 1
           OnClick = Crypt2
           Font.Name = "Verdana"
           Font.Size = 11
           Enabled = False
           COLOR = 12632256
           Font.COLOR = 12632256
          END CREATE
         END CREATE
         CREATE Panel3_shift AS QPANEL
          Left = 9
          Top = 168
          CAPTION = "Compound Encryption: "
          Width = 497
          Height = 137
          TabOrder = 2
          Font.size = 9
          CREATE OvalBtn5 AS QOVALBTN
           CAPTION = "&Create Encoded file"
           Left = 320
           Top = 13
           Width = 164
           Height = 50
           OnClick = createF
           Font.Name = "Verdana"
          END CREATE
          CREATE OvalBtn7 AS QOVALBTN
           CAPTION = "&Decode File"
           Left = 386
           Top = 75
           Width = 100
           Height = 50
           OnCLick = decod
           Font.Name = "Verdana"

          END CREATE
          CREATE Button1 AS QBUTTON
           CAPTION = "&Image to incorporate"
           Left = 21
           Top = 40
           Width = 147
           OnClick = OpenF
           Font.COLOR= 000000000
           Font.Name = "Verdana"
           Font.Size = 8
          END CREATE
          CREATE Button2 AS QBUTTON
           CAPTION = "&File to incorporate"
           Left = 21
           Top = 72
           Width = 147
           TabOrder = 1
           OnClick = OpenS
           Font.COLOR= 000000000
           Font.Name = "Verdana"
           Font.Size = 8
          END CREATE

         END CREATE
         CREATE Panel4_shift AS QPANEL
          Left = 9
          Top = 312
          Width = 497
          Height = 137
          TabOrder = 3
          CREATE Usage AS QGROUPBOX
           CAPTION = "Processor Usage:"
           Left = 1
           Top = 1
           Width = 495
           Height = 135
           Align = 5
           CREATE Gauge1 AS QGAUGE
            Align = 5
            Left = 2
            Top = 15
            Width = 491
            Height = 118
            Kind = 3
            Max = 90010
            Min = 1
            BackColor = 16777215
            ForeColor = 16744576
            Font.Name = "Impact"
            Font.Size = 19
            Position = 1
           END CREATE
          END CREATE
         END CREATE
        END CREATE
       END CREATE

       CREATE Panel1 AS QPANEL
        Top = 40
        Left = 5
        Width = Tab.ClientWidth - 10
        Height = Tab.ClientHeight - 50
        BevelInner = bvLowered
        Visible = False
        CREATE GroupBox3 AS QGROUPBOX
         CAPTION = "My Password / Public Key"
         Left = 0
         Top = 0
         Width = 578
         Height = 41
         Align = 1
         Font.COLOR = 19872634
         Font.size = 11
         Font.Name = "Verdana"

         CREATE Edit1 AS QEDIT
          Text = "mypassword"
          Left = 2
          Top = 18
          Align = 5
          Width = 574
          Font.Name = "Tempus Scans ITC"
          Font.AddStyles(fsBold)
          Font.size = 9
          Font.COLOR = 16711680
         END CREATE
        END CREATE
        CREATE GroupBoxERS AS QGROUPBOX
         CAPTION = "Password Generator:"
         Left = 13
         Top = 55
         Width = 521
         Height = 249

         CREATE Label1 AS QLABEL
          CAPTION = "Decide on a number sandwiched between 1 and 54."+CHR$(13)+CHR$(10)+"Then Click on the box next to the number."+CHR$(13)+CHR$(10)+"If you are unhappy with the results please pick another box."
          Left = 39
          Top = 60
          Width = 566
          Height = 39
          Transparent = 1
          Wordwrap = 0
          Font.Name = "Verdana"
          Font.Size = 11
          Font.COLOR = 0
         END CREATE

         CREATE CheckBox1 AS QCHECKBOX
          CAPTION = "1"
          Left = 7
          Top = 132
          Width = 33
          OnClick = CheckBox1Click
          Font.Name = "Verdana"
          Font.Size = 8
         END CREATE

         CREATE CheckBox2 AS QCHECKBOX
          CAPTION = "2"
          Left = 55
          Top = 132
          Width = 33
          TabOrder = 1
          OnClick = CheckBox2Click
          Font.Name = "Verdana"
          Font.Size = 8
         END CREATE

         CREATE CheckBox3 AS QCHECKBOX
          CAPTION = "3"
          Left = 103
          Top = 132
          Width = 33
          TabOrder = 2
          OnClick = CheckBox3Click
          Font.Name = "Verdana"
          Font.Size = 8
         END CREATE

         CREATE CheckBox4 AS QCHECKBOX
          CAPTION = "4"
          Left = 167
          Top = 132
          Width = 33
          TabOrder = 3
          OnClick = CheckBox4Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox5 AS QCHECKBOX
          CAPTION = "5"
          Left = 247
          Top = 132
          Width = 33
          TabOrder = 4
          OnClick = CheckBox5Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox6 AS QCHECKBOX
          CAPTION = "6"
          Left = 311
          Top = 132
          Width = 33
          TabOrder = 5
          OnClick = CheckBox6Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox7 AS QCHECKBOX
          CAPTION = "7"
          Left = 367
          Top = 132
          Width = 33
          TabOrder = 6
          OnClick = CheckBox7Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox8 AS QCHECKBOX
          CAPTION = "8"
          Left = 415
          Top = 132
          Width = 33
          TabOrder = 7
          OnClick = CheckBox8Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox9 AS QCHECKBOX
          CAPTION = "9"
          Left = 471
          Top = 132
          Width = 33
          TabOrder = 8
          OnClick = CheckBox9Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox10 AS QCHECKBOX
          CAPTION = "10"
          Left = 7
          Top = 148
          Width = 33
          TabOrder = 9
          OnClick = CheckBox10Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox11 AS QCHECKBOX
          CAPTION = "11"
          Left = 55
          Top = 148
          Width = 33
          TabOrder = 10
          OnClick = CheckBox11Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox12 AS QCHECKBOX
          CAPTION = "12"
          Left = 103
          Top = 148
          Width = 33
          TabOrder = 11
          OnClick = CheckBox12Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox13 AS QCHECKBOX
          CAPTION = "13"
          Left = 167
          Top = 148
          Width = 33
          TabOrder = 12
          OnClick = CheckBox13Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox14 AS QCHECKBOX
          CAPTION = "14"
          Left = 247
          Top = 148
          Width = 33
          TabOrder = 13
          OnClick = CheckBox14Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox15 AS QCHECKBOX
          CAPTION = "15"
          Left = 311
          Top = 148
          Width = 33
          TabOrder = 14
          OnClick = CheckBox15Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox16 AS QCHECKBOX
          CAPTION = "16"
          Left = 367
          Top = 148
          Width = 33
          TabOrder = 15
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox17 AS QCHECKBOX
          CAPTION = "17"
          Left = 415
          Top = 148
          Width = 33
          TabOrder = 16
          OnClick = CheckBox17Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox18 AS QCHECKBOX
          CAPTION = "18"
          Left = 471
          Top = 148
          Width = 33
          TabOrder = 17
          OnClick = CheckBox18Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox19 AS QCHECKBOX
          CAPTION = "19"
          Left = 7
          Top = 164
          Width = 33
          TabOrder = 18
          OnClick = CheckBox19Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox20 AS QCHECKBOX
          CAPTION = "20"
          Left = 55
          Top = 164
          Width = 33
          TabOrder = 19
          OnClick = CheckBox20Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox21 AS QCHECKBOX
          CAPTION = "21"
          Left = 103
          Top = 164
          Width = 33
          TabOrder = 20
          OnClick = CheckBox21Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox22 AS QCHECKBOX
          CAPTION = "22"
          Left = 167
          Top = 164
          Width = 33
          TabOrder = 21
          OnClick = CheckBox22Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox23 AS QCHECKBOX
          CAPTION = "23"
          Left = 247
          Top = 164
          Width = 33
          TabOrder = 22
          OnClick = CheckBox23Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox24 AS QCHECKBOX
          CAPTION = "24"
          Left = 311
          Top = 164
          Width = 33
          TabOrder = 23
          OnClick = CheckBox24Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox25 AS QCHECKBOX
          CAPTION = "25"
          Left = 367
          Top = 164
          Width = 33
          TabOrder = 24
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox26 AS QCHECKBOX
          CAPTION = "26"
          Left = 415
          Top = 164
          Width = 33
          TabOrder = 25
          OnClick = CheckBox26Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox27 AS QCHECKBOX
          CAPTION = "27"
          Left = 471
          Top = 164
          Width = 33
          TabOrder = 26
          OnClick = CheckBox27Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox28 AS QCHECKBOX
          CAPTION = "28"
          Left = 7
          Top = 180
          Width = 33
          TabOrder = 27
          OnClick = CheckBox28Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox29 AS QCHECKBOX
          CAPTION = "29"
          Left = 55
          Top = 180
          Width = 33
          TabOrder = 28
          OnClick = CheckBox29Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox30 AS QCHECKBOX
          CAPTION = "30"
          Left = 103
          Top = 180
          Width = 33
          TabOrder = 29
          OnClick = CheckBox30Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox31 AS QCHECKBOX
          CAPTION = "31"
          Left = 167
          Top = 180
          Width = 33
          TabOrder = 30
          OnClick = CheckBox31Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox32 AS QCHECKBOX
          CAPTION = "32"
          Left = 247
          Top = 180
          Width = 33
          TabOrder = 31
          OnClick = CheckBox32Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox33 AS QCHECKBOX
          CAPTION = "33"
          Left = 311
          Top = 180
          Width = 33
          TabOrder = 32
          OnClick = CheckBox33Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox34 AS QCHECKBOX
          CAPTION = "34"
          Left = 367
          Top = 180
          Width = 33
          TabOrder = 33
          OnClick = CheckBox34Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox35 AS QCHECKBOX
          CAPTION = "35"
          Left = 415
          Top = 180
          Width = 33
          TabOrder = 34
          OnClick = CheckBox35Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox36 AS QCHECKBOX
          CAPTION = "36"
          Left = 471
          Top = 180
          Width = 33
          TabOrder = 35
          OnClick = CheckBox36Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox37 AS QCHECKBOX
          CAPTION = "37"
          Left = 7
          Top = 196
          Width = 33
          TabOrder = 36
          OnClick = CheckBox37Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox38 AS QCHECKBOX
          CAPTION = "38"
          Left = 55
          Top = 196
          Width = 33
          TabOrder = 37
          OnClick = CheckBox38Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox39 AS QCHECKBOX
          CAPTION = "39"
          Left = 103
          Top = 196
          Width = 33
          TabOrder = 38
          OnClick = CheckBox39Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox40 AS QCHECKBOX
          CAPTION = "40"
          Left = 167
          Top = 196
          Width = 33
          TabOrder = 39
          OnClick = CheckBox40Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox41 AS QCHECKBOX
          CAPTION = "41"
          Left = 247
          Top = 196
          Width = 33
          TabOrder = 40
          OnClick = CheckBox41Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox42 AS QCHECKBOX
          CAPTION = "42"
          Left = 311
          Top = 196
          Width = 33
          TabOrder = 41
          OnClick = CheckBox42Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox43 AS QCHECKBOX
          CAPTION = "43"
          Left = 367
          Top = 196
          Width = 33
          TabOrder = 42
          OnClick = CheckBox43Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox44 AS QCHECKBOX
          CAPTION = "44"
          Left = 415
          Top = 196
          Width = 33
          TabOrder = 43
          OnClick = CheckBox44Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox45 AS QCHECKBOX
          CAPTION = "45"
          Left = 471
          Top = 196
          Width = 33
          TabOrder = 44
          OnClick = CheckBox45Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox46 AS QCHECKBOX
          CAPTION = "46"
          Left = 7
          Top = 212
          Width = 33
          TabOrder = 45
          OnClick = CheckBox46Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox47 AS QCHECKBOX
          CAPTION = "47"
          Left = 55
          Top = 212
          Width = 33
          TabOrder = 46
          OnClick = CheckBox47Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox48 AS QCHECKBOX
          CAPTION = "48"
          Left = 103
          Top = 212
          Width = 33
          TabOrder = 47
          OnClick = CheckBox48Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox49 AS QCHECKBOX
          CAPTION = "49"
          Left = 167
          Top = 212
          Width = 33
          TabOrder = 48
          OnClick = CheckBox49Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox50 AS QCHECKBOX
          CAPTION = "50"
          Left = 247
          Top = 212
          Width = 33
          TabOrder = 49
          OnClick = CheckBox50Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox51 AS QCHECKBOX
          CAPTION = "51"
          Left = 311
          Top = 212
          Width = 33
          TabOrder = 50
          OnClick = CheckBox51Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox52 AS QCHECKBOX
          CAPTION = "52"
          Left = 367
          Top = 212
          Width = 33
          TabOrder = 51
          OnClick = CheckBox52Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox53 AS QCHECKBOX
          CAPTION = "53"
          Left = 415
          Top = 212
          Width = 33
          TabOrder = 52
          OnClick = CheckBox53Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
         CREATE CheckBox54 AS QCHECKBOX
          CAPTION = "54"
          Left = 471
          Top = 212
          Width = 33
          TabOrder = 53
          OnClick = CheckBox54Click
          Font.Name = "Verdana"
          Font.Size = 8

         END CREATE
        END CREATE


       END CREATE

       CREATE Panel2 AS QPANEL
        Top = 40
        Left = 5
        Width = Tab.ClientWidth - 10
        Height = Tab.ClientHeight - 50
        BevelInner = bvLowered
        Visible = False

        CREATE GroupBox2 AS QGROUPBOX
         CAPTION = "Encrypted File Output:"
         Left = 0
         Top = 0
         Width = 303
         Height = 208
         Align = 5
         Font.COLOR = 19872634
         Font.size = 11
         Font.Name = "Verdana"

         CREATE RichEdit1 AS QRICHEDIT
          Left = 2
          Top = 18
          Width = 299
          Height = 188
          Align = 5
          PlainText = 1
          Font.Name = "Tempus Scans ITC"
          Font.size = 9
          Font.COLOR = 16711680
         END CREATE
        END CREATE

       END CREATE
       CREATE Panel3 AS QPANEL
        Top = 40
        Left = 5
        Width = Tab.ClientWidth - 10
        Height = Tab.ClientHeight - 50
        BevelInner = bvLowered
        Visible = False
        CREATE GroupBox1 AS QGROUPBOX
         CAPTION = "Past Files Accessed:"
         Left = 0
         Top = 0
         Width = 410
         Height = 304
         Align = 5
         Font.COLOR = 19872634
         Font.size = 11
         Font.Name = "Verdana"

         CREATE ListBox1 AS QLISTBOX
          Left = 2
          Top = 18
          Width = 406
          Height = 284
          ItemHeight = 16
          Align = 5
          Font.Name = "Tempus Scans ITC"
          Font.size = 9
          Font.COLOR = 16711680
         END CREATE
        END CREATE
       END CREATE
       CREATE Panel4 AS QPANEL
        Top = 40
        Left = 5
        Width = Tab.ClientWidth - 10
        Height = Tab.ClientHeight - 50
        BevelInner = bvLowered
        Visible = False
        CREATE GroupBox5 AS QGROUPBOX
         CAPTION = "Opened File Contents:"
         Left = 0
         Top = 0
         Width = 436
         Height = 296
         Align = 5
         Font.COLOR = 19872634
         Font.size = 11
         Font.Name = "Verdana"

         CREATE RichEdit2 AS QRICHEDIT
          Left = 2
          Top = 15
          Width = 432
          Height = 279
          Align = 5
          Font.Name = "Tempus Scans ITC"
          Font.size = 9
          Font.COLOR = 16711680
         END CREATE
        END CREATE
       END CREATE

       CREATE Panel5 AS QPANEL
        Top = 40
        Left = 5
        Width = Tab.ClientWidth - 10
        Height = Tab.ClientHeight - 50
        BevelInner = bvLowered
        Visible = False
        CREATE GroupBox6 AS QGROUPBOX
         CAPTION = "Encryption systems capabilities:"
         Left = 0
         Top = 0
         Width = 436
         Height = 296
         Align = 5
         Font.COLOR = 16711680
         Font.size = 11
         Font.Name = "Verdana"
         CREATE HelpRichEdit AS QRICHEDIT
          Left = 2
          Top = 15
          Width = 432
          Height = 279
          Align = 5
          Font.Name = "Verdana"
          ReadOnly = 1
          Font.size = 12
          Font.COLOR = 00000000
          AddStrings "Database Version 2.4  Published on: Saturday, December 18, 2004", _
           "Tested Hardware and software:", _
           "Microsoft Windows XP Professional  ", _
           "CPU: Genuine Intel  ~2659 Mhz ", _
           " ", _
           "Microsoft Windows 2000 Professional ", _
           "CPU:  Genuine Intel  ~2659 Mhz  and Genuine Intel ~450 Mhz ", _
           " ", _
           "Microsoft Windows XP home edition ", _
           "CPU: Genuine Intel ~450 Mhz / ~2659 Mhz ", _
           " ", _
           "Bugs:", _
           "This program is not recommended for use with windows ME.", _
           " ", _
           "Primary Encryption Method capabilities:", _
           "This encryption method utilizes a password with no set maximum password length. This Program incorporates an internal password. I found that hacking internal passwords with a private user password was a bitch to vanquish.", _
           "", _
           " Primary Encryption short cut keys:", _
           "                 1. Encrypt File (ALT+E)", _
           "                 2. Decrypt File (ALT+D) ", _
           "                ", _

          "Secondary Encryption Method Capabilities:", _
           "This is a basic XOR-ASCII Encryption algorithm most exploited and favored by the online hacker populous. It’s a classic method and that’s why I have labeled it Secondary Encryption Method.", _
           "", _
           " Secondary Encryption short cut keys: ", _
           "                 1.Encrypt File (CTRL+E)", _
           "                 2.Decrypt File (CTRL+D)", _
           "                 How to activate secondary algorithm (CTRL+A) ", _
           "          ", _
           "Compound Encryption Method Capabilities:", _
           "This encryption method utilizes virus like Infecting/embedding methods to merge the encrypted data into a secondary Image preferably. But you are not limited to only image files. You can use this method successfully to create multiple encrypted messages in one file.", _
           " ", _
           "------------------------------------------------ ", _
           "Short-Cut Commands:", _
           "-----------", _
           " ", _
           " Primary Encryption short cut keys:", _
           "                 1. Encrypt File (ALT+E)", _
           "                 2. Decrypt File (ALT+D) ", _
           "                ", _
           " Secondary Encryption short cut keys: ", _
           "                 1.Encrypt File (CTRL+E)", _
           "                 2.Decrypt File (CTRL+D)", _
           "          ", _
           "                 How to activate secondary algorithm (CTRL+A) ", _
           "                 How to exit program (ALT+X) ", _
           "                 How to open a file  (ALT+O)", _
           "                 How to minimize Application (ALT+Z)", _
           "                 How to Close Workspace (F5) ", _
           "                 How to Open  Workspace (F6) ", _
           "                 For Help (F1) ",_
           "                       ",_
           "                 How to open MS-DOS SHELL:   Ctrl+S", _
           "", _
           "------------------------------------------------ ", _
           "Short-Cut Commands:", _
           "-----------", _
           "", _
           "", _
           "Programmer's name: Johnny B Stroud", _
           "Windows Encryption System Version 6.", _
           "Made in Montana 2/25/2004", _
           "Email: stroudsoft@OneWest.net", _

         END CREATE
        END CREATE
       END CREATE
      END CREATE
     END CREATE

     CREATE MainMenu AS QMAINMENU
      CREATE FileMenu AS QMENUITEM
       CAPTION = "&Primary Encryption"

       CREATE Interface AS QMENUITEM
        CAPTION = "&Close Workspace"
        ShortCut ="F5"
        OnClick = ABG1
       END CREATE
       CREATE Interface1 AS QMENUITEM
        CAPTION = "&Open Workspace"
        ShortCut ="F6"
        OnClick = ABG2
       END CREATE
       CREATE BREAKer AS QMENUITEM
        CAPTION = "-"
       END CREATE

       CREATE OpenItem AS QMENUITEM
        CAPTION = "&Encrypt"
        ShortCut ="alt+E"
        OnClick = OvalBtn1Click
       END CREATE
       CREATE SaveItem AS QMENUITEM
        CAPTION = "&Decrypt"
        ShortCut ="alt+D"
        OnClick = OvalBtn2Click
       END CREATE
       CREATE break AS QMENUITEM
        CAPTION = "-"
       END CREATE
       CREATE EXITx AS QMENUITEM
        CAPTION = "Exit"
        OnClick = exit2
        ShortCut = "alt+X"
       END CREATE
       CREATE OPEN AS QMENUITEM
        CAPTION = "Open &File"
        ShortCut ="alt+O"
        OnClick = Open_X
       END CREATE
      END CREATE


      CREATE FileMenu_2 AS QMENUITEM
       CAPTION = "&Secondary Encryption"
       CREATE encrypt_2 AS QMENUITEM
        CAPTION = "&Encrypt"
        ShortCut ="Ctrl+E"
        OnClick = Crypt2
        Enabled = False
       END CREATE
       CREATE decrypt_2 AS QMENUITEM
        CAPTION = "&Decrypt"
        ShortCut ="Ctrl+D"
        OnClick = Crypt2
        Enabled = False
       END CREATE


       CREATE enable_2 AS QMENUITEM
        CAPTION = "&Activate secondary algorithm"
        ShortCut ="Ctrl+A"
        OnClick = activate
       END CREATE

      END CREATE


      CREATE FileMenu_3 AS QMENUITEM
       CAPTION = "&Tools"

       CREATE FileMenu_1 AS QMENUITEM
        CAPTION = "&Help"
        CREATE stoned AS QMENUITEM
         CAPTION = "Shortcut &Keys"
         ShortCut ="F1"
         OnClick = Mastera_1
        END CREATE
       END CREATE
       CREATE stoned_1 AS QMENUITEM
        CAPTION = "Application &Minimize"
        OnClick =  Mastera_5
        ShortCut ="Alt+Z"
       END CREATE
       CREATE stox AS QMENUITEM
        CAPTION = "Windows XP &DOS-SHELL"
        ShortCut ="Ctrl+S"
        OnClick =  Mastera_2
       END CREATE
      END CREATE :

      CREATE FileMenu_4 AS QMENUITEM
       CAPTION = "&Compound Algorithm"


       CREATE menuloadBmp AS QMENUITEM
        CAPTION = "&Image to incorporate"
        onclick = OpenF
       END CREATE

       CREATE menuloadBmpS AS QMENUITEM
        CAPTION = "&File to incorporate"
        onclick = OpenS
       END CREATE

       CREATE bracker AS QMENUITEM
        CAPTION = "-"
       END CREATE

       CREATE menucreate AS QMENUITEM
        CAPTION = "&Create Encoded file"
        onclick = createF
       END CREATE

       CREATE menusearch AS QMENUITEM
        CAPTION = "&Decode Encoded file"
        onclick = decod
       END CREATE

      END CREATE


     END CREATE
     CREATE StatusBar1 AS QSTATUSBAR
      Align = 2
      SimplePanel = 1
      SimpleText = "Ready ..."
     END CREATE


     CREATE Image1 AS QIMAGE
      Transparent = 1
      BMP = "crypt.ini"
      Left = 0
      Top = 160
      Width = 312
      Height = 53
      Align = 2
      AutoSize = 1
      Center = 1
     END CREATE

     CREATE background AS QIMAGE
      Transparent = 1
      BMP = "data.ini"
      Left = 0
      Top = 0
      Width = 312
      Height = 213
      Align = 5
      Stretch = 1
     END CREATE
     END CREATE

     CREATE Timer1 AS QTIMER
      Interval = 3000
      Enabled = 1
      OnTimer = TimerOver
     END CREATE

     MainForm.Font.Name = "Tempus Scans ITC"
     MainForm.Font.AddStyles(fsBold)
     MainForm.Font.size = 8
     MainForm.Font.COLOR = 255
     Tab.visible = false
     Image1.visible = false
     MainForm.SHOWMODAL

     SUB TimerOver
      Tab.visible = true
      Image1.visible = True
     END SUB

     SUB TabChange
      SELECT CASE Tab.TabIndex
      CASE 0
       Panel0.Visible = True
       Panel1.Visible = False
       Panel2.Visible = False
       Panel3.Visible = False
       Panel4.Visible = False
       Panel5.Visible = False
      CASE 1
       Panel1.Visible = True
       Panel0.Visible = False
       Panel2.Visible = False
       Panel3.Visible = False
       Panel4.Visible = False
       Panel5.Visible = False
      CASE 2
       Panel2.Visible = True
       Panel1.Visible = False
       Panel0.Visible = False
       Panel3.Visible = False
       Panel4.Visible = False
       Panel5.Visible = False
      CASE 3
       Panel3.Visible = True
       Panel1.Visible = False
       Panel2.Visible = False
       Panel0.Visible = False
       Panel4.Visible = False
       Panel5.Visible = False
      CASE 4
       Panel5.Visible = False
       Panel4.Visible = True
       Panel1.Visible = False
       Panel2.Visible = False
       Panel0.Visible = False
       Panel3.Visible = False
      CASE 5
       Panel5.Visible = True
       Panel4.Visible = False
       Panel1.Visible = False
       Panel2.Visible = False
       Panel0.Visible = False
       Panel3.Visible = False

      END SELECT
     END SUB

     SUB OvalBtn1Click (Sender AS QOVALBTN)

      OpenDialog.Filter = "Text Files|*.TXT;*.DOC|All Files|*.*"
      OpenDialog.FilterIndex = 2

      IF opendialog.EXECUTE THEN
       f$=opendialog.filename
       listbox1.additems "[Encryption Algorithms processing file.]"+"(TIME:"+TIME$+" DATE:"+DATE$+") File:"+f$
      END IF

'------------------------------------
      Nfile3.OPEN(f$, FmOpenRead)
      zzx = Nfile3.Size
      Gauge1.Position = STR$(zzx)
      NFile3.CLOSE
'-------------------------------------

      StatusBar1.SimpleText = "Loading "+ opendialog.filename
      Richedit2.savetofile  opendialog.filename +".org"
      Richedit2.loadfromfile opendialog.filename

      IF f$="" THEN StatusBar1.SimpleText = "Please Select a File"
      k$="0213547698"+edit1.text+"1-2~3!4_5@>6}7#8$9=0%{^[&]*|(\)/?<:"+edit1.text
      IF k$="" THEN StatusBar1.SimpleText = "Please Select a Public Key"
      StatusBar1.SimpleText = "Processing file ["+ opendialog.filename +"] "
      GOSUB keygen
      file1.OPEN(f$,fmopenread)
      z=0
      i=0
      j=0
 aa:
      IF file1.eof=-1 THEN file1.CLOSE:GOTO cc
      file1.READ(b)
      z=z+1
      IF z>255 THEN z=1
      i=(i+1)MOD 256
      j=(j+s(i))MOD 256
      temp=s(i)
      s(i)=s(j)
      s(j)=temp
      t=(s(i)+(s(j)MOD 256))MOD 256
      y=s(t)
      c=y XOR b
      c$=CHR$(c)
      file2.write(c$)
      GOTO aa
 cc:
      file1.OPEN(f$,fmcreate)
      file1.copyfrom(file2,0)
      file1.CLOSE
      file2.CLOSE
      GOTO dd:
keygen:
      FOR i=0 TO 255
       s(i)=i
      NEXT i
      j=1
      FOR i=0 TO 255
       IF j>LEN(k$) THEN j=1
       k(i)=ASC(MID$(k$,j,1))
       j=j+1
      NEXT i
      j=0
      FOR i=0 TO 255
       j=(j+s(i)+k(i))MOD 256
       temp=s(i)
       s(i)=s(j)
       s(j)=temp
      NEXT i
      RETURN
      dd:StatusBar1.SimpleText = "loading "+ opendialog.filename +" [Done Processing file] " : Richedit1.loadfromfile opendialog.filename
     END SUB

     SUB OvalBtn2Click (Sender AS QOVALBTN)
OvalBtn1Click1:

      OpenDialog.Filter = "Text Files|*.TXT;*.DOC|All Files|*.*"
      OpenDialog.FilterIndex = 2

      IF opendialog.EXECUTE THEN
       f$=opendialog.filename
       listbox1.additems "[Encryption Algorithms processing file.]"+"(TIME:"+TIME$+" DATE:"+DATE$+") File:"+f$
      END IF

'------------------------------------
      Nfile3.OPEN(f$, FmOpenRead)
      zzx = Nfile3.Size
      Gauge1.Position = STR$(zzx)
      NFile3.CLOSE
'-------------------------------------


      StatusBar1.SimpleText = "Loading "+ opendialog.filename
      Richedit2.loadfromfile opendialog.filename

      IF f$="" THEN StatusBar1.SimpleText = "Please Select a File"
      k$="0213547698"+edit1.text+"1-2~3!4_5@>6}7#8$9=0%{^[&]*|(\)/?<:"+edit1.text
      IF k$="" THEN StatusBar1.SimpleText = "Please Select a Public Key"
      StatusBar1.SimpleText = "Processing file ["+ opendialog.filename +"] "
      GOSUB keygen
      file1.OPEN(f$,fmopenread)
      z=0
      i=0
      j=0
 aa:
      IF file1.eof=-1 THEN file1.CLOSE:GOTO cc
      file1.READ(b)
      z=z+1
      IF z>255 THEN z=1
      i=(i+1)MOD 256
      j=(j+s(i))MOD 256
      temp=s(i)
      s(i)=s(j)
      s(j)=temp
      t=(s(i)+(s(j)MOD 256))MOD 256
      y=s(t)
      c=y XOR b
      c$=CHR$(c)
      file2.write(c$)
      GOTO aa
 cc:
      file1.OPEN(f$,fmcreate)
      file1.copyfrom(file2,0)
      file1.CLOSE
      file2.CLOSE
      GOTO dd:
keygen:
      FOR i=0 TO 255
       s(i)=i
      NEXT i
      j=1
      FOR i=0 TO 255
       IF j>LEN(k$) THEN j=1
       k(i)=ASC(MID$(k$,j,1))
       j=j+1
      NEXT i
      j=0
      FOR i=0 TO 255
       j=(j+s(i)+k(i))MOD 256
       temp=s(i)
       s(i)=s(j)
       s(j)=temp
      NEXT i
      RETURN
      dd: StatusBar1.SimpleText = "Loading "+ opendialog.filename + " [Done Processing file]" : Richedit1.loadfromfile opendialog.filename
     END SUB
     SUB exit2
      Application.Terminate
     END SUB
     SUB Open_X
      OpenDialog.Filter = "Text Files|*.TXT;*.DOC|All Files|*.*"
      OpenDialog.FilterIndex = 2

      IF opendialog.EXECUTE THEN
       f$=opendialog.filename
       listbox1.additems "[File Opened TIME:"+TIME$+" - No Encryption Used] "+" File:"+f$
      END IF
      Richedit2.loadfromfile opendialog.filename
     END SUB
     SUB Crypt2
      OpenDialog.Filter = "Text Files|*.TXT;*.DOC|All Files|*.*"
      OpenDialog.FilterIndex = 2
      IF opendialog.EXECUTE THEN
       f$=opendialog.filename
       listbox1.additems "[File Opened TIME:"+TIME$+" - Secondary encryption used] "+" File:"+f$
      END IF : Richedit2.loadfromfile opendialog.filename
      StatusBar1.SimpleText = "Secondary encryption loading "+ opendialog.filename + " [Processing file]"
'------------------------------------
      Nfile3.OPEN(f$, FmOpenRead)
      zzx = Nfile3.Size
      Gauge1.Position = STR$(zzx)
      NFile3.CLOSE
'-------------------------------------

      Richedit1.loadfromfile f$ : newstring = Richedit1.text
      FOR x = 1 TO LEN(newstring)
       newstring = REPLACE$(newstring, (CHR$(256 - ASC(MID$(newstring, x, 1)))), x)
      NEXT x
      Richedit1.text = newstring : Richedit1.savetofile f$
      StatusBar1.SimpleText = "Secondary encryption loading "+ opendialog.filename + " [Done Processing file]"
     END SUB
     SUB activate
      Encrypt_2.Enabled = True
      Decrypt_2.Enabled = True
      OpenItem.Enabled = False
      SaveItem.Enabled = False
      OvalBtn2.Enabled = False
      OvalBtn1.Enabled = False
      enable_2.Enabled = False

      OvalBtn3.Enabled = True
      OvalBtn4.ENabled = True
      OvalBtn4.Font.COLOR = 0
      OvalBtn3.Font.COLOR = 0
      OvalBtn2.Font.COLOR = 12632256
      OvalBtn1.Font.COLOR = 12632256
      StatusBar1.SimpleText = "Secondary encryption Algorithm Activated."
      SHOWMESSAGE("WARNING: Never use both algorithm methods on the same file!"+CHR$(10)+CHR$(13)+" Using both encryption methods will corrupt the files data.")
      StatusBar1.SimpleText = "Primary Encryption Algorithm Disabled this session."
      listbox1.additems "Secondary encryption Algorithm Activated."+CHR$(10)+CHR$(13)+"Primary Encryption Algorithm Disabled this session."
     END SUB

     SUB Mastera_1
      CREATE modalabout1 AS QFORM
       CAPTION = ""
       Width = 608
       Height = 240
       Center
       CREATE Image1 AS QIMAGE
        Transparent = 1
        BMP = "crypt.ini"
        Left = 0
        Top = 160
        Width = 600
        Height = 53
        ShowHint = 1
        Align = 2
        AutoSize = 1
       END CREATE
       CREATE GroupBox1 AS QGROUPBOX
        Left = 0
        Top = 0
        Width = 600
        Height = 160
        Align = 5
        CREATE Label1 AS QLABEL
         CAPTION = "Version 6.0 was created for the Microsoft"+CHR$(10)+CHR$(13)+"windows XP Home Edition & Pro operating system."+CHR$(10)+CHR$(13)+"database was last updated Saturday, December 18, 2004"+CHR$(10)+CHR$(13)+CHR$(10)+CHR$(13)+"Current date:"+DATE$ + CHR$(10) + CHR$(13)
         Left = 307
         Top = 15
         Width = 291
         Height = 143
         Align = 5
         Transparent = 1
        END CREATE
        CREATE RichEdit1 AS QRICHEDIT
         Left = 2
         Top = 15
         Width = 305
         Height = 143
         Align = 3
         ScrollBars = 3
         Clear
         AddStrings " Primary Encryption short cut keys:", _
          "                 1. Encrypt File (ALT+E)", _
          "                 2. Decrypt File (ALT+D) ", _
          "                ", _
          " Secondary Encryption short cut keys: ", _
          "                 1.Encrypt File (CTRL+E)", _
          "                 2.Decrypt File (CTRL+D)", _
          "          ", _
          "                 How to activate secondary algorithm (CTRL+A) ", _
          "                 How to exit program (ALT+X) ", _
          "                 How to open a file  (ALT+O)", _
          "                 How to minimize Application (ALT+Z)", _
          "                 How to Close Workspace (F5) ", _
          "                 How to Open  Workspace (F6) ", _
          "                 For Help (F1) ",_
          "                       ",_
          "                 How to open MS-DOS SHELL:   Ctrl+S"
        END CREATE
       END CREATE

       BorderStyle = 4
      END CREATE
      modalabout1.SHOWMODAL
     END SUB
     SUB Mastera_5
      Application.Minimize
     END SUB
     SUB Mastera_2
      CREATE Formq AS QFORM
       CAPTION = "About"
       Width = 703
       Height = 388
       Center
       CREATE RichEdit1zq AS QRICHEDIT
        Left = 0
        Top = 0
        Width = 495
        Height = 935
        Align = 5
        ReadOnly = 1
        WordWrap = 0
        COLOR = 0

        AddStrings "Programmer's name: Johnny B Stroud", _
         "", _
         "Windows Encryption System Version 6.0", _
         "", _
         "Made in Montana 2/25/2004", _
         "", _
         "Email: stroudsoft@micro-mania.net"
       END CREATE

      END CREATE
      RichEdit1zq.Font.Name = "Tempus Scans ITC"
      RichEdit1zq.Font.AddStyles(fsBold, fsItalic)
      RichEdit1zq.Font.COLOR = 16744448
      RichEdit1zq.Font.size = 12
      SHELL("c:\windows\system32\cmd.exe")
      SHELL("C:\winnt\system32\command.com")
      SHELL("C:\command.com")
      listbox1.additems "MS-DOS SHELL OPEN"+TIME$()+"  "+DATE$()
      Formq.SHOWMODAL
     END SUB

     SUB ABG2
      Interface1.Enabled = False
      Interface.Enabled = True
      Tab.Visible = True
      Image1.Visible = True
      Timer1.enabled = 0
     END SUB
     SUB ABG1
      Interface1.Enabled = True
      Interface.Enabled = False
      Tab.Visible = False
      Image1.visible = False
      Timer1.enabled = 0
     END SUB





     SUB OpenF
      OpenBmp.Filter = "Bitmap(*.bmp)|*.bmp"
      OpenBmp.FilterIndex = 1
      OpenBmp.CAPTION = "Select A BITMAP File (*.BMP)"
      OpenBmp.FileName = ""
      IF OpenBmp.EXECUTE THEN
       ff$=""
       f$ = OpenBmp.FileName
       Nfile.OPEN(f$, FmOpenRead)
       FOR i = LEN(f$) TO 1 STEP -1
        a$ = MID$(f$,i,1)
        IF a$ = "\" THEN EXIT FOR
        ff$ = ff$+a$
       NEXT i
       file$ = reverse$(ff$)
      END IF
      IF f$ = "" THEN
       FreeF
      END IF
      sz = Nfile.Size
      MemF.CopyFrom(NFile,sz )
      MemF.Position = 0
      NFile.Position = 0
      F_f$ = MemF.ReadStr(sz)
      NFile.CLOSE
      Bmp.BMP = file$
      Image1rxq = FileName
      StatusBar1.SimpleText = "Image in memory : "+file$+" - "+STR$(sz)+ " bytes"+ " - "+STR$(bmp.width)+"x"+STR$(bmp.height)+" to complete"
      listbox1.additems "Image in memory : "+file$+" - "+STR$(sz)+ " bytes"+ " - "+STR$(bmp.width)+"x"+STR$(bmp.height)+" to complete"
     END SUB

     SUB OpenS


      OpenAllS.Filter = "All files(*.*)|*.*"
      OpenAllS.FilterIndex = 1
      OpenAllS.CAPTION = "Select A File"
      OpenAllS.FileName = ""
      IF OpenAllS.EXECUTE THEN
       ff$=""
       f$ = OpenAllS.FileName


'--------------------------------
       SHOWMESSAGE "The file ("+f$+") Will now be Encrypted."+CHR$(10)+CHR$(13)+"The application may stop responding  for 2 to 3 minutes  depending of processor speeds."+CHR$(10)+CHR$(13)+" I Recommend at least a 450Mhz Intel Pentium processor ."
       listbox1.additems "The file ("+f$+") Will now be Encrypted."
       listbox1.additems "The application may stop responding  for 2 to 3 minutes  depending of processor speeds."
       listbox1.additems "I Recommend at least a 450Mhz Intel Pentium processor ."
       DIM x AS INTEGER
       DIM newstring AS STRING

'------------------------------------
       Nfile3.OPEN(f$, FmOpenRead)
       zzx = Nfile3.Size
       Gauge1.Position = STR$(zzx)
       NFile3.CLOSE
'-------------------------------------

       Richedit1.Loadfromfile f$
       newstring = Richedit1.text
       FOR x=1 TO LEN(newstring)
        newstring= REPLACE$(newstring, (CHR$(130 - ASC(MID$(newstring, x, 1)))), x)
       NEXT x
       Richedit1.text = newstring
       Richedit1.savetofile f$
       Richedit1.Loadfromfile f$
       newstring = Richedit1.text
       FOR x=1 TO LEN(newstring)
        newstring= REPLACE$(newstring, (CHR$(126 - ASC(MID$(newstring, x, 1)))), x)
       NEXT x
       Richedit1.text = newstring
       Richedit1.savetofile f$
       Richedit1.Loadfromfile f$
       newstring = Richedit1.text
       FOR x=1 TO LEN(newstring)
        newstring= REPLACE$(newstring, (CHR$(256 - ASC(MID$(newstring, x, 1)))), x)
       NEXT x
       Richedit1.text = newstring
       Richedit1.savetofile f$
       SHOWMESSAGE "The file ("+f$+") Is now Encrypted."+CHR$(10)+CHR$(13)+" "
       listbox1.additems "The file ("+f$+") Is now Encrypted."+CHR$(10)+CHR$(13)+" "
'--------------------------------


       Nfile.OPEN(f$, FmOpenRead)
       FOR i = LEN(f$) TO 1 STEP -1
        a$ = MID$(f$,i,1)
        IF a$ = "\" THEN EXIT FOR
        ff$ = ff$+a$
       NEXT i
       Sfile$ = reverse$(ff$)
      END IF
      IF f$ = "" THEN
       FreeF
      END IF

      sz = Nfile.Size
      Mem.CopyFrom(NFile,sz )
      Mem.Position = 0
      NFile.Position = 0
      SF_f$ = Mem.ReadStr(sz)
      NFile.CLOSE
      StatusBar1.SimpleText = "File in memory : "+sfile$+" - "+STR$(sz)+ " bytes"+ " - "+ " to incorporate"
      listbox1.additems "File in memory : "+sfile$+" - "+STR$(sz)+ " bytes"+ " - "+ " to incorporate"

     END SUB

     SUB createF
      Nfile2.OPEN(f$, FmOpenRead)
      siz = Nfile2.Size

      Nfile3.OPEN(file$, FmOpenRead)
      zz = Nfile3.Size

      SHOWMESSAGE "If you have not selected a Image file or text file to incorporate this process will abort."+CHR$(10)+CHR$(13)+"Selected files to create Encrypted output file:"+CHR$(10)+CHR$(13)+"File in memory : "+f$+" "+STR$(siz)+ " bytes"+CHR$(10)+CHR$(13)+"Image in memory : "+file$+" "+STR$(zz)+ " bytes"+" Width/Height: ("+STR$(bmp.width)+"x"+STR$(bmp.height)+")"
      listbox1.additems "If you have not selected a Image file or text file to incorporate this process will abort."
      listbox1.additems "Selected files to create Encrypted output file:"
      listbox1.additems "File in memory : "+f$+" "+STR$(siz)+ " bytes"
      listbox1.additems "Image in memory : "+file$+" "+STR$(zz)+ " bytes"+" Width/Height: ("+STR$(bmp.width)+"x"+STR$(bmp.height)+")"
      NFile3.CLOSE
      NFile2.CLOSE

      nameF$=sfile$+SPACE$(255-LEN(sfile$))
      filext$=file$-RIGHT$(file$,4)
      saveF.OPEN(filext$+"$.bmp", fmCreate)
      saveF.write(F_f$)
      saveF.writeLine(nameF$)
      saveF.write(SF_f$)
      saveF.CLOSE
      SHOWMESSAGE "Output File:"+filext$+"$.bmp"+" created"
      listbox1.additems "Output File:"+filext$+"$.bmp"+" created"
      FreeF
     END SUB


     SUB decod
      r=0
      OpenBmpd.Filter = "Bitmap$(*$.*)|*$.*|JPGImage$(*$.JPG)|*$.JPG"
      OpenBmpd.FilterIndex = 1
      OpenBmpd.CAPTION = "Select A File"
      OpenBmpd.FileName = ""
      IF OpenBmpD.EXECUTE THEN
       ff$=""
       d$ = OpenBmpd.FileName

       Nfile.OPEN(d$, FmOpenRead)
       FOR i = LEN(d$) TO 1 STEP -1
        a$ = MID$(d$,i,1)
        IF a$ = "\" THEN EXIT FOR
        ff$ = ff$+a$
       NEXT i
       file$ = reverse$(ff$)
      END IF
      IF d$ = "" THEN
       FreeF
      END IF
      sz = Nfile.Size
      MemF.CopyFrom(NFile,sz )
      MemF.Position = 0
      NFile.Position = 0
      F_f$ = MemF.ReadStr(sz)
      NFile.CLOSE
      MemF.position = 2
      fsz$=MemF.readStr(4)
      FOR i = LEN(fsz$) TO 1 STEP -1
       t$ = MID$(fsz$,i,1)
       c = ASC(t$)
       IF t$ > CHR$(0) THEN
        c$ = c$ + RIGHT$(HEX$(c),2)
        h$ = h$ + t$
       END IF
      NEXT i
      r=VAL(CONVBASE$(c$,16,10))
      difsz=sz-r
      IF sz = r THEN
       SHOWMESSAGE "ERROR!: no file inside - select a BMP$"
       listbox1.additems "ERROR!: no file inside - select a BMP$"
       EXIT SUB
      END IF
      MemF.position = r
      nameFs$=MemF.readLine
      MemF.position = r+257
      logs$=MemF.readStr(difsz-257)
      saveF.OPEN("$"+RTRIM$(nameFs$), fmCreate)
      saveF.write(logS$)
      saveF.CLOSE
      FreeF
      Nfile.OPEN(d$, FmOpenRead)
      sz = Nfile.Size
      MemF.CopyFrom(NFile,sz)
      MemF.Position = 0
      NFile.Position = 0
      F_f$ = MemF.ReadStr(sz-difsz)
      NFile.CLOSE
      Bmp.BMP = file$
      saveF.OPEN("$"+(File$), fmCreate)
      saveF.write(F_f$)
      saveF.CLOSE
      FreeF

      StatusBar1.SimpleText = "Recovered BMP: $"+file$+" - "+STR$(sz-difsz)+ " bytes"+ " - "+STR$(bmp.width)+"x"+STR$(bmp.height)+" Ok!"+" - $"+RTRIM$(nameFs$)+" / extracted file size "+STR$(difsz-257)
      listbox1.additems "Recovered BMP: $"+file$+" - "+STR$(sz-difsz)+ " bytes"+ " - "+STR$(bmp.width)+"x"+STR$(bmp.height)+" Ok!"+" - $"+RTRIM$(nameFs$)+" / extracted file size "+STR$(difsz-257)
      OpenBmpd.Filter = "Bitmap$(*$.*)|*$.txt|*$.doc|*$.*"
      OpenBmpd.FilterIndex = 1
      OpenBmpd.CAPTION = "Decrypt A file$"
      OpenBmpd.FileName = ""
      IF OpenBmpD.EXECUTE THEN
       XX$ = OpenBmpd.FileName

'------------------------------------
       SHOWMESSAGE "The file ("+xx$+") Will now be Decrypted."+CHR$(10)+CHR$(13)+"The application may stop responding  for 2 to 3 minutes  depending of processor speeds."+CHR$(10)+CHR$(13)+" I Recommend at least a 450Mhz Intel Pentium processor ."
       listbox1.additems "The file ("+xx$+") Will now be Decrypted."
       listbox1.additems "The application may stop responding  for 2 to 3 minutes  depending of processor speeds."
       listbox1.additems " I Recommend at least a 450Mhz Intel Pentium processor ."
'------------------------------------
       Nfile3.OPEN(xx$, FmOpenRead)
       zzx = Nfile3.Size
       Gauge1.Position = STR$(zzx)
       NFile3.CLOSE
'------------------------------------


       DIM x AS INTEGER
       DIM newstring AS STRING
       Richedit1.Loadfromfile XX$
       newstring = Richedit1.text
       FOR x=1 TO LEN(newstring)
        newstring= REPLACE$(newstring, (CHR$(256 - ASC(MID$(newstring, x, 1)))), x)
       NEXT x
       Richedit1.text = newstring
       Richedit1.savetofile XX$
       Richedit1.Loadfromfile XX$
       newstring = Richedit1.text
       FOR x=1 TO LEN(newstring)
        newstring= REPLACE$(newstring, (CHR$(126 - ASC(MID$(newstring, x, 1)))), x)
       NEXT x
       Richedit1.text = newstring
       Richedit1.savetofile XX$
       Richedit1.Loadfromfile XX$
       newstring = Richedit1.text
       FOR x=1 TO LEN(newstring)
        newstring= REPLACE$(newstring, (CHR$(130 - ASC(MID$(newstring, x, 1)))), x)
       NEXT x
       Richedit1.text = newstring
       Richedit1.savetofile XX$
      END IF

      SHOWMESSAGE "The file ("+xx$+") Is now Decrypted."+CHR$(10)+CHR$(13)+" "
      listbox1.additems "The file ("+xx$+") Is now Decrypted."+CHR$(10)+CHR$(13)+" "
'------------------------------------------


      F_f$=""
     END SUB


     SUB FreeF
      MemF.CLOSE
      filext$=""
     END SUB
'----------<PASSWORD SUBS>-------------------------------------------------------------------------
     SUB CheckBox1Click (Sender AS QCHECKBOX)
      Edit1.Text = "de2#vu_master 5sd$oip_iced"
     END SUB:SUB CheckBox2Click (Sender AS QCHECKBOX)
     Edit1.Text = "er89TI_icedearth Pass263Wierds"
     END SUB:SUB CheckBox3Click (Sender AS QCHECKBOX)
     Edit1.Text = "Icedearth BlackSabbath"
     END SUB:SUB CheckBox4Click (Sender AS QCHECKBOX)
     Edit1.Text = "Lexacon On_Air"
     END SUB:SUB CheckBox5Click (Sender AS QCHECKBOX)
     Edit1.Text = "Superfan Usher"
     END SUB:SUB CheckBox6Click (Sender AS QCHECKBOX)
     Edit1.Text = "Shameika mnemonic"
     END SUB:SUB CheckBox7Click (Sender AS QCHECKBOX)
     Edit1.Text = "*Grekkeo56 Ma$terson"
     END SUB:SUB CheckBox8Click (Sender AS QCHECKBOX)
     Edit1.Text = "50¢ Homer C: Toneless"
     END SUB:SUB CheckBox9Click (Sender AS QCHECKBOX)
     Edit1.Text = "Massiveness96 Descent-MIRV"
     END SUB:SUB CheckBox10Click (Sender AS QCHECKBOX)
     Edit1.Text = "Overlord-evil Encumber "
     END SUB:SUB CheckBox11Click (Sender AS QCHECKBOX)
     Edit1.Text = "Iceddearth666 Digital demigod"
     END SUB:SUB CheckBox12Click (Sender AS QCHECKBOX)
     Edit1.Text = "Persecute Displeasure "
     END SUB:SUB CheckBox13Click (Sender AS QCHECKBOX)
     Edit1.Text = "SupernaturaBeleaguer"
     END SUB:SUB CheckBox14Click (Sender AS QCHECKBOX)
     Edit1.Text = "MonotonouslyIll-mannered"
     END SUB:SUB CheckBox15Click (Sender AS QCHECKBOX)
     Edit1.Text = "All-encompassing Corrugated "
     END SUB:SUB CheckBox17Click (Sender AS QCHECKBOX)
     Edit1.Text = "Creation-Cyber Home"
     END SUB:SUB CheckBox18Click (Sender AS QCHECKBOX)
     Edit1.Text = "Conman-Minimum Observations"
     END SUB:SUB CheckBox19Click (Sender AS QCHECKBOX)
     Edit1.Text = "Illumination Understanding"
     END SUB:SUB CheckBox20Click (Sender AS QCHECKBOX)
     Edit1.Text = "Interpretation Lackluster"
     END SUB:SUB CheckBox21Click (Sender AS QCHECKBOX)
     Edit1.Text = "Monotonous Lusciousness"
     END SUB:SUB CheckBox22Click (Sender AS QCHECKBOX)
     Edit1.Text = "Legerdemain Mortification"
     END SUB:SUB CheckBox23Click (Sender AS QCHECKBOX)
     Edit1.Text = "Supplementary Monotones"
     END SUB:SUB CheckBox24Click (Sender AS QCHECKBOX)
     Edit1.Text = "Octopuses Dictionary "
     END SUB:SUB CheckBox26Click (Sender AS QCHECKBOX)
     Edit1.Text = "WastersWordbooks"
     END SUB:SUB CheckBox27Click (Sender AS QCHECKBOX)
     Edit1.Text = "Safekeeping Guardianship"
     END SUB:SUB CheckBox28Click (Sender AS QCHECKBOX)
     Edit1.Text = "Dexterity Embarrassment"
     END SUB:SUB CheckBox29Click (Sender AS QCHECKBOX)
     Edit1.Text = "correspondingMonkeyshines "
     END SUB:SUB CheckBox30Click (Sender AS QCHECKBOX)
     Edit1.Text = "Occurrences Vocabulary"
     END SUB:SUB CheckBox31Click (Sender AS QCHECKBOX)
     Edit1.Text = "Degenerate Woolgathering"
     END SUB:SUB CheckBox32Click (Sender AS QCHECKBOX)
     Edit1.Text = "Fortification Accountability"
     END SUB:SUB CheckBox33Click (Sender AS QCHECKBOX)
     Edit1.Text = "Schoolroom Document"
     END SUB:SUB CheckBox34Click (Sender AS QCHECKBOX)
     Edit1.Text = "Intellectual Retard"
     END SUB:SUB CheckBox35Click (Sender AS QCHECKBOX)
     Edit1.Text = "Manuscript Companionability"
     END SUB:SUB CheckBox36Click (Sender AS QCHECKBOX)
     Edit1.Text = "Unreservedness Friendliness"
     END SUB:SUB CheckBox37Click (Sender AS QCHECKBOX)
     Edit1.Text = "HospitabilityExterminate"
     END SUB:SUB CheckBox38Click (Sender AS QCHECKBOX)
     Edit1.Text = "Extinguish Assassinate"
     END SUB:SUB CheckBox39Click (Sender AS QCHECKBOX)
     Edit1.Text = "Decimate-*-Bulldoze"
     END SUB:SUB CheckBox40Click (Sender AS QCHECKBOX)
     Edit1.Text = "Springfield Abhorrence"
     END SUB:SUB CheckBox41Click (Sender AS QCHECKBOX)
     Edit1.Text = "Repugnance Humiliation"
     END SUB:SUB CheckBox42Click (Sender AS QCHECKBOX)
     Edit1.Text = "Monstrosity Overstatement"
     END SUB:SUB CheckBox43Click (Sender AS QCHECKBOX)
     Edit1.Text = "ExaggeratioInformation"
     END SUB:SUB CheckBox44Click (Sender AS QCHECKBOX)
     Edit1.Text = "Successively Consecutively"
     END SUB:SUB CheckBox45Click (Sender AS QCHECKBOX)
     Edit1.Text = "Uninterruptedly Repetitively"
     END SUB:SUB CheckBox46Click (Sender AS QCHECKBOX)
     Edit1.Text = "Friendliness Categorization"
     END SUB:SUB CheckBox47Click (Sender AS QCHECKBOX)
     Edit1.Text = "Confederacy Underprivileged"
     END SUB:SUB CheckBox48Click (Sender AS QCHECKBOX)
     Edit1.Text = "RonsonalCustodiaMass-configuration"
     END SUB:SUB CheckBox49Click (Sender AS QCHECKBOX)
     Edit1.Text = "Accompanying Standardize"
     END SUB:SUB CheckBox50Click (Sender AS QCHECKBOX)
     Edit1.Text = "Congratulate Fundamental"
     END SUB:SUB CheckBox51Click (Sender AS QCHECKBOX)
     Edit1.Text = "Permissible Groundwork"
     END SUB:SUB CheckBox52Click (Sender AS QCHECKBOX)
     Edit1.Text = "PrototypeIllustration"
     END SUB:SUB CheckBox53Click (Sender AS QCHECKBOX)
     Edit1.Text = "representative Hemorrhage"
     END SUB:SUB CheckBox54Click (Sender AS QCHECKBOX)
     Edit1.Text = "Pioneer*Inaugurate*": END SUB
'----------<PASSWORD SUBS>-------------------------------------------------------------------------
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2019-4-19  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2005-04-16 12:15:08