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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Temas
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ... 32
61  Comunicaciones / Redes / Transmitir señal de Tv Cable via wireless ?? en: 16 Enero 2018, 04:26 am
Holas,

Estoy buscando algun dispositivo que me transmita la señal desde un cuarto a otro via wireless, lo necesito lo mas simple sin mucho equipamiento y que no sea muy caro..

Alguien sabe...

Saludos y gracias cualquier ayuda
62  Sistemas Operativos / GNU/Linux / Redirecionando URL con SQUID !! en: 15 Enero 2018, 20:38 pm
Holas,

Buscando por la WEB como redireccionar una URL para otra encontre este script y lo adapte a mis necesidades, necesito que cuando algun usuario pida www.facebook.com lo diriga a m.facebook.com pero no me funciona ya di permisos a mi ejecutable y la regla la puse por encima de todos los permisos del squid para que sea la primera en verificar. Alguna idea que puede estar pasando o si alguien sabe como lograr esto porfa me urge...

Saludos

Código
  1.  
  2. #!/usr/bin/perl
  3. $mirror = "m.facebook.com";
  4.  
  5. $| = 1;
  6. while (<>) {
  7.    @line = split;
  8.    $_ = $line[0];
  9.    if (m/^http:\/\/((?:[a-z0-9]+\.)?\.facebook\.com )\/(.*)/ &&
  10.        $1 ne $mirror) {
  11.        print "http://" . $mirror . "/" . $2 . "\n";
  12.    } else {
  13.        print $_ . "\n";
  14.    }
  15. }
  16.  
  17.  
  18.  
63  Programación / Desarrollo Web / Ayuda buscando plantilla ? en: 7 Enero 2018, 03:20 am
Hola,

Alguien tendra alguna referencia de alguna plantilla html5 que sea free y no vaya a tener algun problema de Copyright y de ser posible que su contenido se asemeje a renta de apartamentos...sino con que sea free y html5 moderna me sirve...

Saludos y gracias...
64  Sistemas Operativos / Windows / Windows Update en: 3 Enero 2018, 01:33 am
Hola,

Un colega me dijo que hay una aplicación que te descarga las actualizaciones de Windows y permite que en una red local los equipos se actualicen.

Saben de que hablo..

Saludos
65  Programación / .NET (C#, VB.NET, ASP) / Ayuda con procedimiento ! en: 23 Diciembre 2017, 19:06 pm
Hola,

Me pueden explicar como pasar el 3er parametro de este procedimiento

Código
  1.  
  2. Public Sub ConnectAsync(request As AuthRequest, Optional overwriteProfile As Boolean = False, Optional onConnectComplete As Action(Of Boolean) = Nothing)
  3.  
  4. 'Este es el procedimiento de una clase que lo llamo desde
  5.  
  6. AccessPoint.ConnectAsync(resquest, False, OnConnectComplete)
  7.  
  8. 'Cree este Sub, pero me da error sin declararlo Optional y setearle el True me decia que no se habia declarado un valor para isConnected
  9. 'cuando lo dejo asi (forzado) me dice que ConnectAsync no devuelve nada y realmente me dejo pasmao con ese mensaje
  10.  
  11.   Sub OnConnectComplete(Optional isConnected As Boolean = True)
  12.  
  13.        If isConnected = True Then
  14.            txtLog.AppendText("Conexión completada." & vbCrLf)
  15.        End If
  16.  
  17.    End Sub
  18.  
  19.  

Lo que quiero es que una vez conectado me avise.

Saludos y gracias cualquier sugerencia
66  Programación / .NET (C#, VB.NET, ASP) / Ayuda con este código !! en: 15 Noviembre 2017, 15:46 pm
Holas,

Con este codigo puedo hacer una conexión a un servidor SSH y abrir un PORT FORWARDING DYNAMIC asi navegar por ese Tunnel, todo eso trabaja perfecto lo único que necesito implementar es un metodo para que reconnecte en caso de que falle la conexión, hasta ahora logré manejar el evento OnDisconnect y activar un Timer cada 10 segundos pero tengo mis dudas para llamar al Main del Modulo pues cuando genero un error de conexión el se queda esperando en la consola a que se presione ESC para entonces ejecutar

Código
  1. client.Disconnect(New ProgressHandler)

y

terminar con

Código
  1. SshNet.Shutdown()

supongo que primero tengo que cerrar bien la conexion osea ejecutar esas lineas antes de volver a llamar al Main quizas declarandolas como global y ejecutarlas en el manejador seria la solución?

Saludos y gracias cualquier ayuda...

Código
  1. Imports Bitvise.FlowSshNet
  2.  
  3.  
  4. Public Enum ExitCodes
  5.    Success = 0
  6.    UsageError = 1
  7.    SessionError = 2
  8.    FatalError = 3
  9. End Enum
  10.  
  11. Public Enum DisconnectReason
  12.    Exception = 0
  13.    FlowError = 1
  14.    ConnectionError = 2
  15.    ConnectionLost = 3
  16.    ByServer = 4
  17.    ByClient = 5
  18. End Enum
  19.  
  20. Public Class MyClient
  21.    Inherits Client
  22.  
  23.  
  24.    Dim aTimer As New System.Timers.Timer
  25.  
  26.    Private Sub tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
  27.        aTimer.Stop()
  28.        FlowSshNet_VbTnl.Main()
  29.    End Sub
  30.  
  31.    Public Sub New()
  32.        AddHandler OnHostKey, AddressOf OnMyHostKey
  33.        AddHandler OnForwardingLog, AddressOf OnMyForwardingLog
  34.        AddHandler OnDisconnect, AddressOf OnMyDisconnect
  35.  
  36.        AddHandler aTimer.Elapsed, AddressOf tick
  37.    End Sub
  38.  
  39.    Sub Main()
  40.        aTimer.AutoReset = True
  41.        aTimer.Interval = 10000 '10 seconds
  42.    End Sub
  43.  
  44.    Public Sub OnMyDisconnect(ByVal sender As Object, ByVal reason As DisconnectReason, ByVal desc As String)
  45.        aTimer.Start()
  46.  
  47.    End Sub
  48.  
  49.    Public Function OnMyHostKey(ByVal sender As Object, ByVal publicKey As PublicKey) As Boolean
  50.        Console.WriteLine("Received the following host key: ")
  51.        Console.WriteLine("  MD5 Fingerprint: {0}", publicKey.GetMd5())
  52.        Console.WriteLine("  Bubble-Babble: {0}", publicKey.GetBubbleBabble())
  53.        Console.WriteLine("  SHA-256: {0}", publicKey.GetSha256())
  54.        Return True
  55.    End Function
  56.  
  57.    Public Sub OnMyForwardingLog(ByVal sender As Object, ByVal log As ForwardingLog)
  58.        Console.WriteLine(log.Desc)
  59.    End Sub
  60.  
  61. End Class
  62.  
  63.  
  64. Module FlowSshNet_VbTnl
  65.  
  66.    Sub OnUncaughtExceptionInEvent(ByVal sender As Object, ByVal fatal As Boolean, ByVal e As System.Exception)
  67.        Console.WriteLine("Error: {0}", e.ToString())
  68.        Environment.Exit(ExitCodes.FatalError)
  69.    End Sub
  70.  
  71.    Function Main() As Integer
  72.        Try
  73.  
  74.            AddHandler SshNet.OnExceptionInEvent, AddressOf OnUncaughtExceptionInEvent
  75.  
  76.            Dim client As MyClient = New MyClient
  77.            client.SetAppName("FlowSshNet_VbTnl")
  78.            client.SetHost("1.1.1.1")
  79.            client.SetPort(22)
  80.            client.SetUserName("user")
  81.            client.SetPassword("password")
  82.  
  83.            client.SetProxyType(ProxyType.HttpConnect)
  84.            client.SetProxyHost("1.1.1.5")
  85.            client.SetProxyPort("8080")
  86.            client.SetProxyUserName("userproxy")
  87.            client.SetProxyPassword("userpass")
  88.  
  89.            Dim progress As ProgressHandler = New ProgressHandler
  90.            client.Connect(progress)
  91.            progress.WaitDone()
  92.  
  93.            If Not progress.Success() Then
  94.                Dim connectStep As UInt32 = progress.GetTaskSpecificStep()
  95.                Dim auxInfo As String = progress.GetAuxInfo()
  96.                Dim connErr As String = ProgressHandler.DescribeConnectError(connectStep, auxInfo)
  97.                Console.WriteLine("{0}", connErr)
  98.            Else
  99.  
  100.                Dim proxy As ProxyForwarding = New ProxyForwarding
  101.                proxy.ListInterface = "127.0.0.1"
  102.                proxy.ListPort = 1080
  103.  
  104.                Dim enableProxyHandler As ForwardingHandler = New ForwardingHandler
  105.                client.EnableProxyForwarding(proxy, enableProxyHandler)
  106.  
  107.                enableProxyHandler.WaitDone()
  108.                If (enableProxyHandler.Success()) Then
  109.                    Console.WriteLine("Proxy forwarding enabled, listening port: {0}", enableProxyHandler.GetListPort().ToString())
  110.                Else
  111.                    Console.WriteLine("Error enabling proxy forwarding: {0}", enableProxyHandler.GetError().Desc)
  112.                End If
  113.  
  114.                Console.WriteLine("Press Esc to stop forwarding")
  115.                While Console.ReadKey(True).Key <> ConsoleKey.Escape
  116.                End While
  117.  
  118.                If (enableProxyHandler.Success()) Then
  119.                    Dim handler As ForwardingHandler = New ForwardingHandler
  120.                    client.DisableProxyForwarding(handler)
  121.  
  122.                    handler.WaitDone()
  123.                    If (handler.Success()) Then
  124.                        Console.WriteLine("Proxy forwarding disabled")
  125.                    Else
  126.                        Console.WriteLine("Error disabling proxy forwarding: {0}", handler.GetError().Desc)
  127.                    End If
  128.                End If
  129.  
  130.                client.Disconnect(New ProgressHandler)
  131.  
  132.                Console.WriteLine("Press Esc to exit")
  133.                While Console.ReadKey(True).Key <> ConsoleKey.Escape
  134.                End While
  135.  
  136.            End If
  137.  
  138.        Catch e As System.Exception
  139.            Console.WriteLine(e.Message)
  140.            Return ExitCodes.FatalError
  141.        Finally
  142.            SshNet.Shutdown()
  143.        End Try
  144.  
  145.        Return ExitCodes.Success
  146.    End Function
  147.  
  148. End Module
  149.  
  150.  
67  Seguridad Informática / Nivel Web / LDAP v3 ! ASP ! en: 15 Noviembre 2017, 14:24 pm
Hola,

Tengo acceso a un servidor LDAP con usuario invitado, la interface Web esta en ASP. El ip del servidor LDAP esta en la interface interna de la RED no se ve desde el exterior.

Quisiera saber que papers actuales hay para una posible falla.

Saludos
68  Comunicaciones / Redes / Repetir señal HotSpot!! en: 13 Noviembre 2017, 16:56 pm
Hola,

Necesito poder repetir la señal de un HotSpot de forma tal que todos los usuarios que se logueen sea dicho HotSpot quien les asigne IP.

Saludos
69  Programación / .NET (C#, VB.NET, ASP) / Se puede ocultar parametros al ejecutar un .EXE? en: 4 Noviembre 2017, 17:01 pm
Hola,

Necesito ejecutar una aplicacion que lleva parametros pero quiero que no se vean, cuando voy al administrador de tareas y busco los detalles de la aplicación se ve

app.exe -c parm1 -k param2

Alguna idea.

Saludos
70  Programación / .NET (C#, VB.NET, ASP) / Alguna forma de cambiar la MAC de la tarjeta de RED? en: 24 Octubre 2017, 22:40 pm
Hola,

Encontre un codigo que supuestamente lo cambia pero no funciona, supongo que en Windows XP si pero para Windows 7 en adelante no, alguna sugerencia.

Saludos

Código
  1.  
  2. Imports System.Management
  3.  
  4. Public Class Form1
  5.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  6.        FillNetworkAdapters()
  7.    End Sub
  8.  
  9.    Private Sub FillNetworkAdapters()
  10.        Dim mc As System.Management.ManagementClass
  11.        Dim mo As ManagementObject
  12.        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
  13.        Dim moc As ManagementObjectCollection = mc.GetInstances()
  14.        For Each mo In moc
  15.            If mo.Item("IPEnabled") = True Then
  16.                Dim strAdapter As String
  17.                strAdapter = mo.Item("Caption").ToString().Substring(11)
  18.  
  19.                combo_network.Items.Add(strAdapter)
  20.            End If
  21.        Next
  22.    End Sub
  23.  
  24.    Private Function GetMACAddress(ByVal Adapter As String) As String
  25.        Dim mc As System.Management.ManagementClass
  26.        Dim mo As ManagementObject
  27.        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
  28.        Dim moc As ManagementObjectCollection = mc.GetInstances()
  29.        For Each mo In moc
  30.            If mo.Item("IPEnabled") = True Then
  31.                Dim strAdapter As String
  32.                strAdapter = mo.Item("Caption").ToString().Substring(11)
  33.                If strAdapter = Adapter Then
  34.                    Return mo.Item("MacAddress").ToString()
  35.                End If
  36.            End If
  37.        Next
  38.    End Function
  39.  
  40.  
  41.    Private Sub combo_network_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo_network.SelectedIndexChanged
  42.        label_mactext.Text = GetMACAddress(combo_network.SelectedItem.ToString)
  43.    End Sub
  44.  
  45.    Private Function DoPadding(ByVal x As String) As String
  46.        Dim Ret As String
  47.        Dim z As Integer
  48.  
  49.        Ret = x
  50.        If Len(x) < 4 Then
  51.            For z = 1 To 4 - Len(x)
  52.                Ret = "0" & Ret
  53.            Next
  54.        End If
  55.  
  56.        Return Ret
  57.    End Function
  58.  
  59.  
  60.    Private Sub ShowRestart()
  61.        Dim res As MsgBoxResult = MsgBox("Your MAC Address has been
  62. changed. In order to make the changes take effect, either restart your
  63. computer or enable and disable the changed Network Adapter.",
  64. MsgBoxStyle.Information)
  65.  
  66.  
  67.    End Sub
  68.  
  69.    Private Function GetRoot(ByVal Adapter As String) As String
  70.        Dim regKey As Microsoft.Win32.RegistryKey
  71.        Dim i As Integer = 0
  72.  
  73.        Do
  74.            Dim Root As String = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
  75.            Dim Last As String = DoPadding(i)
  76.            regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Root & Last, True)
  77.  
  78.            Try
  79.                Dim cAdapter As String = regKey.GetValue("DriverDesc").ToString()
  80.                If cAdapter = Adapter Then
  81.                    Return Root & Last
  82.                End If
  83.            Catch
  84.                Exit Do
  85.            End Try
  86.            i += 1
  87.        Loop
  88.  
  89.  
  90.    End Function
  91.  
  92.  
  93.    Private Function IsOkay() As Boolean
  94.        If mac_text.Text = "" Then
  95.            MsgBox("You didn't enter a MAC Address", MsgBoxStyle.Critical)
  96.            Return False
  97.        End If
  98.  
  99.        Dim ed As String = mac_text.Text.Replace(":", "")
  100.  
  101.        If ed.Length <> 12 Then
  102.            MsgBox("A MAC Address must have a length of 12", MsgBoxStyle.Critical)
  103.            Return False
  104.        End If
  105.  
  106.        Try
  107.            If combo_network.SelectedItem.ToString = "" Then
  108.                MsgBox("No Network Adapter selected", MsgBoxStyle.Critical)
  109.                Return False
  110.            End If
  111.        Catch
  112.            MsgBox("No Network Adapter selected", MsgBoxStyle.Critical)
  113.            Return False
  114.        End Try
  115.  
  116.  
  117.        Dim noerror As Boolean = True
  118.        Dim i As Integer
  119.        For i = 0 To ed.Length - 1
  120.            If IsHex(ed.Substring(i, 1)) = False Then
  121.                MsgBox("MAC Address in wrong format", MsgBoxStyle.Critical)
  122.                Return False
  123.            End If
  124.        Next
  125.  
  126.        Return True
  127.    End Function
  128.  
  129.  
  130.    Private Function IsHex(ByVal l As String) As Boolean
  131.        Dim table As String = "0123456789ABCDEF"
  132.        Dim i As Integer
  133.        For i = 0 To table.Length - 1
  134.            If l = table.Substring(i, 1) Then
  135.                Return True
  136.            End If
  137.        Next
  138.        Return False
  139.    End Function
  140.  
  141.  
  142.    Private Sub bt_defaultmac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_defaultmac.Click
  143.        If IsOkay() = False Then
  144.            Exit Sub
  145.        End If
  146.        Dim regKey As Microsoft.Win32.RegistryKey
  147.        Dim Addr As String = GetRoot(combo_network.SelectedItem.ToString())
  148.        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)
  149.  
  150.        Try
  151.            regKey.DeleteValue("NetworkAddress")
  152.        Catch
  153.            'Do NOTHING
  154.        End Try
  155.        ShowRestart()
  156.    End Sub
  157.  
  158.    Private Sub bt_update_Click(sender As Object, e As EventArgs) Handles bt_update.Click
  159.        If IsOkay() = False Then
  160.            Exit Sub
  161.        End If
  162.        Dim regKey As Microsoft.Win32.RegistryKey
  163.        Dim Addr As String = GetRoot(combo_network.SelectedItem.ToString())
  164.        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)
  165.  
  166.        regKey.SetValue("NetworkAddress", mac_text.Text.Replace(":", ""))
  167.        ShowRestart()
  168.    End Sub
  169. End Class
  170.  
  171.  
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ... 32
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines