كيف تقوم باالتشفير

[lassuis]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New OpenFileDialog
Dim a(5) As Byte
x.Filter = "*.jpg|*.jpg"
If x.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, x.FileName, OpenMode.Binary)
FileGet(1, a(0), 1)
FileGet(1, a(1), 2)
FileGet(1, a(2), 3)
FileGet(1, a(3), 4)
FileGet(1, a(4), 5)
FilePut(1, 255 - a(0), 1)
FilePut(1, 255 - a(1), 2)
FilePut(1, 255 - a(2), 3)
FilePut(1, 255 - a(3), 4)
FilePut(1, 255 - a(4), 5)


End If
FileClose(1)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As New OpenFileDialog
Dim a(5) As Byte
x.Filter = "*.jpg|*.jpg"
If x.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, x.FileName, OpenMode.Binary)
FileGet(1, a(0), 1)
FileGet(1, a(1), 2)
FileGet(1, a(2), 3)
FileGet(1, a(3), 4)
FileGet(1, a(4), 5)
FilePut(1, 255 - a(0), 1)
FilePut(1, 255 - a(1), 2)
FilePut(1, 255 - a(2), 3)
FilePut(1, 255 - a(3), 4)
FilePut(1, 255 - a(4), 5)


End If
FileClose(1)
Shell("explorer " & x.FileName, AppWinStyle.NormalFocus)
End Sub