[RESOLVED] [2008] encrypt file then save and then be able to decrypt file then open

[bagstoper]

Hello,

I have a button on my form that encypts the file and then saves it using a save dialog box.it uses a list box. i have never worked with listboxes before so i dont know what to save... should i save listbox1.text or listbox1.items or what? Then i want to be able to decrypt and then open the file. so what should i set the opened file to listbox1.text or listbox1.items or what?

save code

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objwriter As StreamWriter
        Dim strdata As String
        'encrypter/decrypter
        '>>> validation
        
        strdata = MessageTransposition(ListBox1.Text, True)
        Try
            SaveFileDialog1.ShowDialog()
            SaveFileDialog1.Filter = "Dansoft Media Player (*.DMP)|*.DMP|All files (*.*)|*.*"
            objwriter = New StreamWriter(SaveFileDialog1.FileName)

            objwriter.Write(strdata)
            objwriter.Close()


        Catch Ex As Exception
            MsgBox(Ex.Message)
        End Try

    End Sub

decrypt code

Private Function MessageTransposition(ByVal StrDataIn As String, ByVal ED As Boolean) As String



        Dim IndR As Integer
        Dim IndC As Integer

        IndR = 3
        IndC = 4
        '>>> create the array
        Dim DataArray(IndR, IndC) As String
        Dim i, j As Integer
        Dim r, c As Integer
        Dim StrOut As String
        StrOut = ""
        i = 1
        '>>> loop to total length
        While i <= StrDataIn.Length

            '>>> clear the array
            For r = 0 To IndR
                For c = 0 To IndC
                    DataArray(r, c) = Chr(1)
                Next
            Next

            '>>> check the loop last postion
            Dim LastPos As Integer
            If i + (IndR * IndC) - 1 <= StrDataIn.Length Then
                LastPos = i + (IndR * IndC) - 1
            Else
                LastPos = StrDataIn.Length
            End If

            '>>> store strdatain into array character by character
            '>>> initial the array indexer
            r = 0
            c = 0
            For j = i To LastPos



                DataArray(r, c) = Mid(StrDataIn, j, 1)


                c = c + 1


                '>>> reset the array indexer
                If r > IndR - 1 Then
                    r = 0
                    c = 0
                End If
                If c > IndC - 1 Then
                    c = 0
                    r = r + 1
                End If
            Next

            '>>> add array value to string coulumn nad row wise
            If ED = True Then
                For c = 0 To IndC - 1
                    For r = 0 To IndR - 1
                        StrOut = StrOut & DataArray(r, c)
                    Next
                Next
            Else
                '>>> decrypt logics
                Dim StrTemp As String
                StrTemp = ""
                Dim p, p1 As Integer
                p = 1
                p1 = 1
                For r = 0 To IndR - 1
                    For c = 0 To IndC - 1
                        StrTemp = StrTemp & DataArray(r, c)
                    Next
                Next

                While p <= StrTemp.Length
                    '>>> replace array filling character

                    
                    StrOut = StrOut & Replace(Mid(StrTemp, p1, 1), Chr(1), "")



                    p = p + 1

                    '>>> increment position by row
                    p1 = p1 + IndR
                    If p1 > StrTemp.Length Then
                        p1 = p1 - StrTemp.Length + 1
                    End If
                End While
            End If
            i = i + IndR * IndC
        End While

        MessageTransposition = StrOut


    End Function

open code

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.Filter = "Dansoft Media Player (*.DMP)|*.DMP|All files (*.*)|*.*"

        ListBox1.Items.Add(MessageTransposition(OpenFileDialog1.FileName, False))
    End Sub

that is all the code fro saving/opening/encrypting/decypting. if you know anything about this just speak up any heal is welcome.

[vbNeo]

I assume the file content is what you want listed in the listbox. Since I have no idea how you seperate your data, the only advice I can give you is that you use the listbox Items list Add method(ListBox1.Items.Add(ListItem)), and input what you want displayed.

[bagstoper]

sorry i figured this out on my own forgot to mark as resolved