CTAC-KOТут рылся малехо по форуму, надыбал сцылку на прогу, которая дает реальный железный серийник винта, т.е. независимо от логического раздела диска серийник - один.
Я ее малехо покоментарил, чтобы убрать название модели, ревизию и тд, короче чтоб тока реально сам серийник осталси и чтоб оно пахало как фуКция, параметр - диск (напр. С:):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
PARAMETERS cDrive2Test
IF EMPTY(m.cDrive2Test) OR VARTYPE(m.cDrive2Test)#"C"
m.cDrive2Test = SYS( 5 )
ENDIF
DECLARE INTEGER CloseHandle IN kernel32 ;
INTEGER hObject
DECLARE INTEGER CreateFile IN kernel32 ;
STRING lpFileName, INTEGER dwDesiredAccess, INTEGER dwShareMode,;
INTEGER lpSecurityAttributes, INTEGER dwCreationDisposition,;
INTEGER dwFlagsAndAttributes, INTEGER hTemplateFile
DECLARE INTEGER DeviceIoControl IN kernel32 INTEGER hDevice,;
INTEGER dwIoControlCode, STRING @lpInBuffer,;
LONG nInBufferSize, STRING @lpOutBuffer,;
LONG nOutBufferSize, INTEGER @lpBytesReturned, INTEGER lpOverlapped
DECLARE INTEGER GetLogicalDriveStrings IN Win32API INTEGER buflen, STRING @buf
DECLARE INTEGER GetDriveType IN Win32API STRING cpath
DECLARE INTEGER GetVolumeInformation IN Win32API STRING lpRootPathName,;
STRING @lpVolumeNameBuffer, INTEGER nVolumeNameSize,;
LONG @lpVolumeSerialNumber, INTEGER @lpMaximumComponentLength,;
INTEGER @lpFileSystemFlags, STRING @lpFileSystemNameBuffer,;
INTEGER nFileSystemNameSize
*SUSPEND
*LOCAL m.buflen, m.buf
*m.buflen = 104
*m.buf = REPLICATE(CHR( 0 ), m.buflen)
*GetLogicalDriveStrings(m.buflen, @m.buf)
*m.buf = CHRTRAN(m.buf, CHR( 0 ) + "\:","")
m.str1 = ""
*SUSPEND
*FOR m.i= 1 TO LEN(m.buf)
*m.i= 1
m.drvtype = GetDriveType(LEFT(m.cDrive2Test, 1 )+":\")
IF m.drvtype = 3
m.str1 = LEFT(m.cDrive2Test, 1 )
*m.str1 = m.str1 + SUBSTR(m.buf, m.i, 1 )
ENDIF
*NEXT
*FOR m.i = 1 TO LEN(m.str1)
m.i= 1
m.vnb = REPLICATE(CHR( 0 ), 64 )
m.vnbs = 64
m.vsn = 0
m.mcl = 0
m.fsf = 0
m.fsnb = REPLICATE(CHR( 0 ), 10 )
m.fsnbs = 10
GetVolumeInformation(SUBSTR(m.str1,m.i, 1 ) + ":\", @m.vnb, m.vnbs,;
@m.vsn, @m.mcl, @m.fsf, @m.fsnb, m.fsnbs)
*IF m.vsn < 0
* m.vsn = m.vsn + 168
*ENDIF
*m.vsn = PADL(ALLTRIM(SUBSTR(TRANSFORM(m.vsn,"@0"), 3 )), 8 , "0")
m.drivenumber = ASC(SUBSTR(m.str1, m.i, 1 )) - ASC("C")
handle = CreateFile("\\.\" + CHR(ASC("c") + m.drivenumber) + ":",0xC0000000, 3 , 0 , 3 , 0 , 0 )
m.sn = ""
m.mod = ""
m.rev = ""
IF handle <> - 1
m.sci =""
m.sci = m.sci + CHR( 0 ) + CHR( 2 ) + CHR( 0 ) + CHR( 0 ) + CHR( 0 )+;
CHR( 1 ) + CHR( 1 ) + CHR( 0 ) + CHR( 0 ) + CHR(0xA0) + CHR(0xEC)+;
CHR( 0 ) + CHR( 0 ) + REPLICATE(CHR( 0 ), 499 )
m.sco = REPLICATE(CHR( 0 ), 2048 )
m.ret_buffersize = 0
m.otv=DeviceIoControl(handle, 0x7C088, @m.sci, LEN(sci), @m.sco,;
LEN(sco), @m.ret_buffersize, 0 )
CloseHandle(handle)
IF m.otv <> 0
m.sn = CHRTRAN( ALLTRIM( conv21( SUBSTR(m.sco, 37 , 20 ) ) ),CHR( 0 ), "")
*m.rev = CHRTRAN( ALLTRIM( conv21( SUBSTR(m.sco, 63 , 8 ) ) ),CHR( 0 ), "")
*m.mod = CHRTRAN( ALLTRIM( conv21( SUBSTR(m.sco, 71 , 40 ) ) ),CHR( 0 ), "")
ENDIF
ENDIF
IF EMPTY(m.sn)
handle = CreateFile("\\.\" + CHR(ASC("c") + m.drivenumber) +":", 0x00000000, 3 , 0 , 3 , 0 , 0 )
IF handle <> - 1
m.sn = ""
*m.mod = ""
*m.rev = ""
m.sci = REPLICATE(CHR( 0 ), 1024 )
m.sco = REPLICATE(CHR( 0 ), 1024 )
m.ret_buffersize = 0
m.otv = DeviceIoControl(handle, 0x2D1400, @m.sci, LEN(sci), @m.sco,;
LEN(sco), @m.ret_buffersize, 0 )
CloseHandle(handle)
IF m.otv <> 0
*m.pos0 = ASC(SUBSTR(m.sco, 13 , 1 ))
*m.pos1 = ASC(SUBSTR(m.sco, 17 , 1 ))
*IF m.pos0 > 0
* m.pos1 = m.pos0
*ENDIF
*m.pos2 = ASC(SUBSTR(m.sco, 21 , 1 ))
m.pos3 = ASC(SUBSTR(m.sco, 25 , 1 ))
*m.mod = SUBSTR(m.sco, m.pos1+ 1 , m.pos2 - m.pos1)
*m.pos4 = AT(CHR( 0 ), m.mod)
*IF m.pos4 > 0
* m.mod = ALLTRIM(CHRTRAN(m.mod, CHR( 0 ), ""))
*ENDIF
*IF m.pos3 > m.pos2
* m.rev = SUBSTR(m.sco, m.pos2+ 1 , m.pos3 - m.pos2)
*ELSE
* m.rev = SUBSTR(m.sco, m.pos2+ 1 )
*ENDIF
*m.pos4 = AT(CHR( 0 ), m.rev)
*IF m.pos4 > 0
* m.rev = ALLTRIM(LEFT(m.rev, m.pos4 - 1 ))
*ENDIF
IF m.pos3 > 0
m.pos3 = m.pos3 + 1
m.sco1 = SUBSTR(m.sco, m.pos3, 40 )
m.sco1 = ALLTRIM(m.sco1)
m.sn = ""
m.pos3 = 1
FOR m.j = 1 TO 20
m.ch1 = CHR(EVALUATE("0x" +ALLTRIM(SUBSTR(m.sco1, m.pos3, 2 ))))
m.pos3 = m.pos3 + 2
m.ch2 = CHR(EVALUATE("0x" +ALLTRIM(SUBSTR(m.sco1, m.pos3, 2 ))))
m.pos3 = m.pos3 + 2
m.sn = m.sn + m.ch2 + m.ch1
ENDFOR
m.sn = ALLTRIM(CHRTRAN(m.sn, CHR( 0 ), ""))
ELSE
m.sn = ""
ENDIF
ENDIF
ENDIF
ENDIF
*?SUBSTR(m.str1, m.i, 1 ) + ":\ VolSN: " + m.vsn + " " +CHRTRAN(m.fsnb, CHR( 0 ), "") + "Model: " + m.mod + " Revision: " + m.rev+
RETURN m.sn
*ENDFOR
*/===============================================
FUNCTION conv21
*/===============================================
LPARAMETERS m.str
IF LEN(m.str)% 2 = 1
m.str = m.str + " "
ENDIF
LOCAL m.i, m.str2
m.str2 = ""
FOR m.i= 1 TO LEN(m.str)
m.str2 = m.str2 + SUBSTR(m.str, m.i + IIF(m.i% 2 = 0 , - 1 , 1 ), 1 )
ENDFOR
RETURN ALLTRIM(m.str2)
Вот, а потом к энтому замутил такое вот:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
RESTORE FROM password.mem ADDITIVE
* ресторицца переменная с менем Рassword
* получаем от юзьверя пароль
m.cPassword = ALLTRIM(INPUTBOX("Password"))
m.sPassword = ALLTRIM(m.cPassword)
m.nPasswordLen = LEN(m.sPassword)
m.cnPassword = ""
FOR m.i = 1 TO m.nPasswordLen
m.cnPassword = m.cnPassword + LTRIM(STR(ASC(SUBSTR(m.sPassword,m.i, 1 ))))
ENDFOR
m.nPassword = BITXOR(VAL(LEFT(m.cnPassword, 14 )),m.nPasswordLen)
m.sHddSerial = hdds()
m.nHddSerialLen = LEN(m.sHddSerial)
m.cnHddSerial = ""
FOR m.i = 1 TO m.nHddSerialLen
m.cnHddSerial = m.cnHddSerial + LTRIM(STR(ASC(SUBSTR(m.sHddSerial,m.i, 1 ))))
ENDFOR
* число отрезаю на 14 цифр длиной
m.nHddSerial = BITXOR(VAL(LEFT(m.cnHddSerial, 14 )) ,m.nHddSerialLen)
IF m.PassWord # BITXOR(m.nPassword,m.nHddSerial)
MESSAGEBOX("Password incorrect!", 0 + 16 ,"Error")
ENDIF
*ERASE password.mem
*SAVE TO password.mem ALL LIKE PassWord
ну короче работает, тока нада еще мутить первый раз пароль (у меня закоментировано), сохранить, а потом ужо...
Суть в том, что при переносе проги "правльный" пароль не введешь...
Может есь какие идеи/усовершенствования по этому примеру?
Идея одна: оказаться от привязывания программы к винту.
ИМХО, неразумно это...
Умные забугорные конторы от этого приема, как метода защиты, уже давно отказались: много сил тратится на организацию защиты, много она доставляет неудобств пользователю и достаточно легко обходится.
Вся Ваша защита пойдет на смарку, если блок:
1.
2.
3.
IF m.PassWord # BITXOR(m.nPassword,m.nHddSerial)
MESSAGEBOX("Password incorrect!", 0 + 16 ,"Error")
ENDIF
кто-то заменит на:
1.
2.
3.
IF m.PassWord # m.PassWord && BITXOR(m.nPassword,m.nHddSerial)
MESSAGEBOX("Password incorrect!", 0 + 16 ,"Error")
ENDIF
С Фоксом это не так трудно сделать, как например с Ассемблером. Хотя и в этом случае действует тот же самый алгоритм: ищем место, где сравнивается эталонное и тестируемое значение и производим подмену....
Если Вам так хочется защитить свою интеллектуальную собственность, то лучше поройтесь в Интернете по современным технологиям защиты программ. Почитайте "Хакер" по взлому и защите от взлома. Там что-то было по технологиям "размазанной" защиты, когда даже опытные хакеры не с первого раза ее взламывают...
Хотя в "Хакере" упор сделан на Делфи и Ассемблер... |
