home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 March
/
Chip_1999-03_cd.bin
/
ctenari
/
Marsik
/
Sifruj
/
sifruj.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
Wrap
Text File
|
1999-01-17
|
21KB
|
553 lines
object Form1: TForm1
Left = 236
Top = 117
Width = 540
Height = 453
Caption = '�ifruj v 2.4'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
WindowState = wsMaximized
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 17
object Notebook1: TNotebook
Left = 0
Top = 0
Width = 532
Height = 404
Align = alClient
TabOrder = 0
object TPage
Left = 0
Top = 0
Caption = 'Default'
object Panel1: TPanel
Left = 0
Top = 0
Width = 532
Height = 25
Align = alTop
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 0
object SpeedButton1: TSpeedButton
Left = 0
Top = 0
Width = 25
Height = 25
Hint = 'Pomoc'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF3333333333377777333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 24
Top = 0
Width = 25
Height = 25
Hint = 'Zv�t�i komponenty'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 47
Top = 0
Width = 27
Height = 25
Hint = 'Zmen�i komponenty'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 72
Top = 0
Width = 25
Height = 25
Hint = 'Neobnoviteln� smaz�n� v�ech kl��� (soubor�)'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF7755555555570000755555555557777775555555}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 120
Top = 0
Width = 25
Height = 25
Hint = 'O programu'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
333333333F777773FF333333008888800333333377333F3773F3333077870787
7033333733337F33373F3308888707888803337F33337F33337F330777880887
7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
033333337F73FF737F33B33B778000877333333373F777337333333B30888880
33333333373FFFF73333333B3300000333333333337777733333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton5Click
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 25
Width = 532
Height = 234
Align = alClient
Caption = '�ifrov�n�'
Color = clSilver
ParentColor = False
TabOrder = 1
object Label1: TLabel
Left = 24
Top = 40
Width = 225
Height = 33
AutoSize = False
Caption = 'Zadej soubor pro za�ifrov�n�:'
end
object Label2: TLabel
Left = 24
Top = 112
Width = 225
Height = 33
AutoSize = False
Caption = 'Zadej kl�� (soubor) pro �ifrov�n�:'
end
object Label3: TLabel
Left = 16
Top = 216
Width = 169
Height = 57
AutoSize = False
Caption = 'Zadej "nov� kl��" pro vytvo�en� kl��e'
WordWrap = True
end
object Label4: TLabel
Left = 24
Top = 199
Width = 745
Height = 17
Caption =
'----------------------------------------------------------------' +
'----------------------------------------------------------------' +
'---------------------'
end
object Edit1: TEdit
Left = 256
Top = 32
Width = 529
Height = 25
Color = clWhite
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 256
Top = 63
Width = 75
Height = 27
Hint = 'Vybere soubor pro �ifrov�n�'
Caption = 'V�be&r'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object Edit2: TEdit
Left = 256
Top = 104
Width = 529
Height = 25
Hint = 'Soubor s kl��em pro �ifrov�n�'
Color = clWhite
MaxLength = 211
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object BitBtn2: TBitBtn
Left = 256
Top = 136
Width = 75
Height = 25
Hint = 'vybere kl�� z diskety A:'
Caption = '&Kl��'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF7755555555570000755555555557777775555555}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 24
Top = 288
Width = 89
Height = 25
Hint = 'Vytvo�� soubor se zadan�m kl��em na disketu A:'
Caption = '&Nov� kl��'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF7755555555570000755555555557777775555555}
NumGlyphs = 2
end
object Edit3: TEdit
Left = 136
Top = 288
Width = 649
Height = 25
Color = clSilver
ReadOnly = True
TabOrder = 5
end
object BitBtn5: TBitBtn
Left = 360
Top = 176
Width = 75
Height = 25
Hint = 'Za�ne vlastn� �ifrov�n�'
Caption = '&�ifruj'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object GroupBox3: TGroupBox
Left = 184
Top = 216
Width = 601
Height = 65
Caption = 'Information'
TabOrder = 7
object Label8: TLabel
Left = 8
Top = 32
Width = 241
Height = 25
AutoSize = False
Caption = 'Pr�b�h pr�ce:'
end
object Gauge1: TGauge
Left = 248
Top = 24
Width = 345
Height = 25
ForeColor = clBlue
Progress = 0
end
end
object CheckBox1: TCheckBox
Left = 24
Top = 176
Width = 161
Height = 17
Caption = 'Set��t (wipe)'
TabOrder = 8
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 259
Width = 532
Height = 145
Align = alBottom
Caption = 'De�ifrov�n�'
Color = cl3DLight
ParentColor = False
TabOrder = 2
object Label5: TLabel
Left = 16
Top = 24
Width = 217
Height = 25
AutoSize = False
Caption = 'Zadej soubor pro de�ifrov�n�:'
end
object Label6: TLabel
Left = 16
Top = 56
Width = 145
Height = 24
AutoSize = False
Caption = 'Za�ifrov�no kl��em:'
end
object Label7: TLabel
Left = 16
Top = 88
Width = 145
Height = 25
AutoSize = False
Caption = 'Kl�� pro de�ifrov�n�:'
end
object Label9: TLabel
Left = 16
Top = 120
Width = 193
Height = 17
AutoSize = False
Caption = 'Kontrola neporu�enosti:'
end
object Edit4: TEdit
Left = 240
Top = 16
Width = 481
Height = 25
Color = clWhite
TabOrder = 0
end
object BitBtn6: TBitBtn
Left = 728
Top = 16
Width = 65
Height = 25
Hint = 'Vyber soubor pro de�ifrov�n�'
Caption = 'V�&b�r'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtn6Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object Edit5: TEdit
Left = 160
Top = 48
Width = 561
Height = 25
Color = clSilver
MaxLength = 231
ReadOnly = True
TabOrder = 2
end
object Edit6: TEdit
Left = 160
Top = 80
Width = 561
Height = 25
Color = clWhite
MaxLength = 231
TabOrder = 3
end
object BitBtn8: TBitBtn
Left = 728
Top = 80
Width = 65
Height = 25
Hint = 'Vyber kl�� z diskety A:'
Caption = '&Vyber'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF7755555555570000755555555557777775555555}
NumGlyphs = 2
end
object BitBtn7: TBitBtn
Left = 360
Top = 112
Width = 81
Height = 25
Hint = 'De�ifruj vybran� soubor'
Caption = '&De�ifruj'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FF3FFFF3FFF33FF003000030003
300077377773777F377703330033370337037FFF77F3377FF77F700007333300
0003777777333377777F303003333330370337F77F333337377F303073333333
070337F77F333333777F3700733333333003377773333333377F330033333333
30033377F3333333377F33073333333333033377333333333373333333333333
33333333FF3333333FF3333973333333793333377FF3333377F3333999333339
993333377733333777F33339933333339933333773FF333377F3333939733379
39333337377FFF77373333333399999333333333337777733333}
NumGlyphs = 2
end
object Edit7: TEdit
Left = 216
Top = 112
Width = 113
Height = 25
Color = clSilver
TabOrder = 6
end
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 404
Width = 532
Height = 17
Panels = <>
SimplePanel = True
SimpleText =
'ZM-SOFT, Kv�tn� 1843, Uhersk� Brod E-mail: mzdenek@usa.net, Te' +
'l.: 0603 506407'
end
object OpenDialog1: TOpenDialog
Left = 40
Top = 40
end
object SaveDialog1: TSaveDialog
DefaultExt = 'key'
Left = 72
Top = 40
end
end