[VB.NET] Legare esecuzione di un programma a una chiavetta

[Fractals87]

Ciao a tutti,
Ho una particolare richiesta a cui proprio non so come poter fare e confido nel vostro aiuto.
Premetto che non sono una massima con vb.net e scabocchio qualche riga di codice..

Ho un piccolo softwarino che gira su una chiavetta usb e la richiesta sarebbe che questo applicativo non debba essere eseguito al di fuori della chiavetta... come posso raggiungere un risultato del genere???

Grazie e ciao a tutti....

[oregon]

Non puoi ... e comunque il tuo non è un problema di programmazione ...

[Fractals87]

Ma neanche una gabola, del tipo all'esecuzione del programma verificare che sia un dipositivo mobile (Non so se è possibile vado a logica) e che il dispositivo si chiamato in un determinato modo o altre soluzioni del genere...

Ovvio che in questi casi (Qual ora fossero possibili) verrebbero elusi facendo una immagine della chiavetta...

Non mi smontare proprio cosi

[oregon]

Non puoi ... fra l'altro, il programma è scritto in VB.NET? Quindi decompilabile ...

[tas]

Qualsiasi software è decompilabile, quindi non c'è protezione che tenga. Tuttavia si tratta di rendere le cose un po' difficili per gli utenti che non hanno competenze da hacker, cioè la maggior parte.

Leggendo la tua richiesta ho subito pensato che si potrebbe leggere il numero seriale della chiavetta e confrontarlo con il numero seriale annegato nel tuo software.

Il codice che ti riporto qui sotto fa uso di WMI ed estrae il numero seriale dell'unità sulla quale è in esecuzione il software. Per un harddisk si usa normalmente la proprietà "Win32_DiskDrive\SerialNumber", mentre per le chiavette USB tale proprietà risulta vuota ed è necessario leggere "Win32_DiskDrive\PNPDeviceID".

Imports System.Management
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim scope As ManagementScope
        Dim query As ObjectQuery
        Dim searcher As ManagementObjectSearcher
        Dim queryCollection As ManagementObjectCollection

        'imposta lo scope sulla macchina locale
        scope = New ManagementScope("\\" & Environment.MachineName & "\root\cimv2")

        'determina il volume che contiene l'eseguibile
        Dim logical As String = IO.Path.GetPathRoot(Application.ExecutablePath).First
        'logical = "F"

        'determina l'unità fisica che contiene il volume
        Dim phisical As String = ""
        query = New ObjectQuery("SELECT * FROM Win32_LogicalDiskToPartition")
        searcher = New ManagementObjectSearcher(scope, query)
        queryCollection = searcher.Get()
        For Each manObj In queryCollection
            Dim matchlogical As Match = Regex.Match(manObj.GetPropertyValue("Dependent").ToString,
                                              "^\\\\" & Environment.MachineName & "\\root\\cimv2:Win32_LogicalDisk.DeviceID=""(?<logical>[A-Z]):""")
            If matchlogical.Groups("logical").Value = logical Then
                Dim matchphisical As Match = Regex.Match(manObj.GetPropertyValue("Antecedent").ToString,
                                                  "^\\\\" & Environment.MachineName & "\\root\\cimv2:Win32_DiskPartition.DeviceID=""Disk #(?<phisical>\d)")
                phisical = matchphisical.Groups("phisical").Value
                Exit For
            End If
        Next

        'determina il numero seriale dell'unità fisica
        Dim hdserial As String = ""
        query = New ObjectQuery("SELECT * FROM Win32_DiskDrive")
        searcher = New ManagementObjectSearcher(scope, query)
        queryCollection = searcher.Get()
        For Each manObj In queryCollection
            Dim matchtag As Match = Regex.Match(manObj.GetPropertyValue("DeviceID").ToString,
                                              "^\\\\.\\PHYSICALDRIVE(?<phisical>\d)")
            If matchtag.Groups("phisical").Value = phisical Then
                hdserial = manObj.GetPropertyValue("PNPDeviceID").ToString
                Exit For
            End If
        Next

        'output
        Dim output As String = String.Format("logical = {0}" & vbCrLf &
                                             "phisical = {1}" & vbCrLf &
                                             "hdserial = {2}", logical, phisical, hdserial)
        MsgBox(output)
    End Sub
End Class

Offuscando opportunamente il codice dovresti ottenere un buon risultato.

[Fractals87]

Grazie mille tas era proprio quello che mi serviva...
Infatti quello che volevo raggiungere era un pagliativo per accontentare il cliente e non per raggiungere un livello di protezione inpenetrabile anche perche non ne ho certo le competenze..

[oregon]

E' sicuramente un palliativo e tutto dipende da quanto possa essere "interessato" chi vuole superare l'ostacolo.

In realtà mi sembra anche controproducente perché offre al cliente una "falsa sicurezza" e una grande delusione (anche nei tuoi confronti) quando vedrà il programma "aperto" in pochi minuti.

Ovviamente ciò non succederà se non c'è interesse, ma se non c'è interesse non serve neanche una "protezione".

In ogni caso, comprendo la tua posizione ...

[Fractals87]

Originariamente inviato da oregon

In ogni caso, comprendo la tua posizione ...

Ho già informato il cliente durante l'incontro della difficoltà nel produrre una protezione del genere (il software originario era scritto addirittura in flash e offriva una protezione analoga), ma ho scoperto che creando l'immagine della chiavetta il software era tranquillamente utilizzabile.... con questa procedura almeno si fa un passo avanti anche se è sempre un po inutile..

Ti ringrazio per la tu ultima frase

[Fractals87]

Ciao tas,
Stavo inziando a integrare la routine che mi hai gentilmente postato ma non riesce a recuperare le classi
Errore sull dichiarazione delle variabili

        Dim scope As ManagementScope
        Dim query As ObjectQuery
        Dim searcher As ManagementObjectSearcher
        Dim queryCollection As ManagementObjectCollection

Non riesco a capire il perchè.

P.S Ho importato i seguenti namespace

Imports System.Management
Imports System.Text.RegularExpressions

La versione con la quale ho generato l'applicatione era inizialmente net4 client profile e ho provato anche a convertirla in net 4 ma nulla da fare.....

[Fractals87]

Trovata la soluzione, bisogna obligatoriamente aggiungerla nelle reference....