хочу привязать программу к оборудованию и написать простенький кейген...
если у кого-нить есть документация, буду рад посмотреть....
заранее спасибо!

| Сообщение посчитали полезным:

http://exelab.ru/f/action=vthread&forum=5&topic=13771

в MSDN почитай про функцию GetVolumeInformation()

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

спасибо за ответ... но меня интересуют готовые решения ,
реализованные на делфи...

| Сообщение посчитали полезным:

Например во здесь
www.delphisources.ru/pages/faq/os_hardware.html


Есть получение HWID'BIOS'а
www.delphisources.ru/pages/faq/base/get_bios_serial.html

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

coderess пишет:
Есть получение HWID'BIOS'а
www.delphisources.ru/pages/faq/base/get_bios_serial.html
Ах-хаха, да были времена когда-то.

| Сообщение посчитали полезным:

спасибо, а как простенький кейген накидать например для даты биоса... инфа есть...?

| Сообщение посчитали полезным:

Я так понял, тебе надо получить с компьютера пользователя HWID и генерить
ключ, если конечно алгоритм так построен

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

coderess пишет:
Я так понял, тебе надо получить с компьютера пользователя HWID и генерить
ключ, если конечно алгоритм так построен

в идеале да, ну думаю можно еще подключить простеное шифрование... хоть самопальное...

| Сообщение посчитали полезным:

rot13 мне нравится ;)

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

coderess
можно не большой примерчик кейгена на дельфях ?

| Сообщение посчитали полезным:

demien
Любого кейгена? Вот, например ссылка

| Сообщение посчитали полезным:

http://exelab.ru/art/?action=view&id=108
http://exelab.ru/art/?action=view&id=91

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

Function GetHARDid: Dword;
Var VolumeSerialNumber, MaximumComponentLength, FileSystemFlags: DWord;
Function GetCPUid: DWord;
Asm
PUSH EBX
PUSH ECX
PUSH EDX
MOV EAX, 1
CPUID
AND EBX, $F8FFFFFF
AND ECX, $FFFFFFF7
AND EDX, $FFFBFDFF
XOR EAX, EBX
XOR EAX, ECX
XOR EAX, EDX
POP EDX
POP ECX
POP EBX
End;
Begin
GetVolumeInformationA('C:', nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0);
GetHARDid:=VolumeSerialNumber xor GetCPUid;
End;

Привязка к процу (не к серийке проца) + серийка диска С.

| Сообщение посчитали полезным:

SergX
Щас тебе придется ещё и пример кейгена показывать к своей привязке ;)

| Сообщение посчитали полезным:

гыгы..

Ну если так то может топенгстартеру лучше юзоть готовы навесной прот...
Его будет по любому сложнее снять чём то что он сможет навоять сам.

| Сообщение посчитали полезным:

да жесть для кейгена свой же код в обратку раскулачить не судьба?

SergX пускай ставит - кому надо все одно отломает. Вообще берите пример с Юбисофта.

-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74

| Сообщение посчитали полезным:

Вот пример мощный
www.delphitricks.com/source-code/systeminfo/retrieve_cpu_information.html

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

| Сообщение посчитали полезным:

coderess в чём проявляется мощь этого примера ?
Там тот же CPUID, команда документирована, описаний куча..

Intel Processor Identification and the CPUID Instruction http://sunsite.rediris.es/pub/mirror/intel/Xeon/applnots/24161831.pdf
AMD CPUID Specification http://www.amd.com/us-en/assets/content_type/white_papers_and_tech_docs/25481.pdf
IA-32 architecture CPUID http://www.sandpile.org/ia32/cpuid.htm

| Сообщение посчитали полезным:

К примеру вот код который выдает ксореный ID процессора:

procedure TForm1.Button1Click(Sender: TObject);
const KEY_1 = $90909090;
var
i:DWORD;
begin
asm
MOV EAX,1
CPUID
MOV i,EAX
end;
ShowMessage(IntToHex(i XOR KEY_1,4));
end;

Затем функция проверки ключа:

procedure TForm1.Button2Click(Sender: TObject);
const KEY_2 = $41414141;
var
k,i:DWORD;
begin
asm
PUSHAD
MOV EAX,1
CPUID
MOV k,EAX
POPAD
end;
i:=StrToInt(Edit1.Text) XOR KEY_2;
if(k=i)Then ShowMessage('Ключ верный');
end;

Ну и сам кейген:

procedure TForm1.Button3Click(Sender: TObject);
const
KEY_1 = $90909090;
KEY_2 = $41414141;
var
id:DWORD;
begin
id:=StrToInt(Edit2.Text) XOR KEY_1;
Edit3.Text:=IntToStr(id XOR KEY_2);
end;

Самый простой пример.

| Сообщение посчитали полезным:

Накидали уже выше крыши. Если ещё поюзать гугл и мозг-вообще завались. Топик на этом закрою, ибо достаточно уже про абстрактный вопрос.

| Сообщение посчитали полезным: