亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? filters.bas

?? 一個很好的高級指紋分算法析源代碼！(vb)
?? BAS
字號: 
Attribute VB_Name = "Module10"
'****************************************************************************
'人人為我，我為人人
'發布日期：2007/05/23
'描    述：高級指紋分析源代碼
'****************************************************************************
Option Explicit

Dim i As Integer, j As Integer
Dim red As Integer, green As Integer, blue As Integer
Dim fi As Integer, fj As Integer
Dim RedSum As Integer, GreenSum As Integer, BlueSum As Integer
Dim weight As Single
Dim offset As Integer
Dim x As Integer
Dim y As Integer
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Dim ImagePixels(0 To 2, 0 To 600, 0 To 600) As Integer

Dim m As Integer
Dim mi As Integer
Dim mj As Integer
Dim temp As Integer
Dim pixel As Long
Dim reda(0 To 8) As Integer
Dim greena(0 To 8) As Integer
Dim bluea(0 To 8) As Integer
Dim sum(0 To 1, 0 To 8) As Integer
Public Sub readit(ByRef Picture1 As PictureBox)
x = Picture1.ScaleWidth
y = Picture1.ScaleHeight
    For i = 0 To y - 1
        For j = 0 To x - 1
            pixel = GetPixel(Picture1.hdc, j, i)
            red = pixel Mod 256
            green = ((pixel And &HFF00) / 256&) Mod 256&
            blue = (pixel And &HFF0000) / 65536
            ImagePixels(0, i, j) = red
            ImagePixels(1, i, j) = green
            ImagePixels(2, i, j) = blue
        Next
        DoEvents
    Next
End Sub
Public Sub ProcessCustom3(ByRef Picture1 As PictureBox, ByRef customfilter() As Integer, filternorm As Integer, filterbias As Integer, takeabs As Boolean)
    
    readit Picture1
    
    offset = 1
    For i = offset To y - offset - 1
        For j = offset To x - offset - 1
            RedSum = 0: GreenSum = 0: BlueSum = 0
            For fi = -offset To offset
                For fj = -offset To offset
                    weight = customfilter(fi + 1, fj + 1)
                    RedSum = RedSum + ImagePixels(0, i + fi, j + fj) * weight
                    GreenSum = GreenSum + ImagePixels(1, i + fi, j + fj) * weight
                    BlueSum = BlueSum + ImagePixels(2, i + fi, j + fj) * weight
                Next
            Next
            If takeabs = True Then
            red = Abs(RedSum / filternorm + filterbias)
            green = Abs(GreenSum / filternorm + filterbias)
            blue = Abs(BlueSum / filternorm + filterbias)
            Else
            red = (RedSum / filternorm + filterbias)
            green = (GreenSum / filternorm + filterbias)
            blue = (BlueSum / filternorm + filterbias)
            If red > 255 Then
            red = 255
            Else
            If red < 0 Then red = 0
            End If
            If green > 255 Then
            green = 255
            Else
            If green < 0 Then green = 0
            End If
            If blue > 255 Then
            blue = 255
            Else
            If blue < 0 Then blue = 0
            End If
            End If
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
DoEvents
    Next

End Sub
Public Sub ProcessCustom5(ByRef Picture1 As PictureBox, ByRef customfilter() As Integer, filternorm As Integer, filterbias As Integer, takeabs As Boolean)
    
    readit Picture1
    
    offset = 2
    For i = offset To y - offset - 1
        For j = offset To x - offset - 1
            RedSum = 0: GreenSum = 0: BlueSum = 0
            For fi = -offset To offset
                For fj = -offset To offset
                    weight = customfilter(fi + 2, fj + 2)
                    RedSum = RedSum + ImagePixels(0, i + fi, j + fj) * weight
                    GreenSum = GreenSum + ImagePixels(1, i + fi, j + fj) * weight
                    BlueSum = BlueSum + ImagePixels(2, i + fi, j + fj) * weight
                Next
            Next
            If takeabs = True Then
            red = Abs(RedSum / filternorm + filterbias)
            green = Abs(GreenSum / filternorm + filterbias)
            blue = Abs(BlueSum / filternorm + filterbias)
            Else
            red = (RedSum / filternorm + filterbias)
            green = (GreenSum / filternorm + filterbias)
            blue = (BlueSum / filternorm + filterbias)
            If red > 255 Then
            red = 255
            Else
            If red < 0 Then red = 0
            End If
            If green > 255 Then
            green = 255
            Else
            If green < 0 Then green = 0
            End If
            If blue > 255 Then
            blue = 255
            Else
            If blue < 0 Then blue = 0
            End If
            End If
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
DoEvents
    Next

End Sub
Public Sub processmedian(ByRef Picture1 As PictureBox, ByVal filterbias As Integer, ByVal takeabs As Boolean)
    readit Picture1
    
    offset = 1
    For i = offset To y - offset - 1
        For j = offset To x - offset - 1
            m = 0
            For fi = -offset To offset
                For fj = -offset To offset
                    reda(fi + fj + 2 + m) = ImagePixels(0, i + fi, j + fj)
                    greena(fi + fj + 2 + m) = ImagePixels(1, i + fi, j + fj)
                    bluea(fi + fj + 2 + m) = ImagePixels(2, i + fi, j + fj)
                Next
                m = m + 2
            Next
            For mi = 0 To 8
                For mj = mi To 7
                    If reda(mj) > reda(mj + 1) Then
                    temp = reda(mj)
                    reda(mj) = reda(mj + 1)
                    reda(mj + 1) = reda(mj)
                    End If
                    If greena(mj) > greena(mj + 1) Then
                    temp = greena(mj)
                    greena(mj) = greena(mj + 1)
                    greena(mj + 1) = greena(mj)
                    End If
                    If bluea(mj) > bluea(mj + 1) Then
                    temp = bluea(mj)
                    bluea(mj) = bluea(mj + 1)
                    bluea(mj + 1) = bluea(mj)
                    End If
                 Next
            Next
            If takeabs = True Then
            red = Abs(reda(4) + filterbias)
            green = Abs(greena(4) + filterbias)
            blue = Abs(bluea(4) + filterbias)
            Else
            red = (reda(4) + filterbias)
            green = (greena(4) + filterbias)
            blue = (bluea(4) + filterbias)
            If red > 255 Then
            red = 255
            Else
            If red < 0 Then red = 0
            End If
            If green > 255 Then
            green = 255
            Else
            If green < 0 Then green = 0
            End If
            If blue > 255 Then
            blue = 255
            Else
            If blue < 0 Then blue = 0
            End If
            End If
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
DoEvents
    Next

End Sub
Public Sub processmediankc(ByRef Picture1 As PictureBox, ByVal filterbias As Integer, ByVal takeabs As Boolean)
    readit Picture1
    
    offset = 1
    For i = offset To y - offset - 1
        For j = offset To x - offset - 1
            m = 0
            For fi = -offset To offset
                For fj = -offset To offset
                    reda(fi + fj + 2 + m) = ImagePixels(0, i + fi, j + fj)
                    greena(fi + fj + 2 + m) = ImagePixels(1, i + fi, j + fj)
                    bluea(fi + fj + 2 + m) = ImagePixels(2, i + fi, j + fj)
                Next
                m = m + 2
            Next
            For mi = 0 To 8
                sum(0, mi) = reda(mi) + greena(mi) + bluea(mi)
                sum(1, mi) = mi
            Next
            For mi = 0 To 8
                For mj = mi To 7
                    If sum(0, mj) > sum(0, mj + 1) Then
                    temp = sum(0, mj)
                    sum(0, mj) = sum(0, mj + 1)
                    sum(0, mj + 1) = sum(0, mj)
                    temp = sum(1, mj)
                    sum(1, mj) = sum(1, mj + 1)
                    sum(1, mj + 1) = sum(1, mj)
                    End If
                 Next
            Next
            If takeabs = True Then
            red = Abs(reda(sum(1, 4)) + filterbias)
            green = Abs(greena(sum(1, 4)) + filterbias)
            blue = Abs(bluea(sum(1, 4)) + filterbias)
            Else
            red = (reda(sum(1, 4)) + filterbias)
            green = (greena(sum(1, 4)) + filterbias)
            blue = (bluea(sum(1, 4)) + filterbias)
            If red > 255 Then
            red = 255
            Else
            If red < 0 Then red = 0
            End If
            If green > 255 Then
            green = 255
            Else
            If green < 0 Then green = 0
            End If
            If blue > 255 Then
            blue = 255
            Else
            If blue < 0 Then blue = 0
            End If
            End If
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
    DoEvents
Next

End Sub
Public Sub ProcessDiffuse(ByRef Picture1 As PictureBox, ByVal rndinto As Integer, ByVal rndminus As Integer)

Dim Rx As Integer, Ry As Integer
   
    readit Picture1
    For i = 2 To y - 3
        For j = 2 To x - 3
            Rx = Rnd * rndinto - rndminus '4 - 2
            Ry = Rnd * rndinto - rndminus '4 - 2
            red = ImagePixels(0, i + Rx, j + Ry)
            green = ImagePixels(1, i + Rx, j + Ry)
            blue = ImagePixels(2, i + Rx, j + Ry)
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
        DoEvents
    Next

End Sub

Public Sub ProcessEmboss(ByRef Picture1 As PictureBox, ByVal filterbias As Integer)

Dim Dx As Integer, Dy As Integer
    readit Picture1

    Dx = 1
    Dy = 1
    
    
    'T1 = Timer
    For i = 1 To y - 2
        For j = 1 To x - 2
            red = Abs(ImagePixels(0, i, j) - ImagePixels(0, i + Dx, j + Dy) + filterbias) '128)
            green = Abs(ImagePixels(1, i, j) - ImagePixels(1, i + Dx, j + Dy) + filterbias) '128)
            blue = Abs(ImagePixels(2, i, j) - ImagePixels(2, i + Dx, j + Dy) + filterbias) '128)
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
        DoEvents
    Next
    
End Sub

Public Sub ProcessPixelize(ByRef Picture1 As PictureBox, ByVal rndplus As Integer, ByVal rndminus As Integer, ByVal intoradius As Integer, ByVal minradius As Integer)

Dim Ypixel As Integer, Xpixel As Integer
Dim r As Integer
    readit Picture1

    'T1 = Timer
    Picture1.FillStyle = vbSolid
    For i = 1 To y / 3
        For j = 1 To x / 3
            Ypixel = Rnd * x + rndplus - rndminus ' 4 - 2
            Xpixel = Rnd * y + rndplus - rndminus '4 - 2
            r = Int(Rnd() * intoradius) + minradius '3'2
            red = ImagePixels(0, Xpixel, Ypixel)
            green = ImagePixels(1, Xpixel, Ypixel)
            blue = ImagePixels(2, Xpixel, Ypixel)
            Picture1.FillColor = RGB(red, green, blue)
            Picture1.Circle (Ypixel, Xpixel), r, RGB(red, green, blue)
        Next
        DoEvents
        Picture1.Refresh
    Next
    Picture1.FillStyle = vbTransparent

End Sub

Public Sub ProcessSharpen(ByRef Picture1 As PictureBox)
Dim Dx As Integer, Dy As Integer
    
    readit Picture1

    Dx = 1: Dy = 1
    
    For i = 1 To y - 2
        For j = 1 To x - 2
            red = ImagePixels(0, i, j) + 0.5 * (ImagePixels(0, i, j) - ImagePixels(0, i - Dx, j - Dy))
            green = ImagePixels(1, i, j) + 0.5 * (ImagePixels(1, i, j) - ImagePixels(1, i - Dx, j - Dy))
            blue = ImagePixels(2, i, j) + 0.5 * (ImagePixels(2, i, j) - ImagePixels(2, i - Dx, j - Dy))
            If red > 255 Then red = 255
            If red < 0 Then red = 0
            If green > 255 Then green = 255
            If green < 0 Then green = 0
            If blue > 255 Then blue = 255
            If blue < 0 Then blue = 0
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
        DoEvents
    Next
 
End Sub



Public Sub ProcessSmooth(ByRef Picture1 As PictureBox)
    
    readit Picture1

    For i = 1 To y - 2
        For j = 1 To x - 2
            red = ImagePixels(0, i - 1, j - 1) + ImagePixels(0, i - 1, j) + ImagePixels(0, i - 1, j + 1) + _
            ImagePixels(0, i, j - 1) + ImagePixels(0, i, j) + ImagePixels(0, i, j + 1) + _
            ImagePixels(0, i + 1, j - 1) + ImagePixels(0, i + 1, j) + ImagePixels(0, i + 1, j + 1)
            
            green = ImagePixels(1, i - 1, j - 1) + ImagePixels(1, i - 1, j) + ImagePixels(1, i - 1, j + 1) + _
            ImagePixels(1, i, j - 1) + ImagePixels(1, i, j) + ImagePixels(1, i, j + 1) + _
            ImagePixels(1, i + 1, j - 1) + ImagePixels(1, i + 1, j) + ImagePixels(1, i + 1, j + 1)
            
            blue = ImagePixels(2, i - 1, j - 1) + ImagePixels(2, i - 1, j) + ImagePixels(2, i - 1, j + 1) + _
            ImagePixels(2, i, j - 1) + ImagePixels(2, i, j) + ImagePixels(2, i, j + 1) + _
            ImagePixels(2, i + 1, j - 1) + ImagePixels(2, i + 1, j) + ImagePixels(2, i + 1, j + 1)
            
            SetPixelV Picture1.hdc, j, i, RGB(red / 9, green / 9, blue / 9)
        Next
        DoEvents
    Next
 
End Sub

Public Sub ProcessSolarize(ByRef Picture1 As PictureBox, ByVal ll As Integer, ByVal ul As Integer)
    readit Picture1
    For i = 1 To y - 2
        For j = 1 To x - 2
            red = ImagePixels(0, i, j)
            green = ImagePixels(1, i, j)
            blue = ImagePixels(2, i, j)
            If ((red < ll) Or (red > ul)) Then red = 255 - red
            If ((green < ll) Or (green > ul)) Then green = 255 - green
            If ((blue < ll) Or (blue > ul)) Then blue = 255 - blue
            SetPixelV Picture1.hdc, j, i, RGB(red, green, blue)
        Next
        DoEvents
    Next

End Sub

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
青娱乐精品在线视频| 色天使色偷偷av一区二区| 成人av电影免费观看| 欧美日韩在线不卡| 亚洲国产高清在线| 奇米色一区二区| 在线看国产一区二区| 国产色产综合产在线视频| 午夜视频在线观看一区| av电影天堂一区二区在线| 精品日韩成人av| 亚洲成精国产精品女| 99久久国产免费看| 欧美经典一区二区| 国内成+人亚洲+欧美+综合在线| 欧美综合天天夜夜久久| 国产精品视频一区二区三区不卡| 免费在线观看日韩欧美| 欧美日韩色一区| 一区二区三区精品| 色综合一区二区三区| 亚洲国产精品99久久久久久久久 | 美女网站色91| 日韩欧美国产精品一区| 亚洲视频网在线直播| 成人精品小蝌蚪| 国产精品午夜电影| 成人三级在线视频| 国产欧美精品一区二区三区四区| 国产资源在线一区| 亚洲精品一区二区三区四区高清| 美女视频网站黄色亚洲| 日韩午夜电影在线观看| 蜜臀av一区二区在线观看| 欧美一区二区三区四区五区| 美女国产一区二区三区| 欧美一区二区三区视频在线| 美国毛片一区二区三区| 欧美tickling网站挠脚心| 麻豆91精品91久久久的内涵| 精品久久久久一区| 国产精品1区2区| 国产精品久久久久久久久免费樱桃| 丰满亚洲少妇av| 亚洲欧洲精品一区二区三区不卡| 成人中文字幕合集| 亚洲人成精品久久久久| 色综合久久88色综合天天| 亚洲国产精品一区二区www在线| 欧美日韩免费一区二区三区 | 欧美a级理论片| 欧美mv日韩mv亚洲| 精品一区二区三区的国产在线播放| 日韩免费电影一区| 懂色中文一区二区在线播放| 亚洲少妇中出一区| 欧美日韩国产123区| 精品亚洲porn| 国产精品成人免费精品自在线观看| 91浏览器打开| 日本免费在线视频不卡一不卡二 | 在线一区二区视频| 日韩不卡在线观看日韩不卡视频| 欧美r级电影在线观看| www.综合网.com| 亚洲风情在线资源站| 精品国产免费人成在线观看| 99久久久无码国产精品| 丝袜诱惑亚洲看片| 国产肉丝袜一区二区| 欧美午夜一区二区| 成人国产免费视频| 日本亚洲最大的色成网站www| 久久久久久久久久久久久女国产乱| eeuss鲁片一区二区三区在线看| 性感美女极品91精品| 国产人成一区二区三区影院| 欧美吻胸吃奶大尺度电影| 国产精品99久久久久久似苏梦涵 | 欧美激情一区在线| 欧美日韩一二区| 国产成人午夜99999| 亚洲成a人v欧美综合天堂下载| 久久综合久久综合久久综合| 欧美亚洲一区二区在线| 国产成人午夜99999| 琪琪久久久久日韩精品| 亚洲男人的天堂在线观看| 91精品国产色综合久久不卡蜜臀 | 欧美在线高清视频| 成人网页在线观看| 久久成人免费网站| 亚洲高清久久久| ㊣最新国产の精品bt伙计久久| 精品乱人伦一区二区三区| 欧美日韩电影一区| 在线亚洲一区二区| 成人av资源在线| 国产成a人无v码亚洲福利| 免费观看日韩电影| 亚洲1区2区3区4区| 亚洲伊人色欲综合网| 中文字幕一区不卡| 日本一区二区免费在线| 久久久久97国产精华液好用吗| 日韩一区二区免费视频| 欧美日韩国产小视频| 欧美色窝79yyyycom| 色欧美88888久久久久久影院| proumb性欧美在线观看| 国产a级毛片一区| 国产福利一区二区三区视频| 国产一级精品在线| 国产精品一区二区久久精品爱涩| 韩国精品免费视频| 国模无码大尺度一区二区三区| 久久99精品久久只有精品| 老司机午夜精品| 久久超级碰视频| 国产一区二区不卡| 国产91富婆露脸刺激对白| 国产成人福利片| 99免费精品视频| 91碰在线视频| 欧美日韩国产首页| 日韩一区二区在线观看| 精品少妇一区二区三区在线播放 | 日本一区二区成人在线| 国产女主播一区| 成人欧美一区二区三区视频网页| 日本一区二区三区免费乱视频| 国产精品嫩草影院av蜜臀| 亚洲男人天堂一区| 午夜精品久久久久久久99樱桃| 午夜精品久久久久久久99水蜜桃 | 黄页视频在线91| 丰满岳乱妇一区二区三区| 91色乱码一区二区三区| 精品视频一区二区不卡| 日韩一区二区电影在线| 久久综合九色综合97_久久久| 国产欧美一区二区精品性| 国产精品区一区二区三区| 亚洲私人影院在线观看| 日韩黄色小视频| 大白屁股一区二区视频| 91国内精品野花午夜精品| 日韩无一区二区| 国产精品久久久久久一区二区三区| 一区二区三区在线观看网站| 日韩av午夜在线观看| 成人av在线资源网| 欧美猛男男办公室激情| 国产日韩亚洲欧美综合| 亚洲午夜私人影院| 国产精选一区二区三区| 在线视频你懂得一区二区三区| 日韩欧美电影一区| 亚洲手机成人高清视频| 狠狠色伊人亚洲综合成人| 91免费视频网| 久久久美女毛片| 亚洲成人精品一区| 丰满少妇久久久久久久| 91精品国产综合久久精品图片| 国产精品欧美久久久久一区二区| 亚欧色一区w666天堂| 成人一区二区视频| 日韩视频国产视频| 一级日本不卡的影视| 成人免费视频国产在线观看| 7777精品伊人久久久大香线蕉完整版 | 亚洲国产精品一区二区www| 国产高清在线精品| 日韩欧美一区二区不卡| 亚洲免费观看高清完整版在线观看| 蜜桃久久精品一区二区| 欧美性大战久久| 自拍偷拍欧美激情| 国产**成人网毛片九色| 精品嫩草影院久久| 舔着乳尖日韩一区| 欧美综合在线视频| 亚洲免费av观看| 成熟亚洲日本毛茸茸凸凹| 欧美一级欧美三级| 日日骚欧美日韩| 欧美午夜精品免费| 一区二区三区四区激情| 91免费看`日韩一区二区| 中文字幕的久久| 国产成人精品综合在线观看 | 日本高清免费不卡视频| 欧美国产日本视频| 国产精品白丝jk黑袜喷水| 欧美mv日韩mv国产网站app| 美日韩一区二区三区| 欧美成人精品3d动漫h| 久久国产尿小便嘘嘘| 欧美本精品男人aⅴ天堂|