File Encrypt / Decrypt

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 / Decryptor

Encryption 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.