vb.net实现木马注册机原理：动态配置exe

            Console.Write(ex.Message)

        Finally

            If Not ms Is Nothing Then

                ms.Close()

            End If

            If Not br Is Nothing Then

                br.Close()

            End If

        End Try

        Return ip

    End Function

    Private Function reanConfig(ByVal strPath As String) As String

        Dim Ip As Integer = SeekPostion(strPath)

        If Ip = 0 Then

            Return Nothing

        End If

        Dim ms As IO.FileStream

        Dim br As IO.BinaryReader

        Try

            ms = New IO.FileStream(Application.ExecutablePath, IO.FileMode.Open, IO.FileAccess.Read)

            br = New IO.BinaryReader(ms)

            br.ReadBytes(Ip + 5) ''''舍弃前面的数据

            ''''读取最后的数据！

            Return System.Text.Encoding.Default.GetString(br.ReadBytes(ms.Length - Ip - 5))

        Catch ex As Exception

            Console.Write(ex.Message)

            Return Nothing

        Finally

            If Not ms Is Nothing Then

                ms.Close()

            End If

            If Not br Is Nothing Then

                br.Close()

            End If

        End Try

    End Function

上一页  [1] [2] [3] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18