direktor05

This doesnt work: var Source, Dest: TFileStream; SrcFile, DestFile: string; Start, Stop: cardinal; Size: integer; SourceKey,NewKey: AESBlock; Key: AES128Key; SrcBuf, DstBuf: array [0..16383] of byte; SrcSize, DstSize: integer; MyInBlock, MyOutBlock: AESBlock; begin Source := TFileStream.Create(txtFile.Text, fmOpenRead); DestFile := ExtractFilePath(Application.ExeName) + 'aestemp.enc'; Dest := TFileStream.Create(DestFile, fmCreate); try Size:=Source.Read(SourceKey,SizeOf(SourceKey)); if Size<>SizeOf(SourceKey) then raise Exception.Create('Unable to read SourceKey from file.'); FillChar( Key, SizeOf(Key), 0 ); Move( PAnsiChar(AnsiString(txtPassword.Text))^, Key, Min( SizeOf( Key ), Length( txtPassword.Text ) )); //FillChar( MyInBlock, SizeOf(MyInBlock), 0 ); //Move(Source.ReadBuffer(SrcBuf,Size), MyInBlock, Min( SizeOf( MyInBLock ), Size )); NewKey:=AES128Cipher(SourceKey,Key); Dest.WriteBuffer(NewKey,SizeOf(NewKey)); //AES128Cipher(Source,Key) //Dest.WriteBuffer(AES128Cipher(Source,Key),Size); finally Dest.Free; Source.Free; end; showmessage('Finished');

Yes, but its component. Is there any standalone unit? Like this one: https://github.com/stijnsanders/tools - has standalone units in crypto folder, but unfortunately they do not produce accurate results: https://github.com/stijnsanders/tools/tree/master/crypto https://github.com/stijnsanders/tools/blob/master/crypto/aes.pas - when encrypting binary file I get only 16 B file back. But no error when building/compiling.

Hello, Can someone tell me how to set Lazarus to build for Linux? When I try to set up builder is gives some error that that system.ppu for this target (Linux) was not found. Maybe some libraries for Linux are missing? Where to get them? How to set this up properly?

https://www.youtube.com/watch?v=Q1BQ_6w8whc

Im using Windows 7

Hello, I started with Turbo Pascal 5.0 in 1994 under DOS 5.0 then moved to Delphi 3,4,5,6,7... up to Delphi 10. Worked on financial/accounting/ERP software mostly. More details/CV/code samples on demand by email. Remotely at the beginning until virus epidemic isn't over.