|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码对照FunctionIfIsSerial()
DimoWsh
DimstrSerial
DimarrSerial
DimstrChar
Dimidx
Dimisummary
onerrorresumenext
setWshShell=Server.CreateObject("WScript.Shell")
strSerial=WshShell.RegRead("HKLMSOFTWAREasongwjdhProductId")
setWshShell=nothing
iflen(strSerial)23then
IfIsSerial=false
exitfunction
endif
arrSerial=split(strSerial,"-")
if(ubound(arrSerial)-lBound(arrSerial))3then
IfIsSerial=false
exitfunction
endif
isummary=0
strSerial=arrSerial(0)
idx=1
DoWhileidx<=5
strChar=Mid(strSerial,idx,1)
isummary=isummary+(Asc(strChar)*4)
idx=idx+1
Loop
strSerial=arrSerial(1)
idx=1
DoWhileidx<=5
strChar=Mid(strSerial,idx,1)
isummary=isummary+Asc(strChar)*3
idx=idx+1
Loop
strSerial=arrSerial(2)
idx=1
DoWhileidx<=5
strChar=Mid(strSerial,idx,1)
isummary=isummary+Asc(strChar)*2
idx=idx+1
Loop
strSerial=arrSerial(3)
idx=1
DoWhileidx<=5
strChar=Mid(strSerial,idx,1)
isummary=isummary+Asc(strChar)
idx=idx+1
Loop
Ifisummary3364Then
IfIsSerial=False
Else
IfIsSerial=True
EndIf
EndFunction
</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|