Mensajes

si usas tor, ya estás usando una cadena de proxys... con usar un vpn para entrar a tor debería bastar

de eso no te tienes que cuidar... debes cuidarte en tal caso es de las cookies y de los scripts... eso sí al desactivar eso, la funcionalidad de casi toda las paginas de internet, muere

Gracias por tu respuesta engel lex pero si uso tor no es 100% seguro que sea anonimo cierto? independientemente de la actividad que realice alguien podria trazarme aparte cuando usas Tor muchas paginas te bloquean el acceso ya que detectan que estas usando la red tor

Hola a todos!

He investigado un poco acerca del tema y veo que cuando usas un proxy una de sus caracteristicas es la lentitud de la conexión aparte de que muchos de ellos son transparentes, mi cuestion es la siguiente:

Quisiera configurar mi navegador Firefox o Tor(No se cual me recomienden) para encadenar proxys con la finalidad de conseguir mi anonimato perfecto. tambien he leido que los vpn son muy buenos en especial los que no guardan logs pero aun no experimento con estos.

Configure mi Firefox para usar un proxy socks5 pero al momento de entrar a http://www.stayinvisible.com/
Veo que muestra mi ip de origen... Segun yo(corrijanme si estoy equivocado) el usar socks5 te da un nivel de anonimato muy alto y creo que no deberia mostrar mi ip de origen

Como voy empezando y realmente estoy haciendo pruebas me gustaria que me orientaran un poco con lo siguiente

1- Seria mejor usar programas que te cambien la ip a base de proxys?
2- Seria mejor usar programas que te cambien la ip a base de vpn?
3- Puedo utilizar vpn y proxys encadenado?
4- Es mejor hacer todo esto manual (ocea configurando uno mismo y tecleando las respectivas ip y puertos)?
5- Seria mejor usar programas para hacer esto o que me recomientan ustedes?

Tambien si me pueden recomendar algunas paginas de proxys o vpn gratuita para ir probando se los agradeceria mucho

Muchas gracias a todos!!

Buen día, quiza ya sea un poco tarde pero este mismo ejemplo me sirvio para poder terminar la validación en mi proyecto por eso me anime a postear la conexión y la validación de usuario echa en un Proyeto en 3 capas y una mas de Entidad, mi proyecto utiliza "Procedimientos Almacenados" para validar el usuario y la contraseña, reciben 2 parametros y regresa 1
la verción que estoy utilizando es 2010 y el servidor SQL 2008

Antes que nada quiero Aclarar que soy un novato y me estoy enseñando a programar, espero no romper las reglas del foro ya que es la primera vez que posteo algo y no estoy familiarizado con esto al 100% quiza mis terminos no sean los mas correctos asi que acepto criticas constructivas
bien. Empecemos!

Primero creamos nuestros procedimientos almacenados

Código (sql) [Seleccionar] Expandir


create proc validarSuper
@user varchar(50),
@pass varchar(50),
@Respuesta int output
As
declare @usuario varchar(50)
declare @passw varchar(50)
begin

select @usuario=strNombreSuper, @passw=strPasword
from TabConfiguracion
where strNombreSuper = @user and @pass = strPasword

if ((@user = @usuario) AND (@pass = @passw))
begin
set @Respuesta = 1
end
else
begin
print 'El usuario ó contraseña es Incorrecto'
set @Respuesta = 0
end
return @Respuesta
end


create proc validarUsuario
@user varchar(50),
@pass varchar(50),
@Respuesta int output
as
declare @usuario varchar(50)
declare @passw varchar(50)

begin
select @usuario=shtUsuNombreUsuario, @passw=shtUsuPasword
from CatUsuarios
where shtUsuNombreUsuario = @user and shtUsuPasword = @pass

if ((@user = @usuario) AND (@pass = @passw))
begin
print 'El Usuario es correcto'
set @Respuesta = 1
end
else
begin
print 'El usuario ó contraseña es Incorrecto'
set @Respuesta = 0
end
return @Respuesta
end


Una vez creados llenamos algunos registros para hacer las pruebas de ejecucion

Código (sql) [Seleccionar] Expandir


declare @resultado int
exec validarSuper 'SuperDuper','Contraseña',@resultado output
print @resultado


Bien esto solo es un tip en caso de que no sepas como ejecutar un procedimiento despues de crearlo en SQL, pasemos al codigo de Visual Basic

Esta es la clase de LoginForm1 dentro de la capa grafica e importa las capas de Negocio y Entidad

Código (vbnet) [Seleccionar] Expandir


Imports Entidad
Imports Negocio

Public Class LoginForm1

    Public Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim _login As New entidadLogin 'creo una instancia de la clase entidadLogin dentro de la capa Entidad

'Le paso los valores de usuario y contraseña
        _login.usuario = UsernameTextBox.Text
        _login.pasword = PasswordTextBox.Text

        Dim validar As New valUsuario 'Creo una instancia de la clase valUsuario, dentro de la capa Negocio

'Aqui uso el metodo "validarUser" y le paso el objeto que lleva los parametros se usuario y contraseña
        If validar.validarUser(_login) Then
'Si es verdadero muestra el usuario
            MsgBox(_login.usuario)
        Else
            MsgBox("Estas Chiflado Tio")
        End If

        Me.Close()
    End Sub

' Este es el boton de cerrar
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

End Class


Esta es la clase de entidadLogin, me sirve espesificamente para pasar valores de una clase a otra

Código (vbnet) [Seleccionar] Expandir


Public Class entidadLogin

' Esta clase solo la utilizo para pasar los valores entre las 3 Capas
'Todas la Clases tienen esta referencia ó estan referenciadas a esta clase no se como llamarle
    Dim user, pass As String

    Public Property usuario
        Get
            Return user
        End Get
        Set(value)
            user = value
        End Set
    End Property

    Public Property pasword
        Get
            Return pass
        End Get
        Set(value)
            pass = value
        End Set
    End Property

    Sub New()
        ' TODO: Complete member initialization
    End Sub

'Constructor
    Public Sub New(ByVal usuario As String, pass As String)
        user = usuario
        pasword = pass
    End Sub

End Class


Esta clase es valUsuario de la capa de Negocio e importa la capa de Datos

Código (vbnet) [Seleccionar] Expandir


Imports Datos

'Esta clase esta dentro de la capa de Negocio y tiene el metodo "validarUser" que recibe un objeto de tipo Entidad.entidadLogin de la capa Entidad

Public Class valUsuario
    Dim _acceso As New Acceso'Creo una instancia de la clase Acceso, dentro de la Capa Datos

    Public Function validarUser(login As Entidad.entidadLogin)
        If login.usuario.ToString = "SuperDuper" Then 'Si el usuario es "SuperDuper" Entonces
            If _acceso.superAcceso(login) Then 'Ejecuta el metodo "superAcceso" de la clase Acceso para validar el usuario
                MsgBox(login.usuario)

                ' Esto esta pendiente No lo tomes en cuenta
            Else 'Si la contraseña no es correcta entonces
                MsgBox("Contraseña incorrecta")
            End If

        Else 'Si el usuario no es "SuperDuper" entonces es un usuario común
            MsgBox("El usuario es un mortal")
'Uso otro metodo de la clase Acdeso para validar a los usuarios mortales
            If _acceso.accesoUsuario(login) Then' Si el usuario es verdadero Entonces..
                MsgBox("Correcto")
                Return True
            Else'Si no es verdadero Entonces..
                MsgBox("Incorrecto")
                Return False
            End If
        End If

        Return login
    End Function

End Class


Esta otra es la Clase de Acceso dentro de la Capa de Datos

Código (vbnet) [Seleccionar] Expandir


Imports System.Data.SqlClient
'Clase Acceso. Contiene 2 metodos, 1 es para validar al SuperUsuario y el otro es pra validar a los mortales
Public Class Acceso

    Dim cnn As New Conexion 'Esta es la clase de conexión dentro de la capa de Datos
    Dim cmd As New SqlClient.SqlCommand'Este objeto me sirve para enviar la consulta a la base de datos
    Dim Resultado As Integer 'Valor de resultado en consulta


    Public Function superAcceso(_login As Entidad.entidadLogin)

        Try
            cmd.Connection = cnn.conectar 'Me conecto y le asigno la conexión al objeto cmd
            cmd.CommandText = "ValidarSuper" ' Este es el nombre del Procedimiento almacenado
            cmd.CommandType = System.Data.CommandType.StoredProcedure 'Le indico que el comando es un Prodecimiento almacenado

            cmd.Parameters.AddWithValue("@user", _login.usuario.ToString)'le paso el valor de usuario del procedimiento almacenado
            cmd.Parameters.AddWithValue("@pass", _login.pasword.ToString)'le paso el valor de pasword del procedimiento almacenado

            cmd.Parameters.Add(New SqlParameter("@Respuesta", SqlDbType.Int))'le digo cual sera el parametro de regreso
            cmd.Parameters("@Respuesta").Direction = ParameterDirection.Output'le asigno la direccion del parametro
            cmd.ExecuteNonQuery()'Ejecuto el procedimiento

            Resultado = cmd.Parameters("@Respuesta").Value.ToString'Recibo el Resultado

            If Resultado = 1 Then
                Return True

            Else
                Return False

            End If

        Catch ex As Exception
            MsgBox(ex)
        End Try

        Return True

    End Function


    Public Function accesoUsuario(_login As Entidad.entidadLogin)

        Try
            cmd.Connection = cnn.conectar
            cmd.CommandText = "validarUsuario"
            cmd.CommandType = System.Data.CommandType.StoredProcedure

            cmd.Parameters.AddWithValue("@user", _login.usuario.ToString)
            cmd.Parameters.AddWithValue("@pass", _login.pasword.ToString)

            cmd.Parameters.Add(New SqlParameter("@Respuesta", SqlDbType.Int))
            cmd.Parameters("@Respuesta").Direction = ParameterDirection.Output
            cmd.ExecuteNonQuery()

            Resultado = cmd.Parameters("@Respuesta").Value.ToString

            If Resultado = 1 Then
                Return True

            Else
                Return False

            End If

        Catch ex As Exception
            MsgBox(ex)
        End Try

        Return True

    End Function

End Class


Y esta ultima clase es la de conexión que tambien se encuentra dentro de la capa de Datos

Código (vbnet) [Seleccionar] Expandir


Imports System.Data.SqlClient
'Esta es la Clase conexión
Public Class Conexion

    Dim cnn As SqlConnection

    Public Function conectar()
        Dim Servidor As String = "ZARAK-PC\SQLEXPRESS"
        Dim BaseDatos As String = "BDTiempo"
        Dim CadenaConexion As String = "Data Source =" & Servidor & ";Initial Catalog=" & BaseDatos & ";Integrated Security=SSPI;"

        Try
            cnn = New SqlConnection(CadenaConexion)
            cnn.Open()
            Return cnn
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
    End Function

    Public Function desconectar()
        Try
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
                Return True
            Else
                Return False
            End If
        Catch ex As Exception

            MsgBox(ex.Message)
            Return False
        End Try
    End Function
End Class


Espero sea claro y le pueda servir a alguien

************
Tansolo soy un humilde campesino que ha caido en desgracia y quiere compartir algo