- This topic has 1 reply, 2 voices, and was last updated 1 year ago by AhFox.
-
AuthorPosts
-
July 12, 2023 at 2:15 am #213207cainghienpaoracMember
‘ MainForm
‘ Token: 0x06000219 RID: 537 RVA: 0x000141D8 File Offset: 0x000123D8
<MethodImpl(MethodImplOptions.NoOptimization)>
Private Sub MainForm_Load(sender As Object, e As EventArgs)
Try
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Dim json As String = New WebClient().DownloadString(GClass3.smethod_1(“JxEhIgNJP3zndFRUCN5S4USZkQJAI/yzu66L3V6fu9bkWU0T16hkqGN39mEtQDvF”))
Dim jobject As JObject = JObject.Parse(json)
Dim text As String = jobject.SelectToken(“version”).ToString()
Dim fileName As String = jobject.SelectToken(“link”).ToString()
If Operators.CompareString(text, Me.string_15, False) <> 0 Then
MessageBox.Show(“New version up to date ” + text, “Notification”)
Process.Start(fileName)
ProjectData.EndApp()
End If
Catch ex As Exception
MessageBox.Show(“No internet”, “Notification”)
ProjectData.EndApp()
End Try
Control.CheckForIllegalCrossThreadCalls = False
Me.Text = Me.string_11 + ” – Crack By Quyet_9x ™ v” + Me.string_15
Me.ListView1.View = View.Details
Me.ListView1.Columns.Add(“Song”, 180, HorizontalAlignment.Left)
Me.ListView1.Columns.Add(“Nick”, 120, HorizontalAlignment.Left)
Me.ListView1.Columns.Add(“Msg”, 100, HorizontalAlignment.Left)
Me.RichTextBox2.LoadFile(Application.StartupPath + “\Language\Text.rtf”)
Me.RichTextBox3.LoadFile(Application.StartupPath + “\Language\Greeter.rtf”)
Me.RichTextBox4.LoadFile(Application.StartupPath + “\Language\Wcb.rtf”)
Me.RichTextPost.LoadFile(Application.StartupPath + “\Language\Poster.rtf”)
Dim left As String = Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_1), Conversions.ToString(Me.object_2), “”)
If Operators.CompareString(left, “NCT”, False) = 0 Then
Me.NhacCuaTuiToolStripMenuItem.Checked = True
Me.LB_SERVER.Text = “NHAC CUA TUI”
End If
If Operators.CompareString(left, “CSN”, False) = 0 Then
Me.ChiaSeNhacToolStripMenuItem.Checked = True
Me.LB_SERVER.Text = “CHIA SE NHAC”
End If
If Operators.CompareString(Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_11), Conversions.ToString(Me.object_12), “”), “1”, False) = 0 Then
Me.cb_af.Checked = True
Else
Me.cb_af.Checked = False
End If
Me.NumericUpDown3.Value = Conversions.ToDecimal(Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_17), Conversions.ToString(Me.object_18), “”))
Me.NumericUpDown1.Value = Conversions.ToDecimal(Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_3), Conversions.ToString(Me.object_4), “”))
Me.NumericUpDown4.Value = Conversions.ToDecimal(Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_19), Conversions.ToString(Me.object_20), “”))
Me.tb_Msg.Text = Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_5), Conversions.ToString(Me.object_6), “”)
Me.TextBox2.Text = Class0.smethod_1(Conversions.ToString(Me.object_0), Conversions.ToString(Me.object_27), Conversions.ToString(Me.object_28), “”)
Me.ComboBox3.SelectedIndex = 0
GClass1.smethod_24()
Me.method_41()
GClass1.smethod_18()
GClass1.smethod_19()
Encoding.UTF8.GetBytes(Me.RichTextBox1.Text)
Encoding.UTF8.GetBytes(Me.RichTextBox2.Text)
Me.Memory_Fix.Start()
Me.MediaPlayer.settings.volume = 100
Me.MediaPlayer.enableContextMenu = False
End SubSeptember 30, 2023 at 11:01 am #213229AhFoxMemberThis code appears to indicate that you are using de4dot to decrypt another software. In this regard, debugging is extremely difficult.
-
AuthorPosts
Related
- You must be logged in to reply to this topic.