-
Notifications
You must be signed in to change notification settings - Fork 38
/
unit2.lfm
executable file
·2437 lines (2437 loc) · 72.3 KB
/
unit2.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object MainForm: TMainForm
Left = 442
Height = 733
Top = 245
Width = 1023
AllowDropFiles = True
Caption = 'QuickHash v3.3.4 (Oct 2023) - The easy and convenient way to hash data in Linux, OSX and Windows'
ClientHeight = 713
ClientWidth = 1023
Menu = MainMenu1
OnClose = FormClose
OnCreate = FormCreate
OnDropFiles = FormDropFiles
Position = poScreenCenter
SessionProperties = 'Position;AlgorithmChoiceRadioBox1.ItemIndex;AlgorithmChoiceRadioBox2.ItemIndex;AlgorithmChoiceRadioBox3.ItemIndex;AlgorithmChoiceRadioBox4.ItemIndex;AlgorithmChoiceRadioBox5.ItemIndex;AlgorithmChoiceRadioBox6.ItemIndex;AlgorithmChoiceRadioBox7.ItemIndex'
LCLVersion = '2.2.4.0'
object PageControl1: TPageControl
Left = 24
Height = 675
Top = 24
Width = 991
ActivePage = TabSheet1
Anchors = [akTop, akLeft, akRight, akBottom]
ParentShowHint = False
ShowHint = True
TabIndex = 0
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Hint = 'Hash portions of text'
Caption = 'Te&xt'
ClientHeight = 647
ClientWidth = 983
OnContextPopup = TabSheet1ContextPopup
ParentShowHint = False
object TextHashingGroupBox: TGroupBox
Left = 120
Height = 534
Top = 10
Width = 849
Anchors = [akTop, akLeft, akRight]
Caption = 'Text Hashing'
ClientHeight = 512
ClientWidth = 845
Color = clForm
Font.Height = -13
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
object memoHashText: TMemo
Left = 8
Height = 191
Hint = 'Type or paste and watch hash value change. For amounts larger than several hundred Kb, save data to a file and use File Hashing instead. Be aware of line endings! '
Top = 9
Width = 823
Anchors = [akTop, akLeft, akRight]
Lines.Strings = (
'Type or paste text here - hash will update as you type'
''
''
''
''
''
''
''
''
''
''
)
MaxLength = 500000000
OnChange = HashText
OnEnter = ClearText
ParentShowHint = False
ScrollBars = ssAutoBoth
ShowHint = True
TabOrder = 0
end
object StrHashValue: TMemo
Left = 8
Height = 56
Hint = 'This is the hash of ALL THE TEXT in the textarea above'#13#10'For line-by-line analysis, use the button'#13#10#13#10'The hash value can be copied from here'#13#10'to clipboard (highlight and press Ctrl + C or right click ''Copy'''
Top = 408
Width = 823
Anchors = [akTop, akLeft, akRight]
Color = clSilver
Font.Height = -13
Lines.Strings = (
'...hash value'
''
''
''
''
''
''
''
''
''
''
)
ParentFont = False
ParentShowHint = False
ScrollBars = ssAutoHorizontal
ShowHint = True
TabOrder = 1
WordWrap = False
end
object lbleExpectedHashText: TLabeledEdit
Left = 8
Height = 25
Hint = 'Paste an existing hash value here to see if'#13#10'the generated hash matches the computed hash.'#13#10'To resume normal behaviour, return value '#13#10'to ''...'' (3 dots only)'#13#10'It expects you to paste hash values '#13#10'of the correct length'
Top = 368
Width = 824
Anchors = [akTop, akLeft, akRight]
EditLabel.Height = 17
EditLabel.Width = 824
EditLabel.Caption = 'Expected Hash Value (clear, then paste value from other utility)'
EditLabel.ParentColor = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
Text = '...'
OnChange = lbleExpectedHashTextChange
end
object GroupBox5: TGroupBox
Left = 8
Height = 120
Top = 208
Width = 448
Caption = 'Line-By-Line Hashing Options'
ClientHeight = 98
ClientWidth = 444
TabOrder = 3
object btnFLBL: TButton
Left = 184
Height = 25
Hint = 'Load a large text file, hash the content '#13#10'of it line-by-line, and save the results '#13#10'to a new text file.'
Top = 56
Width = 144
Caption = 'Text FILE Line-By-Line'
OnClick = btnFLBLClick
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object btnLBL: TButton
Left = 16
Height = 25
Hint = 'Generate hash values line-by-line'#13#10'of the text pasted or written'#13#10'into the text area above. '#13#10'Results are saved to text file.'
Top = 56
Width = 144
Caption = 'TEXT Line-By-Line'
OnClick = btnLBLClick
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object cbToggleInputDataToOutputFile: TCheckBox
Left = 184
Height = 21
Hint = 'If unticked, source text (including '#13#10'hashes) will be output. '#13#10'If ticked, only the computed'#13#10'hashes will be output.'
Top = 16
Width = 197
Caption = 'Source text INcluded in output'
OnChange = cbToggleInputDataToOutputFileChange
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object TextLBLDelimiterComboBox: TComboBox
Left = 16
Height = 25
Hint = 'Select delimiter if you want. Comma is used if not specified.'
Top = 16
Width = 100
ItemHeight = 17
Items.Strings = (
','
'-'
'Tab'
'Space'
)
OnChange = FileSDelimiterComboBoxChange
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = 'Set Delimiter'
end
end
object cbFlipCaseTEXT: TCheckBox
Left = 8
Height = 21
Top = 472
Width = 86
Caption = 'Switch case'
OnChange = cbFlipCaseTEXTChange
TabOrder = 4
end
object btnClearTextArea: TButton
Left = 710
Height = 25
Hint = 'Clear all characters from the text area'
Top = 304
Width = 112
Caption = 'Clear Text Area'
OnClick = btnClearTextAreaClick
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object btnMakeTextUpper: TButton
Left = 710
Height = 25
Hint = 'Convert all characters in text area to UPPERCASE'
Top = 216
Width = 112
Caption = 'Make UPPER'
OnClick = btnMakeTextUpperClick
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object btnMakeTextLower: TButton
Left = 710
Height = 25
Hint = 'Convert all characters in text area to lowercase'
Top = 256
Width = 112
Caption = 'Make lower'
OnClick = btnMakeTextLowerClick
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
end
object AlgorithmChoiceRadioBox1: TRadioGroup
Left = 16
Height = 206
Hint = 'Easily recompute different hashes'#13#10'by choosing a different hash algorithm.'#13#10'Note SHA-3 and Blake2b are 256 bit mode. '
Top = 10
Width = 96
AutoFill = True
Caption = 'Algorithm'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 184
ClientWidth = 92
Font.Height = -13
ItemIndex = 1
Items.Strings = (
'MD5'
'SHA-1'
'SHA-3'
'SHA256'
'SHA512'
'xxHash'
'Blake2B'
'Blake3'
'CRC32'
)
OnClick = AlgorithmChoiceRadioBox1Click
OnSelectionChanged = HashText
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object TabSheet2: TTabSheet
Hint = 'Hash a single file (useful for hashing disks in Linux)'
Caption = 'F&ile'
ClientHeight = 647
ClientWidth = 983
ParentShowHint = False
object FileHashingGroupBox: TGroupBox
Left = 120
Height = 398
Top = 10
Width = 854
Anchors = [akTop, akLeft, akRight]
Caption = 'Single File Hashing'
ClientHeight = 376
ClientWidth = 850
Color = clForm
Font.Height = -13
ParentBackground = False
ParentColor = False
ParentFont = False
ParentShowHint = False
TabOrder = 0
object Label6: TLabel
Left = 552
Height = 34
Top = 47
Width = 270
Caption = 'As root, this section can be used to hash disks'#10'e.g. /dev/sdX or /dev/sdaX, or /dev/hdX'
ParentColor = False
WordWrap = True
end
object lblStartedFileAt: TLabel
Left = 272
Height = 17
Top = 8
Width = 9
Caption = '...'
ParentColor = False
end
object lblFileTimeTaken: TLabel
Left = 272
Height = 17
Top = 56
Width = 9
Caption = '...'
ParentColor = False
end
object edtFileNameToBeHashed: TEdit
Left = 6
Height = 25
Top = 96
Width = 828
Anchors = [akTop, akLeft, akRight]
Color = clSilver
ReadOnly = True
TabOrder = 0
Text = 'File being hashed...'
end
object btnHashFile: TButton
Left = 6
Height = 25
Hint = 'Choose a single file to hash (or Linux physical device e.g. /dev/sda)'
Top = 64
Width = 83
AutoSize = True
Caption = 'Select &File'
Color = 8454016
Font.Style = [fsBold]
OnClick = btnHashFileClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 353
Width = 850
Panels = <>
end
object lblDragAndDropNudge: TLabel
Left = 112
Height = 17
Top = 64
Width = 121
Caption = 'or drag n drop a file'
ParentColor = False
end
object memFileHashField: TMemo
Left = 6
Height = 58
Top = 136
Width = 828
Anchors = [akTop, akLeft, akRight]
Color = clSilver
Lines.Strings = (
'Computed hash will appear here...'
''
''
''
''
''
''
''
''
''
''
)
TabOrder = 3
WordWrap = False
end
object lbleExpectedHash: TLabeledEdit
Left = 8
Height = 25
Hint = 'Paste an existing hash value here to see if'#13#10'the generated file hash matches it, or not. '
Top = 264
Width = 826
Anchors = [akTop, akLeft, akRight]
EditLabel.Height = 17
EditLabel.Width = 826
EditLabel.Caption = 'Expected Hash Value (paste from other utility before or after file hashing)'
EditLabel.ParentColor = False
MaxLength = 128
TabOrder = 4
Text = '...'
OnChange = lbleExpectedHashChange
end
object lbEndedFileAt: TLabel
Left = 272
Height = 17
Top = 32
Width = 9
Caption = '...'
ParentColor = False
end
object DateTimePickerFileTab: TDateTimePicker
Left = 8
Height = 25
Hint = 'Enter date and time (hours and minutes) '#13#10'to start the process. Must be in the future!'
Top = 32
Width = 136
CenturyFrom = 1941
MaxDate = 72686
MinDate = 45223
TabOrder = 5
Enabled = False
TrailingSeparator = False
TextForNullDate = 'Choose date & time'
LeadingZeros = True
ShowHint = True
ParentShowHint = False
Visible = False
Kind = dtkDateTime
TimeFormat = tf24
TimeDisplay = tdHM
DateMode = dmComboBox
Date = 45223
Time = 0.673620821762597
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
end
object lblschedulertickboxFileTab: TCheckBox
Left = 8
Height = 21
Hint = 'Tick and set a date and time ahead of current time'#13#10'and then select the file to hash.'
Top = 8
Width = 105
Caption = 'Start at a time:'
OnChange = lblschedulertickboxFileTabChange
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object btnClearHashField: TButton
Left = 6
Height = 25
Top = 304
Width = 144
Caption = 'Clear Hash Field'
OnClick = btnClearHashFieldClick
OnKeyDown = btnClearHashFieldKeyDown
TabOrder = 7
end
object pbFile: TProgressBar
Left = 190
Height = 20
Top = 304
Width = 640
TabOrder = 8
BarShowText = True
end
object lblPercentageProgressFileTab: TLabel
AnchorSideTop.Control = pbFile
AnchorSideTop.Side = asrBottom
Left = 456
Height = 17
Top = 324
Width = 9
Caption = '...'
ParentColor = False
end
object cbFlipCaseFILE: TCheckBox
Left = 8
Height = 21
Top = 208
Width = 86
Caption = 'Switch case'
OnChange = cbFlipCaseFILEChange
TabOrder = 9
end
end
object AlgorithmChoiceRadioBox2: TRadioGroup
Left = 16
Height = 206
Top = 10
Width = 96
AutoFill = True
Caption = 'Algorithm'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 184
ClientWidth = 92
Font.Height = -13
ItemIndex = 1
Items.Strings = (
'MD5'
'SHA-1'
'SHA-3'
'SHA256'
'SHA512'
'xxHash'
'Blake2B'
'Blake3'
'CRC32'
)
OnClick = AlgorithmChoiceRadioBox2Click
OnSelectionChanged = AlgorithmChoiceRadioBox2SelectionChanged
ParentFont = False
TabOrder = 1
end
end
object TabSheet3: TTabSheet
Hint = 'Compute hashes for multiple files in a directory'#13#10'recursively, or just those in the root of the directory'
Caption = 'FileS'
ClientHeight = 647
ClientWidth = 983
ParentShowHint = False
ShowHint = True
object DirectoryHashingGroupBox: TGroupBox
Left = 120
Height = 651
Top = 10
Width = 859
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Hash all files in chosen directory - recursive by default'
ClientHeight = 629
ClientWidth = 855
Color = clForm
Font.Height = -13
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
object Label2: TLabel
AnchorSideRight.Control = lblFilesExamined
Left = 520
Height = 17
Top = 28
Width = 111
Anchors = [akTop, akLeft, akRight]
Caption = '# Files Examined:'
Font.Height = -13
ParentColor = False
ParentFont = False
end
object btnRecursiveDirectoryHashing: TButton
Left = 8
Height = 25
Hint = 'All files and subdirectories below the chosen '#10'directory will be hashed, subject to selected'#10'options. Recursive by default.'
Top = 128
Width = 99
AutoSize = True
Caption = 'Select &Folder'
Color = 8454016
Font.Style = [fsBold]
OnClick = btnRecursiveDirectoryHashingClick
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object DirSelectedField: TEdit
Left = 8
Height = 25
Hint = 'The chosen parent directory'
Top = 160
Width = 824
Anchors = [akTop, akLeft, akRight]
Color = clSilver
TabOrder = 0
Text = 'Dir selected :'
end
object Label4: TLabel
AnchorSideRight.Control = lblNoFilesInDir
Left = 520
Height = 17
Top = 6
Width = 111
Anchors = [akTop, akLeft, akRight]
Caption = '# Files in Dir:'
ParentColor = False
end
object PercentageComplete: TLabel
Left = 520
Height = 17
Top = 56
Width = 235
Anchors = [akTop, akLeft, akRight]
Caption = '% Complete:'
ParentColor = False
end
object btnClipboardResults: TButton
Left = 224
Height = 27
Hint = 'Press this to copy entire grid content to RAM'
Top = 126
Width = 84
AutoSize = True
Caption = 'Clipboard'
Enabled = False
OnClick = btnClipboardResultsClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object btnStopScan1: TButton
Left = 144
Height = 25
Hint = 'Click to abort the hash as soon as the'#10'current file hashing action completes. '
Top = 128
Width = 50
AutoSize = True
Caption = 'S&top'
OnClick = btnStopScan1Click
ParentFont = False
TabOrder = 3
end
object chkRecursiveDirOverride: TCheckBox
Left = 8
Height = 21
Hint = 'Hash files just in the root of the chosen folder'#13#10'Sub-folders will be ignored. '
Top = 8
Width = 167
Caption = 'Ignoring sub-directories?'
TabOrder = 1
end
object Label5: TLabel
Left = 110
Height = 28
Top = 312
Width = 575
Caption = 'This area will be populated once the scan is complete...please wait!'
Font.Height = -20
ParentColor = False
ParentFont = False
Visible = False
WordWrap = True
end
object StatusBar2: TStatusBar
AnchorSideRight.Control = DirectoryHashingGroupBox
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 586
Width = 847
Align = alCustom
Anchors = [akLeft, akRight]
AutoSize = False
Panels = <>
end
object lblTimeTaken3: TLabel
AnchorSideRight.Control = DirectoryHashingGroupBox
AnchorSideRight.Side = asrBottom
Left = 686
Height = 17
Top = 6
Width = 163
AutoSize = False
Caption = '...'
ParentColor = False
end
object lblTimeTaken4: TLabel
AnchorSideRight.Control = DirectoryHashingGroupBox
AnchorSideRight.Side = asrBottom
Left = 686
Height = 17
Top = 56
Width = 169
Anchors = [akTop, akLeft, akRight]
Caption = '...'
ParentColor = False
end
object lblNoFilesInDir: TLabel
AnchorSideRight.Control = lblTimeTaken3
Left = 631
Height = 17
Top = 6
Width = 55
Anchors = [akTop, akLeft, akRight]
Caption = '...'
ParentColor = False
end
object lblPercentageComplete: TLabel
AnchorSideRight.Control = lblTimeTaken4
Left = 631
Height = 17
Top = 56
Width = 55
Anchors = [akTop, akLeft, akRight]
Caption = '...'
ParentColor = False
end
object lblFilesExamined: TLabel
AnchorSideRight.Control = lblTotalBytesExamined
Left = 631
Height = 17
Top = 28
Width = 55
Anchors = [akTop, akLeft, akRight]
Caption = '...'
ParentColor = False
end
object lblTotalBytesExamined: TLabel
AnchorSideRight.Control = DirectoryHashingGroupBox
AnchorSideRight.Side = asrBottom
Left = 686
Height = 17
Top = 28
Width = 9
Caption = '...'
ParentColor = False
end
object chkHiddenFiles: TCheckBox
Left = 8
Height = 21
Hint = 'Tick to have files in hidden folders hashed. '#13#10'Hidden files are hashed by default anyway '#13#10'but hidden folders, ergo their contents, are not found by default.'
Top = 64
Width = 137
Caption = 'Hidden folders too?'
TabOrder = 6
end
object FileMaskField2: TEdit
Left = 288
Height = 25
Hint = 'Use an asterix, full stop and the file type '#10'extension, seperated by a semi-colon.'#10'NO space characters'
Top = 36
Width = 200
ParentShowHint = False
ShowHint = True
TabOrder = 7
Text = '*.doc;*.docx;*.xls;*.xlsx;*.pdf;'
Visible = False
end
object FileTypeMaskCheckBox2: TCheckBox
Left = 288
Height = 21
Hint = 'Select file type masks (e.g. *.doc;*.pdf)'#13#10'Remember that JPG and jpg are different'#13#10'file names on Linux and OSX!!'
Top = 8
Width = 126
Caption = 'Choose file types?'
OnChange = FileTypeMaskCheckBox2Change
TabOrder = 8
end
object DateTimePickerFileSTab: TDateTimePicker
Left = 128
Height = 25
Top = 36
Width = 136
CenturyFrom = 1941
MaxDate = 72686
MinDate = 45223
TabOrder = 9
Enabled = False
TrailingSeparator = False
TextForNullDate = 'Choose date & time'
LeadingZeros = True
Visible = False
Kind = dtkDateTime
TimeFormat = tf24
TimeDisplay = tdHM
DateMode = dmComboBox
Date = 45223
Time = 0.673620821762597
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
end
object lblschedulertickboxFileSTab: TCheckBox
Left = 8
Height = 21
Hint = 'Tick and set a date and time ahead of current time'#13#10'and then select the directory to hash.'
Top = 36
Width = 105
Caption = 'Start at a time:'
OnChange = lblschedulertickboxFileSTabChange
TabOrder = 10
end
object DBGrid_FILES: TDBGrid
Left = 8
Height = 370
Top = 200
Width = 845
Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWindow
Columns = <>
DataSource = frmSQLiteDBases.DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
PopupMenu = popmenuDBGrid_Files
TabOrder = 11
TitleFont.Height = -13
end
object FileSDBNavigator: TDBNavigator
Left = 336
Height = 25
Hint = 'This can help navigate the data grid'
Top = 126
Width = 177
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 25
ClientWidth = 177
DataSource = frmSQLiteDBases.DataSource1
Options = []
TabOrder = 12
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
end
object cbLoadHashList: TCheckBox
Left = 288
Height = 21
Top = 64
Width = 101
Caption = 'Load HashList'
OnChange = cbLoadHashListChange
TabOrder = 13
end
object btnLoadHashList: TButton
Left = 400
Height = 25
Top = 64
Width = 75
Caption = 'Select File'
Enabled = False
OnClick = btnLoadHashListClick
TabOrder = 14
Visible = False
end
object FileSDelimiterComboBox: TComboBox
Left = 8
Height = 25
Hint = 'Select delimiter if you want. Comma is used if not specified.'
Top = 96
Width = 100
ItemHeight = 17
Items.Strings = (
','
'-'
'Tab'
'Space'
)
OnChange = FileSDelimiterComboBoxChange
TabOrder = 15
Text = 'Set Delimiter'
end
end
object AlgorithmChoiceRadioBox3: TRadioGroup
Left = 16
Height = 206
Top = 10
Width = 96
AutoFill = True
Caption = 'Algorithm'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 184
ClientWidth = 92
Font.Height = -13
ItemIndex = 1
Items.Strings = (
'MD5'
'SHA-1'
'SHA-3'
'SHA256'
'SHA512'
'xxHash'
'Blake2B'
'Blake3'
'CRC32'
)
OnClick = AlgorithmChoiceRadioBox3Click
ParentFont = False
TabOrder = 1
end
object pbFileS: TProgressBar
Left = 656
Height = 20
Top = 160
Width = 296
TabOrder = 2
end
object btnPreserveDB: TButton
Left = 16
Height = 25
Hint = 'Click to save copy of the backend SQLite database'
Top = 232
Width = 91
Caption = 'Preserve DB'
OnClick = btnPreserveDBClick
TabOrder = 3
end
end
object TabSheet4: TTabSheet
Hint = 'Choose a directory, have its content hashed, files are copied to destination, and re-hashed.'
Caption = '&Copy'
ClientHeight = 647
ClientWidth = 983
ParentShowHint = False
ShowHint = True
object CopyFilesHashingGroupBox: TGroupBox
Left = 120
Height = 596
Top = 10
Width = 845
Anchors = [akTop, akLeft, akRight]
Caption = 'Hash files in chosen directory, copy them, and re-hash the copied files (recursive by default) '
ClientHeight = 574
ClientWidth = 841
Color = clForm
Font.Height = -13
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
object Panel1CopyAndHashOptions: TPanel
Left = 8
Height = 184
Top = 8
Width = 830
Anchors = [akTop, akLeft, akRight]
ClientHeight = 184
ClientWidth = 830
TabOrder = 3
OnClick = Panel1CopyAndHashOptionsClick
object CheckBoxListOfDirsOnly: TCheckBox
Left = 14
Height = 21
Hint = 'Tick to have child directories listed, but no files inside hashed'
Top = 0
Width = 161
Anchors = [akLeft]
Caption = 'Just LIST sub-directories'
OnChange = CheckBoxListOfDirsOnlyChange
TabOrder = 0
end
object CheckBoxListOfDirsAndFilesOnly: TCheckBox
Left = 14
Height = 21
Hint = 'Tick to have child directories and files listed, but no files actually hashed'
Top = 32
Width = 214
Caption = 'Just LIST sub-directories and files'
OnChange = CheckBoxListOfDirsAndFilesOnlyChange
TabOrder = 1
end
object SaveToCSVCheckBox2: TCheckBox
Left = 256
Height = 21
Hint = 'Ensure results saved as text data (spreadsheet format)'#13#10'The user can right click the results grid and save '#13#10'manually regardless. '
Top = 0
Width = 130
Caption = 'Save results (CSV)?'
TabOrder = 2
end
object FileTypeMaskCheckBox1: TCheckBox
Left = 448
Height = 21
Hint = 'Only copy files of a particular type'
Top = 32
Width = 126
Caption = 'Choose file types?'
OnChange = FileTypeMaskCheckBox1Change
TabOrder = 4
end
object FileMaskField: TEdit
Left = 464
Height = 25
Hint = 'Use an asterix, full stop and the file type '#10'extension, seperated by a semi-colon.'#10'NO space characters'
Top = 64
Width = 248
ParentShowHint = False
ShowHint = True
TabOrder = 5
Text = '*.doc;*.docx;*.xls;*.xlsx;*.pdf;'
Visible = False
end
object chkNoRecursiveCopy: TCheckBox
Left = 448
Height = 21