如何用vb實(shí)現(xiàn)hash函數(shù)的各個(gè)算法

Private Sub Initialize(ByVal vKeyString As String)

從策劃到設(shè)計(jì)制作，每一步都追求做到細(xì)膩，制作可持續(xù)發(fā)展的企業(yè)網(wǎng)站。為客戶(hù)提供成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)頁(yè)設(shè)計(jì)、空間域名、雅安服務(wù)器托管、網(wǎng)絡(luò)營(yíng)銷(xiāo)、VI設(shè)計(jì)、 網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。為客戶(hù)提供更好的一站式互聯(lián)網(wǎng)解決方案,以客戶(hù)的口碑塑造優(yōu)易品牌,攜手廣大客戶(hù),共同發(fā)展進(jìn)步。

Dim intI As Integer, intJ As Integer

Randomize(Rnd(-1)) '得到初始值（種子值）

'每次調(diào)用初始值均相同

'根據(jù)初始值（種子值）得到隨機(jī)數(shù)序列，每次調(diào)用Initialize時(shí)，初始值均相同。只要vKeyString相同，所產(chǎn)生的隨機(jī)數(shù)序列一定相同

For intI = 1 To Len(vKeyString)

intJ = Rnd(-Rnd * AscW(Mid(vKeyString, intI, 1)))

Randomize(intJ)

Next intI

End Sub

Public Sub DoXor(ByRef msFileText As String)

Dim intC As Integer

Dim intB As Integer

Dim lngI As Long

For lngI = 1 To Len(msFileText)

intC = AscW(Mid(msFileText, lngI, 1))

intB = Int(Rnd() * 2 ^ 7)

'選用 =127可正確處理漢字，ChrW(n):n 有一個(gè)范圍

Mid(msFileText, lngI, 1) = ChrW(intC Xor intB)

Next lngI

End Sub

Public Function Hash(ByVal ET As String) As String

Dim BitLenString As String, KeyString As String,

FileText As String

BitLenString = "12345678"

KeyString = ET BitLenString

Call Initialize(KeyString)

'根據(jù)KeyString產(chǎn)生隨機(jī)數(shù)序列

FileText = ET BitLenString

Call DoXor(FileText)

'根據(jù)上述隨機(jī)數(shù)序列對(duì)FileText加密

KeyString = FileText

Call Initialize(KeyString)

'根據(jù)上述的加密結(jié)果產(chǎn)生新的隨機(jī)數(shù)序列

FileText = BitLenString

Call DoXor(FileText)

'根據(jù)上述隨機(jī)數(shù)序列對(duì)FileText加密，8位字符

Hash = FileText

'8位字符送作HASH值

End Function

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

VB.NET自定義函數(shù)

很簡(jiǎn)單，在end select前再多加一種情況case else return "XXXx",因?yàn)槟阒惶峁┝?-9這10種情況

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function

C#中, 什么叫哈希函數(shù)

一般的線(xiàn)性表，樹(shù)中，記錄在結(jié)構(gòu)中的相對(duì)位置是隨機(jī)的，即和記錄的關(guān)鍵字之間不存在確定的關(guān)系，因此，在結(jié)構(gòu)中查找記錄時(shí)需進(jìn)行一系列和關(guān)鍵字的比較。這一類(lèi)查找方法建立在“比較“的基礎(chǔ)上，查找的效率依賴(lài)于查找過(guò)程中所進(jìn)行的比較次數(shù)。 理想的情況是能直接找到需要的記錄，因此必須在記錄的存儲(chǔ)位置和它的關(guān)鍵字之間建立一個(gè)確定的對(duì)應(yīng)關(guān)系f，使每個(gè)關(guān)鍵字和結(jié)構(gòu)中一個(gè)唯一的存儲(chǔ)位置相對(duì)應(yīng)。

哈希表中元素是由哈希函數(shù)確定的。將數(shù)據(jù)元素的關(guān)鍵字K作為自變量，通過(guò)一定的函數(shù)關(guān)系（稱(chēng)為哈希函數(shù)），計(jì)算出的值，即為該元素的存儲(chǔ)地址。表示為：

Addr = H（key）

為此在建立一個(gè)哈希表之前需要解決兩個(gè)主要問(wèn)題：

⑴構(gòu)造一個(gè)合適的哈希函數(shù)

均勻性H（key）的值均勻分布在哈希表中；

簡(jiǎn)單　以提高地址計(jì)算的速度

⑵沖突的處理

沖突：在哈希表中，不同的關(guān)鍵字值對(duì)應(yīng)到同一個(gè)存儲(chǔ)位置的現(xiàn)象。即關(guān)鍵字K1≠K2，但H（K1）= H（K2）。均勻的哈希函數(shù)可以減少?zèng)_突，但不能避免沖突。發(fā)生沖突后，必須解決；也即必須尋找下一個(gè)可用地址。

VB.NET string$函數(shù)

VB6的String()函數(shù)，在VB.NET中，改用 StrDup()函數(shù)，使用格式與VB6的String()函數(shù)類(lèi)似：

例如：

VB6中，String(5,"*") ，是產(chǎn)生5個(gè)星號(hào)字符，"*****"

VB.Net中，改用 StrDup(5,"*") ，也是產(chǎn)生5個(gè)星號(hào)字符，"*****"

VB.NET 中 HASHTABLE 的疑問(wèn)

我們知道Hashtable 是線(xiàn)程安全的，可由多個(gè)讀取器線(xiàn)程或一個(gè)寫(xiě)入線(xiàn)程使用。

它的特點(diǎn)是:通過(guò)節(jié)點(diǎn)的關(guān)鍵碼確定節(jié)點(diǎn)的存儲(chǔ)位置,即給定節(jié)點(diǎn)的關(guān)鍵碼k,通過(guò)一定的函數(shù)關(guān)系H(散列函數(shù)),得到函數(shù)值H(k),將此值解釋為該節(jié)點(diǎn)的存儲(chǔ)地址.

HashMap 與Hashtable很相似,但HashMap 是非同步(unsynchronizded)和可以以null為關(guān)鍵碼的.

我們知道在使用內(nèi)存中的地址時(shí)是按照哪里有空閑的就使用哪里的。怎么可能一直由著我們輸入的順序給你開(kāi)放地址呢？

VB.NET 獲取文件MD5值

Public Function md5(ByVal a As String) As String

Dim tempmd5 As System.Security.Cryptography.MD5 = New System.Security.Cryptography.MD5CryptoServiceProvider()

Dim bytResult() As Byte = tempmd5.ComputeHash(System.Text.Encoding.Default.GetBytes(a))

Dim strResult As String = BitConverter.ToString(bytResult)

strResult = strResult.Replace("-", "")

Return strResult

End Function

如果要計(jì)算文件的就把參數(shù)改成字節(jié)數(shù)組就可以了，然后獲取文件GetBytes（）傳進(jìn)去就可以了。

網(wǎng)站名稱(chēng)：vb.net哈希函數(shù),常用哈希函數(shù)
網(wǎng)站路徑：http://chinadenli.net/article10/hsgpdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營(yíng)銷(xiāo)、外貿(mào)建站、App設(shè)計(jì)、響應(yīng)式網(wǎng)站、網(wǎng)站內(nèi)鏈、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)