Skip to content

help me to upload my class version

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #213207

    ‘ 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 Sub

    #213229
    AhFox
    Member

    This code appears to indicate that you are using de4dot to decrypt another software. In this regard, debugging is extremely difficult.

Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.