Protected Sub btn_entrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_entrar.Click
Dim login As String ' guarda o user que faz loguin
'Dim data As String ' guarda a data de sistema de login
Dim ds As DataSet = ExecSql("SELECT * FROM TabUtilizador where Login='" & Txtbox_user.Text & _
"' and Password = '" & GeraHash(txtbox_pass.Text) & "'")
If ds.Tables.Item(0).Rows.Count = 1 Then
'Para armazenar o Login e a Hora que foi efetuado o login
login = Me.Txtbox_user.Text
Session("Login") = login
Session("LoginId") = ds.Tables.Item(0).Rows.Item(0)("Id")
Session("HorarioLogin") = Today.ToString("dd/MM/yyyy")
Session("Previlegio") = ds.Tables.Item(0).Rows.Item(0)("Previlegios")
Response.Redirect(host + "/site/Admin.aspx")
Else
lbl_Erro.Visible = True
lbl_Erro.Text = "Nome de UTilizador ou password Invalidos"
Txtbox_user.Text = ""
txtbox_pass.Text = ""
'Me.Txtbox_user.Focus()
End If
ds.Dispose()
End Sub
Protected Sub Txtbox_user_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txtbox_user.TextChanged
If Me.Txtbox_user.Text <> "" Then
Me.lbl_Erro.Visible = False
End If
End Sub
Public Shared str_ligacao As String = "data source=(local);initial catalog=Requisicoes;integrated security=SSPI;persist security info=True"
Public Shared host As String = "http://localhost:8080" '"http://weza.no-ip.org:8080"
'End Function
Public Shared Function ExecSql(ByVal comando As String) As DataSet
Dim sda As SqlDataAdapter = New SqlDataAdapter(comando, str_ligacao)
Dim ds As DataSet = New DataSet()
sda.Fill(ds)
sda.Dispose()
Return ds
End Function
Imports Microsoft.VisualBasic
Imports System.Text
Imports System.Security.Cryptography
Public Class criptografar
' If util.GeraHash(PasswordTextBox.Text).Equals(senhaID)
' gera um ash da string escrita
Public Shared Function GeraHash(ByVal texto As String) As String
'Cria um objeto enconding para assegurar o padrão
'de encondig para o texto origem
Dim Ue As New UnicodeEncoding()
'Retorna um byte array baseado no texto origem
Dim ByteSourceText() As Byte = Ue.GetBytes(texto)
'Instancia um objeto MD5
Dim Md5 As New MD5CryptoServiceProvider()
'Calcula o valor do hash para o texto origem
Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
'Converte o valor obtido para o formato string
Return Convert.ToBase64String(ByteHash)
End Function
End Class
Imports criptografar
Imports trata_sql