![]() ![]() Print "256-bit encrypted result: "+EncodingToHexMBS(cipherText) ![]() ![]() Wend dim idata as MemoryBlock = cleartextĪ.EncryptCBC idata, idata.Size, iv, odata, 0, 0 call a.SetKey key256, 256 // PHP pads with NULL bytes if $cleartext is not a multiple of the block size. The length of the key determines whether we're doing // 128-bit, 192-bit, or 256-bit encryption. This is the plain-text to be encrypted: dim cleartext as string = "The quick brown fox jumped over the lazy dog" // The mcrypt_generic_init function initializes the cipher by specifying both // the key and the IV. Print "key128: "+EncodingToHexMBS(key128) Print "key256: "+EncodingToHexMBS(key256) EventHandler Function Run(args() as String) As Integer dim a as new AESMBS ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |