هل يمكن تشفير صورة بأستخدام فيجوال بيسك ؟

Imports System.IO

Dim f1 As New FileInfo(Application.StartupPath & "\DBE.mdb")
TextBox14.Text = f1.ToString
Dim fs As New FileStream(TextBox14.Text, FileMode.Open, FileAccess.ReadWrite)
Dim x As Byte() = New Byte(9) {}
Dim y As Byte() = New Byte(9) {}
fs.Seek(0, SeekOrigin.Begin)
fs.Read(x, 0, 10)
fs.Seek(-10, SeekOrigin.[End])
fs.Read(y, 0, 10)
fs.Seek(0, SeekOrigin.Begin)
fs.Write(y, 0, 10)
fs.Seek(-10, SeekOrigin.[End])
fs.Write(x, 0, 10)
fs.Close()