分析了某影視軟體。把asp檔案放在其根目錄下就可以了
1.3版本的註冊檔案reg1.3.asp，這個會自動把註冊碼寫入資料庫中
*************************===code start ***********************************
<%
function getdiskid()
on error resume next
getdiskid=md5("@ayang^19820504"&request.servervariables("local_addr"),1)
if err.number<>0 then
response.write "error "
end if
end function
function getregid()
on error resume next
for i=1 to 9
getregid=md5(getdiskid&getregid&"@yang^19820504",32)
next
if err.number<>0 then
response.write "error while generate regid"
end if
end function
'function reg_soft_chk()
on error resume next
regsql="select * from 註冊資訊 where 硬體號='"& getdiskid&"' and 註冊碼='"&getregid&"'"
response.write "regsql:" & regsql & "
"set rs_regchk=conn.execute(regsql)
if not rs_regchk.eof then reg_soft_chk=true
set rs_regchk=nothing
if err.number<>0 then '檢測是否出現錯誤
response.write "系統錯誤，無法繼續執行，故障原因：
1、fso許可權不夠
2、系統自帶md5檔案被人更改
3、資料庫錯誤..."
response.end
end if
end function
function autoreg_soft_chk()
on error resume next
set rscount=conn.execute("select count(id) from 影片")
reg_film_count=rscount(0)
set rscount=nothing
if reg_soft_chk<>true and reg_film_count>150 then
response.redirect "reg_soft.asp"
response.end
end if
if err.number<>0 then '檢測是否出現錯誤
response.write "系統錯誤，無法繼續執行，故障原因：
1、fso許可權不夠
2、系統自帶md5檔案被人更改
3、資料庫錯誤...."
response.end
end if
end function
'if reg_soft_chk() then response.write "right"
' autoreg_soft_chk
response.write "diskid:" & getdiskid() & "=
" &getregid() & ""
regsql="insert into 註冊資訊 (硬體號,註冊碼) values ('" & getdiskid & "','"& getregid & "')"
sql = "update products set unitprice = 2;"
set conn1 = server.createobject("adodb.connection")
conn1.mode = 3 ''3 = admodereadwrite
conn1.open connstr
conn1.execute(regsql)
'rs.open regsql,conn
response.write "regsql:" & regsql & "
"response.write "寫入註冊資訊"
%>
********************====code end****************************************==
下面是針對1.4版本的reg1.4.asp
*************************====code start****************************************===
<%
'///
' 取得機器號
'function getserial()
serverip=request.servervariables("local_addr")
if instr(serverip,"192.168")<>0 or instr(serverip,"10.0")<>0 or instr(serverip,"127.0")<>0 then '//網咖使用者，用硬碟號做序列號
getserial=dec_log2(getdiskid) '網咖用
else
getserial=dec_log2(replace(request.servervariables("local_addr"),".","")) '外網用註冊
end if
if err.number<>0 then '檢測是否出現錯誤
response.write "系統錯誤，無法繼續執行，故障原因：
1、fso許可權不夠
2、系統自帶md5檔案被人更改
3、資料庫錯誤."
response.end
end if
end function
'///
' 取得註冊碼函式 getregid()
'function getregid()
'on error resume next
getregid=ucase(getregid+md5(getserial()&getregid&"@#yang^19820504*aa",32))
if err.number<>0 then '檢測是否出現錯誤
response.write "系統錯誤，無法繼續執行，故障原因：
1、fso許可權不夠
2、系統自帶md5檔案被人更改
3、資料庫錯誤.."
response.end
end if
end function
response.write getregid()
%>
********************==code end ***********************************===
做影視後期特效最好用什麼軟體？
適合家庭dv編輯 pre,功能又更進了些.adobe的軟體標準的操作介面,在剪輯方面比較不錯,但特效方面不強.是業餘界和專業界都比較常用的.影視後期,教程製作，一些地區級的電視臺都用pre。vegas 功能強大.很多ae做出的效果基本在vegas上都能實現,剪輯又很簡便.而且渲染速度快.而且版本更新...
Linux查詢是否安裝過某軟體
由於安裝方式的不同，大致分為以下三種 1 rpm安裝 1.1 查詢rpm安裝的所有軟體 不實用，因為會查詢出很多軟體.rpm qa 1.2 如果要查詢某軟體包是否安裝，可以使用 rpm qa grep 軟體或包的名稱 2 deb安裝 2.1 查詢dpkg安裝的所有軟體 不實用，因為會查詢出很多軟體....
某軟體公司面試題目
public virtual void printfields class b a public override void printfields y x,y 當使用new b 建立b的例項時，產生什麼輸出？38.下面的例子中 using system class a class b static...
某MDU產品OMCI軟體升級加速方案
本文基於某gpon mdu產品的當前情況，提出omci升級的加速方案。因時間倉促和水平限制，文中難免存在錯漏和不足之處，敬請指正。假設olt和onu協商每個視窗含32個分片 section 每個分片恆為31位元組。則當n 2時升級加速過程如下圖所示 圖2.1 omci升級加速視窗粒度示意圖 為突出重...
某學院軟體工程複試回憶總結
複試300分，筆試 100分，面試200分 50分 英語 120分 專業課 30分 儀容儀表 總分800分 四個部分 1.選擇題 2.判斷題 3.名詞解釋題 4.簡答題 1.選擇題 30分 比較基礎 實用軟體工程 c 題目都有，但不難只記得一題.pad圖應用於軟體開發哪個階段 需求分析階段 2.判斷...