Hello all, What's wrong with this code?
I try to cryptograph a file. The compiler doesn't raise errors, but after running the program, no results happen. program test; {$mode objfpc}{$H+} uses blowfish, classes; var VMemory: TMemoryStream; VCypher: TBlowfishEncryptStream; BEGIN VMemory := TMemoryStream.create; VMemory.LoadFromFile('origin.txt'); VCypher := TBlowfishEncryptStream.create('lazarus-br', VMemory); try VMemory.position := 0; VCypher.write(VMemory.memory, VMemory.size); VMemory.SaveToFile('output.bfe'); finally VCypher.free; VMemory.free; end; END. -- Luciano de Souza _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal