Public Function DesEncriptarCML(ByVal ConfigurationFile As String) As Xml.XmlTextReader
Dim objStreamReader As StreamReader
Dim objStringReader As StringReader
Dim objXml As Xml.XmlTextReader
Try
Dim strLine As String
'Pass the file path and the file name to the StreamReader constructor.
objStreamReader = New StreamReader(ConfigurationFile)
'Read the text.
strLine = objStreamReader.ReadToEnd
objStreamReader.Close()
objStreamReader = Nothing
If Not strLine Is Nothing Then
objStringReader = New StringReader(Decrypt(strLine, BuildKey24))
objXml = New Xml.XmlTextReader(objStringReader)
End If
Return objXml
Catch ex As Exception
Throw ex
End Try
End Function