Visual Basic

Irshadt wrote:

I used the following code to crack Caesar Cipher code where the key is unknown. I have written the following code and is it not working. I want it done in access. Plz Plz help me.

Irshadt wrote:

Please be kind enough to write me a code.

        Public Function Object2XML(ByVal obj As Object) As String<br />
            Dim SW As New StringWriter<br />
            Dim Ser As New XmlSerializer(obj.GetType())<br />
            Try<br />
                Ser.Serialize(SW, obj)<br />
                Return SW.ToString<br />
            Catch ex As Exception<br />
                Throw ex<br />
            End Try<br />
        End Function<br />
<br />
    Public Function XML2OBject(ByVal xml As String, ByVal Type As Type) As Object<br />
        Dim Obj As New Object<br />
        Dim SR As New StringReader(xml)<br />
        Dim Serializer As New System.Xml.Serialization.XmlSerializer(Type)<br />
        Try<br />
            Return Serializer.Deserialize(SR)<br />
        Catch ex As Exception<br />
            Throw ex<br />
        End Try<br />
    End Function