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 Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 18
1  Programación / Desarrollo Web / zona segura de dominio suspendido en: 14 Mayo 2020, 00:50 am
alguien sabe el motivo del porque la zona segura de un dominio sale como cuenta suspendida:

compre un dominio hace un par de semanas y ahora q ya esta lista la web se le instalo certificados SSL de zeroSSL y luego la de lets encrypt y con ambos no funciona el https que es de zona segura.. redirige a una cuenta suspendida con el mismo dominio

http://gcmdi.com   dominio normal comprado en godady

https://gcmdi.com   dominio con zona segura (con el icono del candado) pero esta suspendido. con datos de otra web.

consulte a soporte de dominios y solo me ofrecieron comprarles el SSL a ellos pero demasiado caro para solucionar el problema..


2  Programación / ASM / Re: cambiar pulsacion de teclado en: 26 Mayo 2013, 01:56 am
Fijate en WinMain.asm, linea 382:

Código
  1.                push    2Ch
  2.                call    ds:GetAsyncKeyState
  3.  

El valor 2Ch (valor en Hexa, osea en VB seria &H2C) corresponde a la tecla PRINT SCREEN. Cambiando ese valor, cambias la tecla.
Por las dudas, listado de valores completo: http://msdn.microsoft.com/en-us/library/windows/desktop/dd375731(v=vs.85).aspx

Saludos!

Gracias por responder, efectivamente si es lo que me indicas ya lo comprobe, lo cambie por otro ... pero este no muestra nada si no se presiono antes la tecla print screen, al parecer dentro de las funciones de dibujado (draw) esta codeado asi con la misma tecla, y aprovecha eso para que con la misma pulsacion haga todo.

En fin ahora ya se que se puede cambiar y cual es el codigo para esto.

ahora trato de compilar ese codigo como dll ... estoy revisando al respecto y planteare mis dudas en otro post.

Saludos.
3  Programación / ASM / cambiar pulsacion de teclado en: 25 Mayo 2013, 02:28 am
Hola, tal como el titulo menciona me gustaria aprender como cambiar la pulsacion del teclado.

encontre un programa el cual esta en la red, hecho en asm compilado con MASM32 es un cheat para un juego online el gunbound, el cheat es algo viejo.. solo me gustaria saber como cambiarle, modificar la opcion de que se muestre con pulsar otra tecla, este se muestra pulsando la tecla print screen .. me gustaria saber como puedo cambiar eso .. para que se muestre con otra tecla como por ejemplo control.
estuve revisando su codigo y bueno no se nada de asm ... se un poco de visual basic, con lo cual me sirve para ver la estructura.

Publico este post para que alguien que domine este lenguaje me exlpique algo.

esto es parte del codigo principal:

Código
  1.  
  2. .586
  3. .MODEL FLAT, STDCALL
  4.  
  5. OPTION       CASEMAP : NONE
  6.  
  7. INCLUDE WINAPI.inc
  8.  
  9. INCLUDELIB     KERNEL32.lib
  10. INCLUDELIB     USER32.lib
  11. INCLUDELIB GDI32.lib
  12. INCLUDELIB MSVCRT.lib
  13.  
  14.  
  15. ;MSVCRT functions
  16.  
  17. _ftol       PROTO C: VARARG
  18. _CIpow      PROTO C: VARARG         ; X^Y
  19. _itoa       PROTO C: VARARG
  20. time        PROTO C: VARARG
  21. malloc      PROTO C: VARARG
  22. difftime    PROTO C: VARARG
  23. free        PROTO C: VARARG
  24.  
  25. .DATA?
  26.  
  27. buffer DB 0ffh DUP (?)
  28. angle_buff DB 0ffh DUP (?)
  29.  
  30. .DATA
  31.  
  32. INCLUDE Data1.asm
  33. INCLUDE Data2.asm
  34.  
  35. ;INCLUDE Data1_gps.asm
  36.  
  37.  
  38. wc  = 1
  39. th  = 0
  40.  
  41.  
  42. showmore db 1 ; yep...
  43. server db wc ; default wc
  44. key     db 0ffh
  45. angle   dd 0
  46. angle2   dd 0
  47. power dd 0
  48.  
  49. angle_str   db "W.Power: %.2i",0
  50. angle_str2   db "W.Angle: %.3i",0
  51. power_str   db "Power: %.3i",0
  52.  
  53. dragonbot_ini db ".\dragonbot.ini",0
  54. default_wc db "wc",0
  55. default_th db "th",0
  56. section db "Settings",0
  57. keyname2 db "Info",0
  58. keyname1 db "Server",0
  59.  
  60. .CODE
  61.  
  62. EntryPoint:
  63.  
  64. ;invoke GetPrivateProfileStringA,offset section,offset keyname1,offset default_wc,offset buffer,0ffh,offset dragonbot_ini
  65. ;invoke CharLowerA,offset buffer
  66. ;invoke lstrcmpA,offset default_th,offset buffer
  67. ;.if eax==0
  68. ; mov server,th
  69. ;.endif
  70.  
  71. ;invoke GetPrivateProfileStringA,offset section,offset keyname2,offset default_wc,offset buffer,0ffh,offset dragonbot_ini
  72. ;invoke CharLowerA,offset buffer
  73. ;.if byte ptr[buffer]=="1"
  74. ; mov showmore,1
  75. ;.endif
  76.  
  77.  
  78.    INCLUDE WinMain.asm
  79.  
  80.  
  81. ;--- Pixel functions (WC)
  82.  
  83.    INCLUDE Get_Enemy_XY.asm
  84.    INCLUDE Get_XY.asm
  85.    INCLUDE Get_Wind_Speed.asm
  86.    INCLUDE Get_Wind_Angle.asm
  87.  
  88.    INCLUDE Get_Angle.asm
  89.  
  90. ;--- Pixel functions (TH) ; from DragonBot 8.x
  91.  
  92.    ;INCLUDE getenemyxy_gps.asm    
  93.    ;INCLUDE getselfxy_gps.asm
  94.    ;INCLUDE getwindspeed_gps.asm
  95.    ;INCLUDE getwindangle_gps.asm
  96.    ;INCLUDE getangle_gps.asm
  97.  
  98. ;--- Draw functions (Shared)
  99.  
  100.   INCLUDE Draw3.asm      ; aid lines
  101.   INCLUDE Draw0.asm      ; trace
  102.   INCLUDE Draw1.asm      ; slot lines
  103.   INCLUDE Draw2.asm      ; mobile
  104.  
  105.  
  106.   INCLUDE Get_Power.asm
  107.  
  108.  
  109. END EntryPoint
  110.  

viendo parte del codigo vi uno donde menciona en comentarios esta api en winmain.asm (dentro del zip) presumo pueda ser alli:

Código
  1. mov     edi, ds:GetAsyncKeyState

el codigo completo:

http://crystian.comxa.com/dbwc1_asm.rar
para quienes responderan que estudie y revise mas sobre ensamblador ... si estuve revisando y le veo interesante ... pero no le entiendo. ;D
4  Programación / Desarrollo Web / Columnas con categoria y subcategoria desde mysql en: 6 Mayo 2013, 23:45 pm
Hola a todos, tengo un problema en modificar una funcion del codigo original de un pack, este muestra 3 columnas con las categorias y sus respectivas subcategorias desde una bd, y al modificar el stylo de la web para no desperdiciar espacios laterales me muestra un espacio vacio dentro de la pagina final.

imagen de como se ve:


imagen de como quiero que se vea:


El codigo de la funcion que me muestra 3 columnas con ese vacio donde debe ir la columna 4:
Código
  1. function getCategoriesList(){//for the home
  2.    $ocdb=phpMyDB::GetInstance();
  3.    $query="SELECT name,friendlyName,idCategory from ".TABLE_PREFIX."categories where idCategoryParent=0 order by `order`";
  4.    $result=$ocdb->getRows($query);
  5.  
  6.    $i =0;
  7. $q = count($result);
  8. $z = round($q/3);
  9.  
  10.    foreach ($result as $category ) {
  11.        $name=$category["name"];
  12.        $fcategory=$category["friendlyName"];
  13.        $idCat=$category["idCategory"];
  14.        if ($name!=""&&$fcategory!=""){
  15.  
  16.            if ($i==0 or $i==$z) $list.= '<div class="cats_col1 cats_colums">';
  17.    elseif ($i==($z*2)) $list.= '<div class="cats_col2 cats_colums">';
  18.  
  19.        $url=catURL($fcategory);
  20.  
  21.        $list.= '<ul><li class="cathead"><a title="'.$name.'" href="'.SITE_URL.$url.'">'.$name.'</a></li>';
  22.  
  23.        //get sub cats category
  24.            $query="SELECT idCategory,name,friendlyName
  25.   FROM ".TABLE_PREFIX."categories C
  26.       where idCategoryParent!=0  and idCategoryParent=$idCat
  27.       order by idCategoryParent, `order`";
  28.                $result2=$ocdb->getRows($query);
  29.  
  30.  
  31.                foreach ($result2 as $row ) {
  32.                    $name2=$row['name'];
  33.                    $fcategory2=$row['friendlyName'];
  34.                    if ($fcategory!=""){
  35.                    $url=catURL($fcategory2,$fcategory);              
  36.                    $list.= "<li><a title=\"$name2\" href=\"".SITE_URL."$url\">$name2</a></li>";
  37.                    }
  38.                 }
  39.        //end get sub cats category
  40.  
  41.        $list.= '</ul>';
  42.        if ($i==($z-1) or $i==(($z*2)-1) or $i==($q-1)) $list.='</div>';
  43.    $i++;
  44.        } //if name        
  45.    } //for  
  46.   return $list;
  47. }
  48.  

Codigo del estilo dimensiona las columnas, el cual se llama dentro de la funcion:

Código
  1. #frontpage {padding: 10px 0px 10px 0px;}
  2. #frontpage_cats .cats_col1{width: 197px;float:left;margin-right:15px;}
  3. #frontpage_cats .cats_col2{width: 196px;float:left;}
  4. #frontpage_cats .cats_colums ul{list-style-type: none;margin-bottom: 15px;padding: 0px;border: none; padding:5px 8px; border:1px solid #ddd;}
  5. #frontpage_cats .cats_colums ul li {line-height:20px;padding:2px 0 2px 10px;background:url("bullet_1.gif") no-repeat left 8px; text-transform:lowercase; border-bottom:1px solid #ddd;}
  6. #frontpage_cats .cats_colums ul li.cathead {font-weight:bold; padding:0 0 2px 0; background:none; text-transform:uppercase;}
  7. #frontpage_cats .cats_colums ul li.cathead a {color:#5C8F47; text-decoration:none}
  8. #frontpage_cats .cats_colums ul li.cathead a:hover { text-decoration:underline;}
  9.  

como ven en la linea:
Código
  1. $z = round($q/3);

para 4 columnas seria:
Código
  1. $z = round($q/4);

y al parecer la modificacion tambien es en las lineas:
Código
  1. if ($i==0 or $i==$z) $list.= '<div class="cats_col1 cats_colums">';
  2.    elseif ($i==($z*2)) $list.= '<div class="cats_col2 cats_colums">';

y/o :
Código
  1. if ($i==($z-1) or $i==(($z*2)-1) or $i==($q-1)) $list.='</div>';

pero ni idea de como hacer eso. Cabe decir que mis conocimientos en php son muy basicos (nivel novato).

toda ayuda sera bienvenida.
5  Programación / Programación Visual Basic / Re: como adicionar espacios en una cadena de texto? en: 17 Noviembre 2011, 20:04 pm
usa mid() para extraer parte de la cadena y en un string temporal vas armando
el string con el espacio.


es lo que hize luego de postear mi problemita, pero igual me pierda jajaja:

Código
  1. Dim strCadena As String
  2. Dim strTemp As String
  3. Dim i As Integer
  4.  
  5. strCadena = Text1.Text
  6.  
  7. For i = 1 To Len(strCadena)
  8.    strTemp = Mid(strCadena, i, 2)
  9.    Text2.Text = Text2.Text & (strTemp & " ")
  10. Next
  11.  

esto funciona bien cuando solo es para separar un caracter, pero para dos no.
estuve revisando la funcion creada por BlackZeroX y esta bien hecha, pero como que tiene muchas lineas, pensaba en algo mas simple pero ni modo ..

Saludos.
6  Programación / Programación Visual Basic / como adicionar espacios en una cadena de texto? en: 17 Noviembre 2011, 07:35 am
buenas ... hace tiempos no hago nada con visual basic, por el trabajo .. mi problema es como puedo adicionar espacios a una cadena de texto, por ejemplo a la cadena 1234567890 adicionar espacios cada 2 digitos para que quede asi :

12 34 56 78 90

trate de usar la funcion split pero como crear un delimitador..
pienso que leyendo toda la cadena y recorrer cada 2 caracteres y adiconar un espacio y luego sumarle 2 caracteres mas y asi hasta el final de toda la cadena, pero me pierdo en eso de recorrer 2 caracteres y pausarlo para adicionar una espacio.

toda sugerencia es bienvenida.
7  Programación / Programación Visual Basic / sumar horas... en: 12 Marzo 2010, 01:53 am
haber si me ayudan con esto d sumar horas, tomo el tiempo del sistema y le sumo por decir 1 hora para que ejecute algo y bueno lo primero que se me ocurrio hacer fue lo siguiente:
Código
  1. Dim h, m, s As Integer
  2. Dim h2, m2, s2 As Integer
  3. Private Sub Timer1_Timer()
  4. hora.Caption = Time$
  5. End Sub
  6.  
  7. Private Sub Command1_Click()
  8.  
  9. h = Val(Left(hora.Caption, 2))
  10. m = Val(Mid(hora.Caption, 4, 2))
  11. s = Val(Right(hora.Caption, 2))
  12.  
  13. h2 = Val(Left(hora2.Text, 2))
  14. m2 = Val(Mid(hora2.Text, 4, 2))
  15. s2 = Val(Right(hora2.Text, 2))
  16.  
  17. kk = Format(h + h2 & ":" & m + m2 & ":" & s + s2)
  18.  
  19. End Sub
  20.  

esta algo chapusero ... jeje haber si me dan una idea de como hacer para que al sumarle mas horas no sobrepase de las 24 horas.
8  Programación / Programación Visual Basic / Re: Visor de skin para visual basic (*.skn) en: 10 Agosto 2009, 19:19 pm
el link ah caducado   :-[
y si alguien lo puede volver a subir , y ademas noc como utilizar esa herramienta
si alguien me explica  :D
gracias.

el link no caduco, sigue activo...  y no es una herramienta es tan solo una utilidad para aplicar los skin asi mismo y ver cual seria de tu agrado para usarlo en tu aplicacion. trae muchos skins recopilados en el rar, y de hecho la ocx necsaria.

Saludos.
9  Programación / Programación Visual Basic / Re: Error Componente WebBrowser (ayuda) en: 8 Agosto 2009, 03:05 am
Ese error te da cuando abres algun proyecto donde ya tenga ese componente del webbrowser, la razon es porke actualizaste tu ie 6 a la 7 u 8.

solucionalo asi :

1.- si quieres seguir usando el componente webbrowser clasico del ie 6, hace esto en un bat pones REGSVR32 SHDOCVW.DLL y listo lo ejecutas .. estara registrado.

2.- si quiere usar el componente del ie 7 u 8 registralo manualmente dandole a examinar o como pusieron con el regedit (este ultimo no lo sabia tampoco).

Saludos ;D ;D
10  Programación / Programación Visual Basic / Re: VB 6.0 --> Crear un pequeño bot en: 1 Agosto 2009, 18:55 pm
usa la api shellexecute para esta linea:

"C:\Program Files\Carpeta del Programa\Programa.exe"

asi : http://trixar.com/~makai/shellex.htm

y para tu autoclicker:

http://foro.elhacker.net/programacion_vb/duda_con_sendkeys-t260462.0.html

saludos.

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