Dim fStream As Stream = System.Reflection.Assembly.GetExecutingAssembly( _
      ).GetManifestResourceStream(strResname)
 
    Dim RijndaelAlg As Rijndael = Rijndael.Create()
    RijndaelAlg.Mode = CipherMode.CBC
 
    CryptoStream cStream = new CryptoStream(fStream, _
      RijndaelAlg.CreateDecryptor(Encoding.Default.GetBytes("PW"), _
      Encoding.Default.GetBytes("IV")), CryptoStreamMode.Read)
    Dim bytData As Byte() = New BinaryReader(cStream).ReadBytes(CInt( _
    cStream.Length))
 
    Dim myString As String = Encoding.Default.GetString(bytData)

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?

Beitrag wurde zuletzt am 22.03.09 um 15:56:26 editiert.