Mensajes

Hola,

Pues si funciona fue un error al parecer del sistema estaba mareado disculpa la demora.

Saludos

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 (vbnet) [Seleccionar] Expandir



Imports System.Management

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillNetworkAdapters()
    End Sub

    Private Sub FillNetworkAdapters()
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Dim strAdapter As String
                strAdapter = mo.Item("Caption").ToString().Substring(11)

                combo_network.Items.Add(strAdapter)
            End If
        Next
    End Sub

    Private Function GetMACAddress(ByVal Adapter As String) As String
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Dim strAdapter As String
                strAdapter = mo.Item("Caption").ToString().Substring(11)
                If strAdapter = Adapter Then
                    Return mo.Item("MacAddress").ToString()
                End If
            End If
        Next
    End Function


    Private Sub combo_network_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo_network.SelectedIndexChanged
        label_mactext.Text = GetMACAddress(combo_network.SelectedItem.ToString)
    End Sub

    Private Function DoPadding(ByVal x As String) As String
        Dim Ret As String
        Dim z As Integer

        Ret = x
        If Len(x) < 4 Then
            For z = 1 To 4 - Len(x)
                Ret = "0" & Ret
            Next
        End If

        Return Ret
    End Function


    Private Sub ShowRestart()
        Dim res As MsgBoxResult = MsgBox("Your MAC Address has been
changed. In order to make the changes take effect, either restart your
computer or enable and disable the changed Network Adapter.",
MsgBoxStyle.Information)


    End Sub

    Private Function GetRoot(ByVal Adapter As String) As String
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim i As Integer = 0

        Do
            Dim Root As String = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
            Dim Last As String = DoPadding(i)
            regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Root & Last, True)

            Try
                Dim cAdapter As String = regKey.GetValue("DriverDesc").ToString()
                If cAdapter = Adapter Then
                    Return Root & Last
                End If
            Catch
                Exit Do
            End Try
            i += 1
        Loop


    End Function


    Private Function IsOkay() As Boolean
        If mac_text.Text = "" Then
            MsgBox("You didn't enter a MAC Address", MsgBoxStyle.Critical)
            Return False
        End If

        Dim ed As String = mac_text.Text.Replace(":", "")

        If ed.Length <> 12 Then
            MsgBox("A MAC Address must have a length of 12", MsgBoxStyle.Critical)
            Return False
        End If

        Try
            If combo_network.SelectedItem.ToString = "" Then
                MsgBox("No Network Adapter selected", MsgBoxStyle.Critical)
                Return False
            End If
        Catch
            MsgBox("No Network Adapter selected", MsgBoxStyle.Critical)
            Return False
        End Try


        Dim noerror As Boolean = True
        Dim i As Integer
        For i = 0 To ed.Length - 1
            If IsHex(ed.Substring(i, 1)) = False Then
                MsgBox("MAC Address in wrong format", MsgBoxStyle.Critical)
                Return False
            End If
        Next

        Return True
    End Function


    Private Function IsHex(ByVal l As String) As Boolean
        Dim table As String = "0123456789ABCDEF"
        Dim i As Integer
        For i = 0 To table.Length - 1
            If l = table.Substring(i, 1) Then
                Return True
            End If
        Next
        Return False
    End Function


    Private Sub bt_defaultmac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_defaultmac.Click
        If IsOkay() = False Then
            Exit Sub
        End If
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim Addr As String = GetRoot(combo_network.SelectedItem.ToString())
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)

        Try
            regKey.DeleteValue("NetworkAddress")
        Catch
            'Do NOTHING
        End Try
        ShowRestart()
    End Sub

    Private Sub bt_update_Click(sender As Object, e As EventArgs) Handles bt_update.Click
        If IsOkay() = False Then
            Exit Sub
        End If
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim Addr As String = GetRoot(combo_network.SelectedItem.ToString())
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)

        regKey.SetValue("NetworkAddress", mac_text.Text.Replace(":", ""))
        ShowRestart()
    End Sub
End Class



Hola,

Alguien tiene algun tutorial para generar trafico organico hacia mis web, estuve leyendo varios del 2016 y no logro encontrar el sitio flysbird.com

Saludos y gracias cualquier ayuda

Algo como eso estaba tejiendo mi mente.

Probare con el comando Who.

Alguna idea de porque no me mostraba todas las conexiones con el comando pasado ?

Tienes algun ejemplo en el cual me pueda apoyar para hacer el script de todas formas voy googleando...

Saludos y gracias

Bueno encontre algo con el comando

last | grep ppp

Puedo ver las conexiones realizadas y el tiempo en linea lo curioso es que no me muestra todas las conexiones osea ayer yo hice conexiones via modem y no me pone nada, ahora mismo estoy conectado y hoy mismo me he conectado varias veces y no me las pone.

Alguna idea ??

Hola,

Lo que quisiera es saber como puedo consultar el tiempo en el que un usuario se logueo y cuando cerro sesion, quiero detectar el tiempo que estuvo en linea en cada momento.

Quizas con PAM ?

Me refiero a conectarse via modem a mi servidor ras con Mgetty en Debian

Necesito ponerle una cuota de tiempo diaria !

Ok lo miraré y te cuento

Hola,

Gracias por la pronta respuesta me dices que hago con eso, hay otras reglas que obvie relacionadas con mi correo y proxy, con esto te digo que el iptables funciona solo q no logro conectarme a los servidores de TeamViewer.

Hola,

Veran necesito utilizar la aplicacion TeamViewer que usa el puerto 5938 estoy conectandome con el Putty y haciendo forwading y no se conecta le añadi estas reglas y tampoco me funciona cuando hago un log del IPTABLE me dice CONNECTION FAILED alguien me puede ayudar

*mangle
:PREROUTING ACCEPT [279:24776]
:INPUT ACCEPT [278:24700]"
:FORWARD ACCEPT [0:0]
:OUTPUT ACCEPT [304:165606]
:POSTROUTING ACCEPT [305:165682]
COMMIT

*nat
:PREROUTING ACCEPT [9:508]
:POSTROUTING ACCEPT [8:593]
:OUTPUT ACCEPT [8:593]
COMMIT

*filter
:FORWARD ACCEPT [0:0]
:INPUT ACCEPT [0:0]
:OUTPUT ACCEPT [0:0]

# permitir todas las conexiones locales
-A INPUT -i lo -j ACCEPT
# permitir las conexiones establecidas
-A INPUT -m state --state ESTABLISHED -j ACCEPT

#TeamViewer
-A INPUT -p tcp -m tcp -s 185.188.32.0/24 -d IPSERVERLOCAL --dport 5938 -j ACCEPT
-A INPUT -p tcp -m tcp -s 217.146.26.212 -d IPSERVERLOCAL --dport 5938 -j ACCEPT
-A INPUT -p tcp -m tcp -s 185.188.32.0/24 -d IPDEMIPC --dport 5938 -j ACCEPT
-A INPUT -p tcp -m tcp -s 217.146.26.212 -d IPDEMIPC --dport 5938 -j ACCEPT


# denegar todo lo demás
-A INPUT -j DROP

COMMIT

Esos SOURCE son las ip de

Varios master16.teamviewer.com el numero varia (master13 - master14 - etc)

La otra IP

ping3.teamviewer.com

Gracias cualquier ayuda..

hola,

He hablado con varios colegas que estan en el mundo del unlocking y me dicen que T-Mobile tiene su servicio para hacer el Unlock detenido los servidores parados u algo asi, alguien sabe que pasa y porque ocurre esto.

Saludos y gracias de antemano !