Looking for an easy way to encrypt and protect your data? How about one built with Delphi including full source code?
A great idea for the Fancy Delphi Application Contest ;-)
File Encryptor / DecryptorEncryption is the process of converting a file into a format that cannot be read by the applications set up to open the file. To remove the encryption you decrypt.
To encrypt or decrypt a file, simply click on the "Open" button, select an integer "masking" value and then click "(En/De) Crypt File". This little tool is ideal for offices that need to keep important documents secure.
"File Encryptor / Decryptor" was submitted by Eduardo Teixeira.
Here's a code section of this magical tool:
procedure TEnDeCrypt.EnDecryptFile(pathin, pathout: string; Chave: Word) ; var InMS, OutMS: TMemoryStream; cnt: Integer; C: byte; begin InMS := TMemoryStream.Create; OutMS := TMemoryStream.Create; try InMS.LoadFromFile(pathin) ; InMS.Position := 0; for cnt := 0 to InMS.Size - 1 do begin InMS.Read(C, 1) ; C := (C xor not (ord(chave shr cnt))) ; OutMS.Write(C, 1) ; end; OutMS.SaveToFile(pathout) ; finally InMS.Free; OutMS.Free; end; end;
Do you have a FDA(C)? Submit your Delphi code to the Fancy Delphi Application Contest.