เข้าเกมส์ KARMA + โปรแม่น

bonparadorn

CODE:
Public Class Form1
#Region "MD5"
    Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
    Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider

    Private Function Enc_(ByVal ข้อมูลเดิม As String, Optional ByVal กุญแจ As String = "valenzaa.com") As String
        Try
            DES.Key = Hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(กุญแจ))
            DES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(ข้อมูลเดิม)
            Enc_ = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
        Catch ex As Exception
            Enc_ = "ไม่สามารถทำงานได้เนื่องจาก: " & ex.Message
        End Try
    End Function

    Private Function Dec_(ByVal ข้อมูลที่เคยMD5 As String, Optional ByVal กุญแจ As String = "valenzaa.com") As String
        Try
            DES.Key = Hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(กุญแจ))
            DES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(ข้อมูลที่เคยMD5)
            Dec_ = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
        Catch ex As Exception
            Dec_ = "ไม่สามารถทำงานได้เนื่องจาก: " & ex.Message
        End Try
    End Function
#End Region


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            WebBrowser1.Navigate("http://karma-logon.gg.in.th/login.aspx")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Try
            Dim AR(,) As String = GetAllSettings(Application.ProductName, "id")
            For i As Int32 = LBound(AR, 1) To UBound(AR, 1)
                TreeView1.Nodes.Add(AR(i, 0)).Tag = Dec_(AR(i, 1))
            Next i
        Catch ex As Exception

        End Try


    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ToolStripStatusLabel1.Text = WebBrowser1.DocumentTitle
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim u As String = InputBox("USER", "USER@EMAIL.COM")
            Dim p As String = InputBox("PASS", "PASSWORD")
            Dim nameซ้ำ As Boolean
            If u <> "" And p <> "" Then

                Try
                    Dim R(TreeView1.Nodes.Count - 1) As String
                    Dim T(TreeView1.Nodes.Count - 1) As String
                    For i = 0 To TreeView1.Nodes.Count - 1
                        R(i) = TreeView1.Nodes.Item(i).Text
                        T(i) = TreeView1.Nodes.Item(i).Tag
                        If u = R(i) And p = T(i) Then
                            nameซ้ำ = True
                        End If
                        If u = R(i) And p <> T(i) Then
                            TreeView1.Nodes.Item(i).Remove()
                        End If
                    Next
                Catch ex As Exception
                Finally
                    WebBrowser1.Document.All("txtUsername").InnerText = u
                    WebBrowser1.Document.All("txtPassword").InnerText = p
                End Try
                TreeView1.Nodes.Add(u).Tag = (p)
                SaveSetting(Application.ProductName, "id", u, Enc_(p))
            End If
        Catch ex As Exception

        End Try

    End Sub


    Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick

        Try
            If e.Button = Windows.Forms.MouseButtons.Left Then
                Dim u As String = e.Node.Text
                Dim p As String = e.Node.Tag
                WebBrowser1.Document.All("txtUsername").InnerText = u
                WebBrowser1.Document.All("txtPassword").InnerText = p
            ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
                If e.Node.Text <> "" Then

                    DeleteSettingToolStripMenuItem.Text = "DeleteSetting " & e.Node.Text
                    DeleteSettingToolStripMenuItem.Tag = e.Node.Text
                    ContextMenuStrip1.Show(TreeView1, e.Location)
                End If

            End If
        Catch ex As Exception

        End Try

    End Sub

    Private Sub DeleteSettingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteSettingToolStripMenuItem.Click
        Try
            DeleteSetting(Application.ProductName, "id", DeleteSettingToolStripMenuItem.Tag)
            TreeView1.Nodes.Clear()
            Dim AR2(,) As String = GetAllSettings(Application.ProductName, "id")
            For i As Int32 = LBound(AR2, 1) To UBound(AR2, 1)
                TreeView1.Nodes.Add(AR2(i, 0)).Tag = Dec_(AR2(i, 1))

            Next i
        Catch ex As Exception

        End Try
    End Sub
End Class

Form1.Designer.vb:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
        Me.TreeView1 = New System.Windows.Forms.TreeView
        Me.Button1 = New System.Windows.Forms.Button
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.DeleteSettingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
        Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel
        Me.StatusStrip1.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
        'StatusStrip1
        '
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
        Me.StatusStrip1.Location = New System.Drawing.Point(0, 433)
        Me.StatusStrip1.Name = "StatusStrip1"
        Me.StatusStrip1.Size = New System.Drawing.Size(604, 22)
        Me.StatusStrip1.TabIndex = 0
        Me.StatusStrip1.Text = "StatusStrip1"
        '
        'WebBrowser1
        '
        Me.WebBrowser1.Location = New System.Drawing.Point(0, -1)
        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
        Me.WebBrowser1.Name = "WebBrowser1"
        Me.WebBrowser1.ScrollBarsEnabled = False
        Me.WebBrowser1.Size = New System.Drawing.Size(419, 430)
        Me.WebBrowser1.TabIndex = 2
        '
        'TreeView1
        '
        Me.TreeView1.Location = New System.Drawing.Point(435, 36)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Size = New System.Drawing.Size(157, 383)
        Me.TreeView1.TabIndex = 3
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(435, 7)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(157, 23)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "NEW USER+PASS"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'ContextMenuStrip1
        '
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeleteSettingToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(140, 26)
        '
        'DeleteSettingToolStripMenuItem
        '
        Me.DeleteSettingToolStripMenuItem.Name = "DeleteSettingToolStripMenuItem"
        Me.DeleteSettingToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
        Me.DeleteSettingToolStripMenuItem.Text = "DeleteSetting"
        '
        'ToolStripStatusLabel1
        '
        Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
        Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(604, 455)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TreeView1)
        Me.Controls.Add(Me.WebBrowser1)
        Me.Controls.Add(Me.StatusStrip1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "Form1"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "LOGIN KARMA BY VALENZAA"
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
    Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents DeleteSettingToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel

End Class