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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Temas
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ... 35
31  Programación / .NET (C#, VB.NET, ASP) / Funcion en javascript adaptarlo a VB.NEt ! en: 4 Julio 2020, 04:14 am
Hola,

El siguiente codigo lo que hace es medir la velocidad de subida y descarga (SpeedTest) quisiera adaptarlo a Vb.Net de ser posible o me sugieren ejecutarlo directo desde la Web

Código
  1. //INITIALIZE SPEEDTEST
  2. var s=new Speedtest(); //create speedtest object
  3. s.setParameter("telemetry_level","basic"); //enable telemetry
  4.  
  5. var meterBk=/Trident.*rv:(\d+\.\d+)/i.test(navigator.userAgent)?"#EAEAEA":"#80808040";
  6. var dlColor="#6060AA",
  7. ulColor="#616161";
  8. var progColor=meterBk;
  9.  
  10. //CODE FOR GAUGES
  11. function drawMeter(c,amount,bk,fg,progress,prog){
  12. var ctx=c.getContext("2d");
  13. var dp=window.devicePixelRatio||1;
  14. var cw=c.clientWidth*dp, ch=c.clientHeight*dp;
  15. var sizScale=ch*0.0055;
  16. if(c.width==cw&&c.height==ch){
  17. ctx.clearRect(0,0,cw,ch);
  18. }else{
  19. c.width=cw;
  20. c.height=ch;
  21. }
  22. ctx.beginPath();
  23. ctx.strokeStyle=bk;
  24. ctx.lineWidth=12*sizScale;
  25. ctx.arc(c.width/2,c.height-58*sizScale,c.height/1.8-ctx.lineWidth,-Math.PI*1.1,Math.PI*0.1);
  26. ctx.stroke();
  27. ctx.beginPath();
  28. ctx.strokeStyle=fg;
  29. ctx.lineWidth=12*sizScale;
  30. ctx.arc(c.width/2,c.height-58*sizScale,c.height/1.8-ctx.lineWidth,-Math.PI*1.1,amount*Math.PI*1.2-Math.PI*1.1);
  31. ctx.stroke();
  32. if(typeof progress !== "undefined"){
  33. ctx.fillStyle=prog;
  34. ctx.fillRect(c.width*0.3,c.height-16*sizScale,c.width*0.4*progress,4*sizScale);
  35. }
  36. }
  37. function mbpsToAmount(s){
  38. return 1-(1/(Math.pow(1.3,Math.sqrt(s))));
  39. }
  40. function format(d){
  41.    d=Number(d);
  42.    if(d<10) return d.toFixed(2);
  43.    if(d<100) return d.toFixed(1);
  44.    return d.toFixed(0);
  45. }
  46.  
  47. //UI CODE
  48. var uiData=null;
  49. function startStop(){
  50.    if(s.getState()==3){
  51. //speedtest is running, abort
  52. s.abort();
  53. data=null;
  54. I("startStopBtn").className="";
  55. initUI();
  56. }else{
  57. //test is not running, begin
  58. I("startStopBtn").className="running";
  59. I("shareArea").style.display="none";
  60. s.onupdate=function(data){
  61.            uiData=data;
  62. };
  63. s.onend=function(aborted){
  64.            I("startStopBtn").className="";
  65.            updateUI(true);
  66.            if(!aborted){
  67.                //if testId is present, show sharing panel, otherwise do nothing
  68.                try{
  69.                    var testId=uiData.testId;
  70.                    if(testId!=null){
  71.                        var shareURL=window.location.href.substring(0,window.location.href.lastIndexOf("/"))+"/results/?id="+testId;
  72.                        I("resultsImg").src=shareURL;
  73.                        I("resultsURL").value=shareURL;
  74.                        I("testId").innerHTML=testId;
  75.                        I("shareArea").style.display="";
  76.                    }
  77.                }catch(e){}
  78.            }
  79. };
  80. s.start();
  81. }
  82. }
  83. //this function reads the data sent back by the test and updates the UI
  84. function updateUI(forced){
  85. if(!forced&&s.getState()!=3) return;
  86. if(uiData==null) return;
  87. var status=uiData.testState;
  88. I("ip").textContent=uiData.clientIp;
  89. I("dlText").textContent=(status==1&&uiData.dlStatus==0)?"...":format(uiData.dlStatus);
  90. drawMeter(I("dlMeter"),mbpsToAmount(Number(uiData.dlStatus*(status==1?oscillate():1))),meterBk,dlColor,Number(uiData.dlProgress),progColor);
  91. I("ulText").textContent=(status==3&&uiData.ulStatus==0)?"...":format(uiData.ulStatus);
  92. drawMeter(I("ulMeter"),mbpsToAmount(Number(uiData.ulStatus*(status==3?oscillate():1))),meterBk,ulColor,Number(uiData.ulProgress),progColor);
  93. I("pingText").textContent=format(uiData.pingStatus);
  94. I("jitText").textContent=format(uiData.jitterStatus);
  95. }
  96. function oscillate(){
  97. return 1+0.02*Math.sin(Date.now()/100);
  98. }
  99. //update the UI every frame
  100. window.requestAnimationFrame=window.requestAnimationFrame||window.webkitRequestAnimationFrame||window.mozRequestAnimationFrame||window.msRequestAnimationFrame||(function(callback,element){setTimeout(callback,1000/60);});
  101. function frame(){
  102. requestAnimationFrame(frame);
  103. updateUI();
  104. }
  105. frame(); //start frame loop
  106. //function to (re)initialize UI
  107. function initUI(){
  108. drawMeter(I("dlMeter"),0,meterBk,dlColor,0);
  109. drawMeter(I("ulMeter"),0,meterBk,ulColor,0);
  110. I("dlText").textContent="";
  111. I("ulText").textContent="";
  112. I("pingText").textContent="";
  113. I("jitText").textContent="";
  114. I("ip").textContent="";
  115. }
  116. </script>
  117.  

Si quieren subo el sitio completo.. es bien simple..

Saludos y gracias cualquier sugerencia..
32  Seguridad Informática / Hacking / Portal Cautivo, quizas ¿? en: 1 Julio 2020, 23:07 pm
Hola,

En mi red local estoy enseñando la importancia de ver cuando la pagina a la que ingresas tus credenciales esta cifrada y comprender los mensajes del navegador acerca de sobre si el sitio es de confianza o no... quiero elaborar un experimento...

Tengo acceso al router principal y quisiera clonar un portal cautivo al que tenemos acceso que nos da internet para asi poder demostrar mi punto...

Que me recomiendan...

Pense redireccionar todo los paquetes desde el router hacia mi Pc con Kali Linux y supongo clonar el portal...

Ideas y que herramientas debo ver..

Saludos
33  Programación / Ingeniería Inversa / Ayuda para trabajar en Windows 10 !! en: 21 Junio 2020, 21:27 pm
Si pudieran ayudarme que software puedo usar para la ingenieria inversa en windows 10 64x y algun tuto para familiarizarme con la herramienta..

Saludos
34  Programación / .NET (C#, VB.NET, ASP) / Eliminando ip duplicadas !! en: 10 Marzo 2020, 08:30 am
Hola,

Tengo este codigo que me da todas las IPv4 pero necesito eliminar las duplicadas y me da error pues no puede convertir IPAddress to String...

Código
  1.  
  2. Dim myClientMachineAddressList As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
  3. Dim myClientMachineIP = myClientMachineAddressList.AddressList.Where(Function(a) a.AddressFamily = AddressFamily.InterNetwork).ToArray()
  4.  
  5. 'El codigo para elminar duplicados es el siguiente pero no logro adaptarlo
  6.  
  7. Dim int32List As New List(Of String)
  8.  
  9. int32List = myClientMachineIP.Distinct(EqualityComparer(Of Integer).Default).ToArray
  10.  
  11.  

A lo mejor y puedo hacerlo directo con myClientMachineIP y me evito declarar otra variable.

Saludos y gracias desde ya.
35  Comunicaciones / Redes / Problemas con rutas en Windows 10 con 2 redes !! en: 29 Febrero 2020, 05:32 am
Hola,

Estoy conectado a 2 redes, ambas con Portal Cautivo...

La siguiente configuración:

RED 1

IP:                      192.168.50.88
MASK:                 255.255.255.0
PuertaEnlace:       192.168.50.1
DNS:                   192.168.50.1


RED 2

Aqui tengo 2 juegos de IP

IP:                      192.168.80.66
IP:                      10.10.10.50
MASK:                 255.255.255.0
PuertaEnlace:       192.168.80.1
DNS1:                   10.10.5.10
DNS2:                   10.10.5.11

Esto funciona perfecto mientras no las mezcle y adivinen que..... necesito mezclarlas  :xD

La primera Red es mi salida a internet la otra es una red privada...

Trate de hacer rutas pero comienza bien y después se fastidia todo, da problemas...

So, pregunto...

Es posible mezclara y organizarla con rutas... ?

Me pueden ayudar con las rutas o quizás alguna herramienta que me ayude con esto !!

PD:

Yo habia creado una ruta

route add -p 0.0.0.0 MASK 0.0.0.0 192.168.50.1 5                         --> Internet

route add -p 192.168.2.0 MASK 255.255.255.0 192.168.80.1 10      --> Portal Red Privada
route add -p 192.168.7.0 MASK 255.255.255.0 192.168.80.1 10      --> TeamSpeak
route add -p 192.168.88.0 MASK 255.255.255.0 192.168.80.1 10      --> Servidor BF3

La primera ruta la cree con el sentido de que todo trate de salir a internet siempre y cuando no sea ninguno de esos rangos siguientes...

Pero  me da problemas noc si esta correcto..

Saludos y gracias desde ya...

36  Programación / .NET (C#, VB.NET, ASP) / Corriendo una aplicacion desde .Net !! en: 27 Febrero 2020, 05:42 am
Hola,

Existe alguna forma de saber cuando un juego cargo completamente sus librerías ?

Saludos
37  Seguridad Informática / Materiales y equipos / SXTsq series Mikrotik una ayudita porfa!! en: 18 Febrero 2020, 07:08 am
Hola,

Por error un amigo me compro el SXTsq 5 ac el modelo US con level 3, este no me permite escanear libremente en todas las frecuencias, seria alguien tan amable de indicarme de este tipo cual es el internacional que venga con el "superchannel" habilitado para poder escanear libremente....

Estoy revisando estos:

https://www.amazon.com/-/es/RBSXTSQ5HPND-sxtsq-5-de-alta-potencia/dp/B078T5ZPVK/ref=sr_1_fkmr0_1?__mk_es_US=%C3%85M%C3%85%C5%BD%C3%95%C3%91&keywords=sxtsq+5+international&qid=1582005084&s=electronics&sr=1-1-fkmr0


https://www.amazon.com/-/es/Mikrotik-RBSXTsqG-5acD-Dispositivo-inal%C3%A1mbrico-integrada/dp/B078GZWHRS/ref=sr_1_1?__mk_es_US=%C3%85M%C3%85%C5%BD%C3%95%C3%91&keywords=sxtsq+5+international&qid=1582005084&s=electronics&sr=1-1


Y este último que si fuesen tan amables de indicarme cual es la diferencia de los de arriba:

https://www.amazon.com/-/es/Mikrotik-lite5-rbsxtsq5nd-802-11-7-5-mile-internacional/dp/B076BN718H

Se me pasaba consultarles también lo siguiente, estoy buscando algo compacto como estos que me permita trabajar en las 2 frecuencias (dual band), sabrán cual me sirve.

Saludos y gracias
38  Programación / PHP / Comprobar tamaño de archivo recibido !! en: 14 Febrero 2020, 08:07 am
Hola,

Tengo este código y lo que busco es verificar el tamaño del archivo recibido así sabre si llego entero de lo contrario tomar medidas...

Código
  1.  
  2. <?php
  3.  
  4. $name=$_FILES['image']['name'];
  5. if($name!=null)
  6. {
  7.    $tmpDest=$_FILES['image']['tmp_name'];
  8.    $size=$_FILES['image']['size'];
  9.    $perDestination="upload/$name";
  10.    $result=move_uploaded_file($tmpDest,$perDestination);
  11. }
  12.  
  13. ?>
  14.  
  15.  

Imagino que seria algo como y antes del $result

Código
  1.  
  2. <?php
  3.  
  4.  if($_FILES['image']['size']!=filesize($perDestination)
  5.     {
  6.         echo ("No llego correctamente");
  7.     }
  8.  
  9. ?>
  10.  
  11.  

Saludos y gracias desde ya

39  Comunicaciones / Redes / Alguna idea como transmitir señal de vídeo por TCP/IP ? en: 2 Febrero 2020, 07:51 am
Hola,

Cualquier sugerencia se agradece.

Necesito capturar la señal de cable y transmitirla vía inalámbrica en el otro lado recibirla y volver a transmitirla por cable para verla en un TV corriente..

Saludos
40  Comunicaciones / Redes / Configurando router !! en: 23 Enero 2020, 18:01 pm
Hola,

Mi diagrama es bien simple.

- Router principal conectado a internet asigna IP (10.10.10.0-254)
- Router en mi casa, configurado como GateWay, cerca de 10 clientes se conectan tanto por via inhalambrica o cable.

Que me aqueja...

El router principal no es muy bueno y se cuelga muy facilmente, que quisiera hacer..

- Que todos los usuarios que se conecten a mi router esten en una subnet 192.168.10.1-254

Asi el router principal nada mas lidia con mi router y no con todos mis usuarios.

Como me imagino seria la solución...

- El cable que viene del router principal conectarlo a la WAN de mi router que este reciba la ip via DHCP.
- Configurar la LAN de mi router modo DHCP con el rango 192.168.10.1-254 (me salta la duda si va a dar conflicto con el router principal y su rango 10.10.10.0-254 ??)
- Decirle a mi router que trabaje como ISP o algo asi que es cuando habilita la WAN (subo captura en un rato)

Estoy en lo correcto ?

Saludos y gracias cualquier sugerencia.
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ... 35
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines