2
0

common.bmx 1.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. '
  2. ' Copyright (C) 2019-2022 Bruce A Henderson
  3. '
  4. ' This software is provided 'as-is', without any express or implied
  5. ' warranty. In no event will the authors be held liable for any damages
  6. ' arising from the use of this software.
  7. '
  8. ' Permission is granted to anyone to use this software for any purpose,
  9. ' including commercial applications, and to alter it and redistribute it
  10. ' freely, subject to the following restrictions:
  11. '
  12. ' 1. The origin of this software must not be misrepresented; you must not
  13. ' claim that you wrote the original software. If you use this software
  14. ' in a product, an acknowledgment in the product documentation would be
  15. ' appreciated but is not required.
  16. ' 2. Altered source versions must be plainly marked as such, and must not be
  17. ' misrepresented as being the original software.
  18. ' 3. This notice may not be removed or altered from any source distribution.
  19. '
  20. SuperStrict
  21. Import Crypto.Cipher
  22. Import "../libtomcrypt.mod/libtomcrypt/src/headers/*.h"
  23. Import "../libtomcrypt.mod/libtomcrypt/src/modes/cbc/cbc_decrypt.c"
  24. Import "../libtomcrypt.mod/libtomcrypt/src/modes/cbc/cbc_done.c"
  25. Import "../libtomcrypt.mod/libtomcrypt/src/modes/cbc/cbc_encrypt.c"
  26. Import "../libtomcrypt.mod/libtomcrypt/src/modes/cbc/cbc_getiv.c"
  27. Import "../libtomcrypt.mod/libtomcrypt/src/modes/cbc/cbc_setiv.c"
  28. Import "../libtomcrypt.mod/libtomcrypt/src/modes/cbc/cbc_start.c"
  29. Import "glue.c"
  30. Extern
  31. Function bmx_crypto_cbc_start:Byte Ptr(index:Int, iv:Byte Ptr, key:Byte Ptr, keylen:Int, numRounds:Int, res:Int Var)
  32. Function bmx_crypto_cbc_encrypt:Int(handle:Byte Ptr, pt:Byte Ptr, ct:Byte Ptr, length:UInt)
  33. Function bmx_crypto_cbc_decrypt:Int(handle:Byte Ptr, ct:Byte Ptr, pt:Byte Ptr, length:UInt)
  34. Function bmx_crypto_cbc_getiv:Int(handle:Byte Ptr, IV:Byte Ptr, length:UInt Var)
  35. Function bmx_crypto_cbc_setiv:Int(handle:Byte Ptr, IV:Byte Ptr, length:UInt)
  36. Function bmx_crypto_cbc_done:Int(handle:Byte Ptr)
  37. End Extern