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.