dim key as string = "mysecretkey"
dim encrypted as string = "6IcB9bpDwOjjONErhYQ6c7+Fb4qszsUNZVU0iThLYqOu7chJ7MG2nwSpRBUY0ZC3"

encrypted = DecodeBase64(encrypted)

dim c as CipherMBS = CipherMBS.aes_128_cbc
call c.DecryptInit key

dim s as string = c.ProcessString(Encrypted)+c.FinalizeAsString

Break // "In welcher Stadt steht das Bundeshaus?" is now in s.

dim c as CipherMBS = CipherMBS.aes_128_cfb128
dim CKey as MemoryBlock = "1234567812345678"
dim CIV as MemoryBlock
dim data as string = "Hello World. Just a test!"

call c.EncryptInit Ckey, CIV

dim output1 as string = c.ProcessString(data)
output1 = output1 + c.FinalizeAsString

dim a as new AESMBS

call a.SetKey CKey, 128
dim output2 as string = a.EncryptCFB128(data, CIV)

MsgBox EncodeHex(output1)+EndOfLine+EncodeHex(output2)

dim CKey as MemoryBlock = "1234567812345678"
dim CIV as MemoryBlock
dim data as string = "Hello World. Just a test!"

dim c as CipherMBS = CipherMBS.aes_128_xts
call c.EncryptInit Ckey, CIV

dim output1 as string = c.ProcessString(data)
output1 = output1 + c.FinalizeAsString

CIV = nil
c = CipherMBS.aes_128_xts
call c.DecryptInit Ckey, CIV

dim output2 as string = c.ProcessString(output1)
output2 = output2 + c.FinalizeAsString

MsgBox "Encrypred via "+c.Name+" as hex: "+EncodeHex(output1)+EndOfLine+"Decrypted: "+output2

dim CKey as MemoryBlock = "1234567812345678"
dim CIV as MemoryBlock
dim data as string = "Hello World. Just a test!"

dim c as CipherMBS = CipherMBS.aes_256_cbc
call c.EncryptInit Ckey, CIV

dim output1 as string = c.ProcessString(data)
output1 = output1 + c.FinalizeAsString

CIV = nil
c = CipherMBS.aes_256_cbc
call c.DecryptInit Ckey, CIV

dim output2 as string = c.ProcessString(output1)
output2 = output2 + c.FinalizeAsString

MsgBox "Encrypred via "+c.Name+" as hex: "+EncodeHex(output1)+EndOfLine+"Decrypted: "+output2

dim CKey as MemoryBlock = "1234567812345678"
dim CIV as MemoryBlock
dim data as string = "Hello World. Just a test!"

dim c as CipherMBS = CipherMBS.aes_256_cfb128
call c.EncryptInit Ckey, CIV

dim output1 as string = c.ProcessString(data)
output1 = output1 + c.FinalizeAsString

CIV = nil
c = CipherMBS.aes_256_cfb128
call c.DecryptInit Ckey, CIV

dim output2 as string = c.ProcessString(output1)
output2 = output2 + c.FinalizeAsString

MsgBox "Encrypred via "+c.Name+" as hex: "+EncodeHex(output1)+EndOfLine+"Decrypted: "+output2

dim c as CipherMBS = CipherMBS.aes_256_ecb
dim CKey as MemoryBlock = "1234567812345678"
dim CIV as MemoryBlock
dim data as string = "Hello World. Just a test!"

call c.EncryptInit Ckey, CIV

dim output1 as string = c.ProcessString(data)
output1 = output1 + c.FinalizeAsString

c = CipherMBS.aes_256_ecb
CIV = nil

call c.DecryptInit Ckey, CIV

dim output2 as string = c.ProcessString(output1)
output2 = output2 + c.FinalizeAsString

MsgBox "Encrypred as hex: "+EncodeHex(output1)+EndOfLine+"Decrypted: "+output2