Spanish [Solucionado]Ayuda para encryptar AES

[Carlos marin]

mi problema es que tengo muchos errores en la encrypcion y no se si realmente lo estoy haciendo bien.


Bueno ya lo solucione aquí dejo la encrypcion AES corregida para todo aquel que desee hacerla. feliz dia a todos

Sub Button1_Click
    peticion
End Sub

Sub Button2_Click
    Dim iv(0) As Byte
    iv = Array As Byte(11, 22, 33, 44, 55, 66, 77, 88,11, 22, 33, 44, 55, 66, 77, 88) ' 16 
     cc = EncryptText("CC", iv) 'llamo la función para encryptar y envio el vector IV en este caso estatico
   
End Sub

Sub EncryptText(text As String, iv() As Byte) As Byte()

   
Dim data() As Byte
    Dim key() As Byte
    Dim kg As KeyGenerator
    Dim c As Cipher
    c.Initialize("AES/CBC/PKCS7Padding") ' replace "DES/" with "AES/" for Rijndael or "DESEDE/" for triple DES
    c.InitialisationVector = iv
    kg.Initialize("AES")
    data = text.GetBytes("ASCII") 'ASCII
   
    key = Bconv.StringToBytes("Aqui su clave de encrypcion xxx", "ASCII")
    kg.KeyFromBytes(key)
   
    data = c.Encrypt(data, kg.key, True)

    Log(B64.EncodeBtoS(data,0,data.Length))
    Return B64.EncodeBtoS(data,0,data.Length)
       
End Sub

Devuelve una cadena string encryptada

            "Valor de cc =" "84Z9H44DIbHIbtWTAqt/5g==",