Imports System.IO
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim mySqlConnection_0 = New MySqlConnection()
    Dim string_0 = "hgrp"
    Dim string_1 = "202.9.90.55"
    Dim string_2 = "acuser"
    Dim string_3 = "password9542"


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\SAMP", "PlayerName", TextBox1.Text)
        Interaction.Shell("samp.exe 202.9.90.55:7777 1passwordlocked1589zxcv2")
        If Me.mySqlConnection_0 IsNot Nothing Then
            Me.mySqlConnection_0.Close()
        End If

        Me.mySqlConnection_0.set_ConnectionString(String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false", New Object() {Me.string_1, Me.string_2, Me.string_3, Me.string_0}))
        Try
            Me.mySqlConnection_0.Open()
            Dim mySqlCommand As MySqlCommand = New MySqlCommand(String.Format(String.Concat(New String() {"UPDATE accounts SET PasswordCheck =  '", Me.TextBox2.Text, "' WHERE Username = '", Me.TextBox1.Text, "' "}), New Object(-1) {}), Me.mySqlConnection_0)
            mySqlCommand.ExecuteNonQuery()
            Return
        Catch expr_244 As Exception
            Dim ex As Exception = expr_244
            Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)

            Return
        Finally
            Me.mySqlConnection_0.Close()
        End Try
        Try

            Me.mySqlConnection_0.Open()
            Dim mySqlCommand As MySqlCommand = New MySqlCommand(String.Format("UPDATE accounts SET PasswordCheck =  '-1' WHERE Username = '" + Me.TextBox1.Text + "' ", New Object(-1) {}), Me.mySqlConnection_0)
            mySqlCommand.ExecuteNonQuery()
        Catch expr_CE As Exception
            Dim ex As Exception = expr_CE
            Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)

        Finally
            Me.mySqlConnection_0.Close()
        End Try
    End Sub

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

    End Sub
End Class



--- NYMWARE SOURCE CODE LEAKED BY LEFTY_HANDCREAM ---