none
Como Finalizar uma DLL em execulção RRS feed

  • Pergunta

  • Não sei se estou na área corretamente mais se não estiver desculpe-me, pois preciso de ajuda urgentemente.

    Há um tempo atraz eu estava fazendo um anti hack tinha pegos alguns codigos na internet de bloquear programas consegui e eu usava um para bloquear dll até um tempo atraz funcionava mais agora não funciona mais codigo está abaixo :

    CÓDIGO DA INTERNET

    Imports System.Security.Cryptography
    Public Class Form1
        Private Function getFileMd5(ByVal filePath As String) As String
            Dim File() As Byte = System.IO.File.ReadAllBytes(filePath)
            Dim Md5 As New MD5CryptoServiceProvider()
            Dim byteHash() As Byte = Md5.ComputeHash(File)
            Return Convert.ToBase64String(byteHash)
        End Function

     Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
            On Error Resume Next
            Dim processos As Process() = Process.GetProcesses
            For Each processo In processos
                If getFileMd5(processo.MainModule.FileName) = "ltPwBtEDIu/rEBhJHZ6aNw==" Then
                    processo.Kill()
                End If
            Next
        End Sub

    CÓDIGO QUE USO :

    Imports System.Security.Cryptography
    Public Class Form1
        Private Function getFileMd5(ByVal filePath As String) As String
            Dim File() As Byte = System.IO.File.ReadAllBytes(filePath)
            Dim Md5 As New MD5CryptoServiceProvider()
            Dim byteHash() As Byte = Md5.ComputeHash(File)
            Return Convert.ToBase64String(byteHash)
        End Function

     Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
           Try

          Dim processos As Process() = Process.GetProcesses

            For Each processo In processos
                If getFileMd5(processo.MainModule.FileName) = "ltPwBtEDIu/rEBhJHZ6aNw==" Then
                    processo.Kill()
                End If
            Next

    Catch

    End try

        End Sub

    Obs : É o mesmo codigo so que alem de usar o " On Error Resume Next " Eu uso o Try mais a alguns meses atraz ele fechava a DLL Hacker que correspondia a assinatura "ltPwBtEDIu/rEBhJHZ6aNw==", agora existem novas DLL hackers que não consigo fechalas e se eu por o codigo " On Error Resume Next " não adianta e ainda fecha o jogo.

    Obs : 

    Alguem tem algum codigo para bloquear DLL sem ser pelo nome dela, caso n tiverem por favor me ajude a resolver meu problema.

    Grato.


    • Editado Master071 domingo, 5 de maio de 2013 20:50
    domingo, 5 de maio de 2013 20:37