[VB 2008] Protezione programma

[mdnet]

Buonasera, sto teminando lo sviluppo di un mio programma scritto con VB 2008 che chiaramente vorrei proteggere in qualche maniera, tipo numero di serie o qualsiasi altra forma purchè sia efficace. Sono coscente del fatto che nulla è inattaccabile e soprattutto che quello che ho sviluppato per quanto possa essere interessante per un determinato settore e che sicuramente vorrò distribuire non è certo un qualcosa di interesse mondiale da creare appetito a qualche hacker, però neanche passare da fesso
Attendo vostri suggerimenti.

Grazie infinite.

[mdnet]

Ciao a tutti, guardando in giro ho trovato alcune info che appositamente modificate funzionano al 95%

Questo è il codice, l'unico problema è che il ciclo si blocca alla prima periferica USB che trova, io invece vorrei che la funzione scansionasse TUTTE le periferiche usb collegate al pc e quando trova quella con la condizione da me stabilità esegua l'istruzione di mio interesse.

Vi posto il codice incriminato:


Private Sub ControlloChiaveProtezione()

Dim Drive As IO.DriveInfo
Dim ChiaveUSB As String
Dim usb As New USB_Serial2
Dim ans As String


For Each Drive In My.Computer.FileSystem.Drives

If Drive.DriveType = IO.DriveType.Removable Then

ChiaveUSB = (Drive.Name.TrimEnd("\"c))

Try
ans = usb.GetSerialNumber(ChiaveUSB)

If ChiaveUSB <> "" And ans = "0025669878PIUY89" Then
MsgBox("TROVATA !!")
Else
End (ed è qui dove sta l'errore, perchè in questo momento ha controllato SOLO la prima periferica usb)
End If

Catch ex As Exception
MsgBox("Chiave di protezione non trovata.")
End
End Try

Else

End If

Next


If Drive.DriveType = IO.DriveType.Removable = False Then

MsgBox("Errore chiave di protezione !!")
End

End If

End Sub

[oregon]

Ma di quale errore parli? Che senso ha quell'End nella Else?

E comunque, se non "offuschi" il codice con un ottimo offuscatore, si risale in maniera semplicissima al sorgente ...

[mdnet]

Ma di quale errore parli? Che senso ha quell'End nella Else?

E comunque, se non "offuschi" il codice con un ottimo offuscatore, si risale in maniera semplicissima al sorgente ...

Sostanzialmente il problema sta nel fatto che se nel mio pc ho collegato più di una chiavetta usb, la procedura parte e appena trova la PRIMA usb esce dal ciclo senza cercare tra tutte le periferiche usb quella giusta che soddisfi la condizione precisa da me scritta. Sicuramente sbaglio io, su questo non c'è ombra di dubbio, ma purtroppo data la mia poca esperienza, pur sbattendomi non riesco a capire dove sto sbagliando.

Grazie

[oregon]

Ho capito ... hai ripetuto quanto avevi già detto ... e ti avevo già risposto che quella End che hai messo non ha senso.

[mdnet]

Ho capito ... hai ripetuto quanto avevi già detto ... e ti avevo già risposto che quella End che hai messo non ha senso.

Grazie, comunque anche commentando le righe di cod. dell'END non cambia nulla.

[oregon]

Riproponi il codice corretto e con i tag CODE

[eziogsv]

Premesso che gli End vanno tolti, io per prima cosa, in fase di debug, mi accerterei che effettivamente esca alla prima USB con dei vecchi cari Debug.Print...

Debug.Print ("Ok, i Drives attuali sono: " & My.Computer.FileSystem.Drives.Count.ToString)
For Each Drive In My.Computer.FileSystem.Drives
Debug.Print ("Trovato il Drive: " & Drive.Name)

If Drive.DriveType = IO.DriveType.Removable Then
Debug.Print ("Confermo che " & Drive.Name & " è un drive USB")

poi... si vedrà

[mdnet]

Risolto tutto, grazie per i vari suggerimenti.

[oregon]

Risolto tutto, grazie per i vari suggerimenti.

Ovvero?