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