[VisualBasic] Rijandael Verschlüsselung 32 Byte mit ECB 16 Byte

'Der zu Verschlüsselnde Alarmstring wird erstellt
 zuVerschlStr = "HIER WIRD DER SICHERHEITSSTRING ERZEUGT"
 'Beginn der Verschlüsselung
 Dim textInByte() As Byte = System.Text.Encoding.UTF8.GetBytes(Me.zuVerschlStr)

 For i = 0 To textInByte.Length - 1
 tempByte(z) = textInByte(i)
 If (z = 15) Then
 verschlStr = verschlStr + Me.Verschlüsseln(tempByte)
 z = -1
 End If
 z += 1
 Next
 If z < 15 And z > 0 Then
 For i = z To 15
 tempByte(z) = 0
 z += 1
 Next
 verschlStr = verschlStr + Me.Verschlüsseln(tempByte)
 End If

 'Der Verschlüsselte Text wird in den Hexydezimal Code umgewandelt
 Dim sd As StringBuilder
 sd = New StringBuilder
 For i = 0 To verschlStr.Length - 1
 sd.Append(Convert.ToInt32(verschlStr(i)).ToString("x"))
 Next


'Hier folgt dann der weitere CODE

'Und noch die Funktion die zur Verschlüsselung des Strings dient

 Public Function Verschlüsseln(ByVal text() As Byte)
 Dim rd As New RijndaelManaged

 Dim md5 As New MD5CryptoServiceProvider
 Dim pwd() As Byte
 Dim tempByte(31) As Byte


 pwd = Encoding.UTF8.GetBytes(Me.SMSPassword)
 For i As Integer = 0 To pwd.Length - 1
 tempByte(i) = pwd(i)
 Next
 Dim key() As Byte
 key = md5.ComputeHash(tempByte)


 md5.Clear()
 rd.Key = key
 rd.GenerateIV()

 Dim iv() As Byte = rd.IV
 Dim ms As New MemoryStream

 ms.Write(iv, 0, iv.Length)

 Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
 'Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(Me.zuVerschlStr)


 cs.Write(text, 0, text.Length)
 cs.FlushFinalBlock()

 Dim encdata() As Byte = ms.ToArray()
 cs.Close()
 rd.Clear()
 Return (Convert.ToBase64String(encdata))