AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |
Back to Blog
![]() the goal is to send/receive a simple string in the end using the POSTSTRING method ![]() Private Sub GenerateSalt (l As Int) As Byte() Private Sub SplitSaltIVMessage (SaltIvMessage () As Byte) As Mapĭim Salt(32),IV (16), Message(SaltIvMessage.length-48) As ByteīC.Arra圜opy(SaltIvMessage,48,Message,0,Message.Length)ĭim m As Map=CreateMap("salt":Salt,"iv":IV,"message":Message) Private Sub AddSaltIVMessage (Salt() As Byte,IV() As Byte, Message () As Byte) As Byte()ĭim SaltIVMessageBytes (Salt.Length+ IV.Length + Message.Length) As ByteīC.Arra圜opy(Salt,0,SaltIVMessageBytes,0,32)īC.Arra圜opy(IV,0,SaltIVMessageBytes,32,16)īC.Arra圜opy(Message,0,SaltIVMessageBytes,48,Message.Length) Public Sub GetMessageSaltIVFromEncryptedMessage(EncryptedMessageAsBytes() As Byte) As Mapĭim m As Map = SplitSaltIVMessage(EncryptedMessageAsBytes) Return BytesToString(datas, 0, datas.Length, "UTF8") Public Sub AES_Decrypt(data() As Byte, passb() As Byte, ReturnString As Boolean) As Objectĭim MessageB() As Byte = m.Get("message")ĭim datas() As Byte = C.Decrypt(MessageB, kg.Key, True) 'Salt (32) and IV(16) is added at the beginning 'Input is a Base664 encoded string or a byte array, output a string or byte array Public Sub AES_Encrypt(data() As Byte, passB() As Byte, ReturnB64String As Boolean) As Objectĭim datas() As Byte = C.Encrypt(data, kg.Key, True)ĭim SaltIVMessage(SaltB.Length + datas.Length + IVb.Length) As Byte = AddSaltIVMessage(SaltB,IVb,datas)
0 Comments
Read More
Leave a Reply. |