Recent

Author Topic: DCPCrypt windows Linux  (Read 1218 times)

@berghem@

  • New member
  • *
  • Posts: 8
DCPCrypt windows Linux
« on: September 12, 2018, 09:41:10 am »
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; 

 

TinyPortal © 2005-2018