Hi All
I have an chiper file on windows PC, My application send to Linux Server the file via socket. The Linux machine receive the file with correct MD5 value, but when I decrypt the file I haven't the file in cleartext.
I tried decrypt in windows PC and work well.
Which is the mistake?
procedure DecryptFile(lsClearFile, lsEncryptFile: string);
var
FileDataClear: TFileStream;
FileDataChiper: TFileStream;
DCP_blowfish: TDCP_blowfish;
begin
if FileExists(lsClearFile) then
DeleteFile(lsClearFile);
FileDataChiper := TFileStream.Create(lsEncryptFile, fmOpenRead);
FileDataClear := TFileStream.Create(lsClearFile, fmCreate);
try
DCP_blowfish := TDCP_blowfish.Create(nil);
DCP_blowfish.Init('TestKey', 128, nil);
DCP_blowfish.DecryptStream(FileDataChiper, FileDataClear, FileDataChiper.Size);
DCP_blowfish.Burn;
finally
FreeAndNil(FileDataClear);
FreeAndNil(FileDataChiper);
FreeAndNil(DCP_blowfish);
end;
end;