public Sub GetXpKeys
'TCPIP_KEY_REQUEST = 0x9
'pkeys = Array As Byte(0x8A, 0x39, 0xD1, 0xC5, 0x26, 0x14, 0xEB, 0x04, 0x7F, 0x82, 0xCA, 0x57, 0xA1, 0x3E, 0xC6, 0xBD)
Dim IV(16) As Byte = Array As Byte(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
Dim bytes2Crypt(16) As Byte = Array As Byte(TCPIP_KEY_REQUEST, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
Dim msg2Send() As Byte = iAes.Encrypt2(bytes2Crypt, pKeys, "AES", IV, iAes.OPTION_PKCS7Padding)
'Take firsts 16 bytes of the crypted message of 32 byte
Dim bt As ByteConverter
Dim msg2Send2(16) As Byte
bt.ArrayCopy(msg2Send, 0, msg2Send2, 0, 16)
'Global flag that allow to check the transmission phase
FaseRichiesta = EnumType.FaseComunicazione.RichiestaChiavi
SendMessage(msg2Send2)
End Sub