common.bmx 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839
  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/ecb/ecb_decrypt.c"
  24. Import "../libtomcrypt.mod/libtomcrypt/src/modes/ecb/ecb_done.c"
  25. Import "../libtomcrypt.mod/libtomcrypt/src/modes/ecb/ecb_encrypt.c"
  26. Import "../libtomcrypt.mod/libtomcrypt/src/modes/ecb/ecb_start.c"
  27. Import "glue.c"
  28. Extern
  29. Function bmx_crypto_ecb_start:Byte Ptr(index:Int, key:Byte Ptr, keylen:Int, numRounds:Int, res:Int Var)
  30. Function bmx_crypto_ecb_encrypt:Int(handle:Byte Ptr, pt:Byte Ptr, ct:Byte Ptr, length:UInt)
  31. Function bmx_crypto_ecb_decrypt:Int(handle:Byte Ptr, ct:Byte Ptr, pt:Byte Ptr, length:UInt)
  32. Function bmx_crypto_ecb_done:Int(handle:Byte Ptr)
  33. End Extern