TwofishMBS methods
Online Documentation - Statistics - FAQ - Plugin Parts (All , Dependencies ) - Class hierarchy
New in Version
22.2
22.3
22.4
22.5
23.0
23.1
23.2
23.3
23.4
23.5
24.0
24.1
The list of the topics ,
classes ,
interfaces ,
controls ,
modules ,
global methods by category ,
global methods by name ,
screenshots ,
licenses
and examples .
Platforms to show: All Mac Windows Linux Cross-Platform
Back to TwofishMBS module.
TwofishMBS .DecryptCBC(Key as MemoryBlock, InputData as MemoryBlock, IV as MemoryBlock) as MemoryBlock
Decrypts with CBC mode and memoryblocks.
Example
// key is 16 bytes, so 128 bit dim key as MemoryBlock = "Hello World 1234" dim IV as MemoryBlock = "1234567812345678" // 16 byte IV // some UTF-8 input dim InputText as string = "Just a test. äöü" dim InputData as MemoryBlock = ConvertEncoding(InputText, encodings.UTF8)dim EncryptedData as MemoryBlock = TwofishMBS .EncryptCBC(key, InputData, IV)dim DecryptedData as MemoryBlock = TwofishMBS .DecryptCBC(key, encryptedData, IV)// restore encoding dim Decryptedtext as String = DefineEncoding(DecryptedData, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decryptedtext, chrb(0 ))if p > 0 then Decryptedtext = leftb(Decryptedtext, p-1 )end if // check if Decryptedtext = InputText then MsgBox "OK" else MsgBox "Failed" end if
IV can be nil for using zeros.
IV size should be 16 bytes.
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .DecryptCBC(Key as String, InputData as String, IV as String) as String
Decrypts with CBC mode and strings.
Example
// key is 16 bytes, so 128 bit dim key as String = "Hello World 1234" dim IV as String = "1234567812345678" // 16 byte IV // some UTF-8 input dim InputText as string = "Just a test. äöü" dim InputData as String = ConvertEncoding(InputText, encodings.UTF8)dim EncryptedData as String = TwofishMBS .EncryptCBC(key, InputData, IV)dim DecryptedData as String = TwofishMBS .DecryptCBC(key, encryptedData, IV)// restore encoding dim Decryptedtext as String = DefineEncoding(DecryptedData, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decryptedtext, chrb(0 ))if p > 0 then Decryptedtext = leftb(Decryptedtext, p-1 )end if // check if Decryptedtext = InputText then MsgBox "OK" else MsgBox "Failed" end if
IV can be empty for using zeros.
IV size should be 16 bytes.
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .DecryptECB(Key as MemoryBlock, InputData as MemoryBlock) as MemoryBlock
Decrypts with ECB mode and memoryblocks.
Example
// key is 16 bytes, so 128 bit dim key as MemoryBlock = "Hello World 1234" // some UTF-8 input dim InputText as string = "Just a test. äöü" dim InputData as MemoryBlock = ConvertEncoding(InputText, encodings.UTF8)dim EncryptedData as MemoryBlock = TwofishMBS .EncryptECB(key, InputData)dim DecryptedData as MemoryBlock = TwofishMBS .DecryptECB(key, encryptedData)// restore encoding dim Decryptedtext as String = DefineEncoding(DecryptedData, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decryptedtext, chrb(0 ))if p > 0 then Decryptedtext = leftb(Decryptedtext, p-1 )end if // check if Decryptedtext = InputText then MsgBox "OK" else MsgBox "Failed" end if
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .DecryptECB(Key as String, InputData as String) as String
Decrypts with ECB mode and strings.
Example
// key is 16 bytes, so 128 bit dim key as string = "Hello World 1234" // some UTF-8 input dim InputData as string = "Just a test. äöü" InputData = ConvertEncoding(InputData, encodings.UTF8)dim Encrypted as string = TwofishMBS .EncryptECB(key, InputData)dim Decrypted as string = TwofishMBS .DecryptECB(key, encrypted)// restore encoding Decrypted = DefineEncoding(Decrypted, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decrypted, chrb(0 ))if p > 0 then Decrypted = leftb(Decrypted, p-1 )end if // check if Decrypted = InputData then MsgBox "OK" else MsgBox "Failed" end if
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .EncryptCBC(Key as MemoryBlock, InputData as MemoryBlock, IV as MemoryBlock) as MemoryBlock
Encrypts with CBC mode and memoryblocks.
Example
// key is 16 bytes, so 128 bit dim key as MemoryBlock = "Hello World 1234" dim IV as MemoryBlock = "1234567812345678" // 16 byte IV // some UTF-8 input dim InputText as string = "Just a test. äöü" dim InputData as MemoryBlock = ConvertEncoding(InputText, encodings.UTF8)dim EncryptedData as MemoryBlock = TwofishMBS .EncryptCBC(key, InputData, IV)dim DecryptedData as MemoryBlock = TwofishMBS .DecryptCBC(key, encryptedData, IV)// restore encoding dim Decryptedtext as String = DefineEncoding(DecryptedData, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decryptedtext, chrb(0 ))if p > 0 then Decryptedtext = leftb(Decryptedtext, p-1 )end if // check if Decryptedtext = InputText then MsgBox "OK" else MsgBox "Failed" end if
IV can be nil for using zeros.
IV size should be 16 bytes.
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .EncryptCBC(Key as String, InputData as String, IV as String) as String
Encrypts with CBC mode and string.
Example
// key is 16 bytes, so 128 bit dim key as String = "Hello World 1234" dim IV as String = "1234567812345678" // 16 byte IV // some UTF-8 input dim InputText as string = "Just a test. äöü" dim InputData as String = ConvertEncoding(InputText, encodings.UTF8)dim EncryptedData as String = TwofishMBS .EncryptCBC(key, InputData, IV)dim DecryptedData as String = TwofishMBS .DecryptCBC(key, encryptedData, IV)// restore encoding dim Decryptedtext as String = DefineEncoding(DecryptedData, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decryptedtext, chrb(0 ))if p > 0 then Decryptedtext = leftb(Decryptedtext, p-1 )end if // check if Decryptedtext = InputText then MsgBox "OK" else MsgBox "Failed" end if
IV can be empty for using zeros.
IV size should be 16 bytes.
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .EncryptECB(Key as MemoryBlock, InputData as MemoryBlock) as MemoryBlock
Encrypts with ECB mode and memoryblocks.
Example
// key is 16 bytes, so 128 bit dim key as MemoryBlock = "Hello World 1234" // some UTF-8 input dim InputText as string = "Just a test. äöü" dim InputData as MemoryBlock = ConvertEncoding(InputText, encodings.UTF8)dim EncryptedData as MemoryBlock = TwofishMBS .EncryptECB(key, InputData)dim DecryptedData as MemoryBlock = TwofishMBS .DecryptECB(key, encryptedData)// restore encoding dim Decryptedtext as String = DefineEncoding(DecryptedData, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decryptedtext, chrb(0 ))if p > 0 then Decryptedtext = leftb(Decryptedtext, p-1 )end if // check if Decryptedtext = InputText then MsgBox "OK" else MsgBox "Failed" end if
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
TwofishMBS .EncryptECB(Key as String, InputData as String) as String
Encrypts with ECB mode and strings.
Example
// key is 16 bytes, so 128 bit dim key as string = "Hello World 1234" // some UTF-8 input dim InputData as string = "Just a test. äöü" InputData = ConvertEncoding(InputData, encodings.UTF8)dim Encrypted as string = TwofishMBS .EncryptECB(key, InputData)dim Decrypted as string = TwofishMBS .DecryptECB(key, encrypted)// restore encoding Decrypted = DefineEncoding(Decrypted, encodings.UTF8)// remove training zeros dim p as Integer = instrb(Decrypted, chrb(0 ))if p > 0 then Decrypted = leftb(Decrypted, p-1 )end if // check if Decrypted = InputData then MsgBox "OK" else MsgBox "Failed" end if
Key length should be 16 for 128bit, 24 for 192 bit or 32 for 256 bit.
InputData should be aligned to 16byte size. Else the plugin will fill up with zero bytes.
See also:
The items on this page are in the following plugins: MBS Encryption Plugin .