uradio sam zastitu baze putem serijskog broja HDD , i imam problem na nekim racunarima prilikom registracije
na jednom racunaru ocitanje serijskog diska radi normalno i daje pozitivnu vrijednost i tako da mogu generisati kljuc za registraciju ( npr HDD broj *2 )
a opet na drugom mi javlja negativnu vrijednost ??? ako opet uradim HDD *2 i upisem negativnu vrijednost javlja mi gresku ?
p.s negdje sam prositao da kod WD diskova daje negativan rezultat
Nije ti to baš neki način zaštite ali u svakom slučaju bolji nego nikakav.
A za navedeni problem uzimaj apsolutnu vrijednost tj. ako je negativna da bude pozitivna i to je to.
Serijski broj diska je alfanumerička vrednost, koja izgleda kao na pr. WD-WMASY7698268, i ona dakle ne može biti ni negativna ni pozitivna.
Ono što ti koristiš je verovatno Volume Serial Number, tj logički serijski broj particije koji generiše OS, tj. Win u toku formatiranja.
Koliko mi je poznato, ta vrednost ne zavisi od proizvođača hardvera, odnosno modela diska, već se generiše nekim tamo algoritmom. Inače, ta brojka, kao što je ranije rečeno, se lako da lažirati, ispraviti, kopirati na drugi računar putem Norton Ghost i sličnih programa itd, i ni malo nije pouzdana za zaštitu aplikacije od kopiranja...
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName _
(fs.GetAbsolutePathName(drvpath)))
HDDBroj = d.SerialNumber
End Function
koristio sam ovaj code
ako ga postavim u mde , iskljucim shift key , ubacim logo u sve reporte
mislim da ce za prosjecnog korisnika biti dovoljno da se "pegla" i odustane od kopiranja
kako mogu rijesiti taj problem sa negativnim brojem