$APPTYPE GUI
$OPTIMIZE ON
$OPTION ICON "encryptx.ICO"
$TYPECHECK OFF
$INCLUDE "RAPIDQ.INC"
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
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)
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)
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. Its a classic method and thats 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
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
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2005-04-16 12:15:08
