Hack Systems HSCrypt Encryption Component Shareware Version 1.0 ========================================= TERMS AND CONDITIONS OF USE =========================== HSCrypt is Copyright (C) 1999 Hack Systems but you are licensed to use HSCrypt 1.0; HSCrypt is shareware. The author of HSCrypt assumes no liability for damages caused under any circumstances whatsoever, and is under no obligation. Use of the software indicates acceptance of all conditions contained in this document. If you do not agree to these terms, you must delete this software immediately. About ===== HSCrypt is a simple encryption component that offers simple character, string and file encryption/decryption capabilities. The shareware version supports 30 bit encryption only. Registration is $5 and adds support for 90 bit encryption. To register, visit our website at: http://www.hacksystems.com or email sales@hacksystems.com Installation: ============= Extract the HSCrypt files to your shared component directory. Delphi 4.0 - Select Component, Install Packages, and add the CryptPk.dpk file. Delphi 2.0 or 3.0 - Select Component, Install component and add the HSCrypt.dcu file. Use: ==== Drop the HSCrypt component on your form and set the Key property (or password). The HSCrypt component exposes four methods than are used for encryption. Make sure the Key property is set before using any of these methods. (Note: The default Key is hscrypt and will be used if the key is not set. Keys are reset after each call to an encryption method, so remember: ALWAYS SET THE KEY!!) 1. procedure CryptChar(var cTarget: Char); - use to encrypt/decrypt a char 2. procedure CryptString(var sTarget: String); - use to encrypt/decrypt a string 3. function EncryptFile(const sSource, sDestination: String): Boolean; - use to encrypt a file 4. function DecryptFile(const sSource, sDestination: String): Boolean; - use to decrypt a file Sample: ======= // Demonstrates using CryptString method. // Assumes a THSCrypt component named, MyCrypt, was placed on the form TMyForm. // The form also contains three edit controls, txtInput, txtEncrypted, txtDecrypted // and a button cmdCrypt. procedure TMyForm.cmdCryptClick(Sender: TObject); var sTemp: String; begin sTemp := txtInput.Text; // Always set the key (or password) before calling methods. Keys are case-sensitive. MyCrypt.Key := 'mypassword123'; // Encrypt the string using 30 bit encryption MyCrypt.CryptString(sTemp); txtEncrypted.Text := sTemp; // Set the key again, as it is deleted after each call to an encryption method. MyCrypt.Key := 'mypassword123'; // Decrypt the string using the encrypted text MyCrypt.CryptString(sTemp); txtDecrypted.Text := sTemp; end; Support/Bugs: ============= Please report all bugs or suggestions to our website: http://www.hacksystems.com or to the following email address: support@hacksystems.com. Enjoy!