Private Sub Initialize(ByVal vKeyString As String)
成都创新互联公司长期为近1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为随县企业提供专业的成都网站建设、网站制作，随县网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。
Dim intI As Integer, intJ As Integer
Randomize(Rnd(-1)) '得到初始值（种子值）
'每次调用初始值均相同
'根据初始值（种子值）得到随机数序列，每次调用Initialize时，初始值均相同。只要vKeyString相同，所产生的随机数序列一定相同
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 有一个范围
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)
'根据KeyString产生随机数序列
FileText = ET BitLenString
Call DoXor(FileText)
'根据上述随机数序列对FileText加密
KeyString = FileText
Call Initialize(KeyString)
'根据上述的加密结果产生新的随机数序列
FileText = BitLenString
Call DoXor(FileText)
'根据上述随机数序列对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
Dim str As String = "abcd" vbCrLf
TextBox6.Text = str Hash(str)
End Sub
我们知道Hashtable 是线程安全的，可由多个读取器线程或一个写入线程使用。
它的特点是:通过节点的关键码确定节点的存储位置,即给定节点的关键码k,通过一定的函数关系H(散列函数),得到函数值H(k),将此值解释为该节点的存储地址.
HashMap 与Hashtable很相似,但HashMap 是非同步(unsynchronizded)和可以以null为关键码的.
我们知道在使用内存中的地址时是按照哪里有空闲的就使用哪里的。怎么可能一直由着我们输入的顺序给你开放地址呢？
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
如果要计算文件的就把参数改成字节数组就可以了，然后获取文件GetBytes（）传进去就可以了。
病情分析：
你好！
你怀孕31周，已经属于孕晚期了，这个时期，胎动频繁是比较正常的现象。如果怀孕月份再大一些，胎动就不会这么明显了。你的宝宝动得很利害，这与你的往哪边睡没有特别大的关系的。正好相反，你往左侧睡时，胎盘血液循环较好，胎儿感觉比较舒服，才会在子宫内活动。
指导意见：
在怀孕晚期，原则上应该多往左侧睡，以利于胎盘的血液循环，对于胎儿有利。但是，如果你感觉左侧睡胎动明显，那么，也可以换到右侧睡或是平躺着睡，只要睡得舒服，怎么睡都可以的，并不要强求往哪一侧睡。
建议你放松心情，平时可以自测胎动的，如果每小时大约3--5次，则为正常现象。如果感觉异常，还可以到医院做胎心音监测的。
祝你健康！
病情分析：
根据你说的情况，现在胎儿的反应是正常的，没有看出什么异常
指导意见：
胎儿每天也要适当的活动的，所以你不要担心，定期到医院进行孕检就可以了
病情分析：
现在怀孕31周，左侧睡是宝宝动的厉害，说明宝宝对于你这个姿势很不舒服！
指导意见：
左侧睡觉也会压迫心脏的，所以你应该选择右侧睡觉的，以宝宝最舒服的姿势来睡觉！
