久久久一区二区三区,黄a在线观看,午夜免费小视频

訂閱本欄目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp版圖形驗(yàn)證碼，可自定義點(diǎn)陣信息，支持字符扭曲、傾斜、傾斜

http://blog.ii-home.cn 2009/1/23 10:38:55 admin 字體:大中小瀏覽 15989

代碼并非完全原創(chuàng)，

主要代碼是另一位不知名的朋友寫(xiě)的，來(lái)源早已記不清楚了。

我加了一個(gè) ChangeShape 和 Fill 函數(shù)，

ChangeShape 用于使字符扭曲、傾斜（左右隨機(jī)），

需要的朋友拿去試試，個(gè)人覺(jué)得效果還可以，

當(dāng)然，我數(shù)學(xué)白癡，呵呵，不懂得變通，死腦筋，大家不要見(jiàn)笑。

反正眼下也沒(méi)有asp版圖形驗(yàn)證碼支持扭曲，如果真需要就拿我這個(gè)頂一下吧。

保存下面代碼到code.asp,在需要顯示驗(yàn)證碼的地方使用
<img src="code.asp" alt="驗(yàn)證碼" />來(lái)顯示,使用session("qwbm")
來(lái)提取驗(yàn)證碼

以下為效果與相關(guān)的代碼：

以下為詳細(xì)代碼

<% 
Class CAMXAM_COM_RndCodeBmp 
Private TextDataLib,TextData,BmpData,BmpHead,BmpWidth,BmpHeight,BmpSize,TextDataLength,SessionString 
Public SessionName,TextLength,BackColor,TextColor,YawpColor,YawpCount

Private Sub Class_Initialize() 
End Sub

Private Sub Class_Terminate() 
End Sub

Public Function SetTextInfo(TextString) 
    ReDim TextDataLib(0) 
    TextDataLib(0) = TextString 
End Function

Public Function AddTextData(TextDataString) 
    TextDataLength = UBound(TextDataLib) + 1 
    ReDim Preserve TextDataLib(TextDataLength) 
    TextDataLib(TextDataLength) = TextDataString 
End Function

Private Function Getbinary(IntNumber) 
    Dim IntBin0,IntBin1,IntBin2,IntBin0_,IntBin1_,IntBin2_ 
    IntBin0 = Int(IntNumber / 16777216) 
    IntBin0_= IntNumber Mod 16777216 
    IntBin1 = Int(IntBin0_ / 65536) 
    IntBin1_= IntBin0_ Mod 65536 
    IntBin2 = Int(IntBin1_ / 256) 
    IntBin2_= IntBin1_ Mod 256 
    Getbinary = ChrB(IntBin2_) & ChrB(IntBin2) & ChrB(IntBin1) & ChrB(IntBin0) 
End Function

Private Function GetColadRstring(ColadRstring) 
    Dim ColorArray,CALength 
    ColorArray = Split(ColadRstring,",") 
    CALength = UBound(ColorArray) 
    GetColadRstring = ColorArray(GetRnd(0,CALength)) 
End Function

Private Function GetRnd(LowNumber,UpNumber) 
    Randomize Timer 
    GetRnd = Int((UpNumber - LowNumber + 1) * Rnd + LowNumber) 
End Function

Private Function FileHeader() 
    Response.Expires = -1 
    Response.AddHeader "Pragma","no-cache" 
    Response.AddHeader "cache-ctrol","no-cache" 
    Response.ContentType = "Image/BMP" 
End Function

Private Function SetBmpHead(BmpSize,Width,Height) 
    BmpHead = ChrB(66) & ChrB(77) 
    BmpHead = BmpHead & Getbinary(BmpSize+54) 
    BmpHead = BmpHead & Getbinary(0) 
    BmpHead = BmpHead & Getbinary(54) 
    BmpHead = BmpHead & Getbinary(40) 
    BmpHead = BmpHead & Getbinary(Width) 
    BmpHead = BmpHead & Getbinary(Height) 
    BmpHead = BmpHead & ChrB(1) & ChrB(0) 
    BmpHead = BmpHead & ChrB(24) & ChrB(0) 
    BmpHead = BmpHead & Getbinary(0) 
    BmpHead = BmpHead & Getbinary(BmpSize) 
    BmpHead = BmpHead & Getbinary(65536) 
    BmpHead = BmpHead & Getbinary(65536) 
    BmpHead = BmpHead & Getbinary(16777216) 
    BmpHead = BmpHead & Getbinary(16777216) 
End Function

Private Function GetRndTextData() 
    ReDim TextData(TextLength-1) 
    Dim IText 
    For IText = 0 To TextLength-1 Step +1 
        TextData(IText) = GetColadRstring(BackColor) & " " & GetColadRstring(TextColor) & " " & ChangeShape(TextDataLib(GetRnd(1,TextDataLength))) 
        SessionString = SessionString & GetTextData(IText)(4) 
    Next 
End Function

Private Function GetTextData(IText) 
    Dim TextArray,ArrayLength,ITextData 
    TextArray = Split(TextData(IText)," ") 
    ArrayLength = UBound(TextArray) 
    Dim TextDataArray(5) 
    TextDataArray(0) = TextArray(0) 
    TextDataArray(1) = TextArray(1) 
    TextDataArray(2) = Len(TextArray(3)) 
    TextDataArray(3) = ArrayLength - 2 
    TextDataArray(4) = TextArray(2) 
    For ITextData = 3 To ArrayLength Step +1 
        TextDataArray(5) = TextDataArray(5) & " " & TextArray(ITextData) 
    Next 
    GetTextData = TextDataArray 
End Function

Private Function GetColor(ColadRstring) 
    GetColor = ChrB("&H" & Mid(ColadRstring,6,2)) & ChrB("&H" & Mid(ColadRstring,4,2)) & ChrB("&H" & Mid(ColadRstring,2,2)) 
End Function

Private Function BmpColor(ColorA,ColorB) 
    Dim BmpColor_(1) 
    BmpColor_(0) = GetColor(ColorA) 
    BmpColor_(1) = GetColor(ColorB) 
    BmpColor = BmpColor_ 
End Function

Private Function SetBmpData() 
    Dim TextInfo,FontData,I,J,K 
    GetRndTextData() 
    TextInfo = GetTextData(0) 
    BmpHeight = TextInfo(3) 
    BmpWidth = TextInfo(2) * TextLength 
    BmpSize = BmpHeight * BmpWidth * 3 
    For I = BmpHeight To 1 Step -1 
        For J = 0 To TextLength -1 Step +1 
            TextInfo = GetTextData(J) 
            FontData = Split(TextInfo(5)," ")(I) 
            For K = 1 To TextInfo(2) Step +1 
                If GetRnd(1,99) < YawpCount Then 
                    BmpData = BmpData & GetColor(GetColadRstring(YawpColor)) 
                Else 
                    BmpData = BmpData & BmpColor(TextInfo(0),TextInfo(1))(Mid(FontData,K,1)) 
                End If 
            Next 
        Next 
    Next 
End Function

Public Function Write() 
    FileHeader() 
    SetBmpData() 
    SetBmpHead BmpSize,BmpWidth,BmpHeight 
    Response.BinaryWrite BmpHead 
    Response.BinaryWrite BmpData 
    Session(SessionName) = SessionString 
End Function

Public Function ChangeShape(psString) 
    Randomize Timer 
    sTemp =Split(psString, " ") 
    Dim nMaxWidth, nMaxHeight : nMaxWidth =16 : nMaxHeight =20 
    Dim nWidth, nHeight : nWidth =Len(sTemp(1)) : nHeight =ubound(sTemp) 
    Dim nTemp, nTemp1, sTemp, sReturn, nTopStart, nCurLeft, nAspect 
    nTopStart =Int((nHeight - 1 + 1) * Rnd + 1) 
    nAspect =Int((2 - 1 + 1) * Rnd + 1) 
    nCurLeft =1 
     
    Dim sFilter 
    sFilter ="aJLkKfFbdDhTBpP6eQ7" 
     
    If Instr(sFilter, sTemp(0)) =0 Then 
        For nTemp =nTopStart To ubound(sTemp) 
            If nCurLeft >7 Then 
                nCurLeft =5 
                For nTemp1 =nTemp to ubound(sTemp) 
                    If nCurLeft <1 Then Exit For 
                    sTemp(nTemp1) =Fill("0", int(nCurLeft /2) ) & sTemp(nTemp1) 
                    nCurLeft =nCurLeft -1 
                Next 
                Exit For 
            End If 
            sTemp(nTemp) =Fill("0", int(nCurLeft /2) ) & sTemp(nTemp) 
            nCurLeft =nCurLeft +1 
        Next 
    Else 
        For nTemp =1 to ubound(sTemp) 
            If nAspect =1 Then 
                sTemp(nTemp) =Fill("0", int(nCurLeft /2) ) & sTemp(nTemp) 
            Else 
                sTemp(nTemp) =sTemp(nTemp) & Fill("0", int(nCurLeft /2) ) 
                If Len(sTemp(nTemp)) <nMaxWidth Then sTemp(nTemp) =Fill("0", nMaxWidth - Len(sTemp(nTemp))) & sTemp(nTemp) 
            End If 
            nCurLeft =nCurLeft +1 
        Next

End If

For nTemp =1 to ubound(sTemp) 
        If Len(sTemp(nTemp)) <nMaxWidth Then sTemp(nTemp) =sTemp(nTemp) & Fill("0", nMaxWidth - Len(sTemp(nTemp))) 
        If sReturn <>"" Then sReturn =sReturn &" " 
        sReturn =sReturn & sTemp(nTemp) 
    Next

nTopStart =Int(((nMaxHeight -nHeight) - 1 + 1) * Rnd + 1) 
     
    For nTemp =1 to nTopStart 
        sReturn =Fill("0", nMaxWidth) &" "& sReturn 
    Next 
    For nTemp =0 to (nMaxHeight -nHeight -nTopStart) -1 
        sReturn =sReturn &" "& Fill("0", nMaxWidth) 
    Next

ChangeShape =sTemp(0) &" "& sReturn

End Function

Public Function Fill(psChar, pnWidth) 
    Dim nTemp, sTemp 
    For nTemp =1 To pnWidth 
        sTemp =sTemp & psChar 
    Next 
    Fill =sTemp 
End Function

End Class

Dim Bmp 
Set Bmp = New CAMXAM_COM_RndCodeBmp 
Bmp.SetTextInfo "點(diǎn)陣來(lái)源黑睿工作室" 
Bmp.AddTextData "2 00111100 01111110 11100111 11000011 00000011 00000011 00000110 00001100 00011000 00110000 01100000 11111111 11111111" 
Bmp.AddTextData "3 00111000 01111110 11000110 00000110 00000110 00011100 00011110 00000011 00000011 11000011 11000011 01111110 00111100" 
Bmp.AddTextData "4 000001100 000011100 000011100 000111100 001101100 001101100 011001100 110001100 111111111 111111111 000001100 000001100 000001100" 
Bmp.AddTextData "5 01111110 01111110 01100000 11000000 11011100 11111110 11000011 00000011 00000011 11000011 11000011 01111110 00111100" 
Bmp.AddTextData "6 00111100 01111110 01100011 11000000 11000000 11011100 11111110 11100011 11000011 11000011 01100011 01111110 00111100" 
Bmp.AddTextData "7 11111111 11111111 00000010 00000110 00001100 00001100 00011000 00011000 00011000 00011000 00110000 00110000 00110000" 
Bmp.AddTextData "8 00111100 01111110 11000011 11000011 11000011 01111110 01111110 11000011 11000011 11000011 11000011 01111110 00111100" 
Bmp.AddTextData "A 0011110000 0000110000 0001111000 0001111000 0011001100 0011001100 0011111100 0110000110 0110000110 1111001111" 
Bmp.AddTextData "b 11000000 11000000 11000000 11011100 11111110 11100111 11000011 11000011 11000011 11000011 11100111 11111110 11011100" 
Bmp.AddTextData "B 11111110 01100011 01100011 01100011 01111110 01100011 01100011 01100011 01100011 11111110" 
Bmp.AddTextData "c 0011110 0111111 1110011 1100000 1100000 1100000 1100000 1110011 0111111 0011110" 
Bmp.AddTextData "C 00111111 01100111 11000011 11000011 11000000 11000000 11000000 11000000 01100011 00111110" 
Bmp.AddTextData "d 00000011 00000011 00000011 00111011 01111111 11100111 11000011 11000011 11000011 11000011 11100111 01111111 00111011" 
Bmp.AddTextData "e 00111100 01111110 11100110 11000011 11111111 11111111 11000000 11100011 01111110 00111100" 
Bmp.AddTextData "E 11111111 01100011 01100000 01101100 01111100 01101100 01100000 01100000 01100011 11111111" 
Bmp.AddTextData "f 0001111 0011111 0011000 0011000 0011000 1111110 1111110 0011000 0011000 0011000 0011000 0011000 0011000 0011000 0111000" 
Bmp.AddTextData "F 11111111 01100011 01100000 01101100 01111100 01101100 01100000 01100000 01100000 01100000" 
Bmp.AddTextData "G 001111110 011001110 110000110 110000110 110000000 110011111 110000110 110000110 011000110 001111100" 
Bmp.AddTextData "h 11000000 11000000 11000000 11011110 11111111 11100011 11000011 11000011 11000011 11000011 11000011 11000011 11000011" 
Bmp.AddTextData "H 1111001111 0110000110 0110000110 0110000110 0111111110 0110000110 0110000110 0110000110 0110000110 1111001111" 
Bmp.AddTextData "J 000111111 000001100 000001100 000001100 000001100 000001100 000001100 110001100 110001100 011111000" 
Bmp.AddTextData "k 11000000 11000000 11000000 11000111 11001110 11011100 11110000 11111000 11011000 11001100 11001100 11000110 11000111" 
Bmp.AddTextData "K 111111110 011001100 011011000 011011000 011110000 011110000 011011000 011001100 011000110 111100111" 
Bmp.AddTextData "L 11111000 01100000 01100000 01100000 01100000 01100000 01100000 01100000 01100011 11111111" 
Bmp.AddTextData "m 110111001110 111111011111 111001110011 110001100011 110001100011 110001100011 110001100011 110001100011 110001100011 110001100011" 
Bmp.AddTextData "M 1110000111 0110000110 0111001110 0111001110 0111111110 0111111110 0110110110 0110110110 0110000110 1111001111" 
Bmp.AddTextData "n 11011110 11111111 11100011 11000011 11000011 11000011 11000011 11000011 11000011 11000011" 
Bmp.AddTextData "N 1110011111 0110000110 0111000110 0111100110 0111100110 0110110110 0110011110 0110011110 0110001110 1111100110" 
Bmp.AddTextData "p 11011100 11111110 11100111 11000011 11000011 11000011 11000011 11100111 11111110 11011100 11000000 11000000 11000000 11000000" 
Bmp.AddTextData "P 11111110 01100011 01100011 01100011 01100011 01111110 01100000 01100000 01100000 01100000" 
Bmp.AddTextData "R 111111100 011000110 011000110 011000110 011000110 011111100 011011000 011001100 011000110 111100111" 
Bmp.AddTextData "s 01111110 11111110 11000000 11100000 01111100 00011110 00000011 10000011 11111111 01111100" 
Bmp.AddTextData "S 01111111 11000111 11000011 11000000 01111000 00001110 00000011 11000011 11100011 11111110" 
Bmp.AddTextData "t 00110000 00110000 11111111 11111111 00110000 00110000 00110000 00110000 00110000 00110000 00111111 00011111" 
Bmp.AddTextData "T 11111111 10011001 00011000 00011000 00011000 00011000 00011000 00011000 00011000 00011000" 
Bmp.AddTextData "u 11000011 11000011 11000011 11000011 11000011 11000011 11000011 11000111 11111111 01111011" 
Bmp.AddTextData "U 1111001111 0110000110 0110000110 0110000110 0110000110 0110000110 0110000110 0110000110 0111001110 0001111000" 
Bmp.AddTextData "v 110000011 011000011 011000110 011000110 001100110 001100100 000110100 000111100 000111000 000011000" 
Bmp.AddTextData "V 1111001111 0110000110 0110000110 0011001100 0011001100 0011001100 0001111000 0001111000 0000110000 0000110000" 
Bmp.AddTextData "w 11000000001 11000110011 11001110011 01001010010 01001010010 01101011010 01110011110 01110001110 00110001100 00110001100" 
Bmp.AddTextData "W 1110000111 1100000011 1100110011 1100110011 0111111110 0111111110 0111111110 0011001100 0011001100 0011001100" 
Bmp.AddTextData "x 111000011 011000110 001101100 001111100 000111000 000111000 001111100 001001100 011000110 110000111" 
Bmp.AddTextData "X 1111001111 0110000110 0011001100 0001111000 0000110000 0000110000 0001111000 0011001100 0110000110 1111001111" 
Bmp.AddTextData "y 1100000011 0110000010 0110000110 0011000100 0011001100 0001101000 0001111000 0001111000 0000110000 0000110000 0001100000 0111100000 0111000000" 
Bmp.AddTextData "Y 1111001111 0110000110 0011001100 0011001100 0001111000 0000110000 0000110000 0000110000 0000110000 0000110000" 
Bmp.AddTextData "z 11111111 11111111 00000011 00000110 00001100 00011000 00110000 01100000 11111111 11111111" 
Bmp.AddTextData "Z 11111111 11000011 00000110 00001100 00011000 00011000 00110000 01100000 11000011 11111111"

Bmp.SessionName = "qwbm" '驗(yàn)證碼用Session名稱(chēng) 
Bmp.TextLength = 4'驗(yàn)證碼長(zhǎng)度 
Bmp.BackColor = "#FFFFFF"'背景顏色,多個(gè)顏色用"," 分隔 
Bmp.TextColor = "#FF0000,#FF9900,#33CCFF,#99CC00,#FF99FF,#9933FF,#0099FF" '文字顏色,多個(gè)顏色用"," 分 
Bmp.YawpColor = Bmp.TextColor '噪波點(diǎn)顏色,多個(gè)顏色使用"," 分隔 
Bmp.YawpCount = 2    '噪波點(diǎn)比例 0-100 
Bmp.Write() 
%>

前一頁(yè):簡(jiǎn)單Asp圖片驗(yàn)證碼,收集大概35種各種各樣圖片樣式驗(yàn)證碼，還有語(yǔ)音驗(yàn)證碼

后一頁(yè):ASP漢字圖片驗(yàn)證碼

相關(guān)閱讀: IIS上傳文件大小解處限制的方法; window.location.href跳轉(zhuǎn)無(wú)反應(yīng)不跳轉(zhuǎn)解決; 使用uiautomatorviewer連接模擬器頁(yè)面報(bào)錯(cuò)：Error while obtaining UI hierarchy XML file; 搜索引擎優(yōu)化八個(gè)基礎(chǔ)的知識(shí); asp隨機(jī)顯示字符長(zhǎng)度與類(lèi)型（可隨機(jī)顯示數(shù)字、小寫(xiě)字母、大寫(xiě)字母，可以做為隨機(jī)密碼使用）; javascript取漢字拼音首字母縮寫(xiě)程序; asp論壇制作教程(二)——asp論壇制作文件關(guān)系發(fā)析; 小說(shuō)封面制作網(wǎng)站留言板模板

共有0條關(guān)于《asp版圖形驗(yàn)證碼，可自定義點(diǎn)陣信息，支持字符扭曲、傾斜、傾斜》的評(píng)論: 發(fā)表評(píng)論

正在加載評(píng)論......

返回頂部發(fā)表評(píng)論

呢稱(chēng):
表情:
內(nèi) 容:	評(píng)論內(nèi)容:不能超過(guò) 1000 字,需審核,請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼:

網(wǎng)友評(píng)論聲明,請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國(guó)家安全、泄露國(guó)家秘密,不得侵犯國(guó)家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國(guó)家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類(lèi)別選擇: 百度小程序開(kāi)發(fā); 微信小程序開(kāi)發(fā); 微信公眾號(hào)開(kāi)發(fā); uni-app; asp函數(shù)庫(kù); ASP; DIV+CSS; HTML; python

更多>>同類(lèi)信息: ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問(wèn)題的解決方法頁(yè)面編碼聲明; asp顯示隨機(jī)密碼; 通過(guò)阿里云服務(wù)接口獲得ip地址詳細(xì)信息; iis點(diǎn)開(kāi)后任務(wù)欄上有顯示，但是窗口看不到的解決辦法; RSA加密解密插件; 微軟Encoder加密解密函數(shù)

更多>>最新添加文章: dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT; Android移動(dòng)端自動(dòng)化測(cè)試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車(chē)帝小程序; javascript獲取瀏覽器指紋可以用來(lái)做投票; 火狐Mozilla Firefox出現(xiàn)：無(wú)法載入您的Firefox配置文件它可能已經(jīng)丟失或是無(wú)法訪(fǎng)問(wèn) 問(wèn)題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過(guò)代碼修改pip下載源讓下載庫(kù)飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: ASP漢字圖片驗(yàn)證碼; 一個(gè)簡(jiǎn)單的用java寫(xiě)的非常不錯(cuò)的貪食蛇游戲; 旅行社線(xiàn)路主題默認(rèn)模板1; 連云港鑫海國(guó)際旅行社; 當(dāng)前流行的四款常用瀏覽器最客觀的評(píng)測(cè); 在網(wǎng)頁(yè)標(biāo)題欄上或收藏夾前面顯示網(wǎng)站ico小圖標(biāo)的方法

更多標(biāo)簽熱門(mén)標(biāo)簽

變大安裝包 button 網(wǎng)頁(yè) 輪流 imprt 酷 css 調(diào)用設(shè)為首頁(yè) time 省略斜線(xiàn) 變色破解縮小 css 透明超出混合美化排序廣告偽類(lèi) 替換 base 九宮格 vb 密碼管理比例 DIV+CSS做的透明菜單兼容IE、FF等定位列表 PSD Word 加減文本 Application 導(dǎo)航對(duì)聯(lián) 判斷打字人生 ajax 代碼 css 標(biāo)簽圖片上傳 web 2.0 DOCTYPE 參數(shù)

99亚洲_成人性视频免费网站_av在线播放网址_免费成人在线网站_亚洲综合婷婷_亚洲一区二区国产

asp版圖形驗(yàn)證碼，可自定義點(diǎn)陣信息，支持字符扭曲、傾斜、傾斜