AES universal crypter - Very simple using

[walbus]

http://www.purebasic.fr/english/viewtop ... 27&t=60507

[walbus]

Yep, now, how i can encrypt a file with this crypter ?

Looking, this is all you want to encrypt and decrypt any files with the QUICK-AES-256 smart crypter...

Only one line code for the crypter LOL...

This is sooo simple...

Code: Select all

UseModule QAES_smart_coder
 path$ = OpenFileRequester("Select a file too encrypting or decrypting !", "", "*.*", 0)
 file=OpenFile(#PB_Any, path$)
 If file
   *buffer=AllocateMemory(Lof(file))
   ReadData(file, *buffer, MemorySize(*buffer))
   QAES_smart_coder(*buffer, *buffer, MemorySize(*buffer), "Your key")
   FileSeek(file, 0) : WriteData(file, *buffer, MemorySize(*buffer)) : CloseFile(file)
 EndIf

[Keya]

you made me read about OFB mode, some interesting qualities
https://en.wikipedia.org/wiki/Block_cip ... _.28OFB.29