안녕하세요 김영욱입니다.

보안또는 상용프로그램에서 Rock이 필요할때가 있습니다.
물론 H/W를 이용(Dongle Key)할수도 있고, 셋업될 PC의 시리얼 번호로
제어 할수도 있습니다.

밑의 내용은 볼랜드 포럼에 나온 내용이구요, 제가 VCL환경에서 작동하도록
약간 수정한 내용입니다.

참조하시길...


#pragma option -w-asc

#define VCL_IOSTREAM

#include <vcl.h>

#pragma hdrstop
#include <iostream.h>

#include "Unit1.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TForm1::GetSerialNum()
{
unsigned long FeatureFlags;
unsigned long SerialMostSignificantBits;
unsigned long SerialMiddleSignificantBits;
unsigned long SerialLeastSignificantBits;
AnsiString Information;

asm mov eax,1;

__emit__(0x0f);
__emit__(0xa2);

asm
{
  mov FeatureFlags, edx
  mov SerialMostSignificantBits, eax
  mov eax,3
}

__emit__(0x0f);
__emit__(0xa2);

asm
{
  mov SerialMiddleSignificantBits, edx
  mov SerialLeastSignificantBits, ecx
}

bool SerialEnabled = (FeatureFlags & 0x40000);

if(SerialEnabled)
{
  Information.sprintf("Feature flags: %X\n Serial : %.08X%.08X%.08X",
                       FeatureFlags,SerialMostSignificantBits,SerialMiddleSignificantBits,
                       SerialLeastSignificantBits);

}
else
  Information = "Serial number not available";

   return Information;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label1->Caption = GetSerialNum();
}
//---------------------------------------------------------------------------