狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

LOGO OA教程 ERP教程 模切知識(shí)交流 PMS教程 CRM教程 開(kāi)發(fā)文檔 其他文檔  
 
網(wǎng)站管理員

[點(diǎn)晴永久免費(fèi)OA]ASP生成數(shù)字相加求和的BMP圖片驗(yàn)證碼
admin
2022年6月21日 23:21 本文熱度 898
目前網(wǎng)絡(luò)上有許多圖片驗(yàn)證碼形式，那些沒(méi)有生成圖片的驗(yàn)證碼的抗破解防御能力簡(jiǎn)直不堪一擊；有人直接在網(wǎng)頁(yè)源碼里顯示出具體的數(shù)字，然后要求訪問(wèn)者輸入一個(gè)相加后的和；如3+5=多少，這樣的驗(yàn)證碼新意倒有一些，不過(guò)可惜，根本沒(méi)有起到保護(hù)的作用。改進(jìn)一下以上的新意，直接把3+6=多少的形式采用asp程序生成Bmp圖片格式，并且把數(shù)字相加后的和存進(jìn)session里，加大破解的門檻；沒(méi)有一些圖形圖像學(xué)知識(shí)的人是無(wú)法破解的。
代碼如下：
<% 
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.cachecontrol = "no-cache"
Response.ContentType = "Image/Bmp"  
Call Com_CreatValidCode()  
Sub Com_CreatValidCode()  
Randomize 
Dim i, ii, iii  
Const cAmount = 10 '數(shù)值個(gè)數(shù)
Const cCode = "0123456789"  '數(shù)值范圍
Dim vColorData(2)
vColorData(0) = "" '黑色點(diǎn)要轉(zhuǎn)為彩色點(diǎn),暫時(shí)不定義
vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '白點(diǎn)
Dim vCode(4), vCodes '產(chǎn)生一組任意數(shù)
For i = 0 To 3  
vCode(i) = Int(Rnd * cAmount) '數(shù)組等于總數(shù)*隨機(jī)數(shù)
if i=1 then vCode(i)="11"  '第二位為+
if i=3 then vCode(i)="10"  '第四位為=
vCodes=vCodes&Mid(cCode,vCode(i)+1,1) '串等于串加上后續(xù)值
Next  
session("checkcode")=int(Mid(vCodes,1,1)) + int(Mid(vCodes,2,1)) '計(jì)算相加和值并賦值給session
Dim vNumberData(36)  
vNumberData(0) = 
"1110000111110111101111011110111101111011110111101111011110111101111011110111101111011110111110000111"  
vNumberData(1) = 
"1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"  
vNumberData(2) = 
"1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"  
vNumberData(3) = 
"1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"  
vNumberData(4) = 
"1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"  
vNumberData(5) = 
"1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"  
vNumberData(6) = 
"1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"  
vNumberData(7) = 
"1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"  
vNumberData(8) = 
"1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"  
vNumberData(9) = 
"1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"  
'表示=
vNumberData(10) = 
"1111111111111111111111111111111000000001111111111111111111111000000001111111111111111111111111111111"  
'表示+
vNumberData(11) = 
"1111111111111100111111110011111111001111100000000110000000011111001111111100111111110011111111111111"  
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_  
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_  
ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_  
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)  
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_  
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_  
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_  
ChrB(0) & ChrB(0)  
For i = 9 To 0 Step -1 '行
For ii = 0 To 3  '字?jǐn)?shù)
For iii = 1 To 10 '像素點(diǎn)
  if Mid(vNumberData(vCode(ii)), i * 10 + iii , 1)  ="0" then '產(chǎn)生彩色點(diǎn),減去一個(gè)固定值,可使顏色偏深
    dim a,b,c
    a=abs(Rnd * 256-60)
    b=abs(Rnd * 256-128)
    c=abs(Rnd * 256-60)
    vColorData(0) = ChrB(a) & ChrB(b) & ChrB(c) 
    Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii , 1))  
  else
    dim d,e,f '產(chǎn)生彩色背景，顏色偏淺，也可以隨機(jī)生成噪點(diǎn)做背景
    d=abs(Rnd * 255)
    e=abs(Rnd * 255)
    f=abs(Rnd * 255)
    if d+e+f>640 then  '可改值,調(diào)整背景色深
      vColorData(1) = ChrB(d) & ChrB(e) & ChrB(f) 
      Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii , 1))  
    else
      Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii , 1))  
    end if
  end if
Next  
Next  
Next  
End Sub  
%> 

以上代碼可直接另存為一個(gè)文件，如vcode.asp，然后通過(guò)圖片的方式調(diào)用改文件，如<img src="vcode.asp" border=0 align="absmiddle" />，然后在提交后的處理頁(yè)面里驗(yàn)證session("checkcode")的值就可以了。這個(gè)代碼是flymorn自己改進(jìn)的，原始的參考代碼請(qǐng)直接在google里搜索“用ASP生成Bmp圖片”，或查看這個(gè)網(wǎng)址，可以找到一些相關(guān)的。

    最后，就是“5+6=”這樣的隨機(jī)數(shù)字相加的形式生成在bmp圖片里了，它們的和需要你計(jì)算后填入，以達(dá)到驗(yàn)證的功能，防止機(jī)器蹂躪你的網(wǎng)站。

該文章在 2022/6/21 23:21:38 編輯過(guò)
關(guān)鍵字查詢
相關(guān)文章
正在查詢...
點(diǎn)晴ERP是一款針對(duì)中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國(guó)內(nèi)大量中小企業(yè)的青睞。
點(diǎn)晴PMS碼頭管理系統(tǒng)主要針對(duì)港口碼頭集裝箱與散貨日常運(yùn)作、調(diào)度、堆場(chǎng)、車隊(duì)、財(cái)務(wù)費(fèi)用、相關(guān)報(bào)表等業(yè)務(wù)管理，結(jié)合碼頭的業(yè)務(wù)特點(diǎn)，圍繞調(diào)度、堆場(chǎng)作業(yè)而開(kāi)發(fā)的。集技術(shù)的先進(jìn)性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。
點(diǎn)晴WMS倉(cāng)儲(chǔ)管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購(gòu)管理,倉(cāng)儲(chǔ)管理,倉(cāng)庫(kù)管理,保質(zhì)期管理,貨位管理,庫(kù)位管理,生產(chǎn)管理,WMS管理系統(tǒng),標(biāo)簽打印,條形碼,二維碼管理,批號(hào)管理軟件。
點(diǎn)晴免費(fèi)OA是一款軟件和通用服務(wù)都免費(fèi)，不限功能、不限時(shí)間、不限用戶的免費(fèi)OA協(xié)同辦公管理系統(tǒng)。
Copyright 2010-2025 ClickSun All Rights Reserved