Public Function RegisterComplaint(ByVal strInputXml As String) As String Dim xmlDoc As New XmlDocument() Try xmlDoc.PreserveWhitespace = True xmlDoc.LoadXml(strInputXml) Catch e As Exception Console.WriteLine(e.Message) End Try Dim cspParams As New CspParameters() cspParams.KeyContainerName = "XML_ENC_RSA_KEY" Dim rsaKey As New RSACryptoServiceProvider(cspParams) Try ClassXml.Decrypt(xmlDoc, rsaKey, "rsaKey") Dim ds1 As New DataSet ds1.ReadXml(New XmlNodeReader(xmlDoc)) Catch e As Exception Console.WriteLine(e.Message) Finally rsaKey.Clear() End Try Return xmlDoc.OuterXml End Function
<Complaints> <Table> <UserID>1</UserID> <Name>suhas</Name> <Password>7DCB7FB26F37871F5E2A5D7A41A</Password> <Email /> <LoginID>ssd</LoginID> <Type>Others</Type> <ACTIVE_FLG>A</ACTIVE_FLG> <LAST_SIGN_IN>2008-06-20T10:23:28.717+05:30</LAST_SIGN_IN> <LAST_PWD_CHG>2008-06-12T14:39:15.903+05:30</LAST_PWD_CHG> </Table> </Complaints>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)