为什么用磁盘序列号加密过的代码不能被复制安装？.doc

为什么用磁盘序列号加密过的代码不能被复制安装？ 在编程前，需要建立一个Access数据库（其它数据库也行）ID.mdb（密码3302）来存放相关数据，内建一个DriveInfo表，数据结构： 序号 字 段 类 型 初始值 长 度 作 用 1 id 自动编号 1 — — 2 Serno 文本12 磁盘序列号（10进制） 3 Wrimark 数字 0 1 写盘标志 做好准备工作，下面就来编写我们的主文件（其它文件很简单，可自行编写）： default.asp＜html＞＜head＞＜title＞精彩春风之磁盘序列号加密代码存取管理＜/title＞＜/head＞＜% dim conn,fs,fSet conn = Server.CreateObject(ADODB.Connection)conn.open driver={Microsoft Access Driver (*.mdb)};uid=;pwd=3302;dbq=server.mappath(id.mdb)set fs=server.createObject(scripting.filesystemobject)testDrive=Server.MapPath(/DRIVEINFO.ASP) 通过MapPath获得当前盘盘符testDrive=Left(testDrive,3)set f=fs.getdrive(testDrive) 调用GetDrive方法赋予驱动器一个变量Mysql=SELECT * From driveinfo where id=1 set rsCheck = Server.CreateObject(ADODB.Recordset)rsCheck.open Mysql,conn,1,1FSER=trim(f.serialnumber) 获得当前盘序列号StrSerno=trim(rsCheck.fields(SERNO))StrMark=rsCheck.fields(WRIMARK) Wrimark值为0表示代表合法用户未安装系统,值为1代表该系统已安装.值为1且序列号与当前盘不符时,则判定为非法复制用户if StrSerno＜＞FSER and StrMark=0 then 如是第一次安装,则设置写盘标志为1session(pass)=true 定义用户Session,并设置为全局ASP文档标识变量set rsMain = Server.CreateObject(ADODB.Recordset)Mysql1=update driveinfo SET SERNO=FSER, WRIMARK=1 rsMain.open Mysql1,conn,1,2response.write(＜a href=success.asp＞安装成功!欢迎光临随风起舞存取站点!＜/a＞＝set rsMain=nothingelse if StrSerno=FSER then 合法用户可再次进入session(pass)=trueresponse.write(＜a href=success.asp＞再次欢迎!您已被随风起舞授权,允许进行存取...＜/a＞＝else 非法复制用户session(pass)=falseresponse.write(＜a href=fail.htm＞IT IS ILLEGAL TO COPY THE WEBSITES ASP DOCUMENT. YOU ARE NOT RIGRT TO USE THE PROGRAM.＜/a＞＝end ifend if set f=nothingset fs=nothing%＞＜/html＞ 然后，我们在合法用户可以访问的各个ASP文件前面添加如下代码： ＜% if Session(pass)=false then 对Session变量进行判定,非法则跳出本ASP文件response.redirect(fail.htm)end if %＞ 大功告成了。如果还想进一步加密，那就再把ASP程序用微软的SCRENC.EXE加一层密吧，这样我们会更放心一些！