fast4x/datalock
1
1
Fork 0
mirror of https://github.com/fast4x/datalock.git synced 2025-06-05 21:49:16 +02:00
Code Issues Projects Releases Wiki Activity

Initial Commit

Browse Source
This commit is contained in:
Rino Russo
2023-02-02 22:39:42 +01:00
parent bc11aa10c9
commit 09065dd2ce
37 changed files with 7176 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

133
unit_crypt.frm Normal file
View File

@ -0,0 +1,133 @@
object Form_crypt: TForm_crypt
Left = 387
Height = 412
Top = 242
Width = 701
Caption = 'Form_crypt'
ClientHeight = 412
ClientWidth = 701
DesignTimePPI = 120
OnCreate = FormCreate
LCLVersion = '7.7'
object boxInputFile: TFileNameEdit
Left = 18
Height = 28
Top = 41
Width = 372
FileName = 'boxInputFile'
FilterIndex = 0
HideDirectories = False
ButtonWidth = 29
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
Text = 'boxInputFile'
end
object boxOutputFile: TFileNameEdit
Left = 18
Height = 28
Top = 110
Width = 372
FileName = 'boxOutputFile'
FilterIndex = 0
HideDirectories = False
ButtonWidth = 29
NumGlyphs = 1
MaxLength = 0
TabOrder = 1
Text = 'boxOutputFile'
end
object Label1: TLabel
Left = 18
Height = 20
Top = 19
Width = 85
Caption = 'File sorgente'
end
object Label2: TLabel
Left = 18
Height = 20
Top = 86
Width = 111
Caption = 'File destinazione'
end
object btnEncrypt: TButton
Left = 18
Height = 31
Top = 160
Width = 94
Caption = 'Encrypt'
OnClick = btnEncryptClick
TabOrder = 2
end
object btnDecrypt: TButton
Left = 171
Height = 31
Top = 160
Width = 94
Caption = 'Decrypt'
OnClick = btnDecryptClick
TabOrder = 3
end
object ProgressBar1: TProgressBar
Left = 459
Height = 25
Top = 104
Width = 231
TabOrder = 4
end
object Label3: TLabel
Left = 460
Height = 20
Top = 132
Width = 44
Caption = 'Label3'
end
object strsorg: TLabeledEdit
Left = 21
Height = 28
Top = 261
Width = 350
EditLabel.Height = 20
EditLabel.Width = 350
EditLabel.Caption = 'stringa sorgente'
TabOrder = 5
end
object strdest: TLabeledEdit
Left = 21
Height = 28
Top = 320
Width = 350
EditLabel.Height = 20
EditLabel.Width = 350
EditLabel.Caption = 'stringa destinazione'
TabOrder = 6
end
object btnDecrypt1: TButton
Left = 174
Height = 31
Top = 370
Width = 94
Caption = 'Decrypt'
OnClick = btnDecrypt1Click
TabOrder = 7
end
object btnEncrypt1: TButton
Left = 20
Height = 31
Top = 370
Width = 94
Caption = 'Encrypt'
OnClick = btnEncrypt1Click
TabOrder = 8
end
object Cipher: TDCP_3des
Id = 24
Algorithm = '3DES'
MaxKeySize = 192
OnProgress = CipherProgress
BlockSize = 64
Left = 650
Top = 20
end
end