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

天云上人

WORD pw[256];

  G2 l7 z  e) w8 I5 U) vstatic DWORD idt, int_idt;
static DWORD Base;
: x* I4 Q- g6 g  ustatic WORD Entry;
. R1 L. S  \; Z# u2 k' H7 A' ]% O
#pragma warning (disable:4035)
static int inp(WORD rdx)
4 d/ R; R; U1 z( U4 ]' t{
. I) v3 x4 U6 A/ m   _asm xor eax, eax
   _asm mov dx, rdx
7 _9 v) }: S  H5 b. B1 y1 k+ K7 f   _asm in al, dx
}

static WORD inpw(WORD rdx)
/ E" \; ?( {: R  C3 e( e3 N! ?{
0 W- [2 M' n1 p& f- A//    WORD retData ;
   _asm xor eax, eax
  e. w- c3 ^( L; Q   _asm mov dx, rdx
   _asm in ax, dx
. @- H% a+ F, c1 K# _, y//    _asm mov retData,ax
//    return retData ;
}
9 g( _+ c- F: v$ _9 O( P  w! E
static void outp(WORD rdx, int ral)
{
   _asm mov dx, rdx
/ J& c+ Z$ j& @. Z  H0 Q   _asm mov eax, ral
   _asm out dx, al
}
' N1 J9 z( q5 T1 {/****************************************************************************/
' a: X3 J, X3 u) }- z5 f$ L9 rWORD baseAddress;
6 g! E2 m. e) B$ z  V% |int drive = 0 ;
$ \$ o1 e$ a% B. k8 ?+ f, \int al ;
int al1 ;
! a3 r) c6 |/ t* l3 K% p/****************************************************************************/
/ i: ?# B% y- L: {3 y! n& s# q! Nstatic int WaitIde()
{
   int al;
3 I& r+ `6 z- M/ w   al =  0x80 ;

   while (  al & 0x80 ) al = inp ( (WORD)(baseAddress+7) ) ;
7 |8 Q0 o" X0 H9 f6 v/ k" C0 K1 S
# p  K. M9 o+ l   return al;
}
/****************************************************************************/
$ t+ e8 [( H- bstatic void ReadIDE()
- j" w' U; c: ^; e' z7 W{
0 `0 h% n* X3 }2 P   int i;
$ a. P, \. w' r   switch (drive / 2)
   {
       case 0: baseAddress = 0x1f0; break;
       case 1: baseAddress = 0x170; break;
       case 2: baseAddress = 0x1e8; break;
       case 3: baseAddress = 0x168; break;
1 c; M+ ?. E7 r/ E; D   }
+ _, {' c6 n2 ^) G1 t$ p
1 s5 w0 `# C5 P( x/ k8 o+ I   WaitIde();
! c9 }% M1 s) f* d9 B/ ?7 q   outp((WORD)(baseAddress+6),0xA0);
   al = WaitIde();
! _4 B; o# O8 k" u; t7 y
( z. _' A# T  ]6 w$ {6 W   if ( 0==(drive%2) && (al&0x50)!=0x50) return;
   if ( 1==(drive%2) && (al&0x20)!=0x20) return;
+ W7 E0 p* k$ c1 a  a7 ]
) {6 h9 B% e9 N* _# x   if ( 0==(drive%2) )
4 Z4 o- h2 C. |       outp((WORD)(baseAddress+6),0xA0);
1 C( }! J+ l. W& s- m& L   else
8 _  K; d- N* N% r5 G7 Y9 q- B       outp((WORD)(baseAddress+6),0xB0);

7 I" a/ [2 S" d3 I; w  v   outp((WORD)(baseAddress+7),0xEC);
" r( c! C3 ^1 i$ N* u   al1 = WaitIde();
   if ((al1&0x58)!=0x58) return ;

   for (i=0;i<256;i++)
# j7 w  `% `2 Q: {+ S4 g! Z   {
2 i  U$ M& ~7 g( d       pw = inpw(baseAddress);
   }
}
7 g) ]) F/ }0 h+ T# c
static void __declspec( naked ) NowInRing0()
, d* V5 K: S' p- R4 N{
   _asm
   {
       push ebp
- F$ C+ i9 Q1 O0 {0 @" ~       mov ebp,esp

       call ReadIDE
       cli
* \& x6 R, u4 L/ o6 ^0 p       mov ebx, int_idt
       mov ax, Entry
  z& ~0 s7 ?: _! {+ a       mov word ptr [ebx-4], ax
  [: ]6 r( c8 G0 G4 F# q" ^       mov eax, Base
       shr eax, 16
       mov [ebx+2], ax
# ^6 P  }# I8 I) l4 T) ]       sti
       leave
3 @' b# }% i: R+ a) @! d       iretd
: H* }# r7 \+ F7 `2 E0 z7 f2 m8 E; V" d   }
! o2 n: J7 R* b0 b}
. d4 c/ k: a( P5 R
void GetIDEInfo()
{
   DWORD dwExcept;
) J( I' R: H" ^1 j& D8 b- C) P
* @+ F, Y5 n% p   dwExcept = (DWORD)NowInRing0;

   _asm
   {
- ]5 I0 g' M* S       mov eax, fs:[0]
       push eax
       sidt [esp-02h]
       pop ebx
2 ~/ T* c7 Q; r# g& W+ z% b/ i' Y       mov idt, ebx
       add ebx, 0x1C
0 F7 Z( P9 U0 G$ X' c" A; ~       mov int_idt, ebx
* C+ C$ o5 |. @  {' o
5 I% @9 ~4 I6 l* I# I$ }" a       mov eax, [ebx]
       mov [Base], eax
       mov ax, [ebx-4]
7 ~/ T7 k* u  s6 I& x$ ?       mov [Entry], ax
$ l; |. n- o6 L1 W
       cli
  G; n. M3 p/ D/ U1 `) S1 m       mov esi, dwExcept
       push esi
" c* `  W) o; g( h6 T       mov [ebx-4], si
       shr esi, 16
       mov [ebx+2], si
& S% c9 v- I6 _       pop esi
; \! I5 D1 |. @( R' {- Q       sti

- V; a6 h8 S# j& j. `6 \# `' L1 M       int 3
3 f2 L% A  j0 h! t   }
}
int main()
{
% T$ ]) W) d5 A5 u( ~   char s[80];
4 U3 w$ D0 J0 G$ U3 C! H8 i! D   register i,j;
2 q  W  I5 M3 R' Y+ s   unsigned long id = 0 ;

: P% Z3 M  [+ ]7 E3 j; Z! s//特别注意：这段程序不能 Debug
   for ( drive=0 ; drive<4 ; drive++ )
   {
       memset ( pw , 0 , 256*sizeof( WORD ) ) ;
       id = 0 ;
       al = 0 ;
       al1 = 0 ;
# r. g+ J: c9 R3 K" N       GetIDEInfo();
; i7 M" f4 D4 h4 c
       for (i=0,j=0;i<10;i++)
       {
           s[j++]=(char)(pw[10+i]>>8);
           s[j++]=(char)(pw[10+i]&0xFF);
       }
       s[j] = 0;

# ?4 J% U  ^- I//        for (i=0;s;i++)printf("%d,",s);printf("\n");
       printf("Serial=%s\n", s);

4 ]0 P( ]; n" h) g" D& \       for ( i=0 ; s ; i++ )
; P  @/ `7 L9 b1 O. z# i       {
           if ('-' == s || '/'==s || ' '==s) continue;
2 B& _& f$ Q5 i2 x           printf ( "%d," , s ) ;
           id *= 40 ;        //10 ;
           switch (s)
           {
" y0 D- q4 E3 J3 E  h& o               case '0': id += 0; break;
               case '1': id += 1; break;
               case '2': id += 2; break;
7 W2 K( j* X) U+ P               case '3': id += 3; break;
" e; _& M, r" W" b               case '4': id += 4; break;
               case '5': id += 5; break;
               case '6': id += 6; break;
+ z& j: S2 O* s- S- Q8 X) W- o9 O               case '7': id += 7; break;
               case '8': id += 8; break;
               case '9': id += 9; break;
, S% M. h, M3 K  j4 L7 Q               case 'a': case 'A': id += 10; break;
               case 'b': case 'B': id += 11; break;
               case 'c': case 'C': id += 12; break;
5 o/ O7 ^6 r) B+ m* j+ V( N               case 'd': case 'D': id += 13; break;
- j/ b7 ?3 g' P5 t: Z               case 'e': case 'E': id += 14; break;
2 L/ |$ O- s* p4 p/ n# P9 d               case 'f': case 'F': id += 15; break;
               case 'g': case 'G': id += 16; break;
               case 'h': case 'H': id += 17; break;
  J+ V4 m6 D4 E4 I( M" @7 z/ p               case 'i': case 'I': id += 18; break;
3 B$ b) s5 V  h  E3 \  F  n1 Q( p               case 'j': case 'J': id += 19; break;
# x+ E! s! H/ o1 M5 a) s               case 'k': case 'K': id += 20; break;
               case 'l': case 'L': id += 21; break;
               case 'm': case 'M': id += 22; break;
               case 'n': case 'N': id += 23; break;
               case 'o': case 'O': id += 24; break;
               case 'p': case ';P': id += 25; break;
               case 'q': case 'Q': id += 26; break;
2 _4 l$ @* f/ I2 Z& h               case 'r': case 'R': id += 27; break;
# n# u/ G. U% B- {* _               case 's': case 'S': id += 28; break;
               case 't': case 'T': id += 29; break;
# v/ v* w# A8 Q2 S5 j) f               case 'u': case 'U': id += 30; break;
% e8 n, C$ |& i( f, q               case 'v': case 'V': id += 31; break;
1 R' ?$ C; o, t2 _               case 'w': case 'W': id += 32; break;
               case 'x': case 'X': id += 33; break;
               case 'y': case 'Y': id += 34; break;
               case 'z': case 'Z': id += 35; break;
               default : id /= 40 ;
           }
$ [7 M* o& J6 [3 s# |       }
       if (id > 268435455) id %= 268435456;
8 w4 [& t* m2 W  O1 v' a
4 f, M' O/ @! n: P//        if ( al1 == 0x58 )
1 B5 ~& u7 x2 P1 p2 W' p$ x           printf ( "i=%d ID=%d al=%x,%x\n" , i , id , al , al1 ) ;
   }
% U8 F% z& F8 i% @2 E7 @4 h   getch () ;
   return 0;
}