[ade0t]

Можно ли как то реализовать что бы собирался хвид и выводился в программе?

[Alegun]

GetVolumeInformation вам в помощь

Добавлено позже:

а вот как ей пользоваться, бросьте только на форму поле ввода (Edit1)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 id, a, b: DWORD;
 Buffer: array [0..255] of char;
begin
 GetVolumeInformation('c:/', Buffer, sizeof(Buffer), @id, a, b, nil, 0);
 edit1.text:= IntToStr(id);
end;

[ade0t]

Спасибо получилось а как собрать инфу о процессоре и тд
и выводить премерно в такой хвид
PJ.3IB1/59rmImUcBiK7jVNqEpY=

[Alegun]

Можно зашифровать серийник, хотя бы XORом

Добавлено позже:

...а как собрать инфу о процессоре и тд...

есть куча компонентов для сбора информации, например, MiTeC System Information, может помочь

З.Ы. Для чего это надо, нужен ли уникальный ID данного компьютера или просто уникальная строчка, к железу не привязанная, просветите, может всё проще на самом деле.

[ade0t]

есть программа она передаёт на сервер хвид.
Хочу понять с чего собирает хвид она и сам собрать.

[Alegun]

Здесь скорее всего тупик, прога может собирать HWID из чего угодно и по своему алгоритму, вероятно результат разбора будет нулевой.

[Bargest]

Сообщение от ade0t

есть программа она передаёт на сервер хвид.
Хочу понять с чего собирает хвид она и сам собрать.

Ну во-первых, приведенная строка - типичный Base64. Следовательно, надо раскодировать этот Base64. Хотя алфавит для Base64 может быть не стандартный. А это значит, что надо посмотреть в коде стороннего приложения. После этого надо будет либо долго вдуплять, пытаясь понять, что же там за байты (которые могут быть и шифрованы), либо анализировать код построения этой строки. Иными словами, либо заниматься реверс-инженерингом, либо

результат разбора будет нулевой.

А в реверс идти с минимальными знаниями бесполезно.

[ade0t]

CPU+MAC+HDD+имя компьютера
как мне их собрать? где почитать
Заранее спасибо.

[Alegun]

Сообщение от ade0t

CPU+MAC+HDD+имя компьютера...

имя компьютера -

Код:

function GetComputerNetName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then
  Result := buffer
else
  Result := ''
end;

CPU -

Код:

function GetCPUID: dword; 
const Key = $90909090; 
begin 
 asm 
  mov eax, 1 
  CPUID 
  mov GetCPUID{Result}, eax 
end;

MAC -

Код:

Данный пример составлен на основе статьи на сайте Borland: 
http://community.borland.com/article/0,1410,26040,00.html 

uses NB30; 

function GetAdapterInfo(Lana: Char): String; 
var 
Adapter: TAdapterStatus; 
NCB: TNCB; 
begin 
FillChar(NCB, SizeOf(NCB), 0); 
NCB.ncb_command := Char(NCBRESET); 
NCB.ncb_lana_num := Lana; 
if Netbios(@NCB) <> Char(NRC_GOODRET) then 
begin 
Result := 'mac not found'; 
Exit; 
end; 

FillChar(NCB, SizeOf(NCB), 0); 
NCB.ncb_command := Char(NCBASTAT); 
NCB.ncb_lana_num := Lana; 
NCB.ncb_callname := '*'; 

FillChar(Adapter, SizeOf(Adapter), 0); 
NCB.ncb_buffer := @Adapter; 
NCB.ncb_length := SizeOf(Adapter); 
if Netbios(@NCB) <> Char(NRC_GOODRET) then 
begin 
Result:= 'mac not found'; 
Exit; 
end; 
Result := 
IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' + 
IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' + 
IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' + 
IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' + 
IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' + 
IntToHex(Byte(Adapter.adapter_address[5]), 2); 
end; 

function GetMACAddress: string; 
var 
AdapterList: TLanaEnum; 
NCB: TNCB; 
begin 
FillChar(NCB, SizeOf(NCB), 0); 
NCB.ncb_command := Char(NCBENUM); 
NCB.ncb_buffer := @AdapterList; 
NCB.ncb_length := SizeOf(AdapterList); 
Netbios(@NCB); 
if Byte(AdapterList.length) > 0 then 
Result := GetAdapterInfo(AdapterList.lana[0]) 
else 
Result := 'mac not found'; 
end;

а HDD уже был в первых постах

[ade0t]

Прошу помощи а как эти коды объединить и вывести общий их хвид?

[Bargest]

Если для себя - преобразовать в строки и сложить их.
Если именно как в имеющейся программе - надо анализировать программу, я уже писал. Может они вообще MD5 от этой информации считают и переводят в Base64. Без анализа кода этого не узнать (кроме случая, когда информация не защищается никак вообще).

[Alegun]

Сообщение от ade0t

Прошу помощи а как эти коды объединить и вывести общий их хвид?

Ну, уважаемый ade0t (извнт, с полной увагой к вам :-), вы - забавный человек! Bargest же полностью показал бесмысленность потуг по подбору содержимого строки, которую вы почему-то упорно продолжаете называть как HWID, хотя к нему она не имеет отношения вообще! Вся собранная информация всё равно будет выглядеть не так как хотелось бы, потому как инфа о железе это одно, а алгоритм её упаковки пред отправкой, это, как говорится в одном прибрежном городе, две большие разницы. Угадать это невозможно! Тем более, не поверите, данной темой мы нарушаем ПФ, пункт 2.7, такие вот пироги.

Тему должно закрывать

[ade0t]

SHA1(CPUID + GetComputerNameW + GetAdaptersInfo(MAC) + GetVolumeNameForVolumeMountPointW(GetVolumePathNam eW(GetWindowsDirectoryW())))
по такой схеме собирается хвид

[Bargest]

Ну так посчитай SHA-1 и переведи в Base64.