怎么样通过ASP编程获得硬盘序列号？
PrivateDeclareFunctionGetVolumeInformation&Lib"kernel32"Alias"GetVolumeInformationA"(ByVallpRootPathNameAsString,ByValpVolumeNameBufferAsString,ByValnVolumeNameSizeAsLong,lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,ByValnFileSystemNameSizeAsLong)PrivateConstMAX_FILENAME_LEN=256PrivateConstGETSERIALPASSWORD="lxy"PublicFunctionDriveSerial(ByValsDrvAsString)AsLong'得到硬盘的序列号DimRetValAsLongDimstrAsString*MAX_FILENAME_LENDimstr2AsString*MAX_FILENAME_LENDimaAsLongDimbAsLongCallGetVolumeInformation(sDrv&":",str,MAX_FILENAME_LEN,RetVal,a,b,str2,MAX_FILENAME_LEN)DriveSerial=RetValEndFunctionPublicFunctionGetApplySerial()AsLong'根据c盘的序列号生成一个申请码GetApplySerial=DriveSerial("c")IfGetApplySerial<0ThenGetApplySerial=0-GetApplySerialEndFunction'根据申请码和密码表及密码得到序列号PublicFunctiongetSerial(ByValSRCAsLong,ByValPASSWORDAsString)AsStringDimSourceStringAsStringDimNewSRCAsLongForI=0To30If(SRCAnd2^I)=2^IThenSourceString=SourceString+"1"ElseSourceString=SourceString+"0"EndIfNextIIfSRC<0ThenSourceString=SourceString+"1"ElseSourceString=SourceString+"0"EndIfDimTableAsString'=========================================================================='参数Table是密码表，根据你的要求换成别的，不过长度要一致'=========================================================================='注意：这里的密码表变动后，对应的注册号生成器的密码表也要完全一致才能生成正确的注册号Table="JSDJFKLUWRUOISDH;KSADJKLWQ;ABCDEFHIHL;KLADSDKJAGFWIHERQOWRLQH"'==========================================================================DimTableIndexAsIntegerDimResultAsStringDimMidWordAsStringDimMidWordValueAsByteDimResultValueAsByteFort=1To1ForI=1ToLen(SourceString)MidWord=Mid(SourceString,I,1)MidWordValue=Asc(MidWord)TableIndex=TableIndex+1IfTableIndex>Len(Table)ThenTableIndex=1ResultValue=Asc(Mid(Table,TableIndex,1))ModMidWordValueResult=Result+Hex(ResultValue)NextISourceString=ResultNexttDimBitTORoolAsIntegerFort=1ToLen(CStr(SRC))BitTORool=SRCAnd2^tForI=1ToBitTORoolSourceString=Right(SourceString,1)_+Left(SourceString,Len(SourceString)-1)NextINexttIfPASSWORD=GETSERIALPASSWORDThengetSerial=SourceStringElsegetSerial="你无权获得软件序列号"EndIfEndFunction'验证序列号是否正确PublicFunctionIsSerial(ByValSerialAsString)AsBooleanIfSerial=getSerial(GetApplySerial(),GETSERIALPASSWORD)ThenIsSerial=TrueElseIsSerial=FalseEndIfEndFunctionPublicFunctioncheckSerial()DimIIAsNewINIII.FileName="D:akJFManageserial.ini"'INI文件名II.AppName="SERIAL"'INI小节名称II.KeyName="Serial"'INI项目名Serial=II.GetINIIfIsSerial(Serial)ThencheckSerial="通过注册码检查"ElsecheckSerial="没通过注册码检查，请在serial.ini文件中设置注册码"II.KeyName="ApplySerial"'INI项目名II.ValueStr=GetApplySerial()II.WriteINIEndIfSetII=NothingEndFunction
原作者：heraldboy
本文地址：http://www.45fan.com/dnjc/72987.html