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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de 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 23 24 ... 32
81  Programación / .NET (C#, VB.NET, ASP) / Ayudita porfa con desconexión misteriosa !! Usando este Chat !! en: 13 Octubre 2016, 05:59 am
Amigos este chat es muy simple... lo que necesito comprobar es si despues de a ver pasado par de mensajes se cierra la conexión inesperadamente...

Como lo estoy probando y es de la manera que busco funcione no vale en el mismo sistema porq no es el escenario real para dejarlo funcionando..

Maquina virtual y host ambos con Windows 10

Levanto los programas da igual donde pongan el server o el cliente, manden par de mensajes y dejenlo asi por unos 3 min a lo mucho lo he probado con menos de 1 minuto, traten de enviar un mensaje a mi no me llega se cierra la conexion sin mas a ver si les sucede lo mismo y bueno ver si alguno logra ver que pasa porq no doy pie con bola.

No detecto ninguna excepcion a no ser cuando se cierra la conexión inesperadamente.

Salu2 y gracias cualquier ayuda

https://ufile.io/1dd4



 Holas, por aca bueno me acoste como a las 2 y algo de la madrugada probando otros codigos similares y sucede lo mismo, me he quedado perplejo ahora voy a mi trabajo para probarlo en un escenario real donde hat switch otros sistemas como win7, xp y les comento..

Salu2 y gracias cualquier ayuda

[MOD] No relizar doble post, usar el botón "modificar", para añadir comentarios.

[UPDATE]

La solución creo que esta aqui https://msdn.microsoft.com/en-us/library/e160993d(v=vs.110).aspx

La conexión hay que setearla como KEEPALIVE aún no lo tengo claro si alguien supiese como usarla o pudiese explicarla se lo voy agradecer, mientras sigo investigando.

Salu2 y Gracias

PD: Sorry el anterior doble post !!

[UPDATE 2]

Activar el KEEP_ALIVE mejora pero no soluciona el problema, no obstante encontré que el protocolo TCPIP no tiene definido que una conexión durará 1 min o 1 h, las pruebas que realizaba con mis Pc Virtuales tenían estaban comprometidas nada mas funcionaba entre las Pc virtuales, lo probé en un escenario real con 3 Pc y llegué a estar conectado 30 min sin pasar datos y todo OK.

Solucionada esta duda ahora comienzo con otra y es la lucha con el LAG como lidiar con conexiones con latencia.

Leyendo encontré que muchos usuarios cuando juegan des habilitan el TCP.Delay que es un control del TCPIP a la hora de transmitir paquetes esto causa un poco de latencia y según sus pruebas experimentan una gran mejora, esto se realiza sobre el socke en Google pueden localizarlo es bien sencillo, no obstante si alguien sabe algo sobre el tema agradecería compartiera.

Salu2
82  Sistemas Operativos / GNU/Linux / Problemita con iptable !! en: 8 Octubre 2016, 07:31 am
Hola tengo una duda con esta regla.

/sbin/iptables -P FORWARD ACCEPT
/sbin/iptables -A INPUT -m state --state INVALID -j DROP
/sbin/iptables -A INPUT -m state --state RELATED,ESTABLISHED -j ACCEPT
/sbin/iptables -A INPUT -i lo -j ACCEPT

/sbin/iptables -A INPUT -s 10.10.10.6 -j ACCEPT

/sbin/iptables -t nat -A POSTROUTING -s 10.10.10.6 -o eth1 -j SNAT --to 87.87.87.5
/sbin/iptables -t nat -A POSTROUTING -s 10.10.10.5 -o eth1 -j MASQUERADE

Con la última regla doy acceso a la ip 10.5 a que salga full y funciona de maravillas.

La que esta antes no me funciona yo necesito que la ip 10.6 solo pueda llegar a esta ip 87.87.87.5 que me esta faltanto..

GRacias de antemano
83  Programación / .NET (C#, VB.NET, ASP) / Lidiando con el LAG | TcpClient | TcpListener en: 5 Octubre 2016, 04:57 am
Hola amigos,

Tengo una pequeña situación con una aplicación cliente/servidor, verán su funcionamiento básico de conectarse y desconectarse esta sin problemas la cuestión es que a veces hay LAG y el cliente deja de comunicarse con el servidor por digamos 10 segundos, mas o menos da igual y entonces se desconecta, estoy leyendo acerca de esto en la RED buscando algo como darle un tiempo para que el socket se mantenga esperando señal del otro extremo.

Le añadi una opción de que cada 5 segundos mandara un signal y reciviera una respuesta como el PING y en algunos casos funciona en otros no.

Depurando el servidor encontré que cuando el cierra la conexión dice que se ha forzado la desconexion por la parte remota no obstante en el cliente aun sigue como conectado y al rato es que da el error de que se perdió la conexión...

Alguna idea

Gracias de antemano
84  Programación / .NET (C#, VB.NET, ASP) / Socket - Desconectando correctamente !! en: 23 Septiembre 2016, 20:17 pm
Código
  1. Public Class Form1
  2.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.  
  4.    End Sub
  5.  
  6.    Dim clientSocket As Socket
  7.    Dim byteData(1023) As Byte
  8.  
  9.    Private Sub OnConnect(ByVal ar As IAsyncResult)
  10.        clientSocket.EndConnect(ar)
  11.        clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
  12.    End Sub
  13.  
  14.    Private Sub OnDisconnect(ByVal ar As IAsyncResult)
  15.        Dim client As Socket = ar.AsyncState
  16.        client.EndDisconnect(ar)
  17.  
  18.        clientSocket.Close()
  19.        clientSocket = Nothing
  20.    End Sub
  21.  
  22.    Private Sub OnRecieve(ByVal ar As IAsyncResult)
  23.  
  24.        Dim client As Socket = ar.AsyncState
  25.        client.EndReceive(ar)
  26.        Dim bytesRec As Byte() = byteData
  27.        Dim message As String = System.Text.Encoding.ASCII.GetString(bytesRec)
  28.        Read(message)
  29.        clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
  30.  
  31.    End Sub
  32.  
  33.    Delegate Sub _Read(ByVal msg As String)
  34.    Private Sub Read(ByVal msg As String)
  35.        If InvokeRequired Then
  36.            Invoke(New _Read(AddressOf Read), msg)
  37.            Exit Sub
  38.        End If
  39.        RichTextBox1.Text &= msg
  40.    End Sub
  41.  
  42.  
  43.    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
  44.        clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
  45.        Dim ipAddress As IPAddress = IPAddress.Parse("127.0.0.1")
  46.        Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800)
  47.        clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing)
  48.    End Sub
  49.  
  50.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  51.        clientSocket.BeginDisconnect(False, New AsyncCallback(AddressOf OnDisconnect), clientSocket)
  52.    End Sub
  53. End Class

Cada vez que doy en el Boton desconectar me salta una exepcion en OnReceive de que el objeto esta Dispose, alguien me puede explicar porque es que se dispara ese evento.

Lo otro es que en el lado del servidor no se entera de que el socket fue cerrado, para que el se percatara de esto tendria que hacer una especie de thread cada cierto tiempo verificando si el socket esta vivo ??

Como explican aqui

http://stackoverflow.com/questions/722240/instantly-detect-client-disconnection-from-server-socket

Salu2

Lo que busco es detectar cuando un cliente se conecta y desconecta tanto para el cliente como el servidor.
85  Programación / .NET (C#, VB.NET, ASP) / Duda con BackgroundWorker ? en: 15 Septiembre 2016, 17:30 pm
Hola,

Que podria suceder para que una BW no se detuviera, le estoy dando la orden de cancelar y en el evento que se dispara cuando finaliza puse una variable publica que la voy comprobando con un while hasta que se haga true para poder continuar, llega bien hasta el Mywork.CancelAsync pero no se dispara el evento de que finalizo, verifique y tampoco sigue trabajando verificando ninguna de las funciones que tiene, cuando lo inicializo declaro que puede detenerse.

Es que necesito agregar a un array valores y en ese BW hay una funcion que cada cierto tiempo la usa para hacer comprobaciones.

Leyendo di con una funciona SymLock pero trate de usarla y me dio el mismo mensaje de que la coleccion ha sido modificada.

Edito: Podria ser que cuando hago el cancel no miro primero si esta ocupado (busy). ?
86  Programación / .NET (C#, VB.NET, ASP) / Duda haciendo resize a una imagen... en: 8 Septiembre 2016, 07:39 am
Código
  1.    Private Function Resize_Image(ByVal img As Image, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
  2.        Dim Bitmap_Source As New Bitmap(img)
  3.        Dim Bitmap_Dest As New Bitmap(CInt(Width), CInt(Height))
  4.        Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
  5.        Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
  6.        Return Bitmap_Dest
  7.    End Function

Porque no puedo eliminar la imagen source una vez que termina la operación dice que esta en uso.

Próbe con otros codigos que tengo que usan Using, tambien hize Dispose a cada imagen y nada sigue en uso..

Salu2
87  Comunicaciones / Redes / Duda configurando mis interfaces !! debian !! en: 7 Septiembre 2016, 06:06 am
Instale Debian Jessie y tengo configurada la eth0 y eth1 de la siguiente manera

eth0 (wan)
address 100.0.20.15
netmask 255.255.255.252
gateway 100.0.20.14

eth1 (lan)
address 192.168.20.8
netmask 255.255.255.0
network 192.168.20.0
broadcast 192.168.20.255

los dns son:
100.0.20.5
100.0.20.9

yo puse la misma configuracion de la wan en mi windows 7 y funciona de maravillas, no es problema de del isp, no logro resolver ningun dns si me pudieran orientar un poco..

Gracias de antemano
88  Programación / .NET (C#, VB.NET, ASP) / Wait For Application To Load en: 5 Septiembre 2016, 06:04 am
Hola,

Quería saber sobre el funcionamiento de este Snippet publicado por Elektro para esperar a que una aplicación termine de cargar..

Código
  1.  
  2. Timer_CheckCPU.Tag = "photoshop"          'Nombre del proceso a chequear
  3. Timer_CheckCPU.Enabled = True
  4. While Not Timer_CheckCPU.Tag = ""
  5.         Application.DoEvents()
  6. End While
  7.  
  8.  
  9. #Region " Wait For Application To Load "
  10.  
  11.    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
  12.    Private WithEvents Timer_CheckCPU As New Timer
  13.  
  14.    Dim Memory_Value_Changed As Boolean
  15.    Dim CPU_Changed As Boolean
  16.    Dim CPU_Time As Boolean
  17.    Dim Running_Time As Boolean
  18.    Private _desiredTime_ms As Integer = 1500
  19.  
  20.    Private Sub Timer_CheckCPU_Tick(sender As Object, ev As EventArgs) Handles Timer_CheckCPU.Tick
  21.        Timer_CheckCPU.Enabled = False
  22.        Dim pProcess() As Process = Process.GetProcessesByName(Timer_CheckCPU.Tag)
  23.        Dim hprocess As Process = pProcess(0)
  24.        If hprocess Is Nothing Then
  25.            Running = False
  26.            Timer_CheckCPU.Enabled = True
  27.            Return
  28.        End If
  29.        Running = True
  30.        Memory = hprocess.PrivateMemorySize64
  31.        CPUTotal = hprocess.TotalProcessorTime.TotalMilliseconds
  32.  
  33.        If AllConditionsGood() Then
  34.            If Not (_countdown.IsRunning) Then
  35.                _countdown.Reset()
  36.                _countdown.Start()
  37.            End If
  38.            Dim _elapsed As Long = _countdown.ElapsedMilliseconds
  39.            If _elapsed >= _desiredTime_ms Then
  40.                Timer_CheckCPU.Tag = ""
  41.                Return
  42.            End If
  43.        Else
  44.            _countdown.Reset()
  45.        End If
  46.        Timer_CheckCPU.Enabled = True
  47.    End Sub
  48.  
  49.    Private Function AllConditionsGood() As Boolean
  50.        If CPU_Time Then Return False
  51.        If Memory_Value_Changed Then Return False
  52.        If Running_Time Then Return False
  53.        Return True
  54.    End Function
  55.  
  56.    Private _countdown As New Stopwatch
  57.  
  58.    Private _Running As Boolean = False
  59.    Public WriteOnly Property Running() As Boolean
  60.        Set(ByVal value As Boolean)
  61.            _Running = value
  62.            If value Then
  63.                Running_Time = False
  64.            Else
  65.                Running_Time = True
  66.            End If
  67.        End Set
  68.    End Property
  69.  
  70.    Private _CPUTotal As Double
  71.    Public WriteOnly Property CPUTotal() As Double
  72.        Set(ByVal value As Double)
  73.            CPU = value - _CPUTotal 'used cputime since last check
  74.            _CPUTotal = value
  75.        End Set
  76.    End Property
  77.  
  78.    Private _CPU As Double
  79.    Public WriteOnly Property CPU() As Double
  80.        Set(ByVal value As Double)
  81.            If value = 0 Then
  82.                CPU_Time = False
  83.            Else
  84.                CPU_Time = True
  85.            End If
  86.            _CPU = value
  87.        End Set
  88.    End Property
  89.  
  90.    Private _Memory As Long
  91.    Public WriteOnly Property Memory() As Long
  92.        Set(ByVal value As Long)
  93.            MemoryDiff = Math.Abs(value - _Memory)
  94.            _Memory = value
  95.        End Set
  96.    End Property
  97.  
  98.    Private _MemoryDiff As Long
  99.    Public WriteOnly Property MemoryDiff() As Long
  100.        Set(ByVal value As Long)
  101.            If value = _MemoryDiff Then
  102.                Memory_Value_Changed = False
  103.            Else
  104.                Memory_Value_Changed = True
  105.            End If
  106.            _MemoryDiff = value
  107.        End Set
  108.    End Property
  109.  
  110. #End Region

Necesito verificar los modulos de ese proceso una vez que termine de cargar.. pero no me funciona me devuelve menos modulos de los esperados..

Gracias de antemano
89  Programación / .NET (C#, VB.NET, ASP) / Cambiando posición de un control aleatoriamente ! en: 29 Agosto 2016, 21:01 pm
Hola,

Estoy tratando de mover un Label dentro de las dimensiones de un Form, con el siguiente código pero estoy obteniendo un error de que debe ser un valor positivo en la parte de r.Next...

Código
  1.  
  2. Dim r As New Random()
  3.  
  4.            Dim x As Integer = r.Next(Me.ClientRectangle.Height - Label1.Width)
  5.            Dim y As Integer = r.Next(Me.ClientRectangle.Height - Label1.Height)
  6.            Dim p As New Point(x, y)
  7.  
  8.            Me.Label1.Location = p
  9.  
  10.        End If
  11.  
  12.  

Gracias cualquier ayuda..

Salu2
90  Informática / Electrónica / Caja decodificadora de señal digital a analogica una duda ? en: 26 Agosto 2016, 05:40 am
Holas,

Ayer estaba todo bien ya hoy cuando la enciendo se me queda la pantalla bloqueada no me muestra la hora ni responde a nada del mando...

La abri tan solo para mirar si tenia algo quemado a simple vista porque no se nada de electronica o tenia algun olor relacionado a eso y nada parece estar bien.

Mi pregunta es la misma tiene un puerto RS232 no tengo un cable a la mano pero mañana si lo conseguire, tengo pensado conectarlo a la caja y tratar de ver si dice u hace algo..

Me pueden dar un minimo tecnico de si estos aparatos tienen algun estandar a la hora de debuguearlos, comandos basicos, igual si me pudieran decir como es lo de la comunicacion por ese cable, tengo pensando hacerlo con un programa se llama Putty pero bueno nose como se trabajaria.

Gracias cualquier ayuda
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 32
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines