在windows下怎么获得本机得硬盘序列号

天云上人

WORD pw[256];

: p7 S: j2 l$ D2 h  ustatic DWORD idt, int_idt;
static DWORD Base;
static WORD Entry;
8 F; B, ~8 b, C8 q4 A- e( c  ?
6 R6 f! x* Y# \# f1 u#pragma warning (disable:4035)
, ^% g. ]7 o( {6 {$ [/ h  `static int inp(WORD rdx)
* S) K: [6 {) r  L  t{
+ w+ p/ s0 s# I! s# z, A   _asm xor eax, eax
   _asm mov dx, rdx
   _asm in al, dx
- Z. z! E$ g8 s6 `6 @+ Q& Z+ D}
; S1 w5 S# X1 i) M; [% B
static WORD inpw(WORD rdx)
{
, P1 Q7 V# j2 S! N//    WORD retData ;
' B: g; J2 K0 [! u4 v   _asm xor eax, eax
  a% t, c8 x" f- t8 M* J   _asm mov dx, rdx
   _asm in ax, dx
//    _asm mov retData,ax
2 S5 Z- n# H: N0 j//    return retData ;
! M; n3 C! f2 O5 y* n}
$ Q& x7 ~" u1 c8 P2 o
1 f/ M# H- c! `2 w/ @static void outp(WORD rdx, int ral)
{
   _asm mov dx, rdx
   _asm mov eax, ral
$ Y* [* {5 P: S. b+ I" N  g   _asm out dx, al
}
/****************************************************************************/
WORD baseAddress;
int drive = 0 ;
int al ;
int al1 ;
/****************************************************************************/
static int WaitIde()
* v/ Q. L/ P$ W. P{
. E6 A( m2 T  D! |& W3 Z   int al;
   al =  0x80 ;

   while (  al & 0x80 ) al = inp ( (WORD)(baseAddress+7) ) ;
+ a6 u$ i" K" _5 k1 K1 [  b  s8 n
: m3 T- k8 \! G" j/ v   return al;
' x+ o3 M2 d+ F2 L( p}
# T( u* Z, @, _3 H$ B, ]/ j6 m/****************************************************************************/
static void ReadIDE()
{
! C4 H" f- q9 Q, f) R* ~, e   int i;
/ {- H$ h/ @" o( g# y   switch (drive / 2)
   {
       case 0: baseAddress = 0x1f0; break;
: G* |: x2 K( U, z6 {       case 1: baseAddress = 0x170; break;
! s7 A: I% D3 e, h5 o8 O       case 2: baseAddress = 0x1e8; break;
( i( J) {- [( W' \$ Z/ K& f  P       case 3: baseAddress = 0x168; break;
+ y/ C7 }- Y% B1 G( M4 {   }

' \/ p& g3 ~$ e   WaitIde();
   outp((WORD)(baseAddress+6),0xA0);
$ N3 Z; @+ [' Q9 Q8 Y5 w8 h- b   al = WaitIde();

   if ( 0==(drive%2) && (al&0x50)!=0x50) return;
% s( N, w, j" ]1 l. E& c0 x   if ( 1==(drive%2) && (al&0x20)!=0x20) return;
! R2 j& o+ e! c3 v- D, D5 k
   if ( 0==(drive%2) )
       outp((WORD)(baseAddress+6),0xA0);
9 D' H$ I, Y% h" D   else
       outp((WORD)(baseAddress+6),0xB0);

   outp((WORD)(baseAddress+7),0xEC);
   al1 = WaitIde();
   if ((al1&0x58)!=0x58) return ;
& A7 w6 b% x0 r& L  |5 ~# _9 ~
) i2 t* ^' f, J3 H  q, z   for (i=0;i<256;i++)
* a, d* f! h3 T2 g$ F5 D( T   {
+ c; u, N2 C1 f       pw = inpw(baseAddress);
) V* ^6 i9 o& K0 l/ P   }
}
3 i( a8 d3 [3 q* O
static void __declspec( naked ) NowInRing0()
5 y, o7 Z8 [( Q{
1 k3 R, S; d8 A5 Y: [& O4 l5 ?   _asm
   {
; q6 Y) Y0 K6 n       push ebp
       mov ebp,esp

; T3 X" V7 S" X2 ]  l       call ReadIDE
       cli
& Q* a' ]: u: W6 Q6 g9 }       mov ebx, int_idt
8 P0 ^/ K8 F# G2 J0 b       mov ax, Entry
       mov word ptr [ebx-4], ax
; p1 [) _& R3 D% Q  F% j$ U       mov eax, Base
( A. `8 E& D  j5 Q$ T       shr eax, 16
       mov [ebx+2], ax
7 x6 \$ Y; l7 }8 R6 [: }4 J5 q- f       sti
       leave
# \4 [1 V$ h- ]       iretd
   }
}

void GetIDEInfo()
{
0 o& N# u/ q' `- a' ~   DWORD dwExcept;
* o3 e7 D) A& K4 D3 k, l7 y1 D
! _! Z6 {0 _0 X: Y3 g* r   dwExcept = (DWORD)NowInRing0;

% H" S( ^+ F! {' H: K- H   _asm
( i: z3 d2 [/ Y, N   {
2 W+ D  i+ b* s7 l. T       mov eax, fs:[0]
       push eax
       sidt [esp-02h]
) e$ g6 e5 [4 g1 c3 I. [! A       pop ebx
       mov idt, ebx
0 U2 |1 `! U. v1 ?  P  J# F/ {       add ebx, 0x1C
& ?# p( y, q6 I2 k- c/ l! t. U       mov int_idt, ebx
3 s3 _4 v1 N& w% ~. h( A
& L% ], Z# m1 x6 q3 s8 g2 n       mov eax, [ebx]
       mov [Base], eax
; X9 C% ~; n5 S       mov ax, [ebx-4]
       mov [Entry], ax

       cli
       mov esi, dwExcept
0 F3 ]7 j2 P' t; u       push esi
       mov [ebx-4], si
4 c/ |2 A! q/ N       shr esi, 16
       mov [ebx+2], si
6 S: M/ {. I4 ]       pop esi
       sti
8 {- B) o4 c: Y. F" _3 b
- q: U0 }! c$ I3 n2 }7 U: \9 G% d       int 3
" y, a6 c9 A. @* g& ]& G) c   }
}
5 O* I. l* |9 Qint main()
- ^' @0 _- L; r$ K/ I# a8 _{
   char s[80];
; B9 N" ~) w( s! S+ A   register i,j;
   unsigned long id = 0 ;
" A$ l4 X& w/ y2 W7 J
//特别注意：这段程序不能 Debug
   for ( drive=0 ; drive<4 ; drive++ )
* l, U- @& H( ]& i, l% _& f" h   {
       memset ( pw , 0 , 256*sizeof( WORD ) ) ;
3 u3 [* Y0 w( ]  Y% l       id = 0 ;
$ C5 o$ M; b& W/ p5 [       al = 0 ;
0 Y+ r, ~0 s1 o* p5 _" l       al1 = 0 ;
- d) t* F7 O; j( M       GetIDEInfo();
% L4 C- ~* |4 D: V2 i& W0 v8 j
       for (i=0,j=0;i<10;i++)
       {
+ s' h( P' y7 G* @( |; z* D' m           s[j++]=(char)(pw[10+i]>>8);
4 `9 c8 b' g1 V& W0 @  ?( f7 R- A4 r           s[j++]=(char)(pw[10+i]&0xFF);
9 H4 A+ [3 c! u8 W* K0 F       }
       s[j] = 0;
/ ~4 R* }! i. X* S2 u) Y
7 D) S' ?3 o; g  V//        for (i=0;s;i++)printf("%d,",s);printf("\n");
       printf("Serial=%s\n", s);
) _- [4 d4 `& v" h/ h/ m  J  A/ a. M
9 v* ^. ?, _/ ]       for ( i=0 ; s ; i++ )
; N$ a5 _- ^3 i; R" }: i/ X       {
, v+ S) i( L6 @4 Q' D           if ('-' == s || '/'==s || ' '==s) continue;
; d8 P  W& `& @           printf ( "%d," , s ) ;
           id *= 40 ;        //10 ;
           switch (s)
& |; K! p+ X, |           {
               case '0': id += 0; break;
8 ^* i) O7 w- T2 v' m& A0 g. p7 W               case '1': id += 1; break;
               case '2': id += 2; break;
               case '3': id += 3; break;
               case '4': id += 4; break;
% W5 q, Q6 @& V+ a' {6 [+ |) A* j               case '5': id += 5; break;
! c- u6 S% K$ p! M               case '6': id += 6; break;
               case '7': id += 7; break;
               case '8': id += 8; break;
               case '9': id += 9; break;
               case 'a': case 'A': id += 10; break;
2 z8 j, ]* Z+ g               case 'b': case 'B': id += 11; break;
$ l- `7 o2 d4 L* l% R               case 'c': case 'C': id += 12; break;
               case 'd': case 'D': id += 13; break;
: U* {( p. o+ m# X) h               case 'e': case 'E': id += 14; break;
( N( o. G6 U0 _1 }+ D8 z( [) C6 B               case 'f': case 'F': id += 15; break;
               case 'g': case 'G': id += 16; break;
! a* U* F6 [4 I/ F               case 'h': case 'H': id += 17; break;
               case 'i': case 'I': id += 18; break;
. |# K' I4 r6 H; M1 o$ K               case 'j': case 'J': id += 19; break;
; l+ n3 D( ^1 k, C               case 'k': case 'K': id += 20; break;
  A# o# o5 e0 M3 x7 f5 h# V& o, |               case 'l': case 'L': id += 21; break;
6 c2 d8 P( l; C" Z# u               case 'm': case 'M': id += 22; break;
               case 'n': case 'N': id += 23; break;
; X8 ^9 Z. Q5 @& O5 d               case 'o': case 'O': id += 24; break;
5 ^; s  B6 Y$ U$ U# J( J3 o- j& G               case 'p': case ';P': id += 25; break;
               case 'q': case 'Q': id += 26; break;
/ |# Q# f' J8 j' D               case 'r': case 'R': id += 27; break;
  `1 N6 H5 O! ]5 {1 @+ p               case 's': case 'S': id += 28; break;
               case 't': case 'T': id += 29; break;
               case 'u': case 'U': id += 30; break;
               case 'v': case 'V': id += 31; break;
               case 'w': case 'W': id += 32; break;
               case 'x': case 'X': id += 33; break;
               case 'y': case 'Y': id += 34; break;
  X$ F1 k4 |9 Q               case 'z': case 'Z': id += 35; break;
               default : id /= 40 ;
           }
" V/ b- ]) o' E( P( m* y       }
' a) Y+ L6 r4 W       if (id > 268435455) id %= 268435456;

- t+ f6 V; D: L; o2 ~+ K//        if ( al1 == 0x58 )
' ?% O) @/ L1 L- }1 d  y7 h           printf ( "i=%d ID=%d al=%x,%x\n" , i , id , al , al1 ) ;
   }
, H$ {: d0 w& U4 e7 ]" g/ D   getch () ;
+ v4 F% u0 J6 K& i   return 0;
- F" c  L7 B" k; q, Z}