Mysql5 + Sistema De Login [Sistema Indicado Metin2]

[NewWars 875]

Boas Pessoal

Vou fazer Um tutorial sobre MYSQL(5) e um sistema de login simples

Este tutorial é inteiramente feito em Visual Basic mas,iremos precisar de 2 simples coisas

MySqlConnector

e

MySql.data.dll

e tambem para correr o programa

(Microsoft dotNet framework 4(Microsoft .NET Framework 4))

Começamos por fazer o download do MySqlConnector e MySql.data.dll

Download MySQLConnector

e

Download MySql.data.dll

Bem Vamos agora começar

1º - Criem um novo projeto com um nome a vossa escolha, neste caso chamei de LIG - Game Connecter

2º - Instalem o MySqlConnector e no projeto que criaram Carreguem em:

Project > Add Reference

Após isso carreguem em MySql.Data

3º - Façam 2 caixas de texto e um Butão

Carreguem no butão para adicionar codigo e invoquem este codigo:

'Função de Conecção
Dim hashedpw as String
Dim mysqlc As New MySqlConnection
Dim UsernameVerify As New MySqlCommand
Dim PasswordVerify As New MySqlCommand
Dim lgnUsername As String
Dim lgnPassword As String
'Muda a Informação que esta em CAPS Lock
mydqlc.ConnectionString = "server=IP;user id=root;Password=PASS;persist security info=True;database=DB"
Try
mysqlc.Open()
UsernameVerify.Connection = mysqlc
UsernameVerify.CommandText = ("SELECT TABELADB FROM account WHERE login='" & textbox1.Text & "'")
PasswordVerify.Connection = mysqlc
PasswordVerify.CommandText = ("SELECT TABELAPW FROM account WHERE login='" & textbox2.Text & "'")
lgnUsername = UsernameVerify.ExecuteScalar
lgnPassword = PasswordVerify.ExecuteScalar
dbConn.Close()

hashedpw = MYSQL5(TextBox2.Text)
If textbox1.Text.Equals(lgnUsername) And hashedpw.Equals(lgnPassword) Then

MsgBox.Text = "O login ocorreu com sucesso"
Process.Start(Curdir & "\PROGRAMA.EXE")

Else
If Not textbox1.Text = lgnUsername Then
Msgbox"O ID digitado não existe"
Else
If Not textbox2.Text = lgnPassword Then
MsgBox"A password digitada não" & vbCrLf & "corresponde ao ID"
End If
End If
textbox2.Focus()
End If
Catch ex As MySqlException
MsgBox(ex.Message)
mysqlc.Dispose()

End Try
End If
End Sub

Onde se encontra a palavra DB, metam a base de dados neste caso é player

Onde se encontra IP meta o ip do server ou base de dados

Onde Se encontra PASS metam a password

Onde se encontra TABELADB metam a tabela, neste caso é login

Onde se encontra TABELAPW metam a tabela, neste caso password

Onde se encontra PROGRAMA.EXE metam o prog que querem iniciar

4º - Agora criem uma nova Função assim:

Public Shared Function MYSQL5(ByVal str As String) As String

Dim crypt As New SHA1CryptoServiceProvider
Dim encod As New System.Text.UTF8Encoding()
Dim streturn As String = ""

Dim byteHash() As Byte = cypt.ComputeHash(encoding.GetBytes(str))
byteHash = crypt.ComputeHash(byteHash)
streturn += ("*" & BitConverter.ToString(byteHash).Replace("-", ""))
Return streturn

5º

Façam Debug ao programa e testem.

Bem e é tudo, se quiserem uma segunda parte do tutorial de como obter informação da conta peçam nos comentarios

Se gostaram http://cyber-gamers.org/public/style_emoticons/default/451960.gif

Se ajudei http://cyber-gamers.org/public/style_emoticons/default/451960.gif

é tudo, por agora.

[Guest Henrique Oliveira™]

Obrigado por partilhares, o segundo tuturial dava geito podes fazer????http://cyber-gamers.org/public/style_emoticons/default/451960.gif Continua

[αlexαndre 669]

Obrigado por partilhares, o segundo tuturial dava geito podes fazer???? http://cyber-gamers.org/public/style_emoticons/default/451960.gif Continua

[NewWars 875]

Vou ver o segundo tutorial se posso fazer. Se tiver tempo faço ainda hoje.

[яэ∂вэяяý 543]

Obrigado por ajudares e partilhares connosco.. http://cyber-gamers.org/public/style_emoticons/default/451960.gif

Continua

Cumpz

[Rancoroso 604]

Bom trabalho http://cyber-gamers.org/public/style_emoticons/default/451960.gif

[Guest Henrique Oliveira™]

Vou ver o segundo tutorial se posso fazer. Se tiver tempo faço ainda hoje.

Força nisso!

[INeXoI 10]

wow thanks *-*