@grizzly
Evo imas celu stvar (ako se radi o windowsu)
Procedura :
Snimi ovo sto sam napisao kao NekiFajl.vbs u instalacionom folderu. Kad odes da instaliras pusti ga da bi dobio Serial.txt (sa brojem HD-a C) u istom folderu i onda obrisi vbs fajl.
U aplikaciji koristi drugu funkciju sa strane http://www.rgagnon.com/javadetails/java-0580.html iz @nemnesic-ove poruke.
Znaci u javi negde na pocetku izvedi ovu fn sa parametrom C kao ime drajva
i posle toga iz jave procitaj Serial.txt i uporedi stringove. Ako nisu isti ili Serial.txt ne postoji prekini program i to je to
Normalno ako ljudi znaju sami da ocitaju broj HD-a i naprave Serial.txt za drugi PC cela ova zastita pada u vodu (eventualno bi mogao da txt stavis negde drugo da nije toliko ocigledno ili da ubacis jos nesto u txt fajl posle serijskog broja). Ovo je instant resenje tek da ne moze da se samo iskopira i da radi
poz
Evo imas celu stvar (ako se radi o windowsu)
Procedura :
Snimi ovo sto sam napisao kao NekiFajl.vbs u instalacionom folderu. Kad odes da instaliras pusti ga da bi dobio Serial.txt (sa brojem HD-a C) u istom folderu i onda obrisi vbs fajl.
Code:
'GetHDSerial.vbs
'Citanje
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
Set objDrive = colDrives.item("C")
Dim str
str = objDrive.SerialNumber
'Upis u fajl Serial.txt
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FS = FSO.CreateTextFile("Serial.txt")
FS.Write str
FS.Close
'GetHDSerial.vbs
'Citanje
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
Set objDrive = colDrives.item("C")
Dim str
str = objDrive.SerialNumber
'Upis u fajl Serial.txt
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FS = FSO.CreateTextFile("Serial.txt")
FS.Write str
FS.Close
U aplikaciji koristi drugu funkciju sa strane http://www.rgagnon.com/javadetails/java-0580.html iz @nemnesic-ove poruke.
Znaci u javi negde na pocetku izvedi ovu fn sa parametrom C kao ime drajva
Code:
public static String getSerialNumber(String drive) {
String result = "";
try {
File file = File.createTempFile("realhowto",".vbs");
file.deleteOnExit();
FileWriter fw = new java.io.FileWriter(file);
String vbs = "Set objFSO = CreateObject(\"Scripting.FileSystemObject\")\n"
+"Set colDrives = objFSO.Drives\n"
+"Set objDrive = colDrives.item(\"" + drive + "\")\n"
+"Wscript.Echo objDrive.SerialNumber"; // see note
fw.write(vbs);
fw.close();
Process p = Runtime.getRuntime().exec("cscript //NoLogo " + file.getPath());
BufferedReader input =
new BufferedReader
(new InputStreamReader(p.getInputStream()));
String line;
while ((line = input.readLine()) != null) {
result += line;
}
input.close();
}
catch(Exception e){
e.printStackTrace();
}
return result.trim();
}
public static String getSerialNumber(String drive) {
String result = "";
try {
File file = File.createTempFile("realhowto",".vbs");
file.deleteOnExit();
FileWriter fw = new java.io.FileWriter(file);
String vbs = "Set objFSO = CreateObject(\"Scripting.FileSystemObject\")\n"
+"Set colDrives = objFSO.Drives\n"
+"Set objDrive = colDrives.item(\"" + drive + "\")\n"
+"Wscript.Echo objDrive.SerialNumber"; // see note
fw.write(vbs);
fw.close();
Process p = Runtime.getRuntime().exec("cscript //NoLogo " + file.getPath());
BufferedReader input =
new BufferedReader
(new InputStreamReader(p.getInputStream()));
String line;
while ((line = input.readLine()) != null) {
result += line;
}
input.close();
}
catch(Exception e){
e.printStackTrace();
}
return result.trim();
}
i posle toga iz jave procitaj Serial.txt i uporedi stringove. Ako nisu isti ili Serial.txt ne postoji prekini program i to je to
Normalno ako ljudi znaju sami da ocitaju broj HD-a i naprave Serial.txt za drugi PC cela ova zastita pada u vodu (eventualno bi mogao da txt stavis negde drugo da nije toliko ocigledno ili da ubacis jos nesto u txt fajl posle serijskog broja). Ovo je instant resenje tek da ne moze da se samo iskopira i da radi
poz
Potpis
HomePage http://www.eurora3d.com
