Узнать серийный номер процессора?

[VintProg]

Как написать код с помощью которого можно узнать серийный номер процессора???

[VintProg]

Нашел код, но он не работает...

      {$G+}
       
      {$DEFINE ManyHyphens}
       
      {$S-}
      Procedure StoreHexNum; assembler; { For call from GetCPUSerialNumber function only! }
      { EAX = Number }
      Asm
              push    cx
      db 66h; push    dx           { push edx }
      db 66h; xchg    dx,ax        { xchg edx,eax }
              mov     cl,32-4
      @NextDigit:
      db 66h; mov     ax,dx        { mov eax,edx }
      db 66h; shr     ax,cl        { shr eax,cl }
              and     al,0Fh
              add     al,'0'
              cmp     al,'9'
              jbe     @@09
              add     al,('A'-('9'+1))
      @@09:   stosb
              sub     cl,4
              jnc     @NextDigit
      db 66h; pop     dx           { pop edx }
              pop     cx
      End;
       
      {$S+}
      Function GetCPUSerialNumber: String; assembler;
      Asm
              cld
              les     di,@Result
      {$IFDEF ManyHyphens}
              mov     al,12+8*3+3
      {$ELSE}
              mov     al,12+8*3+1
      {$ENDIF}
              stosb
      db 66h; xor     ax,ax        { xor eax,eax }
              db 0Fh,0A2h          { cpuid }
      db 66h; xchg    ax,bx        { xchg eax,ebx }
      db 66h; stosw                { stosd }
      db 66h; xchg    ax,dx        { xchg eax,edx }
      db 66h; stosw                { stosd }
      db 66h; xchg    ax,cx        { xchg eax,ecx }
      db 66h; stosw                { stosd }
      {$IFDEF ManyHyphens}
              mov     al,' '
              stosb
      {$ENDIF}
      db 66h; xor     ax,ax        { xor eax,eax }
              inc     ax
              db 0Fh,0A2h          { cpuid }
              call    StoreHexNum
              mov     al,'-'
              stosb
      db 66h; xchg    ax,dx        { xchg eax,edx }
      db 66h; xor     dx,dx        { xor edx,edx }
      db 66h; xor     cx,cx        { xor ecx,ecx }
      db 66h; shr     ax,18+1      { shr eax,18+1 }
              jnc     @NoSerialNumber
              mov     ax,3
              db 0Fh,0A2h          { cpuid }
      @NoSerialNumber:
      db 66h; xchg    ax,dx        { xchg eax,edx }
              call    StoreHexNum
      {$IFDEF ManyHyphens}
              mov     al,'-'
              stosb
      {$ENDIF}
      db 66h; xchg    ax,cx        { xchg eax,ecx }
              call    StoreHexNum
      End;
       
      Var Pentium: Boolean;
      Begin
          Asm
             mov al,1
             mov byte ptr @,90h
           @:dec ax
             mov Pentium,al
          End;
          If not Pentium then WriteLn('You need at least iPentium processor!'#7)
          else WriteLn('Your processor serial number is "', GetCPUSerialNumber, '"')
      End.

[NetSpace]

вчера этим вот занимался. держите архив с кодом и программой. только напишите: у Вас работает или нет?

[Alex11223]

У меня работает.

[WildHunter]

Не похоже на серийный номер процессора. Проверил на нескольких машинах, везде номера подозрительно короткие, например:
Processor ID: GenuineIntel
Serial Number: 00010667A0000000000000000
То-же самое в Everest называется "Версия CPUID", что никак не серийник процессора.

Вообще, насколько я знаю, возможность получения программой серийного номера процессора уже давно блокирована. Только некоторые процессоры выдают серийный номер, и только если включена такая опция в BIOS.

[NetSpace]

Исходник внутри. Тогда что же это за длинный ряд чисел? Количество элементов в схемах процессора?

[WildHunter]

Читаем здесь. Если упрощать, то кодовое наименование набора инструкций, поддерживаемых процессором.

[Пепел Феникса]

то что вы выводитие как Processor ID это есть Basic CPUID Information не более.
а Serial Number это Version Information: Type, Family, Model, and Stepping ID а остальное мусор, если проц не пень третий:

ECX:Bits 00-31 of 96 bit processor serial number. (Available in Pentium III
processor only; otherwise, the value in this register is reserved.)
EDX:Bits 32-63 of 96 bit processor serial number. (Available in Pentium III
processor only; otherwise, the value in this register is reserved.)

[NetSpace]

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

[Пепел Феникса]

ошиблись бывает.

вы умеете признавать ошибки, это хорошо