Серийник винта

Сейчас на форуме: Rio, tyns777, zombi-vadim (+7 невидимых)

Посл.ответ	Сообщение
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 05 января 2015 08:07 · Личное сообщение · #1 Доброго времени и с новым 2015 ! Второй день сижу с прогой - вот такая оказия: Программа получает серийный номер винта и если неудача - берет дату биоса. И вот с этим затык - требуется получить вот такую строчку - выделена красным: http://rghost.ru/60144630 Программа юзает createfile и DeviceIoControl. Пишу на Делфи - перебрал кучу примеров, ничего не сработало. Вроде чего-то есть на c++ но я в них не волоку. Буду рад любой помощи.

TryAga1n Ранг: 262.5 (наставник), 337thx Активность: 0.34↘0.25 Статус: Участник	Создано: 05 января 2015 08:31 · Личное сообщение · #2 WMI
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 05 января 2015 08:53 · Поправил: dimka_new · Личное сообщение · #3 Пора отдыхать походу... Вот нашелся примерчик консольный - http://rghost.ru/60144795 Ну и почитать - http://derevyanko.blogspot.ru/2009/02/hardware-id-diskid32-delphi.html
ELF_7719116 Ранг: 419.0 (мудрец), 647thx Активность: 0.46↗0.51 Статус: Участник "Тибериумный реверсинг"	Создано: 05 января 2015 09:37 · Личное сообщение · #4 dimka_new пишет: Программа юзает createfile и DeviceIoControl. есть обходной вариант, более доступный для понимания: Code: if (::GetDriveType(&disk[0]) == DRIVE_FIXED) { ::GetVolumeInformation(&disk[0],NameBuffer, sizeof(NameBuffer),&VSNumber,&MCLength,&FileSF,SysNameBuffer,sizeof(SysNameBuffer)); break; }
ClockMan Ранг: 568.2 (!), 465thx Активность: 0.55↗0.57 Статус: Участник оптимист	Создано: 05 января 2015 10:58 · Личное сообщение · #5 Code: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Edit3: TEdit; Label3: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; bufDriveName,bufFSNAme:array[0..255] of pchar; SN,maxFileName,fsOptions:cardinal; implementation {$R .dfm} procedure TForm1.Button1Click(Sender: TObject); begin GetVolumeInformation(nil,PAnsiChar(@bufDriveName),$100,Addr(SN),maxFileName,fsOptions,PAnsiChar(@bufFSNAme),$100); Edit1.Text:=IntToHex(SN,4); Edit2.Text:=PansiChar(@bufFSNAme); Edit3.Text:=PansiChar(@bufDriveName); end*; end. ----- Чтобы правильно задать вопрос, нужно знать большую часть ответа. Р.Шекли.
DimitarSerg Ранг: 253.5 (наставник), 684thx Активность: 0.26↘0.25 Статус: Участник radical	Создано: 05 января 2015 13:51 · Личное сообщение · #6 Эм каким образом серийник винта похож на ID тома ??? dimka_new Code: const SMART_GET_VERSION = $074080; SMART_SEND_DRIVE_COMMAND = $07C084; SMART_RCV_DRIVE_DATA = $07C088; // Values of ds_bDriverError DRVERR_NO_ERROR = 0; DRVERR_IDE_ERROR = 1; DRVERR_INVALID_FLAG = 2; DRVERR_INVALID_COMMAND = 3; DRVERR_INVALID_BUFFER = 4; DRVERR_INVALID_DRIVE = 5; DRVERR_INVALID_IOCTL = 6; DRVERR_ERROR_NO_MEM = 7; DRVERR_INVALID_REGISTER = 8; DRVERR_NOT_SUPPORTED = 9; DRVERR_NO_IDE_DEVICE = 10; // Values of ir_bCommandReg ATAPI_ID_CMD = $A1; ID_CMD = $EC; SMART_CMD = $B0; type TIdeRegs = packed record bFeaturesReg, bSectorCountReg, bSectorNumberReg, bCylLowReg, bCylHighReg, bDriveHeadReg, bCommandReg, bReserved: Byte; end; TDriverStatus = packed record bDriverError: Byte; bIDEError: Byte; bReserved: array[1..2] of Byte; dwReserved: array[1..2] of DWORD; end; TSendCmdInParams = packed record dwBufferSize: DWORD; irDriveRegs: TIdeRegs; bDriveNumber: Byte; bReserved: array[1..3] of Byte; dwReserved: array[1..4] of DWORD; bBuffer: Byte; end; TSendCmdOutParams = packed record dwBufferSize: DWORD; dsDriverStatus: TDriverStatus; bBuffer: array[1..512] of Byte; end; TGetVersionInParams = packed record bVersion, bRevision, bReserved, bIDEDeviceMap: Byte; dwCapabilities: DWORD; dwReserved: array[1..4] of DWORD; end; procedure CorrectDevInfo(var _params: TSendCmdOutParams); asm lea edi, _params.bBuffer add edi,14h mov ecx,0Ah @@SerNumLoop: mov ax,[edi] xchg al,ah stosw loop @@SerNumLoop add edi,6 mov cl,18h @@ModelNumLoop: mov ax,[edi] xchg al,ah stosw loop @@ModelNumLoop end; function HDD_SN(): string; var i: DWORD; tmp: string; dev: THandle; scip: TSendCmdInParams; scop: TSendCmdOutParams; gvip: TGetVersionInParams; ret: DWORD; begin dev := CreateFile('\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if dev <> INVALID_HANDLE_VALUE then begin if DeviceIoControl(dev, SMART_GET_VERSION, nil, 0, @gvip, SizeOf(gvip), ret, nil) then begin scip.dwBufferSize := 512; scip.bDriveNumber := 0; scip.irDriveRegs.bSectorCountReg := 1; scip.irDriveRegs.bSectorNumberReg := 1; scip.irDriveRegs.bDriveHeadReg := $A0; // ??? scip.irDriveRegs.bCommandReg := ID_CMD; // ??? if not DeviceIoControl(dev, SMART_RCV_DRIVE_DATA, @scip, SizeOf(scip), @scop, SizeOf(scop), ret, nil) then else if scop.dsDriverStatus.bDriverError = DRVERR_NO_ERROR then begin CorrectDevInfo(scop); SetLength(tmp, 20); Move(scop.bBuffer[21], tmp[1], 20); CloseHandle(dev); end; Result:=tmp; end; end; end; procedure Output; begin SetWindowTextA(TxtSerialHwnd,PChar(HDD_SN)); end; ----- ds \| Сообщение посчитали полезным: dimka_new
Hellspawn Ранг: 990.2 (! ! !), 380thx Активность: 0.68↘0 Статус: Модератор Author of DiE	Создано: 05 января 2015 15:49 · Личное сообщение · #7 DimitarSerg через WMI надежнее и на дельфях тоже можно http://stackoverflow.com/questions/13215713/get-real-hdd-serial-number-with-delphi ----- [nice coder and reverser] \| Сообщение посчитали полезным: dimka_new
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 06 января 2015 13:45 · Личное сообщение · #8 DimitarSerg Че то пример не заработал - а у вас чего показывает ? Hellspawn Вот заюзал ваш пример, на 7-ке показывает правду: http://rghost.ru/60166291 На виртуалке вот такое( - http://rghost.ru/60166283 А вот консолька, под виртуалькой: http://rghost.ru/60166324 А под семеркой выдает нормальный номер. Похоже придется расковыривать исходник и переделывать под себя. Вот программеры - генерацию ключа разобрал за полчаса, а как хвид формируется третий день))) Всех с наступающим Рождеством !
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 06 января 2015 14:13 · Личное сообщение · #9 Поиск же рулит.. --> Link <-- как и DeviceIoControl на всей линейке NT. \| Сообщение посчитали полезным: dimka_new
Hellspawn Ранг: 990.2 (! ! !), 380thx Активность: 0.68↘0 Статус: Модератор Author of DiE	Создано: 06 января 2015 14:19 · Личное сообщение · #10 dimka_new пример не мой - это раз. это пример работы WMI на дельфях, там можно считывать любые структуры, если вы не знаете как это и зачем, то нужно почитать. в примере Win32_PhysicalMedia - SerialNumber там еще есть несколько стукрут откуда можно считать, например Win32_DiskDrive - SerialNumber. то что утилита показывает пустой серийник под варей - это её косяк ----- [nice coder and reverser]
DimitarSerg Ранг: 253.5 (наставник), 684thx Активность: 0.26↘0.25 Статус: Участник radical	Создано: 06 января 2015 14:29 · Поправил: DimitarSerg · Личное сообщение · #11 dimka_new Ничего не показывает... если запускать не от имени админа А так работает, это я прямо из кода кейгена, который уже не раз юзал. win7x64 ----- ds
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 06 января 2015 14:49 · Поправил: dimka_new · Личное сообщение · #12 DimitarSerg не поверите в первую очередь пробовал под админом В общем разобрался Взял за основу пример по ссылке F_a_u_s_t Под 7-кой отлично отрабатывает - все отдает, под варей пишет не могу открыть файл. за tryecxeptil - если номер отдался беру его, при ошибке пустую строку и читаю дату бивиса с реестра. Может в блог положу статейку, но не факт, чет ленивый стал Вот наваял примерчик - может кому сгодится - http://rghost.ru/60171411
sendersu Ранг: 512.7 (!), 360thx Активность: 0.27↘0.03 Статус: Модератор	Создано: 06 января 2015 18:08 · Личное сообщение · #13 для чтения инфо о диске использовал много раз http://www.winsim.com/diskid32/diskid32.html С-код, много подходов, не работало только 1 раз, насколько помню есть проблема если есть sd-reader + sd карта
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 06 января 2015 18:27 · Личное сообщение · #14 sendersu, да это я видел 3-й пост - человек переделал исходники на delphi
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 06 января 2015 18:45 · Личное сообщение · #15 незнаю конечно, над чем там можно сидеть 3 дня. переписать код с проги 1 в 1 и вуаля
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 07 января 2015 15:39 · Личное сообщение · #16 SReg пишет: незнаю конечно, над чем там можно сидеть 3 дня. переписать код с проги 1 в 1 и вуаля Да вот тока тебя сидел и ждал, прикольно, не видя не программы, вообще нихера не видя, залетает туловище, и утверждает, зачем сидеть я всякое за минутку сделаю. Ну раз так - давай - делай, перепиши 1 в 1 ?, вуаля ?
tihiy_grom Ранг: 441.3 (мудрец), 297thx Активность: 0.41↘0.04 Статус: Участник	Создано: 07 января 2015 16:51 · Личное сообщение · #17 dimka_new, SReg не горячитесь, горячие финские парни можно ещё и рипнуть код, если переписывать лень
DimitarSerg Ранг: 253.5 (наставник), 684thx Активность: 0.26↘0.25 Статус: Участник radical	Создано: 07 января 2015 17:43 · Поправил: DimitarSerg · Личное сообщение · #18 tihiy_grom пишет: не горячитесь +1 SReg пишет: переписать код с проги 1 в 1 и вуаля Если скиллы позволяют. я вот некоторый софт сейчас докейгениваю, который отложил в 2012 и тогда казалось чем-то нереальным (сейчас на пару часов). ... а не судить по себе, ты перепишешь, я знаю, я бы риппнул/переписал. dimka_new Он перепишет, инфа 100% (понятное дело что заниматься этим никто 4fun не будет). С праздником всех, добрее будьте ----- ds
dimka_new Ранг: 33.8 (посетитель), 38thx Активность: 0.06↘0 Статус: Участник	Создано: 07 января 2015 22:44 · Поправил: dimka_new · Личное сообщение · #19 Во первых пользователей форума с праздниками ! Во вторых - по поводу моего поста, да возможно погорячился, тут не поспорить... В третьих - написал статью по ремонту сабжа, но вылаживать не буду, боюсь заклюют( В четвертых - рип, по моему скромному мнению, зло. Если рипаешь код - сиречь ты сдаешься, не можешь понять кода. Хотя и тут бывают исключения. На сем все.

Для печати