Dilemma

[cdoverlaw]

I am using this code which should open a encrypted file, decrypt it and then decrypt the data inside it to reveal a serverID/Domain

Sub ConvertSerial()
        Dim ch As Char
        Dim strCode As String
        Dim Code, Number As Short
        Dim Decrypt As String = ""
        Dim inbox As String
        Dim path As String

        path = System.Windows.Forms.Application.StartupPath & "\data002.cde"

        If path <> "" Then
            Try open file and trap any errors using handler
                strCode = 4712
                If strCode = "" Then Exit Sub if cancel clicked
                Code = CShort(strCode)
                FileOpen(1, path, OpenMode.Input)
                Do Until EOF(1) read lines from file
                    Input(1, Number) read encrypted numbers
                    ch = Chr(Number Xor Code) convert with Xor
                    Decrypt = Decrypt & ch and build string
                Loop
                Serial = Decrypt then display converted string
            Catch

            Finally
                FileClose(1) close file
            End Try
        End If


        Decrypt = ""
        path = Serial

        If path <> "" Then
            Try open file and trap any errors using handler
                strCode = 4712
                If strCode = "" Then Exit Sub if cancel clicked
                Code = CShort(strCode)
                FileOpen(1, path, OpenMode.Input)
                Do Until EOF(1) read lines from file
                    Input(1, Number) read encrypted numbers
                    ch = Chr(Number Xor Code) convert with Xor
                    Decrypt = Decrypt & ch and build string
                Loop
                frmAbout.txtServerID.Text = Decrypt then display converted string
            Catch

            Finally
                FileClose(1) close file
            End Try
        End If
    End Sub

What is wrong as this isnt doing anything, its not showing the domain in the box like it should

Jonathan

 

[PlausiblyDamp]

What does the variable Decrypt look like if you step through the code? Is it being built up correctly?

Also there is a lot of VB6 code in there - you might be better of looking at classes under System.IO and System.Security.Cryptography for this kind of thing.

 

[cdoverlaw]

the thing is this code works when opening a file and decrypting, but dosent seem to work when decrypting data already in program,
anyone know how i can fix this