• Home
 · 
• Graphics
 · 
• VB.Net - Save Ur Images In Binary Format, No One Can Open Ur Image, Witout Ur Application.

VB.Net - Save Ur Images In Binary Format, No One Can Open Ur Image, Witout Ur Application.

VB.Net - Save Ur Images In Binary Format, No One Can Open Ur Image, Witout Ur Application.

API Declarations



REM mail me :- [email protected]



Rate VB.Net - Save Ur Images In Binary Format, No One Can Open Ur Image, Witout Ur Application.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private _path As String = ""
    Private _tm As Long

    Private _fstream As FileStream

    Private _bwriter As BinaryWriter
    Private _breader As BinaryReader

    Private _mstream As MemoryStream

    Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoad.Click

        Me.Cursor = Cursors.WaitCursor

        With OpenBinaryImage
            .Title = "Save In Binary Format"

            .AddExtension = False : .CheckFileExists = True
            .CheckPathExists = True : .SupportMultiDottedExtensions = False
            .Multiselect = False : .ShowHelp = False
            .ShowReadOnly = False : .ValidateNames = True

            .Filter = "Image Files (*.jpg,*.bmp,*.gif)|*.jpg;*.bmp;*.gif|Binary Image Files (*.bif)|*.bif"

            .FileName = ""
            .FilterIndex = 0
            .ShowDialog(Me)
            _path = .FileName.ToString()
        End With

        If _path <> "" Then
            If String.Compare(Path.GetExtension(_path), ".jpg", True) = 1 And _
               String.Compare(Path.GetExtension(_path), ".bmp", True) = 1 And _
               String.Compare(Path.GetExtension(_path), ".gif", True) = 1 And _
               String.Compare(Path.GetExtension(_path), ".bif", True) = 1 Then
                MessageBox.Show("Invalid File Format Selected", "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
                OpenBinaryImage.Dispose()
                Me.Cursor = Cursors.Default
                Exit Sub
            Else
                REM If File Is {.jpg, .bmp, .gif }
                If String.Compare(Path.GetExtension(_path), ".jpg", True) = 0 Or _
                    String.Compare(Path.GetExtension(_path), ".bmp", True) = 0 Or _
                    String.Compare(Path.GetExtension(_path), ".gif", True) = 0 Then

                    Try
                        PicBinary.Image = Image.FromFile(_path)
                        PicBinary.Refresh()
                        LblPath.Text = "" : LblPath.Text = _path
                    Catch ex As Exception
                        MessageBox.Show(ex.Message, "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try

                Else
                    REM If File Is {.bif }

                    Try
                        _fstream = New FileStream(_path, FileMode.Open, FileAccess.Read)
                        _breader = New BinaryReader(_fstream)

                        Dim temp As Object

                        REM Read Path Value
                        LblPath.Text = _breader.ReadString()
                        REM Read Symbol Value
                        temp = _breader.ReadString() : temp = ""
                        REM Read Buffer Size
                        Dim buffl As Long = _breader.ReadUInt32()
                        Dim buff(buffl) As Byte
                        REM Read Image
                        buff = _breader.ReadBytes(buffl)
                        Array.Reverse(buff)

                        _mstream = New MemoryStream(buff, True)
                        _mstream.Write(buff, 0, buff.Length)

                        _mstream.Flush()
                        Dim img As New Bitmap(_mstream)
                        PicBinary.Image = img

                        _mstream.Close()
                        _mstream.Dispose()

                    Catch ex As Exception
                        MessageBox.Show(ex.Message, "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Finally
                        _fstream.Dispose()
                        _breader.Close()
                    End Try

                End If
            End If
        Else
            OpenBinaryImage.Dispose()
        End If

        Me.Cursor = Cursors.Default

    End Sub

    Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click

        _path = ""
        PicBinary.Image = Nothing
        LblPath.Text = ""

    End Sub

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click

        Me.Cursor = Cursors.WaitCursor

        If _path.ToString().Trim().Length = 0 Then
            MessageBox.Show("Load Image Into Screen Before Save.", "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Cursor = Cursors.Default
            Exit Sub
        End If

        If String.Compare(Path.GetExtension(_path), ".bif", True) = 0 Then
            MessageBox.Show("File Already In Binary Format", "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Cursor = Cursors.Default
            Exit Sub
        End If

        _tm = CType(Now().ToLocalTime().ToOADate(), Double) + (Now.Second + Now.Millisecond)

        Try
            _fstream = New FileStream(_path, FileMode.Open, FileAccess.Read)
            Dim buff(_fstream.Length) As Byte

            For i As Long = 0 To _fstream.Length - 1
                buff(i) = _fstream.ReadByte()
            Next

            _fstream.Read(buff, 0, _fstream.Length)

            _fstream.Flush()
            _fstream.Close()

            _bwriter = New BinaryWriter(File.Open("C:\" & _tm & ".bif", FileMode.CreateNew, FileAccess.Write))

            _bwriter.Write("C:\" & _tm & ".bif")
            _bwriter.Write("~`!@#$%^&*()_+-={}|:?><,./;'[]\ ~`!@#$%^&*()_+-={}|:?><,./;'[]\")
            _bwriter.Write(buff.Length)
            Array.Reverse(buff)
            _bwriter.Write(buff)

            MessageBox.Show("Image Conver To Binary Successfully.", "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Call BtnClear_Click(sender, e)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Binary Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            _fstream.Dispose()
            _bwriter.Close()
        End Try

        Me.Cursor = Cursors.Default

    End Sub

End Class