Public Function VerschlüssleDatei(ByVal etKey As String, ByVal ByteArray() _
      As Byte)
        Dim rd As New RijndaelManaged
        Dim shaM As New SHA256Managed
        Dim key() As Byte = shaM.ComputeHash(Encoding.UTF8.GetBytes(etKey))
 
        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)
 
        cs.Write(ByteArray, 0, ByteArray.Length)
        cs.FlushFinalBlock()
 
        Encdata = ms.ToArray
 
        cs.Close()
        rd.Clear()

----
Gru?, Konsi