Problem solved. A friend advert me to the fact I can't use the same
TMemoryStream for input and output.
This is the correct code:
program test;
{$mode objfpc}{$H+}
uses
blowfish, classes;
var
VInput, VOutput: TMemoryStream;
VCypher: TBlowfishEncryptStream;
BEGIN
VInput := nil;
VOutput := TMemo
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 := TMem