Temas

Hola

Tengo este codigo que funciona bien

Código (vbnet) [Seleccionar] Expandir


            Dim webStream As Stream
            Dim webResponse = ""
            Dim request As HttpWebRequest
            Dim res As HttpWebResponse
            cookies = New CookieContainer

            request = CType(WebRequest.Create("https://host/"), HttpWebRequest)
            request.Method = "GET"
            request.AllowAutoRedirect = True
            request.CookieContainer = cookies
            request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:60.0) Gecko/20100101 Firefox/60.0"
            request.Headers.Add("Upgrade-Insecure-Requests", "1")
            request.Headers.Add("Accept-Language", "es-ES,es;q=0.9")
            request.Host = "host"
            request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            request.KeepAlive = True
            res = CType(request.GetResponse(), HttpWebResponse) ' Send Request
            webStream = res.GetResponseStream() ' Get Response
            Dim webStreamReader As New StreamReader(webStream)
            While webStreamReader.Peek >= 0
                webResponse = webStreamReader.ReadToEnd()
            End While


Aqui el servidor me da una cookie que guardo en el container y la envio en un POST, pero ya despues el servidor me devuelve una cookie nueva y nose como almacenarla, este es el codigo del POST

Código (vbnet) [Seleccionar] Expandir


        ' Set the Method property of the request to POST. 
        request1.Method = "POST"
        request1.Host = "secure.etecsa.net:8443"
        request1.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:60.0) Gecko/20100101 Firefox/60.0"
        request1.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        request1.Referer = "https://secure.etecsa.net:8443/"
        ' Set the ContentType property of the WebRequest.
        request1.ContentType = "application/x-www-form-urlencoded"

        request1.CookieContainer = cookies
        request1.Connection = HttpRequestHeader.KeepAlive

        request1.Headers.Add("Accept-Encoding", "gzip, deflate, br")
        request1.Headers.Add("Accept-Language", "en-US,en;q=0.5")

        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(postData)

        ' Set the ContentLength property of the WebRequest. 
        request1.ContentLength = byteArray.Length
        ' Get the request stream. 
        Dim dataStream As Stream = request1.GetRequestStream
        ' Write the data to the request stream. 
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object. 
        'dataStream.Close()
        ' Get the response. 
        Dim response As WebResponse = request1.GetResponse()

        'request1.GetResponse().Close()

        ' Display the status. 
        'MessageBox.Show(CType(response, HttpWebResponse).StatusDescription)
        ' Get the stream containing content returned by the server. 
        dataStream = response.GetResponseStream
        ' Open the stream using a StreamReader for easy access. 
        Dim reader As StreamReader = New StreamReader(dataStream)
        ' Read the content. 
        Dim responseFromServer As String = reader.ReadToEnd
        ' Display the content. 
        'MessageBox.Show(responseFromServer)
        ' Clean up the streams. 
        reader.Close()
        dataStream.Close()
        response.Close()


Alguna idea??

Es que estoy seguro que para cerrar la sesion la voy a necesitar.

Saludos

Cual me recomiendan quizas alguna MOD con Plugins incluidos?

Que rule lo mejor posible con Windows 10

SAludos y gracias de antemano.

Hola,

Yo estoy buscando por la WEB no obstante si alguien tiene alguna paper o proyecto de ejemplo como enviar formularios web se lo voy agradecer.

Necesito lidiar con un portal cautivo, quiero automatizar el login y el deslogueo, cualquier sugerencia sera bienvenida.

GRacias

Hola,

Tengo un AirBnB y quisiera poder mejorar la calidad de mis fotos es que muchos colegas me han comentado que mas de la mitad de los AirBnB sus fotos estan retocadas en PhotoShop, pero yo de edicion de fotos noc mucho, alguna idea de como embellecer, darle ese toque a las fotos.

Algun sitio online con filtros de ese tipo.?

Saludos

Hola,

Alguien tiene algun videotuto o manual que explique bien como escanear las diversas frecuencias en y detectar cual es la menos saturada.

Tengo un NanoStation M2 (desde ahora M2) que sirve como AP.
4 Clientes que usan M2 y 1 Loco M2

Tengo un enlace de 2MB y me conecto a internet en los 5Ghz - 98CCQ - Ruido 99/101 (OK)

La red la tenia hasta hace poco en los 40Mhz y era insoportable, todos los clientes tenian conexiones similares:

CCQ  70/75
Ruido -85

Decidi cambiar a los 10Mghz

Puff

Los CCQ subieron abismalmente, la señal mejoro llegando a los -94/-101

Pero en consecuencia noto lentitud en la conexión.

Alguna sugerencia?

Quisiera regresar a los 40 pero quiero buscar bien en que frecuencia trabajar.

Si tengo 2MB como se interpreta esto entre 5 seria algo como 50Kb por cada estación?

Saludos

Hola,

Algun indicio quizas diferentes transitores, informacion en la BIOS, etc...

Saludos

Hola,

Tengo un AirBnB y las formas de pago que tienen es la siguiente:

Los métodos de pago que pueden estar disponibles incluyen:

    Las principales tarjetas de crédito y de prepago (Visa, MasterCard, American Express, Discover y JCB).
    Muchas tarjetas de débito, que pueden procesarse como tarjetas de crédito.
    PayPal, en algunos países.
    Alipay, solo en China.
    Postepay, solo en Italia.
    Sofort Überweisung, solo en Alemania.
    iDEAL, solo en los Países Bajos.
    Boleto Bancário, Hipercard, Elo y Aura, solo en Brasil.
    PayU, solo en la India.
    Google Pay (a través de nuestra aplicación para Android y solo disponible en EE. UU.).
    Apple Pay, solo a través de la aplicación para iOS.

Yo donde vivo no tengo la posibilidad de tenerla, mi pregunta es pues estuve averiguando que al hacer depositos en tarjetas como Visa al final de año en las declaraciones de impuesto ese dinero debes declararlo y o sea te jode al final, tengo una amistad que me la puede crear y darme la dichosa tarjeta pero estoy seguro que le va a joder al final de año alguna forma de que no le afecte?

O sea que si el sitio de AirBnB me hace un deposito mensual de $700 no le afecte a ella al final de año, escuche que quizas si no haces mas de una X cantidad de dinero no tienes porque declararlo, quizas si es algun tipo de tarjeta no credito por ejemplo.

Saludos

Saludos

[gugadev]

Hola,

Veran tengo una pagina donde hago una busqueda utiliazando un formulario y esta me devuelve unos parametros, necesito poder localizar uno, modificarlo para que se muestre correctamente, sucede que el formulario esta en un IFRAMe, Googleando encontre lo siguiente:

https://es.stackoverflow.com/questions/63045/c%C3%B3mo-analizar-el-contenido-de-un-iframe-dentro-de-mi-p%C3%A1gina-hecha-en-php

El IFrame no se encuentra en mi dominio, es externo tal y como sucede en la pagina que les muestro aqui, por lo que quiero hacer uso de la forma que plantea el usuario gugadev para resolver parte del problema.

Mis conocimientos son muy basicos en PHP y javascript, me surgen dudas, tratando de organizar el funcionamiento para solucionar esto:

- Supongo tengo que debo activar algun script ya sea cuando envie el formulario o cuando se reciba la respuesta del servidor para que haga la busqueda en el IFRAMe alguna idea de como hacer esto.

- Y lo otro seria modifcar los parametros para que se muestre correctamente.

No quiero la respuesa sino algun lugar para ir mirando yo estoy trasteando a ver que sale.

Saludos y gracias de antemano.

Hola,

Busco algo que sea FREE no tengo forma de pagarlo.

Saludos

hola,

Se preguntaran porque hago esta pregunta aqui, es porque sospecho que estan haciendo algun tipo de ataque para hackear, les comento mi situación...

Hasta hace par de dias estaba conectado sin problemas a un HotSpot y de repente o bien me conecto y desconecto constantemente o no me abre el portal cautivo para identificarme.

De lo que me he percatado es que no es siempre casi que por horarios.

Entonces para ir por partes con que herramienta puedo analizar lo que sucede.

Saludos y gracias de antemano.

Hola,

Pues eso voy a pasarme para Win10 y busco una version estable y actualizada.

Igual si saben como puedo descargar los updates para instalarlos offline se los voy agradecer...

Desde ya muchas gracias.

Saludos

["td"]

Hola,

Estoy tratando de buscar en una WEB un elemento "td", sucede que el mismo esta dentro de un "IFRAME" y al parecer buscar dentro de este se hace problemático cuando no esta en el mismo dominio que la pagina principal da un "ACCESS DENAID", creo que eso fue lo que entendí, si alguien fuera tan amable de confirmar esto se lo voy agradecer.

Otra solución que pensé fue en descargar la pagina tal y como hace el "Mozilla Firefox" que si la descarga con todos los elementos y entonces realizar la búsqueda desde allí, que creen.

Cualquier sugerencia viene bien

Saludos

Hola,

Estoy en 2 redes:

1 - Adquiero IP por DHCP
2 - Ip manual ó fija.

La de DHCP esta conectada a la internet la otra una red interna de juego.

Sucede que cuando solicito una pagina digamos:

http://webpage.reddejuego

Automáticamente me carga el portal cautivo de mi red conectada a internet, o sea que esa es la red principal.

Leyendo creo que tiene que ver con la métrica y en efecto la red de internet tiene una de 298 y la interna tiene 300.

Entonces si cambio la métrica se debe solucionar todo?

Saludos

Hola,

Tengo este modem...

Bus 001 Device 004: ID 0572:1300 Conexant Systems (Rockwell), Inc. SoftK56 Data Fax Voice CARP

Mi sistema es un Debian Jessie 8 version kernel 3.16.0-4-amd64

Quiero saber si este tutorial me sirve:

http://www.dreamcast.es/forum/viewthread.php?thread_id=1760

o este otro:

https://ubuntuforums.org/archive/index.php/t-1903439.html

Algo que tenga que tener en cuenta ?

Saludos y gracias

Hola,

Existe algun metodo para chatear usando correo electronico como pasarela.

Loguearse al facebook, chatear, revisar el muro, etc...

Saludos

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

Hola,

En mi casa logro usar el Connectify sin problema alguno incluso a traves de un acceso telefonico.

En el trabajo formatee todo de cero y no logro acceder a la red a traves del connectify, si acceso a todos los servicios de la Pc a la que me conecto, alguien tiene alguna idea de que puede ser, siempre lo he usado todo por defecto por lo que no entiendo que pueda estar pasando.

Saludos





Despues de trastear logre algo...

Instale el Proxifier que entre sus ventajas tiene de crear un camino para las muchas aplicaciones que no usan proxys, salgan a internet.

Active el servicio de Connectify para que interectue con el escritorio y en el proxifier veo un proceso que trata de conectarse a 192.168.22.1:80

Cuando en el celular estoy pidiendo 192.168.50.13 (Rango de mi adaptador local lan)

La Ip 192.168.22.1 es la del HOSTED NETWORK que crea el Connectify, o sea mi Pc local

Idea de porque esta haciendo esto.

Saludos




Solucione el problema creando la RED manualmente, estoy casi seguro que es algun conflicto de compatibilidad.

https://es.gizmodo.com/como-convertir-un-equipo-con-windows-10-en-un-hotspot-q-1724793991




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

Hola,

He probado varios programas bsucando que me guarden la X pagina web que yo desee correctamente tal y como lo abro en el navegador y no lo logro, cuando reviso lo que guarda faltan imagenes y esta desencuadrado y a veces no me descarga la URL que le indico mas bien el index del sitio.

Alguien sabe de alguno que lo haya testeado y por experiencia propia que haya funcionado.

Saludos

Hola,

Estoy usando un portal cautivo que una vez me logueo me muestra un timer.

Estoy casi seguro de que es con javascript este es el codigo

Código (javascript) [Seleccionar] Expandir




     //??????
  function $$(tt){return tt<10?"0"+tt : tt;};
  var today   = new Date();
  var hour  = $$(today.getHours() );
  var minu  = $$(today.getMinutes());
  var second= $$(today.getSeconds());
  var actime= 'null';
  if('notFound.jsp' != 'notFound.jsp')
  {
  var newWnd =window.open("notFound.jsp","_blank");newWnd.opener = null;
  }
       function set()
   {
var loginTime=parseInt((new Date().getTime()-today.getTime())/1000);
if(loginTime++ > 600000)
{
today =new Date() ;
//???????????,????!
alert("Ha iniciado sesión en una semana. Reajuste el tiempo.");
}
if(actime > 0)
{
    setonTime(actime);
    actime++;
}
else if(loginTime >0)
{
setonTime(loginTime);
}
}
  setInterval(set,1000);
  function setonTime(loginTime)
{
var hours   = 0;
var minutes = 0;
var seconds = 0;

hours = Math.floor(loginTime/3600);
minutes = Math.floor((loginTime%3600)/60);
seconds = loginTime%60;

if(hours <= 9)
{
hours="0"+hours;
}
if(minutes <= 9)
{
minutes="0"+minutes;
}
if(seconds <= 9)
{
seconds="0"+seconds;
}
var cdate = hours + ":" + minutes + ":" + seconds;
document.getElementById('onlineTime').innerHTML = cdate;
}
 
  var g_httpRequest        = null;

  var g_isSubmitLogout = false;

//???????
function windowExitFunc(e)
{
    var event= window.event||e;
try
{
if(g_isSubmitLogout)
{
return false;
}

var message = "Visitar otros sitios web en esta página le llevará fuera de línea de forma anormal. Para visitar otros sitios web, haga clic en Cancelar y abra una nueva página.";

if (event)
{
event.returnValue = message;
}

}
catch(e)
{
alert("alert window error!!!");
}
return true;
}

function userSubmitLogout()
{
if(!confirm("Se le desconectará. ¿Seguro que quieres cerrar sesión?"))
{
       return false;
}

logoutImpl();
return true;
}

function logoutImpl()
{
  pageOnunload();
}

function pageOnunload()
{
        //if(!g_httpRequest){ g_httpRequest = createHttpRequest(); }
        var cookieCheck = document.getElementById("removeCookie");
                var removeCookie = "1";
                if (cookieCheck && cookieCheck.checked == true) {
                    removeCookie = cookieCheck.value;
                }
         var g_httpRequest = createHttpRequest();
if (g_httpRequest == null)
         {
           alert("Se desconecta de forma anormal. Por favor, póngase en contacto con el administrador de la red.");
            return false;
         }
         else
         {
             var urlParam = "ATTRIBUTE_UUID=5F3ECF4FA52669B2A002632DAB1C1326&CSRFHW=8772d9aa7aaa9104f739acb0a1c7f7be"
                 + "&wlanuserip=10.190.17.43"
                 + "&ssid="
                     + "&loggerId=20180223233301814+aismelva@gmail.com"
                     + "&domain="
                     + "&username=aismelva@gmail.com"
                     + "&wlanacname="
                     + "&wlanmac="
                     +"&remove="+removeCookie;
             g_httpRequest.open("GET", "/LogoutServlet?CSRFHW=8772d9aa7aaa9104f739acb0a1c7f7be&" + urlParam, true);
             g_httpRequest.send();
              var isOut;
             g_httpRequest.onreadystatechange=function()
        {
        if (g_httpRequest.readyState==4 && g_httpRequest.status==200)
          {
          if(g_httpRequest.responseText.indexOf("SUCCESS") != -1)
          {
             if (g_httpRequest.responseText.indexOf("REMOVE_AUTHINFO_SUCCESS") != -1)
            {
                                    alert("???logout_result.removecookie.success???");
                                }
                                else if(g_httpRequest.responseText.indexOf("ERROR") != -1){
                                   alert("???logout_result.removecookie.fail???");
            }
               isOut = true;
          }
          else
          {
            isOut = true;
          }
          if(isOut == false)
  {
    alert("Se desconecta de forma anormal. Por favor, póngase en contacto con el administrador de la red.");
    return;
  }
  else if (isOut == null)
  {
    alert("Su red está desconectada. Compruébelo por favor.");
    g_isSubmitLogout = true;
     logoutToFirstPage();
    return;
  }
  // alert("???logout_result.logout_success???");
  g_isSubmitLogout = true;
  //window.location.replace("http://www.google.com");
  logoutToFirstPage();
          }
          else
          {
          if(g_httpRequest.readyState==4 && g_httpRequest.status != 200)
             {
              alert("request error "  + g_httpRequest.status);
              return false;
             }
          }
          }
       }
}
        function logoutToFirstPage()
        { 
        //[false alarm:Cross-Site Scripting: Reflected]
            window.location.href="/nauta_etecsa/OnlineURL/offline.jsp?CSRFHW=8772d9aa7aaa9104f739acb0a1c7f7be&lang="+'es_ES';
        }
         function IEkeydown(event)
{
    if ((event.keyCode == 8)||  //???????
    (event.keyCode == 114)||
    (event.keyCode == 116)||            //?? F5 ???
    (event.keyCode == 122))             //?? F12 ???
    {
       event.keyCode=0;
       event.returnValue=false;
    }

    if ((event.altKey)&& ((event.keyCode==37)||(event.keyCode==39))) // ?? Alt + -> ? Alt+ <-
    {
        event.returnValue=false;
    }

    if (event.ctrlKey ||(event.shiftKey)&&(event.keyCode==121)) //?? Ctrl ? ? shift+F10
    {
        event.returnValue=false;
    }
}

function FFkeydown(event)
{
        var key = event.which;
    if ((key == 8) || (key == 114)|| (key == 116)||  (key == 122))                      //???????(event.keyCode ==   8)||//?? F5 ???//?? F12 ???
    {
        key=0;
        event.preventDefault();
    }
            if ((event.altKey)&& ((key==37)||(key==39))) // ?? Alt + -> ? Alt+ <-
    {
        event.preventDefault();
    }
            if (event.ctrlKey ||(event.shiftKey)&&(key==121)) //?? Ctrl ? ? shift+F10
    {
        event.preventDefault();
    }
}
function windowKeyDown(e)
    {
    if (window.event)
        {
            var event = window.event;
                IEkeydown(event);
        }
        else
        {
      var event= e;
    FFkeydown(event);
    }
        }

function createHttpRequest()
{
        var request;
        try
        {
            request = new XMLHttpRequest();
        }
        catch (trymicrosoft)
    {
            try
            {
                request = new ActiveXObject("Microsoft.XMLHTTP");
            }
            catch (failed)
            {
                try
                {
                    request = new ActiveXObject("Msxml2.XMLHTTP");
                }
                catch (othermicrosoft)
                {
                    request = null;
                }
            }
        }
        return request;
}

        function windowOnunload()
{
    if (!g_isSubmitLogout)
    {
        logoutImpl();
    }
}

function updateAvailableTime()
{
var g_httpRequest = createHttpRequest();
    if (g_httpRequest == null)
            {
            alert("Actualización disponible tiempo falle.");
            return;
          }
          else
          {
            g_httpRequest.open("post", "/EtecsaQueryServlet?CSRFHW=8772d9aa7aaa9104f739acb0a1c7f7be&op=getLeftTime&op1=aismelva@gmail.com&op2=F2DFE7165C25BE8CE34BF00BB73D318F217D582CDF1E174E4EAE42B6496E2FFC", true);
            g_httpRequest.send();
            g_httpRequest.onreadystatechange=function()
            {
            if (g_httpRequest.readyState==4 && g_httpRequest.status==200)
            {
            //?????????
            var responseText = g_httpRequest.responseText;
            if (responseText.indexOf("errorop") != -1)
            {
                alert("Actualización disponible tiempo falle.");
                document.getElementById("availableTime").innerHTML = "--:--:--";
                return;
            }
            //????
            document.getElementById("availableTime").innerHTML = responseText;
           
            }
            else if(g_httpRequest.readyState==4 && g_httpRequest.status != 200)
            {
              alert("request error "  + g_httpRequest.status);
              return false;
            }
            }
          }
}


Es posible al yo pinchar en el boton de cerrar la session manipular el tiempo consumido.

Saludos

Hola,

He visto unos cuantos pero el que me interesa es de pago.

Alguno que me permita monitorear los USB y bloquearlos con password, ademas de añadir pendrivers de confianza..

Saludos

Holas,

Me baje este codigo de internet que funciona muy bien

Código (vbnet) [Seleccionar] Expandir


Public Shared Function CheckForInternetConnection() As Boolean
   Try
       Using client = New WebClient()
           Using stream = client.OpenRead("http://www.google.com")
               Return True
           End Using
       End Using
   Catch
       Return False
   End Try
End Function


Mi preocupación es que me ha dado unos falsos positivos en mi Red tengo un portal cautivo me preocupa que al verificar la URL este le devuelva el portal y lo tome como un si en esta función.

Una solución podría ser verificar las cabeceras ¿?

Saludos

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

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



#!/usr/bin/perl
$mirror = "m.facebook.com";

$| = 1;
while (<>) {
    @line = split;
    $_ = $line[0];
    if (m/^http:\/\/((?:[a-z0-9]+\.)?\.facebook\.com )\/(.*)/ &&
        $1 ne $mirror) {
        print "http://" . $mirror . "/" . $2 . "\n";
    } else {
        print $_ . "\n";
    }
}




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...

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

Hola,

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

Código (vbnet) [Seleccionar] Expandir



Public Sub ConnectAsync(request As AuthRequest, Optional overwriteProfile As Boolean = False, Optional onConnectComplete As Action(Of Boolean) = Nothing)

'Este es el procedimiento de una clase que lo llamo desde

AccessPoint.ConnectAsync(resquest, False, OnConnectComplete)

'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
'cuando lo dejo asi (forzado) me dice que ConnectAsync no devuelve nada y realmente me dejo pasmao con ese mensaje

   Sub OnConnectComplete(Optional isConnected As Boolean = True)

        If isConnected = True Then
            txtLog.AppendText("Conexión completada." & vbCrLf)
        End If

    End Sub



Lo que quiero es que una vez conectado me avise.

Saludos y gracias cualquier sugerencia

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

client.Disconnect(New ProgressHandler)

y

terminar con

Código (vbnet) [Seleccionar] Expandir

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


Imports Bitvise.FlowSshNet


Public Enum ExitCodes
    Success = 0
    UsageError = 1
    SessionError = 2
    FatalError = 3
End Enum

Public Enum DisconnectReason
    Exception = 0
    FlowError = 1
    ConnectionError = 2
    ConnectionLost = 3
    ByServer = 4
    ByClient = 5
End Enum

Public Class MyClient
    Inherits Client


    Dim aTimer As New System.Timers.Timer

    Private Sub tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        aTimer.Stop()
        FlowSshNet_VbTnl.Main()
    End Sub

    Public Sub New()
        AddHandler OnHostKey, AddressOf OnMyHostKey
        AddHandler OnForwardingLog, AddressOf OnMyForwardingLog
        AddHandler OnDisconnect, AddressOf OnMyDisconnect

        AddHandler aTimer.Elapsed, AddressOf tick
    End Sub

    Sub Main()
        aTimer.AutoReset = True
        aTimer.Interval = 10000 '10 seconds
    End Sub

    Public Sub OnMyDisconnect(ByVal sender As Object, ByVal reason As DisconnectReason, ByVal desc As String)
        aTimer.Start()

    End Sub

    Public Function OnMyHostKey(ByVal sender As Object, ByVal publicKey As PublicKey) As Boolean
        Console.WriteLine("Received the following host key: ")
        Console.WriteLine("  MD5 Fingerprint: {0}", publicKey.GetMd5())
        Console.WriteLine("  Bubble-Babble: {0}", publicKey.GetBubbleBabble())
        Console.WriteLine("  SHA-256: {0}", publicKey.GetSha256())
        Return True
    End Function

    Public Sub OnMyForwardingLog(ByVal sender As Object, ByVal log As ForwardingLog)
        Console.WriteLine(log.Desc)
    End Sub

End Class


Module FlowSshNet_VbTnl

    Sub OnUncaughtExceptionInEvent(ByVal sender As Object, ByVal fatal As Boolean, ByVal e As System.Exception)
        Console.WriteLine("Error: {0}", e.ToString())
        Environment.Exit(ExitCodes.FatalError)
    End Sub

    Function Main() As Integer
        Try

            AddHandler SshNet.OnExceptionInEvent, AddressOf OnUncaughtExceptionInEvent

            Dim client As MyClient = New MyClient
            client.SetAppName("FlowSshNet_VbTnl")
            client.SetHost("1.1.1.1")
            client.SetPort(22)
            client.SetUserName("user")
            client.SetPassword("password")

            client.SetProxyType(ProxyType.HttpConnect)
            client.SetProxyHost("1.1.1.5")
            client.SetProxyPort("8080")
            client.SetProxyUserName("userproxy")
            client.SetProxyPassword("userpass")

            Dim progress As ProgressHandler = New ProgressHandler
            client.Connect(progress)
            progress.WaitDone()

            If Not progress.Success() Then
                Dim connectStep As UInt32 = progress.GetTaskSpecificStep()
                Dim auxInfo As String = progress.GetAuxInfo()
                Dim connErr As String = ProgressHandler.DescribeConnectError(connectStep, auxInfo)
                Console.WriteLine("{0}", connErr)
            Else

                Dim proxy As ProxyForwarding = New ProxyForwarding
                proxy.ListInterface = "127.0.0.1"
                proxy.ListPort = 1080

                Dim enableProxyHandler As ForwardingHandler = New ForwardingHandler
                client.EnableProxyForwarding(proxy, enableProxyHandler)

                enableProxyHandler.WaitDone()
                If (enableProxyHandler.Success()) Then
                    Console.WriteLine("Proxy forwarding enabled, listening port: {0}", enableProxyHandler.GetListPort().ToString())
                Else
                    Console.WriteLine("Error enabling proxy forwarding: {0}", enableProxyHandler.GetError().Desc)
                End If

                Console.WriteLine("Press Esc to stop forwarding")
                While Console.ReadKey(True).Key <> ConsoleKey.Escape
                End While

                If (enableProxyHandler.Success()) Then
                    Dim handler As ForwardingHandler = New ForwardingHandler
                    client.DisableProxyForwarding(handler)

                    handler.WaitDone()
                    If (handler.Success()) Then
                        Console.WriteLine("Proxy forwarding disabled")
                    Else
                        Console.WriteLine("Error disabling proxy forwarding: {0}", handler.GetError().Desc)
                    End If
                End If

                client.Disconnect(New ProgressHandler)

                Console.WriteLine("Press Esc to exit")
                While Console.ReadKey(True).Key <> ConsoleKey.Escape
                End While

            End If

        Catch e As System.Exception
            Console.WriteLine(e.Message)
            Return ExitCodes.FatalError
        Finally
            SshNet.Shutdown()
        End Try

        Return ExitCodes.Success
    End Function

End Module



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

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

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

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

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 !

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 !

Hola,

Pueden decirme su experiencia con el sitio tienen buenas ofertas igual si conocen otro sitio y pudieran compartir para comprar gangas se los agradecere...

Encontre esta otra diganme que piensan !!

https://slickdeals.net/deals/phone/

Saludos

Hola,

Este FireWall no me pincha como quiero, veran yo quiero permitir unica y exclusivamente que una aplicación tenga comunicación con el exterior y tengo que el proceso svchost.exe tambien sale por reglas que por defecto este firewall tiene concedidas...

Que Firewall me recomiendan para poder bloquear todos los procesos excepto el que quiero que salga a internet !!

Saludos

Hi gente,

Alguien sabe donde puedo conseguir los soundtracks que usan en los Vines de Youtube !!

Saludos y gracias

Holas,

Quiero poder ver la TV en el PC pero no solo parar ahi, quisiera que mis colegas que estan en la misma RED puedan sintonizarla con algun programa....

Alguien sabe o tiene idea de por donde tengo que ir viendo ??

Saludos

Holas,

Me conecto a un router via wireless con un Nano M2 el mismo lo tengo conectado a un Switch al que varios amigos y yo estamos conectados asi todos podemos acceder a la red, para acceder a internet tenemos que identificarnos en el portal cautivo que el me muestra, la cuestion es que cuando alguien se loguea todos automaticamente tenemos internet.

Si no me equivoco lo que sucede es que tengo configurado el Nano M2 en modo cliente asi que cuando se conecta al router este le entrega una IP y todos salimos a traves de esa IP hacia el router, supongo que tendria que configurarlo modo puente (bridge) para solucionar esto, asi cuando alguien quiera navegar tenga que autentificarse obligatoriamente. Aclarenme esto porfavor !!

Lo otro que quisiera es saber si es posible usar el escenario anterior a mi favor, veran yo quisiera que todos mis amigos se autentificaran pero yo no tener que hacer si es que hay alguien conectado ya, como podria echar andar esto, desde ya muchas gracias cualquier ayuda.

holas,

Amigos quiero realizar un sitio web para reservas de viajes, rentas de carros, alquiler de habitaciones, que me sugieren...

Salu2 y gracias de antemano

Hola,

Si alguien pudiera recomendarme algun servicio que pueda contratar o sea gratis para hacer llamadas por internet...

Salu2 y gracias

Holas,

Noc porque me parece que hay un router wifi que cuando me conecto desde el movil no tiene problemas pero cuando lo hago desde mi Bullet se pone extremadamente majadero no me deja navegar es un lio.

Mi duda es si quizas no el router mas bien alguna regla del proveedor que tiene creada para diferenciar si es un movil o no, esto es posible determinarlo, quizas la transferencia o algun dato...

Como puedo simular ser un movil, pense en copiar mi MAC del cel y clonarla en el Bullet asi como el nombre del CEL como ya me he conectado varias veces sin problemas, quizas funcione..

Alguna sugerencia..

PD: Me logro conectar con el Bullet sin problemas loc porq me entrega IP el ROUTER pero no logro que me muestre nada cuando navego.. estoy seguro de que lo tengo bien configurado porq un amigo mio lo tiene trabajando en otro lado sin problemas.. con la misma configuración..

Salu2 y gracias cualquier ayuda..

En el form principal (frmprin) declare

Código (vbnet) [Seleccionar] Expandir

Private WithEvents mysocket As ShadowMud.Sockets.AsyncSocket

Necesito acceder a ella desde una clase, no lo declare Shared porque tengo que hacer muchos cambios en Sub que trabajan con el desde el form, por lo que declare otra variable similar pero Shared

Código (vbnet) [Seleccionar] Expandir

Private Shared WithEvents samesocket As ShadowMud.Sockets.AsyncSocket

En un Sub

Código (vbnet) [Seleccionar] Expandir

Sub X

'Ya mysocket fue inicializado en otro Sub

samesocket = mysocket

End Sub

Desde la clase:

Sub Y

frmprin.samesocket.enviar("lolololo")

End Sub

No creo una varible en la misma clase porque esta lo que guarda es el estado de una conexión TCPIP y necesito utilizar esa misma para enviar datos.

Gracias cualquier ayuda..

Salu2

[NUEVA INFORMACIÓN]

Hola,

Bueno ahorita haré una tesis de esta situación que me tiene bastante intrigado, verán estoy diseñando una aplicación cliente/servidor muy simple estilo chat, pero me sucede que al pasar cierto tiempo sin enviar información entre las 2 partes el servidor me genera este error:

"An existing connection was forcibly closed by the remote host"

Antes de continuar quisiera decir que cuando programaba con VB6 usaba el control WINSOCK y nunca me paso esto en los varios proyectos de troyanos y aplicaciones similares que desarrollé, bueno continuando buscando información por la RED encuentro que esto no es nada nuevo hay muchísimos temas similares sin alguna solución clara, por lo que preguntó:

Cuando el cliente y el servidor se conectan entre si esta conexión tiene un tiempo de vida sentenciado sin transmitir datos entre ellos ??

En algunos lados dicen que si en otros que no, como en el siguiente fragmento sacado de:

https://social.msdn.microsoft.com/Forums/en-US/013fba11-2842-4535-bfa6-2d934a582b15/issues-with-persistent-socket-connections?forum=netfxnetcom

"There is no idle timeout on TCP (especially on Windows).  There are error timeouts but no idle timeouts.
I have two programs connected sending no data, and the connection stays open for hours..." y muestra un progreso del tiempo que dicha aplicación lleva conectado...

En otras dicen que implemente un heartbeat para que no se cierre la conexión, esto lo hice y mejoro pero no solucionó el problema y se que es un problema con la conexión de mi aplicación porque cuando jugamos MW3 o BF3 veo que tienen LAG o perdida de paquetes pero no se desconectan, entonces amigos me pueden decir por donde puedo mirar para dar con la solución.

PD: Volveré a mirar pero estoy casi seguro de que el BF3 no usa KEEPALIVE en sus conexiones, si vi que utiliza el protocolo UDP y TCP sino me equivoco, las pruebas con mi aplicación las estoy realizando en maquinas virtuales sin SWITCH's ni ROUTER's y aún asi se caen., probe varias aplicaciones similares a la que diseñe y sucede lo mismo, actualmente estoy desarrollando en VB.NET

Salu2 y gracias de antemano cualquier sugerencia.

NUEVA INFORMACIÓN

El laboratorio que estoy usando consta de 2 Pc Virtuales (1 WindowsXP) (1 Windows 10) y la principal (Windows 10)

En el Windows XP monte el servidor y desde las otras 2 me conecte, las deje por unos minutos y me dispuse a escribir cosas aleatoriamente para ver si los mensajes llegaban, los resultados son que, la comunicación nada mas se interrumpe con el sistema principal las 2 virtuales se siguen comunicando aun pasado 20 min inactivos.

Orita subo las imagenes del WireShark, es normal que las Pc virtuales sigan como si nada y la principal pierda la conexión estoy pensando en formatear.

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

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