home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78a98.iso
/
Polskie
/
Despack
/
DES56.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
Wrap
Text File
|
1998-05-07
|
12KB
|
386 lines
object Form1: TForm1
Left = 265
Top = 82
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'PJ-SOFT DES-56x2xor v0.9 Freeware'
ClientHeight = 453
ClientWidth = 444
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object opis3: TLabel
Left = 29
Top = 150
Width = 66
Height = 13
Caption = 'plik wyj�ciowy'
end
object GroupBox2: TGroupBox
Left = 17
Top = 223
Width = 408
Height = 105
Caption = 'Operacje'
TabOrder = 11
object opis4: TLabel
Left = 92
Top = 16
Width = 29
Height = 13
Caption = 'Has�o'
end
end
object postepbox: TGroupBox
Left = 17
Top = 336
Width = 288
Height = 65
Caption = 'Wska�nik post�pu'
TabOrder = 6
end
object RadioGroup1: TRadioGroup
Left = 17
Top = 112
Width = 408
Height = 105
Caption = 'Plik wyj�ciowy'
TabOrder = 10
end
object GroupBox1: TGroupBox
Left = 17
Top = 2
Width = 408
Height = 105
Caption = 'Plik wej�ciowy'
TabOrder = 9
end
object nazwawej: TEdit
Left = 31
Top = 71
Width = 376
Height = 21
MaxLength = 255
TabOrder = 0
OnChange = nazwawejChange
end
object nazwawyj: TEdit
Left = 31
Top = 181
Width = 376
Height = 21
MaxLength = 255
TabOrder = 1
OnChange = nazwawyjChange
end
object pass: TEdit
Left = 107
Top = 255
Width = 224
Height = 24
Hint = 'has�o - max 255 znak�w'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 255
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = passChange
end
object pasek: TProgressBar
Left = 34
Top = 365
Width = 255
Height = 16
Min = 0
Max = 100
Step = 1
TabOrder = 3
end
object guzik1: TBitBtn
Left = 175
Top = 26
Width = 89
Height = 25
Hint = 'wyb�r pliku wej�ciowego'
Caption = 'Otw�rz plik'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = guzik1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object guzik2: TBitBtn
Left = 175
Top = 138
Width = 89
Height = 25
Hint = 'wyb�r pliku wyj�ciowego'
Caption = 'Zapisz jako'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = guzik2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object guzik3: TBitBtn
Left = 56
Top = 292
Width = 97
Height = 25
Hint = 'start szyfrowania'
Caption = 'Szyfruj'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = guzik3Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF77555555555700007555555555577777755555550000}
NumGlyphs = 2
end
object guzik4: TBitBtn
Left = 288
Top = 292
Width = 97
Height = 25
Hint = 'start deszyfrowania'
Caption = 'Deszyfruj'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = guzik4Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
3333333373FF7333333333333000333333333333377733333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
end
object RadioGroup2: TRadioGroup
Left = 311
Top = 336
Width = 114
Height = 65
Caption = 'Opcje'
TabOrder = 12
end
object kwadrat1: TCheckBox
Left = 331
Top = 354
Width = 78
Height = 17
Hint = 'oko�o dwukrotne zwi�kszenie bezpiecze�stwa'
Caption = 'Dwa klucze'
ParentShowHint = False
ShowHint = True
TabOrder = 13
OnClick = kwadrat1Click
end
object kwadrat2: TCheckBox
Left = 331
Top = 378
Width = 78
Height = 17
Hint = 'zr�nicownie powtarzaj�cych si� bajt�w'
Caption = ' XOR'
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 14
OnClick = kwadrat2Click
end
object status: TStatusBar
Left = 0
Top = 434
Width = 444
Height = 19
Panels = <
item
Alignment = taCenter
Width = 86
end
item
Alignment = taCenter
Width = 165
end
item
Alignment = taCenter
Width = 10
end>
SimplePanel = False
SizeGrip = False
end
object guzik5: TBitBtn
Left = 192
Top = 292
Width = 59
Height = 25
Hint = 'anulowanie zadania'
Caption = 'Anuluj'
ParentShowHint = False
ShowHint = True
TabOrder = 16
OnClick = guzik5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object guzik6: TBitBtn
Left = 17
Top = 406
Width = 75
Height = 25
Hint = 'o programie'
Caption = 'Info'
ParentShowHint = False
ShowHint = True
TabOrder = 17
OnClick = guzik6Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF33333333333777773333330000}
NumGlyphs = 2
end
object guzik7: TBitBtn
Left = 350
Top = 406
Width = 75
Height = 25
Hint = 'konfiguracja'
Caption = 'Setup'
ParentShowHint = False
ShowHint = True
TabOrder = 18
OnClick = guzik7Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF033373F3F3F3F3F3733330F0F0F0F0F
03333F7F737373737FFF0000FFFFFFF0000377773FFFFFF7777F0FF800000008
FF037F3F77777773FF7F0F9FFFFFFFF000037F7333333337777F0FFFFFFFFFFF
FF0373FFFFFFFFFFFF7330000000000000333777777777777733333000000000
3333333777777777F3333330FFFFFFF033333337F3FFFFF7F3333330F00000F0
33333337F77777F7F3333330F0AAE0F033333337F7F337F7F3333330F0DAD0F0
33333337F7FFF7F7F3333330F00000F033333337F7777737F3333330FFFFFFF0
33333337FFFFFFF7F333333000000000333333377777777733330000}
NumGlyphs = 2
end
object guzik8: TBitBtn
Left = 184
Top = 406
Width = 75
Height = 25
Hint = 'wyj�cie z programu'
Caption = 'Wyj�cie'
ParentShowHint = False
ShowHint = True
TabOrder = 19
OnClick = guzik8Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
end
object otworz: TOpenDialog
FileEditStyle = fsEdit
Filter = 'Wszystkie pliki|*.*|Pliki des|*.des'
Options = [ofHideReadOnly, ofFileMustExist]
Left = 87
Top = 18
end
object zapisz: TSaveDialog
DefaultExt = 'des'
FileEditStyle = fsEdit
Filter = 'Plik DES|*.des|Dowolny plik|*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofNoReadOnlyReturn]
Left = 55
Top = 130
end
end