Class TfrmMD5Test (unit MD5T) |
Inherits from
TForm
procedure btnDoFileClick(Sender: TObject);
btnDoTextClick} {*******************************************************************************
* Procedure : btnDoFileClick *
********************************************************************************
* Purpose : Creates the hash of the file specified by the open dialog *
********************************************************************************
* Paramters : None *
********************************************************************************
* Returns : None *
procedure btnDoTextClick(Sender: TObject);
*****************************************************************************
* Procedure : btnDoTextClick *
********************************************************************************
* Purpose : Creates the hash of the text in the input box *
********************************************************************************
* Paramters : None *
********************************************************************************
* Returns : None *
btnDoFile : TButton;
btnDoText : TButton;
edtHashValue : TEdit;
edtInput : TEdit;
grpHash : TGroupBox;
grpInput : TGroupBox;
lblHash : TLabel;
lblInput : TLabel;
MD51 : TMD5;
OpenDialog1 : TOpenDialog;
procedure btnDoFileClick(Sender: TObject);
btnDoTextClick} {*******************************************************************************
* Procedure : btnDoFileClick *
********************************************************************************
* Purpose : Creates the hash of the file specified by the open dialog *
********************************************************************************
* Paramters : None *
********************************************************************************
* Returns : None *
procedure btnDoTextClick(Sender: TObject);
*****************************************************************************
* Procedure : btnDoTextClick *
********************************************************************************
* Purpose : Creates the hash of the text in the input box *
********************************************************************************
* Paramters : None *
********************************************************************************
* Returns : None *
btnDoFile : TButton;
btnDoText : TButton;
edtHashValue : TEdit;
edtInput : TEdit;
grpHash : TGroupBox;
grpInput : TGroupBox;
lblHash : TLabel;
lblInput : TLabel;
MD51 : TMD5;
OpenDialog1 : TOpenDialog;