کمک در مورد سورس رمز گذاری با xor

سلام دوستان من در این مورد رمز نگاری اطلا عات اندکی درارم اما به تازگی با این مورد برخوردم که یکی از این الگوریتمها xor هم هست ممکنه یه سورس کد در این مورد بام بگذارید ممنون میشم اگر کمی هم توضیحات در این مورد بدینبا تشکر

 Private Sub Save_File_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim letter As Char

        Dim strcode As String

        Dim i, charinfile, code As Short

        SaveFileDialog1.Filter = "text|*.txt"

        SaveFileDialog1.ShowDialog()

        Try

            If SaveFileDialog1.FileName <> "" Then

                strcode = InputBox("input")

                If strcode = "" Then Exit Sub

                code = CShort(strcode)

                charinfile = TextBox1.Text.Length

                Dim filefr As Short

                filefr = FreeFile()

                FileOpen(filefr, SaveFileDialog1.FileName, OpenMode.Output)

                For i = 0 To charinfile - 1

                    letter = TextBox1.Text.Substring(i, 1)

                    Print(1, Asc(letter) Xor code)



                Next

                FileClose(filefr)

            End If

        Catch

            MsgBox("error")

        End Try

    End Sub

Private Sub Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim ch As Char

        Dim strcode As String

        Dim code, number As Short

        Dim decrypt As String = ""

        Dim frfile As Short

        OpenFileDialog1.Filter = "txt|*.txt"

        OpenFileDialog1.ShowDialog()

        Try

            If OpenFileDialog1.FileName <> "" Then

                strcode = InputBox("code")

                If strcode = "" Then Exit Sub

                code = CShort(strcode)



                frfile = FreeFile()

                FileOpen(frfile, OpenFileDialog1.FileName, OpenMode.Input)

                Do Until EOF(frfile)

                    Input(frfile, number)

                    ch = Chr(number Xor code)

                    decrypt += ch

                Loop

                TextBox1.Text = decrypt



            End If

        Catch ex As Exception

            MsgBox("error")

        Finally

            FileClose(frfile)

        End Try

    End Sub

اگر لازم بود بگو تا سورس کامل رو بزارم
با این برنامه میتونی فایل های نوشتاری ساده رو به کد تبدیل کنی : کد 1- نوشتن کد2-خواندن