VB.NET leggere seriale hard disk

[pedro8a]

Ciao a tutti,
vorrei proteggere il software generando un serilae partendo appunto dal seriale del hard disk o del seriale di windows

Ho provato questo codice ma non funziona:

Imports System.Management

dim mos as new ManagementObjectSearcher

ManagementObjectSearcher non c'è.

Io ho vb 2008 express su windows xp

Come mai?

[oregon]

Questo tipo di protezioni lasciano il tempo che trovano ... non tutti gli hard disk hanno un seriale e così per altro tipo di hardware.

Potresti usare il MAC della scheda di rete ma il problema principale è che devi offuscare in maniera efficace l'eseguibile, altrimenti è tutto inutile.

[pedro8a]

Non pretendo la sicurezza assoluta.
Anche perchè chi utilizza il software è un azienda, che in genere chiede assistenza.

ma come leggo il mac della scheda di rete?

[oregon]

http://forum.html.it/forum/showthrea...readid=1138592

[pedro8a]

Secondo me c'era una discussione forse doppia, ma almeno aveva un filo logico.. ed è stata chiusa..

Scrivo qui:

questa riga

dim mos as new ManagementObjectSearcher

come questa

dim a as new ManagementObject

mi provocano errore:

ManagementObject non definito.

Io utilizzo vb2008 .net 3.5

forse vuole il .net 4?
Sulla mia macchina c'è il .net 4 ma nelle opzioni di compilazione non campare.

Cosa posso fare?

[alka]

Originariamente inviato da pedro8a
ManagementObject non definito.

Io utilizzo vb2008 .net 3.5

forse vuole il .net 4?
Sulla mia macchina c'è il .net 4 ma nelle opzioni di compilazione non campare.

Cosa posso fare?

Come è descritto nella documentazione, la classe si trova nell'assembly System.Management.dll: hai aggiunto questa libreria ai riferimenti del tuo progetto?

[pedro8a]

cavolo... hai ragione...... funziona...

ma non equivale a scrivere

Imports System
Imports System.Management

GRAZIEEEE

[alka]

Originariamente inviato da pedro8a
ma non equivale a scrivere

Imports System
Imports System.Management

Devi approfondire la differenza tra assembly e namespace.
Leggi questa pagina in merito.

[pedro8a]

Ciao,
funziona bene...
leggerò il link... anzi devo proprio studiare...

un altra cosa, per far diventare questo mac 00:19:45... un numero ho scritto:

Dim I As Integer
Dim Parte As String
Dim Numero As String
Numero = ""

For I = 1 To Len(mobj.Item("MacAddress").ToString)

Parte = Mid(mobj.Item("MacAddress").ToString, I, 1)
If IsNumeric(Parte) = True Then
Numero = Numero & Parte
End If

Next

TxtMACAdress.Text = Numero

che te ne pare? si può fare di meglio?
Naturalmente questo MAC è univoco, vero???

Ciao e grazie ancora

[oregon]

Usa i tag CODE quando mostri del codice altrimenti, personalmente, rinuncio in partenza a guardarlo ... anche se vedo IsNumeric ... le parti del MAC possono essere esadecimali ...

Comunque, potresti eliminare solamente i : e usare la sequenza ottenuta come stringa.

Per quanto riguarda la univocità, in teoria sì, in pratica no perché è sempre possibile modificare il MAC (pensa alle macchine virtuali) ... ma si deve sapere che viene controllato quello e si deve sapere quale inserire.

Ti ricordo comunque che parliamo di .NET e quindi devi offuscare il codice per evitare che venga letto e "capito" il funzionamento ...