Atendiendo a lo que me preguntas mi idea es que el codigo de visual basic 6 pasarlo a asp.net, ya tegno parte de el codigo pero no me funciona el login,
Código PHP:
Imports System.Web
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
Partial Class Index
Inherits System.Web.UI.Page
Dim evento As String
Dim newpassword As String
Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
Dim usuario As Integer = 0
Dim msg As String = "Usuario no encontrado en la base de datos."
Dim conn As String = WebConfigurationManager.ConnectionStrings("MyBusiness").ConnectionString
Dim sqlconectar As SqlConnection = New SqlConnection(conn)
Dim comm As New SqlCommand("SELECT usuario,clave FROM usuarios WHERE usuario = @usuario ", sqlconectar)
Try
With comm
.CommandType = CommandType.Text
.Parameters.AddWithValue("usuario", Me.txtusuario.Text.Trim())
.Parameters.AddWithValue("password", Me.txtpassword.Text.Trim(Decrypta(newpassword("clave"), (777))))
MsgBox("no funciona nada")
End With
Using sqlconectar
sqlconectar.Open()
With comm
usuario = .ExecuteScalar()
.Parameters.Clear()
.Dispose()
End With
If usuario > 0 Then
Response.Redirect("www.google.com.mx")
End If
End Using
Catch ex As SqlException
'Controlar excepción SQL
Catch ex As Exception
'Controlar exception
Finally
If sqlconectar.State = ConnectionState.Open Then
sqlconectar.Close()
sqlconectar.Dispose()
End If
End Try
Me.lblError.Text = msg
End Sub
Public Function Decrypta(ByVal cTexto As String, ByVal nLlave As Integer) As String
Dim nLargo As Long
Dim n As Long
Dim cCaracter As String
Dim NewCadena As String
Dim NewNumero As Long
nLargo = Len(Trim(cTexto))
NewCadena = ""
NewNumero = (nLlave / 256) * 4
For n = 1 To nLargo
cCaracter = Chr(Asc(Mid(cTexto, n, 1)) - NewNumero)
NewCadena = NewCadena & cCaracter
Next
Decrypta = NewCadena
End Function
End Class