| Вопрос: VB+Mssql+md5 | Добавлено: 13.08.11 17:32 |
Автор вопроса:  Rastamans
|
|
Добрый день.
Столкнулся с проблемой так как в программирование не так уж давно только учуся. Делаю лаунчер для онлайн игры для собственного сервера, в нем предусмотрена регистрация аккаунта БД игрового сервера основана на Mssql Передомной встала задача: 1) Добавление новой строки в БД (То есть регистрацию аккаунта) ==== с этим я справился:) 2) Передача пароля идёт в виде: ключ+пароль и все это перекодируется в md5 Пример: 2011admin=13b5247e3398350918cb622a3ec19e9=>в таком виде он должен поступать в БД 3) Проверка логина в БД если есть такой логин то выдавать соответствующие сообщение. Покопав интернет не нашел ответа на последние 2 вопроса, если не сложно помогите новичку очень нужно пожалуйста Вот код передачи данных в MSSQL Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim name, des As String Dim pass As String name = "'" & Me.TextBox2.Text & "'" pass = "'" & Me.TextBox3.Text & "'" Dim cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & name & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() MsgBox("Вы зарегестрированны") End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Rastamans Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 14.08.11 10:07 |
|
Вообщем с проблемой передачи пароля в зашифрованно виде разобрался сам
вот код Imports System.Data Imports System.Data.SqlClient Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private Function StringtoMD5(ByVal Content As String) As String  im M5 As New System.Security.Cryptography.MD5CryptoServiceProvider
im ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
ByteString = M5.ComputeHash(ByteString) im FinalString As String = Nothing
For Each bt As Byte In ByteString FinalString &= bt.ToString("x2" 
Next Return FinalString End Function im conn As New SqlConnection("ata Source=SAMLAB;Initial Catalog=Auth;User ID=sa"
Sub seleccionar() im adp As New SqlDataAdapter("SELECT * FROM Accounts", conn)
im ds As New DataSet()
adp.Fill(ds, "login_name"
Me.DataGridView1.DataSource = ds.Tables(0) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.seleccionar() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.seleccionar() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged im adp As New SqlDataAdapter("SELECT * FROM Accounts WHERE login_name LIKE '%" + Me.TextBox1.Text + "%'", conn)
im ds As New DataSet()
adp.Fill(ds, "login_name"
Me.DataGridView1.DataSource = ds.Tables(0) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = StringtoMD5("2011" + TextBox3.Text) im name, des As String
im pass As String
name = "'" & Me.TextBox2.Text & "'" pass = "'" & Me.TextBox3.Text & "'" im cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & name & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", conn)
conn.Open() cmd.ExecuteNonQuery() conn.Close() MsgBox("Вы зарегестрированны"
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class 1)Теперь надо устроить проверку с БД на присутствие такого логина в бд если он есть то выдать сообщение если нет то зарегистрировать. 2) проверка вводимых данных в TextBox запретить символы некоторые и пустые поля Если есть у кого ни будь такая информация помогите пожалуйста по возможности ищу сам но хотелось бы ускорить процесс |
||
Страница: 1 |