[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 может быть не стандартный. А это значит, что надо посмотреть в коде стороннего приложения. После этого надо будет либо долго вдуплять, пытаясь понять, что же там за байты (которые могут быть и шифрованы), либо анализировать код построения этой строки. Иными словами, либо заниматься реверс-инженерингом, либо

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

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