کمک در مورد سورس رمز گذاری با 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-خواندن