[原]VB.NET常用的哈希算法集差不多30种.-CSDN论坛

[原]VB.NET常用的哈希算法集差不多30种.

推荐

.NET技术 > VB.NET

收藏回复

[问题点数：200分]

⋅【原】Byte()数组的合成和还原。 ⋅[原]VB.NET常用的哈希算法集差不多30种. ⋅请问各位有没有防火墙IP黑色单白名单的开源代码.NET里能调用的或提供API的. 更多帖子 关注私信空间博客 版主 华芸智森 等级 本版专家分：3546 勋章 红花 2004年4月 VB大版内专家分月排行榜第一 2004年3月 VB大版内专家分月排行榜第一 结帖率 93.24%

VB.NET常用的哈希算法集.其中包括了著名的暴雪的哈希,T33哈希.......全部是网上的 C/C++代码改的(VB.NET的资源真的很少).
不同的哈希算法在分布式,布降过滤器,位图MAP等等应用得比较多...

'' </summary>

Public Class MyUnchecked



#Region "UInt64"



    <StructLayout(LayoutKind.Explicit)>

    Public Structure UncheckedUInt64



        <FieldOffset(0)>

        Private longValue As UInt64

        <FieldOffset(0)>

        Private intValueLo As UInt32

        <FieldOffset(4)>

        Private intValueHi As UInt32 '//



        Private Sub New(newLongValue As UInt64)

            longValue = newLongValue

        End Sub



        Public Overloads Shared Widening Operator CType(value As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(value)

        End Operator



        Public Overloads Shared Widening Operator CType(value As UncheckedUInt64) As UInt64

            Return value.longValue

        End Operator



        Public Overloads Shared Operator *(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue * y)

        End Operator



        Public Overloads Shared Operator /(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue / y)

        End Operator



        Public Overloads Shared Operator ^(x As UncheckedUInt64, y As Double) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue ^ y)

        End Operator



        Public Overloads Shared Operator ^(x As UncheckedUInt64, y As UInt32) As UncheckedUInt64

            Return New UncheckedUInt64(MyConvert.MyPower(x.longValue, y))

        End Operator



        Public Overloads Shared Operator Xor(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue Xor y)

        End Operator



        Public Overloads Shared Operator +(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue + y)

        End Operator



        Public Overloads Shared Operator -(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue - y)

        End Operator



        Public Overloads Shared Operator <<(x As UncheckedUInt64, y As Int32) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue << y)

        End Operator



        Public Overloads Shared Operator >>(x As UncheckedUInt64, y As Int32) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue >> y)

        End Operator



        Public Overloads Shared Operator And(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue And y)

        End Operator



        Public Overloads Shared Operator =(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue)

        End Operator



        Public Overloads Shared Operator <>(x As UncheckedUInt64, y As UInt64) As UncheckedUInt64

            Return New UncheckedUInt64(x.longValue <> y)

        End Operator



        Public Overloads Shared Operator Not(x As UncheckedUInt64) As UncheckedUInt64

            Return New UncheckedUInt64(Not x.longValue)

        End Operator



    End Structure



#End Region

End Class

2016-05-13 08:56:37

点赞 3 只看楼主引用举报楼主收起

展开阅读全文



#Region "哈希算法"





    ''' <summary>

    ''' 和 HashCMyMap 基本一样.

    ''' </summary>

    ''' <param name="Key"></param>

    ''' <returns></returns>

    Public Shared Function HashDJB(Key As String) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 5381

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray



        For i As Int32 = 0 To L

            hash = ((hash << 5) + hash) + Asc(KeyCharArr(i)) + 3

        Next



        Return hash



    End Function



    ''' <summary>

    ''' 和 HashCMyMap 基本一样.

    ''' </summary>

    ''' <param name="KeyByte"></param>

    ''' <returns></returns>

    Public Shared Function HashDJB(ByVal KeyByte() As Byte) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 5381

        Dim L As Int32 = KeyByte.Length - 1



        For i As Int32 = 0 To L

            hash = ((hash << 5) + hash) + KeyByte(i) + 3

        Next



        Return hash



    End Function



    ''' <summary>

    ''' BKDR 哈希

    ''' </summary>

    ''' <param name="Key"></param>

    ''' <param name="seed">种子.最好是使用质数.</param>

    ''' <returns></returns>

    Public Shared Function HashBKDR(ByVal Key As String,

                                    Optional seed As Long = 131) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        For i As Int32 = 0 To L - 1

            hash = (hash * seed) + Asc(KeyCharArr(i)) + 3

        Next



        Return (hash And &H7FFFFFFF)



    End Function



    ''' <summary>

    ''' BKDR 哈希

    ''' </summary>

    ''' <param name="KeyByte"></param>

    ''' <param name="seed">种子数</param>

    ''' <returns></returns>

    Public Shared Function HashBKDR(ByVal KeyByte() As Byte,

                                    Optional seed As Long = 131) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = KeyByte.Length - 1

        For i As Int32 = 0 To L - 1

            hash = (hash * seed) + KeyByte(i) + 3

        Next



        Return (hash And &H7FFFFFFF)



    End Function



    Public Shared Function HashRS(Key As String,

                                  Optional seed As Long = 131) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim b As UInt64 = 378551

        Dim a As UInt64 = 63689

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        For i As Int32 = 0 To L - 1

            hash = (hash * a) + Asc(KeyCharArr(i))

            a = a * b

        Next



        Return (hash And &H7FFFFFFF)



    End Function



    Public Shared Function HashRS(KeyByte() As Byte,

                                  Optional seed As Long = 131) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim b As UInt64 = 378551

        Dim a As UInt64 = 63689

        Dim L As Int32 = KeyByte.Length - 1



        For i As Int32 = 0 To L - 1

            hash = (hash * a) + KeyByte(i)

            a = a * b

        Next



        Return (hash And &H7FFFFFFF)



    End Function

2016-05-13 08:54:19

点赞只看TA 引用举报 #1得分 0



    Public Shared Function HashSDBM(Key As String) As UInt64



        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        For i As Int32 = 0 To L - 1

            hash = Asc(KeyCharArr(i)) + (hash << 6) + (hash << 16) - hash

        Next



        Return (hash And &H7FFFFFFF)



    End Function



    Public Shared Function HashSDBM(KeyByte() As Byte) As UInt64



        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = KeyByte.Length - 1



        For i As Int32 = 0 To L - 1

            hash = KeyByte(i) + (hash << 6) + (hash << 16) - hash

        Next



        Return (hash And &H7FFFFFFF)



    End Function





    Public Shared Function HashJS(Key As String) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 1315423911

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        For i As Int32 = 0 To L - 1

            hash = hash Xor (((hash << 5) + Asc(KeyCharArr(i)) + (hash >> 2)))

        Next

        Return hash

    End Function



    Public Shared Function HashJS(KeyByte() As Byte) As UInt64

        Dim hash As MyUnchecked.UncheckedUInt64 = 1315423911

        Dim L As Int32 = KeyByte.Length - 1



        For i As Int32 = 0 To L - 1

            hash = hash Xor (((hash << 5) + KeyByte(i) + (hash >> 2)))

        Next

        Return hash

    End Function



    Public Shared Function HashPJW(Key As String) As UInt64



        Dim BitsInUnsignedInt As UInt64 = CLng(4 * 8)

        Dim ThreeQuarters As UInt64 = CLng((BitsInUnsignedInt * 3) / 4)

        Dim OneEighth As UInt64 = CLng(BitsInUnsignedInt / 8)

        Dim HighBits As UInt64 = CLng(&HFFFFFFFF) << (BitsInUnsignedInt - OneEighth)

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim test As UInt64 = 0

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray



        For I As Int32 = 0 To L

            hash = (hash << OneEighth) + Asc(KeyCharArr(I))

            If ((test = hash And HighBits) <> 0) Then

                hash = ((hash Xor (test >> ThreeQuarters)) And (Not HighBits))

            End If



        Next



        Return hash



    End Function



    Public Shared Function HashPJW(KeyByte() As Byte) As UInt64



        Dim BitsInUnsignedInt As UInt64 = CLng(4 * 8)

        Dim ThreeQuarters As UInt64 = CLng((BitsInUnsignedInt * 3) / 4)

        Dim OneEighth As UInt64 = CLng(BitsInUnsignedInt / 8)

        Dim HighBits As UInt64 = CLng(&HFFFFFFFF) << (BitsInUnsignedInt - OneEighth)

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim test As UInt64 = 0

        Dim L As Int32 = KeyByte.Length - 1



        For I As Int32 = 0 To L

            hash = (hash << OneEighth) + KeyByte(I)

            If ((test = hash And HighBits) <> 0) Then

                hash = ((hash Xor (test >> ThreeQuarters)) And (Not HighBits))

            End If



        Next



        Return hash



    End Function



    Public Shared Function HashAP(Key As String) As UInt64



        Dim hash As MyUnchecked.UncheckedUInt64 = &HAAAAAAAA

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        For i As Int32 = 0 To L

            If ((i And 1) = 0) Then

                hash = hash Xor (((hash << 7) Xor Asc(KeyCharArr(i)) * (hash >> 3)))

            Else

                hash = hash Xor ((Not ((hash << 11) + Asc(KeyCharArr(i)) Xor (hash >> 5))))

            End If

        Next



        Return hash



    End Function



    Public Shared Function HashAP(KeyByte() As Byte) As UInt64



        Dim hash As MyUnchecked.UncheckedUInt64 = &HAAAAAAAA

        Dim L As Int32 = KeyByte.Length - 1



        For i As Int32 = 0 To L

            If ((i And 1) = 0) Then

                hash = hash Xor (((hash << 7) Xor KeyByte(i) * (hash >> 3)))

            Else

                hash = hash Xor ((Not ((hash << 11) + KeyByte(i) Xor (hash >> 5))))

            End If

        Next

        Return hash



    End Function



    Public Shared Function HashDEK(Key As String) As UInt64



        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        Dim hash As MyUnchecked.UncheckedUInt64 = L + 1

        For i As Int32 = 0 To L

            hash = ((hash << 5) Xor (hash >> 27)) Xor Asc(KeyCharArr(i))

        Next

        Return hash



    End Function





    Public Shared Function HashDEK(KeyByte() As Byte) As UInt64



        Dim L As Int32 = KeyByte.Length - 1

        Dim hash As MyUnchecked.UncheckedUInt64 = L + 1

        For i As Int32 = 0 To L

            hash = ((hash << 5) Xor (hash >> 27)) Xor KeyByte(i)

        Next

        Return hash



    End Function



    Public Shared Function HashELF(Key As String) As UInt64



        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim x As Long = 0

        For i As Int32 = 0 To L

            hash = (hash << 4) + Asc(KeyCharArr(i))

            x = hash And &HF0000000L

            If x <> 0 Then

                hash = hash Xor (x >> 24)

            End If

            hash = hash And (Not x)

        Next

        Return hash



    End Function



    Public Shared Function HashELF(KeyByte() As Byte) As UInt64



        Dim L As Int32 = KeyByte.Length - 1

        Dim hash As MyUnchecked.UncheckedUInt64 = 0

        Dim x As Long = 0

        For i As Int32 = 0 To L

            hash = (hash << 4) + KeyByte(i)

            x = hash And &HF0000000L

            If x <> 0 Then

                hash = hash Xor (x >> 24)

            End If

            hash = hash And (Not x)

        Next



        Return hash



    End Function





    Private Shared cryptTable(&H100 * 5 - 1) As UInt64

    Private Shared IsInitcryptTable As Boolean = False

    Public Shared Sub HashBlizzardInit()



        Dim seed As UInt64 = &H100001

        Dim index1 As UInt64 = 0

        Dim index2 As UInt64 = 0

        Dim I As UInt64

        Dim KKK As UInt64 = 0

        For index1 = 0 To &H100 - 1

            index2 = index1

            For I = 0 To 4

                Dim temp1, temp2 As UInt64

                seed = (seed * 125 + 3) Mod &H2AAAAB

                temp1 = (seed And &HFFFF) << &H10

                seed = (seed * 125 + 3) Mod &H2AAAAB

                temp2 = (seed And &HFFFF)

                cryptTable(index2) = (temp1 Or temp2) '//|

                index2 += &H100

            Next

        Next



        IsInitcryptTable = True



    End Sub



    ''' <summary>

    ''' 暴雪公司出名的哈希码.

    ''' 测试了 二千万 GUID, 没有重复.但运算量比较大。

    ''' </summary>

    ''' <param name="key"></param>

    ''' <param name="HasType">HasType =0 ,1 ,2 </param>

    ''' <returns></returns>

    Public Shared Function HashBlizzard(ByVal Key As String,

                                        Optional HasType As Long = 0) As UInt64



        If IsInitcryptTable = False Then HashBlizzardInit()



        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        Dim seed1 As MyUnchecked.UncheckedUInt64 = &H7FED7FED

        Dim seed2 As MyUnchecked.UncheckedUInt64 = &HEEEEEEEE

        Dim LoopID As Int32 = 0

        While (LoopID < L)

            Dim ascCode As Int32 = Asc(KeyCharArr(LoopID))

            seed1 = cryptTable((HasType << 8) + ascCode) Xor (seed1 + seed2)

            seed2 = ascCode + seed1 + seed2 + (seed2 << 5) + 3

            LoopID += 1

        End While



        Return seed1



    End Function



    ''' <summary>

    ''' 暴雪公司著名的 HashMap .

    ''' 测试了 二千万 GUID, 没有重复.但运算量比较大。

    ''' </summary>

    ''' <param name="KeyByte"></param>

    ''' <param name="HasType">HasType =[0 ,1 ,2] </param>

    ''' <returns></returns>

    Public Shared Function HashBlizzard(KeyByte() As Byte,

                                        Optional HasType As Long = 0) As UInt64



        If IsInitcryptTable = False Then HashBlizzardInit()



        Dim L As Int32 = KeyByte.Length - 1

        Dim seed1 As MyUnchecked.UncheckedUInt64 = &H7FED7FED

        Dim seed2 As MyUnchecked.UncheckedUInt64 = &HEEEEEEEE

        Dim LoopID As Int32 = 0

        While (LoopID < L)

            Dim ascCode As Int32 = KeyByte(LoopID)

            seed1 = cryptTable((HasType << 8) + ascCode) Xor (seed1 + seed2)

            seed2 = ascCode + seed1 + seed2 + (seed2 << 5) + 3

            LoopID += 1

        End While



        Return seed1



    End Function

2016-05-13 08:58:25

点赞 1 只看TA 引用举报 #2得分 0



    ''' <summary>

    ''' 经典times33算法。简单高效。[这个使用移位代替*33]

    ''' 测试一千万。没有重复哈希值。

    ''' </summary>

    ''' <param name="Key"></param>

    ''' <returns></returns>

    Public Shared Function HashCMyMap(Key As String) As UInt64



        Dim nHash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        Dim I As Int32 = 0



        While (I < L)

            nHash = (nHash << 5) + nHash + Asc(KeyCharArr(I)) + 3

            I += 1

        End While



        Return nHash



    End Function





    ''' <summary>

    ''' 经典times33算法。简单高效。[这个使用移位代替*33]

    ''' 测试一千万。没有重复哈希值。

    ''' </summary>

    ''' <param name="KeyByte"></param>

    ''' <returns></returns>

    Public Shared Function HashCMyMap(KeyByte() As Byte) As UInt64



        Dim nHash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = KeyByte.Length - 1

        Dim I As Int32 = 0



        While (I < L)

            nHash = (nHash << 5) + nHash + KeyByte(I) + 3

            I += 1

        End While



        Return nHash



    End Function





    ''' <summary>

    ''' 经典的Time算法。简单，高效。

    ''' Ngix使用的是 time31，Tokyo Cabinet使用的是 time37

    ''' 小写英文词汇适合33, 大小写混合使用65。time33比较适合的是英文词汇的hash.

    ''' </summary>

    ''' <param name="Key"></param>

    ''' <param name="seed">种子数。 31，33，37 。。。</param>

    ''' <returns></returns>

    Public Shared Function HashTimeMap(Key As String,

                                       seed As Int16) As UInt64



        Dim nHash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = Key.Length - 1

        Dim KeyCharArr() As Char = Key.ToArray

        Dim I As Int32 = 0



        While (I < L)

            nHash = seed * nHash + nHash + Asc(KeyCharArr(I)) + 3

            I += 1

        End While



        Return nHash



    End Function



    ''' <summary>

    ''' 经典的Time算法。简单，高效。

    ''' Ngix使用的是 time31，Tokyo Cabinet使用的是 time37

    ''' 小写英文词汇适合33, 大小写混合使用65。time33比较适合的是英文词汇的hash.

    ''' </summary>

    ''' <param name="KeyByte"></param>

    ''' <param name="seed">种子质数。 31，33，37 。。。</param>

    ''' <returns></returns>

    Public Shared Function HashTimeMap(KeyByte() As Byte,

                                       seed As UInt32) As UInt64



        Dim nHash As MyUnchecked.UncheckedUInt64 = 0

        Dim L As Int32 = KeyByte.Length - 1

        Dim I As Int32 = 0



        While (I < L)

            nHash = seed * nHash + nHash + KeyByte(I) + 3

            I += 1

        End While



        Return nHash



    End Function





#End Region

2016-05-13 08:55:23

点赞只看TA 引用举报 #3得分 0

⋅帐号被盗 ⋅现金寻大牛，错误解除，立刻付款 ⋅vb.net 调用VC写的DLL 回调函数返回时提示错误：试图写入受保护的内存 更多帖子 关注私信空间博客 zenter 等级 本版专家分：20: 楼主好人，好人发大财，一生平安

2016-12-03 23:33:26

点赞只看TA 引用举报 #5得分 0

⋅管理员睡着了么？盗贼都快把csdn问答搬空了

⋅学院改版后，目录跳转坏掉了，赶快修理下吧

⋅分享一个房地产管理系统，应该是真实的中介的门店系统（非学生习作），比较完善，里面内涵很大

更多帖子

关注私信空间博客

版主

贵阳老马马善福专业维修游泳...

等级

本版专家分：419661

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

名人 2014年荣获名人称号
2013年荣获名人称号
2012年荣获名人称号

状元 2013年总版技术专家分年内排行榜第一

探花 2014年总版技术专家分年内排行榜第三: 感谢lz的原创和分享，给推荐下

2016-12-04 00:37:18

点赞只看TA 引用举报 #6得分 0

1 2 3

收起

收藏回复

华芸智森

等级：

: 红花 2004年4月 VB大版内专家分月排行榜第一
2004年3月 VB大版内专家分月排行榜第一

关注私信 TA的帖子

VB.net工程师的面试: 说实话：我在面试之前未接触过VB.net。其实完成课程后 AND 毕业前正式的面对第一份程序员面试，我只能勇往直前。面试官应该也是一位资深的老程序员，2002年毕业吧，工作了11年的老程序员。他说了一句话：我...

几种经典的二值化方法及其vb.net实现: 图像二值化的目的是最大限度的将图象中感兴趣的部分保留下来，在很多情况下，也是进行图像分析、特征提取与模式识别之前的必要的图像...本文针对几种经典而常用的二值发放进行了简单的讨论并给出了其vb.net 实现。

vb.net使用GDI+实现简易贪吃蛇小游戏: 贪吃蛇用到的算法中两个关键的地方： 1：用数组或者其他数据结构保存蛇身体的位置，当蛇向前移动的时候，要注意迭代的关系。 2：当下达移动命令的时候，是改变了它下次移动的方向，而不是现在立刻就移动。下面...

[VB.NET]忽然想写一个空间三点定位的程序: <script type="text/javascript"

VB.net多线程入门: 出处 http://songnbell.blog.sohu.com/61817521.html<br /> 最近数据库... 恩，开始： VB.net可以在你的程序中创建线程的能力是一个值得注意的新特征。（Visual C++的开发者们已经在他们的

幾種經典的二值化方法及其vb.net實現: 圖像二值化的目的是最大限度的將圖象中感興趣的部分保留下來，在很多情況下，也是進行圖像分析、特征提取與模式識別之前的必要的圖像預處...本文針對幾種經典而常用的二值發放進行了簡單的討論並給出了其vb.net 實現。

.Net Core ORM选择之路，哪个才适合你通用查询类封装之Mongodb篇 Snowflake(雪花算法)的JavaScript实现 ...: .Net Core ORM选择之路，哪个才适合你因为老板的一句话公司项目需要迁移到.Net Core ，但是以前同事用的ORM不支持.Net Core 开发过程也遇到了各种坑，插入条数多了也特别的慢，导致系统体验比较差好多都改写...

通俗易懂，什么是.NET?什么是.NET Framework？什么是.NET Core? .Net Web开发技术栈...: 通俗易懂，什么是.NET?什么是.NET Framework？什么是.NET Core? 什么是.NET？什么是.NET Framework?本文将从上往下，循序渐进的介绍一系列相关.NET的概念，先从类型系统开始讲起，我将通过跨语言操作这个例子...

从 VBA 中使用 Visual Basic .NET 将 Word 文档序列化为 XML: Michael CorningMicrosoft Corporation 2002年10月适用于：Microsoft® Word...摘要：学习如何在 Microsoft Office Visual Basic for Applications (VBA) 程序中利用 .NET 代码将大型 Word 文档快速序列化为 XM...

关于 .Net 逆向的那些工具：反编译篇: 关于 .Net 逆向的那些工具：反编译篇在项目开发过程中，估计也有人和我遇到过同样的经历：生产环境出现了重大Bug亟需解决，而偏偏就在这时仓库中的代码却不是最新的。在这种情况下，我们不能直接在当前的代码中...

【转载】通俗易懂，什么是.NET?什么是.NET Framework？什么是.NET Core?: 什么是.NET？什么是.NET Framework?本文将从上往下，循序渐进的介绍一系列相关.NET的概念，先从类型系统开始讲起，我将通过跨语言操作这个例子来逐渐引入一系列.NET的相关概念，这主要包括：CLS、CTS(CLI)、FCL、...

.NET直接编译成本地代码：.NET Native架构简介: 最近一直在忙.NET Native相关的事情（主要是MCG)，但是又因为保密的原因不能在Blog中提到。上个星期Build终于发布（可惜没有去成，team名额太少），我也终于可以谈下.NET Native的一些东西了，呵呵。如果大家还...

在Asp.NET Core中如何优雅的管理用户机密数据: 在Asp.NET Core中如何优雅的管理用户机密数据背景回顾在软件开发过程中，使用配置文件来管理某些对应用程序运行中需要使用的参数是常见的作法。在早期VB/VB.NET时代，经常使用....

自定义VB程序加密方案: 目录第一步，获取电脑唯一性标志第二步，编密文第三步，封装Dll 第四步，编客户端和注册机 ... 想到的就这些了，本案列以C盘序列号和电脑名为电脑的识别依据，以阐述加密算法获取C...

.NET 中各种混淆（Obfuscation）的含义、原理、实际效果和不同级别的差异（使用 SmartAssembly）: UWP 程序有 .NET Native 可以将程序集编译为本机代码，逆向的难度会大很多；而基于 .NET Framework 和 .NET Core 的程序却没有 .NET Native 的支持。虽然有 Ngen.exe 可以编译为本机代码，但那只是在用户计算机上...

2019-8-31-dotnet-使用-lz4net-压缩-Stream-或文件: title author date CreateTime categories dotnet 使用 lz4net 压缩 Stream 或文件 lindexi 2019-08-31 16:55:58 +0800 2019-4-2 8:4:12 +0800 dotnet 在 dotn...

贪心算法及几个经典例子: 贪心算法一、基本概念：所谓贪心算法是指，在对问题求解时，总是做出在当前看来是最好的选择。也就是说，不从整体最优上加以考虑，他所做出的仅是在某种意义上的局部最优解。贪心算法没有固定的算法框架，...

【VB】MD5算法: 昨天才真正搞懂，ASP.NET和ASP是不同的！！ google上搜了下，感觉这个介绍的挺好的： ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些...

教你如何用VB做控件*.ocx: 教你如何用VB做控件*.ocx 一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的...

通俗易懂：什么是.NET?.NET Framework？.NET Core?（比较全面）: 什么是.NET？什么是.NET Framework?本文将从上往下，循序渐进的介绍一系列相关.NET的概念，先从类型系统开始讲起，我将通过跨语言操作这个例子来逐渐引入一系列.NET的相关概念，这主要包括：CLS、CTS(CLI)、FCL、...

在VB.NET编程中使用数组: 数组是程序中经常要使用到的一种数据类型，Visual Basic .Net中的数组，虽然语法结构等方面保留了和Visual Basic的很多相似之处，但也与Visual Basic存在着很多区别。其最大，也是各位Visual Basic程序员所最不能...

Aforge.net之旅——开篇：从识别验证码开始: 这个系列我们玩玩aforge.net,套用官方都话就是一个专门为开发者和研究者基于C#框架设计的，这个框架提供了不同的类库和关于类库的资源，还有很多应用程序例子，包括计算机视觉与人工智能，图像处理，神经网络，遗....

什么是.NET?什么是.NET Framework？什么是.NET Core?: 什么是.NET？什么是.NET Framework?本文将从上往下，循序渐进的介绍一系列相关.NET的概念，先从类型系统开始讲起，我将通过跨语言操作这个例子来逐渐引入一系列.NET的相关概念，这主要包括：CLS、CTS(CLI)、FCL、...

排序算法系列：冒泡排序与双向冒泡排序: **排序算法**应该算是一个比较热门的话题，在各个技术博客平台上也都有一些博文进行了一定程度的讲解。但还是希望能从自我完善的角度出发，可以更详细、全面、形象地表达这些算法的精髓。本文就先从最简单的冒泡排序...

通俗易懂，什么是.NET?什么是.NET Framework？什么是.NET Core?: 【转载】通俗易懂，什么是.NET?什么是.NET Framework？什么是.NET Core? 【转载】https://www.cnblogs.com/1996V/p/9037603.html 什么是.NET？什么是.NET Framework?本文将从上往下，循序渐进的介绍一系列相关.NET...

关于强命名程序集: 如何创建强命名程序集（Strong Name Assembly）创建一个强命名程序集首先需要获得一个用强命名实用工具（Strong Name Utility，即SN.exe，.NET SDK自带）产生的密钥。下面简要介绍一下SN.exe的一些用法。...

.net开发为什么要转Python: 目录 Alexantao的由来：我的技术经历：学习方法及忠告：不管你是新的程序员还是转行的：结束： ... 前天申请了专栏，本以为不会...到今天为止，学Python差不多一个月，但我相信我的学习方式和水平不会比一...

.net应该学什么怎么学---初学者必看: 上篇《学了.Net做什么开发》中我讲到了目前.Net开发主要方向是Web开发，因此在本篇中我将主要讲解做Web开发要学哪些东西，怎么学，由于内容比较多，我将分几次发。下图是我推荐的学习内容和学习顺序（除了这里列出的...

相关热词 c# 两个form赋值 c#无符号整形转为有符号 a4纸大小 c# c# 图片合并 c# 脏字过滤 c#登录权限 c#设置excel列宽 c#透明度 c# 载入文件 adb c#

[原]VB.NET常用的哈希算法集 差不多30种.

[原]VB.NET常用的哈希算法集差不多30种.