SHARE
TWEET

Untitled

a guest Apr 27th, 2018 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.IO
  2. Imports MySql.Data.MySqlClient
  3. Public Class Form1
  4.     Dim mySqlConnection_0 = New MySqlConnection()
  5.     Dim string_0 = "hgrp"
  6.     Dim string_1 = "202.9.90.55"
  7.     Dim string_2 = "acuser"
  8.     Dim string_3 = "password9542"
  9.  
  10.  
  11.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  12.         My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\SAMP", "PlayerName", TextBox1.Text)
  13.         Interaction.Shell("samp.exe 202.9.90.55:7777 1passwordlocked1589zxcv2")
  14.         If Me.mySqlConnection_0 IsNot Nothing Then
  15.             Me.mySqlConnection_0.Close()
  16.         End If
  17.  
  18.         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}))
  19.         Try
  20.             Me.mySqlConnection_0.Open()
  21.             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)
  22.             mySqlCommand.ExecuteNonQuery()
  23.             Return
  24.         Catch expr_244 As Exception
  25.             Dim ex As Exception = expr_244
  26.             Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  27.  
  28.             Return
  29.         Finally
  30.             Me.mySqlConnection_0.Close()
  31.         End Try
  32.         Try
  33.  
  34.             Me.mySqlConnection_0.Open()
  35.             Dim mySqlCommand As MySqlCommand = New MySqlCommand(String.Format("UPDATE accounts SET PasswordCheck =  '-1' WHERE Username = '" + Me.TextBox1.Text + "' ", New Object(-1) {}), Me.mySqlConnection_0)
  36.             mySqlCommand.ExecuteNonQuery()
  37.         Catch expr_CE As Exception
  38.             Dim ex As Exception = expr_CE
  39.             Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  40.  
  41.         Finally
  42.             Me.mySqlConnection_0.Close()
  43.         End Try
  44.     End Sub
  45.  
  46.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  47.  
  48.     End Sub
  49. End Class
  50.  
  51.  
  52.  
  53. --- NYMWARE SOURCE CODE LEAKED BY LEFTY_HANDCREAM ---
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top