insa.blogg.se

Here encryption code procedure tform1.button1click(sender: tobject) var a: taes key: tsha256digest s, b: taesblock ks: integer st: rawbytestring instream, outstream: tfilestream superno, thesize, streamsize: int64 begin instream := tfilestream.create('test.txt', fmopenread) outstream := tfilestream.create('out.txt', fmcreate) instream.position := 0 outstream.position := 0 st := '1234essai' ks := 256 sha256weak(st, key) a.encryptinit(key, ks) streamsize := instream.size while instream.position < streamsize begin thesize := streamsize - instream.position if thesize < 16 begin superno := streamsize - instream.position end else begin superno := 16 end instream.readbuffer(s, superno) a.encrypt(s, b) outstream.writebuffer(b, superno) end a.done showmessage('finish') ee ee end

Am trying encrypt file using syncrypto.pas aes 256, fails if try encrypt file size not multiple of 16 bytes.