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

[oliya24]

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

[koorosh-soft]

 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

[koorosh-soft]

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

[koorosh-soft]

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