elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Accede Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: [1] 2 3 4 5
1  Seguridad Informática / Hacking Wireless / Re: Se puede saltar la opción IP isolation o Wireless isolation en: 29 Junio 2018, 14:39
Grascias por tu comentario... Saludos
2  Seguridad Informática / Hacking Wireless / Se puede saltar la opción IP isolation o Wireless isolation en: 28 Junio 2018, 20:27
Saludos ante todo, Estoy tratando de montar una red wifi y estoy realizando algunas pruebas de seguridad, por eso quisiera saber si es posible burlar esta opción.
3  Programación / .NET (C#, VB.NET, ASP) / Ayuda con Backup de celulares en VB.net. en: 17 Mayo 2017, 15:55
Me disculpan de antemano si este no es el mejor sitio para realizar esta pregunta, especialmente con Elektro que siempre está pendiente  de los errores que cometemos. La cuestión es que estoy tratando de hacer un programa que me haga un Backup de los dispositivos externos que coloque en mi PC de forma automatica, lo cual ya he avanzado en ello con la ayudas de ustedes, el problema que tengo y que no he encontrado  nada al respecto buscando en  google,  es con la copia de los celulares, ya que este no se reconoce de la misma manera que las memorias o discos externos. Si me pudieran dar una idea de cómo hacerlo  se los agradecería.
Les argumento que ya lo he hecho con memoria y disco externo. (VB.net)
4  Comunicaciones / Hacking Mobile / Ayuda en: 11 Abril 2017, 13:21
Buenas ante todo. Estimados usuarios, me pudieran decir si es posible entrar por la consola de Windows a un celular conectado  por cable en la PC o si existe algún programa que le realice un Backus de forma automática al conectarse en la PC. Saludos y gracias.
5  Programación / .NET (C#, VB.NET, ASP) / Ayuda con Copiador de USB en: 10 Febrero 2017, 18:40
Buenas ante todos: Estoy tratando de resolver un problema que no tengo idea de como hacerlo. (En cuestión)  Quiero copiar las USB que son introducida en mi PC. Tengo el código que hace esa función pero si se esta copiando al momento de insertar otro USB esa ya no me la copia, Como puedo resolver ese problema.   

Código
  1.  
  2. ‘Estructura de datos que almacena la gestión de conexiones
  3. Public Structure dispositivo
  4.  Public dispTamaño As Integer
  5.  Public dispTipo As Integer
  6.  Public dispReserv As Integer
  7.  Public dispMask As Integer
  8. End Structure
  9.  
  10. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
  11.  
  12.  ‘Se ha producido un cambio en los dispositivos
  13.  Const deviceChange As Integer = &H219
  14.  ‘El sistema detecta un nuevo dispositivo
  15.  Const deviceArrival As Integer = &H8000
  16.  ‘Solicita retirada del dispositivo
  17.  Const deviceQueryRemove As Integer = &H8001
  18.  ‘Ha fallado la retirada del dispositivo
  19.  Const devideQueryRemoveFailed As Integer = &H8002
  20.  ‘Pendiente extracción del dispositivo
  21.  Const deviceRemovePending As Integer = &H8003
  22.  ‘Dispositivo extraído del sistema
  23.  Const deviceRemoveComplete As Integer = &H8004
  24.  ‘ Volumen lógico (Se ha insertado un disco)
  25.  Const deviceTypeVolume As Integer = &H2
  26.  
  27.  Select Case m.Msg
  28.    ‘Cambian los dispositivos del sistema
  29.    Case deviceChange
  30.    Select Case m.WParam.ToInt32
  31.      ‘Llegada de un dispositivo
  32.      Case deviceArrival
  33.      Dim devType As Integer = Marshal.ReadInt32(m.LParam, 4)
  34.      ‘Si es un volumen lógico..(unidad de disco)
  35.      If devType = deviceTypeVolume Then
  36.        Dim vol As dispositivo
  37.        vol = CType(Marshal.PtrToStructure(m.LParam, GetType(dispositivo)), dispositivo)
  38.        MessageBox.Show(”Se insertó un dispositivo en la unidad ” & LetraUnidad(vol.dispMask) & “.”)
  39. 'La mando a copiar
  40. copiar()
  41.        ‘ACA HAGO EL TRATAMIENTO DEL DISPOSITIVO INSERTADO
  42.      End If
  43.    Case deviceRemoveComplete
  44.      MessageBox.Show(”Se retiró el dispositivo.”)
  45.    End Select
  46.  End Select
  47.  
  48.  ‘Ahora se usa el manejador predeterminado
  49.  MyBase.WndProc(m)
  50. End Sub
  51.  
  52. Private Function LetraUnidad(ByVal unitmask As Integer) As Char
  53.  Dim units() As Char = {”A”, “B”, “C”, “D”, “E”, “F”, “G”,
  54.      “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”,
  55.      “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”}
  56.  Dim i As Integer = 0
  57.  ‘Convetimos la máscara en un array primario y buscamos
  58.  ‘el índice de la primera ocurrencia (la letra de unidad)
  59.  Dim ba As System.Collections.BitArray
  60.  ba = New System.Collections.BitArray(System.BitConverter.GetBytes(unitmask))
  61.  
  62.  For i = 0 To ba.Length
  63.    If ba(i) = True Then
  64.    Exit For
  65.  End If
  66.  Next
  67.  
  68.  Return units(i)
  69. End Function
  70.  
  71.  
  72.  
6  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda con un Contador en: 31 Enero 2017, 20:06
Eleкtro: Evidentemente ese no es el código, simplemente quise poner una idea de lo que quería, como lo explique. El código completo donde realizo la copia es este.

Código
  1.  
  2. Private Sub Organizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Organizar.Click
  3.  
  4.        If TextBox1.Text = "" Then
  5.            MessageBox.Show("Seleccionar ruta origen", "Ruta...")
  6.        ElseIf TextBoxDestino.Text = "" Then
  7.            MessageBox.Show("Seleccione ruta Destino", "Ruta...")
  8.        End If
  9.        'Recorre el Listbox item por item
  10.        Try
  11.            For i As Integer = 0 To Me.ListBox1.Items.Count - 1
  12.                RutaOrigen = ListBox1.Items(i)
  13.                'Obtener el nombre del fichero
  14.                NDFichero = Path.GetFileName(RutaOrigen)
  15.                'Obtener la extensión del fichero
  16.                ExtFichero = Path.GetExtension(RutaOrigen)
  17.                'Le quito el punto para usarlo en el nombre de la carpeta
  18.                Dim MyChar() As Char = {"."}
  19.                NCConExt = ExtFichero.TrimStart(MyChar)
  20.                Console.WriteLine(NCConExt)
  21.                'Crea el directorio si no existe
  22.                If Not Directory.Exists(RutaDestino & "\" & NCConExt & "\") Then
  23.                    Directory.CreateDirectory(RutaDestino & "\" & NCConExt & "\")
  24.                End If
  25.                'Prepara la ruta mas el fichero a copiar
  26.                RDestino = RutaDestino & "\" & NCConExt & "\" & ExtFichero
  27.                'Try
  28.  
  29.                If System.IO.File.Exists(RDestino) Then
  30.                    '<<El archivo a copiar ya existe en destino>>
  31.                    'Obtiene nombre del archivo sin extensión
  32.                    Dim sFileName As String = ExtFichero.Substring(0, ExtFichero.Length - ExtFichero.ToString.Length)
  33.                    Dim num As Integer = Nothing
  34.                    While System.IO.File.Exists(RDestino) 'Cambia el
  35.                        num += 1
  36.                        'Renombra archivo en destino. Ej: C:\Organizado\ext\file(1).ext
  37.                        RDestino = String.Format("{0}{1}({2}){3}", RutaDestino & "\" & NCConExt & "\", sFileName, num, ExtFichero)
  38.                    End While
  39.                End If
  40.                Try
  41.                    If RadioButton1.Checked = True Then
  42.                        File.Copy(CStr(RutaOrigen), RDestino, False)
  43.                    Else
  44.                        File.Move(CStr(RutaOrigen), RDestino)
  45.                    End If
  46.                    'Muestra el fichero que se esta copiando
  47.                    RutDFichero.Text = RutaOrigen
  48.                    RutDFichero.Update()
  49.                Catch ex As Exception
  50.                    MsgBox("Error: " & ex.Message)
  51.                End Try
  52.                FCopy.Text = "1" + Val(FCopy.Text)
  53.                FCopy.Update()
  54.            Next
  55.        Catch ex As Exception
  56.            MsgBox("No se realizó la operación por: " & ex.Message)
  57.        End Try
  58.        Dim result As Integer = MessageBox.Show("Operación terminada> Deseas limpiar los datos", "caption", MessageBoxButtons.YesNo)
  59.        If result = DialogResult.No Then
  60.            Exit Sub
  61.        ElseIf result = DialogResult.Yes Then
  62.            Limpiardatos()
  63.        End If
  64.    End Sub
  65.  
  66.  
   

Darle una revisada para ver que me va mal y corregirlo. Saludossss
7  Programación / .NET (C#, VB.NET, ASP) / Ayuda con un Contador en: 26 Enero 2017, 16:00
Estoy tratando de agregarle un contador a una copia, pero no e logrado de que este se me actualice sin la necesidad de actualizar el form. Esto es lo que tengo.

Código
  1. for
  2. File.Copy(RutaOrigen, RutaGF, True)
  3. FCopy.Text = "1" + Val(FCopy.Text)
  4. Me.Text = ListBox1.Items.Count.ToString() & ".Archivos"
  5. Me.Refresh()
  6. next
  7.  
 

Al refrescar me parpadea el form.
La idea es que este me enumere la cantidad de ficheros copiados.
Saludos y gracias.
8  Programación / .NET (C#, VB.NET, ASP) / Re: Modificar registro de windows a 64 bits en: 12 Enero 2017, 21:15
Mi hermano me resulto de mucho lo que me facilitaste.
9  Programación / .NET (C#, VB.NET, ASP) / Re: Cambiar imagen de from en: 11 Enero 2017, 17:39
Ya solucione el problema, el código me queda de esta manera.

Código
  1. Imports Microsoft.Win32
  2.  
  3. Public Class Form1
  4.    Dim MOVIENDO As Boolean = False
  5.    Dim IMAGEN As Image
  6.    Dim MIX As Integer
  7.    Dim MIY As Integer
  8.    Dim valor As Integer = 0
  9.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  10.        'Me.Location = New Point(1750, 900)
  11.        IMAGEN = Me.BackgroundImage
  12.        PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO
  13.    End Sub
  14.  
  15.    Public Sub PINTA()
  16.        Me.Opacity = 0 'FORM TRANSPARENTE
  17.        Threading.Thread.Sleep(100) 'PARA ASEGURAR QUE SEA TRANSPARENTE
  18.        'CREA UNA IMAGEN DE LO QUE HAY DEBAJO DEL FORM COMO FONDO
  19.        Dim BMP As Bitmap = New Bitmap(IMAGEN.Width, IMAGEN.Height)
  20.        Dim DIBUJO As Graphics = Graphics.FromImage(BMP)
  21.        DIBUJO.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size)
  22.        'AÑADE NUESTRA IMAGEN AL FONDO
  23.        DIBUJO.DrawImage(IMAGEN, 0, 0, BMP.Width, BMP.Height)
  24.        Me.BackgroundImage = BMP 'PONE EL MONTAJE COMO IMAGEN DEL FORM
  25.        Me.Opacity = 1 'DEVUELVE LA OPACIDAD NORMAL.
  26.    End Sub
  27.  
  28.    Private Sub LabelMOVER_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelMOVER.MouseDown
  29.        'MEMORIZA LA POSICION DE LA ETIQUETA
  30.        MIX = MousePosition.X - Me.Location.X
  31.        MIY = MousePosition.Y - Me.Location.Y
  32.        Me.BackgroundImage = IMAGEN 'ELIMINA EL FONDO DE LA IMAGEN
  33.        Me.Opacity = 0.1 'PARA QUE SE VEA MENOS EL RECTANGULO DEL FORM
  34.        MOVIENDO = True 'INICIA EL MOVIMIENTO
  35.    End Sub
  36.  
  37.    Private Sub LabelMOVER_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelMOVER.MouseMove
  38.        If MOVIENDO = True Then
  39.            Me.Location = New Point(MousePosition.X - MIX, MousePosition.Y - MIY) 'MUEVE EL FORM SEGUN EL CAMBIO DE POSICION DE LA ETIQUETA
  40.        End If
  41.    End Sub
  42.  
  43.    Private Sub LabelMOVER_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelMOVER.MouseUp
  44.        PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO
  45.        MOVIENDO = False 'FINALIZA EL MOVIMIENTO
  46.    End Sub
  47.  
  48.    Private Sub LabelCERRAR1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelCERRAR1.Click
  49.        Me.Close()
  50.    End Sub
  51.  
  52.  
  53.    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  54.        If valor = 0 Then
  55.            PictureBox1.Image = My.Resources.Cerrado
  56.            Dim ClaveRaíz As RegistryHive = RegistryHive.LocalMachine    ' HKEY_LOCAL_MACHINE
  57.            ' Crea un puntero de clave de Registro para HKEY_LOCAL_MACHINE en la máquina actual
  58.            Dim Clave = RegistryKey.OpenRemoteBaseKey(ClaveRaíz, Environment.MachineName) '<-- Para x64
  59.            ' Crea las claves y valores en la localización especificada
  60.            Using key As RegistryKey = Clave.CreateSubKey("SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\", RegistryKeyPermissionCheck.ReadWriteSubTree)
  61.                key.SetValue("WriteProtect", 1, RegistryValueKind.DWord) 'Valor DWORD
  62.            End Using
  63.            valor = 1
  64.        Else
  65.  
  66.            PictureBox1.Image = My.Resources.Open
  67.            Dim ClaveRaíz As RegistryHive = RegistryHive.LocalMachine    ' HKEY_LOCAL_MACHINE
  68.            ' Crea un puntero de clave de Registro para HKEY_LOCAL_MACHINE en la máquina actual
  69.            Dim Clave = RegistryKey.OpenRemoteBaseKey(ClaveRaíz, Environment.MachineName) '<-- Para x64
  70.            ' Crea las claves y valores en la localización especificada
  71.            Using key As RegistryKey = Clave.CreateSubKey("SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\", RegistryKeyPermissionCheck.ReadWriteSubTree)
  72.                key.SetValue("WriteProtect", 0, RegistryValueKind.DWord) 'Valor DWORD
  73.            End Using
  74.            valor = 0
  75.        End If
  76.    End Sub
  77.  
  78.    Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
  79.        PictureBox1.Size = New Size(Width:=52, Height:=46)
  80.    End Sub
  81.  
  82.    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
  83.        PictureBox1.Size = New Size(Width:=41, Height:=36)
  84.    End Sub
  85. End Class
  86.  
10  Programación / .NET (C#, VB.NET, ASP) / Re: Cambiar imagen de from en: 11 Enero 2017, 17:29
Estoy tratando de hacer un pequeño programa que me inicie con el sistema y que me inhabilite la escritura a la memoria que para poder escribir en ella tenga que desbloquearla.
La idea era poner una imagen que me indicara el estado de bloqueo y que al darle clip a la imagen se desbloqueara y me cambiara de imagen, pero buscando alternativas lo solucione con un Picturebox el cual me indica el estado como dije antes y a su ves me bloqueara y desbloqueara  la escritura en memoria. Ahora resulta que tengo otro problema cambio las propiedades en el registro pero no me bloquea la escritura. Aquí les dejo el código para que me lo revisen y me digan que estoy haciendo mal. Saludo i gracias.

Código
  1. Imports Microsoft.Win32
  2.  
  3. Public Class Form1
  4.    Dim MOVIENDO As Boolean = False
  5.    Dim IMAGEN As Image
  6.    Dim MIX As Integer
  7.    Dim MIY As Integer
  8.    Dim valor As Integer = 0
  9.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  10.        'Me.Location = New Point(1750, 900)
  11.        IMAGEN = Me.BackgroundImage
  12.        PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO
  13.    End Sub
  14.  
  15.    Public Sub PINTA()
  16.        Me.Opacity = 0 'FORM TRANSPARENTE
  17.        Threading.Thread.Sleep(100) 'PARA ASEGURAR QUE SEA TRANSPARENTE
  18.        'CREA UNA IMAGEN DE LO QUE HAY DEBAJO DEL FORM COMO FONDO
  19.        Dim BMP As Bitmap = New Bitmap(IMAGEN.Width, IMAGEN.Height)
  20.        Dim DIBUJO As Graphics = Graphics.FromImage(BMP)
  21.        DIBUJO.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size)
  22.        'AÑADE NUESTRA IMAGEN AL FONDO
  23.        DIBUJO.DrawImage(IMAGEN, 0, 0, BMP.Width, BMP.Height)
  24.        Me.BackgroundImage = BMP 'PONE EL MONTAJE COMO IMAGEN DEL FORM
  25.        Me.Opacity = 1 'DEVUELVE LA OPACIDAD NORMAL.
  26.    End Sub
  27.  
  28.    Private Sub LabelMOVER_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelMOVER.MouseDown
  29.        'MEMORIZA LA POSICION DE LA ETIQUETA
  30.        MIX = MousePosition.X - Me.Location.X
  31.        MIY = MousePosition.Y - Me.Location.Y
  32.        Me.BackgroundImage = IMAGEN 'ELIMINA EL FONDO DE LA IMAGEN
  33.        Me.Opacity = 0.1 'PARA QUE SE VEA MENOS EL RECTANGULO DEL FORM
  34.        MOVIENDO = True 'INICIA EL MOVIMIENTO
  35.    End Sub
  36.  
  37.    Private Sub LabelMOVER_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelMOVER.MouseMove
  38.        If MOVIENDO = True Then
  39.            Me.Location = New Point(MousePosition.X - MIX, MousePosition.Y - MIY) 'MUEVE EL FORM SEGUN EL CAMBIO DE POSICION DE LA ETIQUETA
  40.        End If
  41.    End Sub
  42.  
  43.    Private Sub LabelMOVER_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelMOVER.MouseUp
  44.        PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO
  45.        MOVIENDO = False 'FINALIZA EL MOVIMIENTO
  46.    End Sub
  47.  
  48.    Private Sub LabelCERRAR1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelCERRAR1.Click
  49.        Me.Close()
  50.    End Sub
  51.  
  52.  
  53.    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  54.        If valor = 0 Then
  55.  
  56.  
  57.            PictureBox1.Image = My.Resources.Cerrado
  58.            Dim root As RegistryHive = RegistryHive.LocalMachine
  59.            Dim subkey As String = "SYSTEM\CurrentControlSet\Control\StorageDevicePolicies"
  60.            Dim value As String = "WriteProtect"
  61.            Dim data As String = "1"
  62.  
  63.            Using key As RegistryKey = RegistryKey.OpenBaseKey(root, RegistryView.Registry64)
  64.           key.CreateSubKey(subkey, RegistryKeyPermissionCheck.ReadWriteSubTree).
  65.                    SetValue(value, data, RegistryValueKind.String)
  66.            End Using
  67.            valor = 1
  68.        Else
  69.            PictureBox1.Image = My.Resources.Open
  70.            Dim root As RegistryHive = RegistryHive.LocalMachine
  71.            Dim subkey As String = "SYSTEM\CurrentControlSet\Control\StorageDevicePolicies"
  72.            Dim value As String = "WriteProtect"
  73.            Dim data As String = "0"
  74.  
  75.            Using key As RegistryKey = RegistryKey.OpenBaseKey(root, RegistryView.Registry64)
  76.                key.CreateSubKey(subkey, RegistryKeyPermissionCheck.ReadWriteSubTree).
  77.                    SetValue(value, data, RegistryValueKind.String)
  78.            End Using
  79.            valor = 0
  80.        End If
  81.    End Sub
  82.  
  83.    Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseHover
  84.        PictureBox1.Size = New Size(Width:=52, Height:=46)
  85.    End Sub
  86.  
  87.    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
  88.        PictureBox1.Size = New Size(Width:=41, Height:=36)
  89.    End Sub
  90. End Class
  91.  
  92.  
Páginas: [1] 2 3 4 5
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines