Защита программ

[TSnake]

2zubr
а зачем IntToHex(VolumeSerialNo, 8)?
и если это серийник hdd, то почему он разный для разных разделов винта??

 

[zubr]

а зачем IntToHex(VolumeSerialNo, 8)?

Это для того, чтобы на экран выводилась строка номера диска в шестнадцатиричном формате, если тебе нужно только для проверки, то IntToHex не нужен.

и если это серийник hdd, то почему он разный для разных разделов винта??

А кто сказал, что это серийник винта. Данная функция возвращает номер тома логического диска, который генерит винда, при создании диска.
Чтобы получить серийник HDD все гораздо сложнее.

 

[TSnake]

Я в полных непонятках:

procedure TForm1.FormActivate(Sender: TObject);
var
serial1 : PDWORD;
serial2, b : DWORD;
begin
GetVolumeInformation(PChar('C:\'), nil, 0, serial1, b, b, nil, 0);
label1.Caption := IntToStr(serial1^);
GetVolumeInformation(PChar('C:\'), nil, 0, @serial2, b, b, nil, 0);
label2.Caption := IntToStr(serial2);
end;

В label1 и label2 получаем разные результаты. но почему?

 

[zubr]

Проблема в том, что в случае с serial1 : PDWORD ты объявляешь указатель на невыделенную область памяти, тогда надо выделить память под переменную, на которую будет указывать этот указатель:

New(serial1);
GetVolumeInformation(PChar('C:\'), nil, 0, serial1, b, b, nil, 0);
label1.Caption := IntToStr(serial1^);

 

[62316e]

как говорят: если написали к вашей софтине крек - значит юзают. ломают все.
1) мне больше понрмавилось активацыя через нет.
2) сам в себя записуеш какой-то црц. (аля грузиш exe, длл(или чет типа таво) с длл выгрущаэш ехе в конец(или умно) дописываеш че надо (аля "осталось 13 дней...") и опять грузиш exe.. тут уже как надо) и на любой апаратуре будет работать тока скока надо) - пока не взламают конечно(

 

[TSnake]

2zubr
Спасибо, работает.