Dim DES As New DESCryptoServiceProvider
        ' A 64-bit key and an IV are required for this provider.
        ' Set the secret key for the DES algorithm.
        DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
        ' Set the initialization vector.
        DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
 
        ' Create the file stream to read the encrypted file back.
        Dim fsread As New FileStream(sInputFilename, FileMode.Open, _
          FileAccess.Read)
        ' Create the DES decryptor from the DES instance.
        Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
        ' Create the crypto stream set to read and to do a DES decryption 
        ' transform on incoming bytes.
        Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, _
          CryptoStreamMode.Read)
        ' XMLDocument definieren
        Dim xml As XmlDocument
        ' XMLDocument laden
        xml.Load(New StreamReader(cryptostreamDecr).ReadToEnd)