AES universal crypter - Very simple using
Posted: Fri Sep 16, 2016 11:44 am
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
