1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 |
- '
- ' Copyright (C) 2019-2020 Bruce A Henderson
- '
- ' This software is provided 'as-is', without any express or implied
- ' warranty. In no event will the authors be held liable for any damages
- ' arising from the use of this software.
- '
- ' Permission is granted to anyone to use this software for any purpose,
- ' including commercial applications, and to alter it and redistribute it
- ' freely, subject to the following restrictions:
- '
- ' 1. The origin of this software must not be misrepresented; you must not
- ' claim that you wrote the original software. If you use this software
- ' in a product, an acknowledgment in the product documentation would be
- ' appreciated but is not required.
- ' 2. Altered source versions must be plainly marked as such, and must not be
- ' misrepresented as being the original software.
- ' 3. This notice may not be removed or altered from any source distribution.
- '
- SuperStrict
- Rem
- bbdoc: IDEA Symmetric Key Block Cipher.
- about: Operates on 64-bit blocks using a 128-bit key.
- See https://en.wikipedia.org/wiki/International_Data_Encryption_Algorithm
- End Rem
- Module Crypto.IdeaCipher
- ModuleInfo "CC_OPTS: -DLTC_NO_TEST -DLTC_NO_FILE"
- ModuleInfo "CC_OPTS: -DLTC_IDEA"
- Import "common.bmx"
- New TIdeaCipherFactory(bmx_crypto_idea_register())
- Type TIdeaCipher Extends TCipher
- Method KeySize:Int(key:Int) Override
- Return bmx_crypto_idea_keysize(key)
- End Method
-
- Method Name:String() Override
- Return "idea"
- End Method
- End Type
- Type TIdeaCipherFactory Extends TCipherFactory
- Method Find:TCipher(index:Int) Override
- If index = Self.index Then
- Return New TIdeaCipher(index)
- End If
- End Method
- End Type
|