vb.net哈希加密,c#哈希加密

求vb.net的哈希加密算法的代码？

病情分析：

成都创新互联公司是专业的达日网站建设公司，达日接单;提供做网站、成都网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行达日网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

你好！

你怀孕31周，已经属于孕晚期了，这个时期，胎动频繁是比较正常的现象。如果怀孕月份再大一些，胎动就不会这么明显了。你的宝宝动得很利害，这与你的往哪边睡没有特别大的关系的。正好相反，你往左侧睡时，胎盘血液循环较好，胎儿感觉比较舒服，才会在子宫内活动。

指导意见：

在怀孕晚期，原则上应该多往左侧睡，以利于胎盘的血液循环，对于胎儿有利。但是，如果你感觉左侧睡胎动明显，那么，也可以换到右侧睡或是平躺着睡，只要睡得舒服，怎么睡都可以的，并不要强求往哪一侧睡。

建议你放松心情，平时可以自测胎动的，如果每小时大约3--5次，则为正常现象。如果感觉异常，还可以到医院做胎心音监测的。

祝你健康！

病情分析：

根据你说的情况，现在胎儿的反应是正常的，没有看出什么异常

指导意见：

胎儿每天也要适当的活动的，所以你不要担心，定期到医院进行孕检就可以了

病情分析：

现在怀孕31周，左侧睡是宝宝动的厉害，说明宝宝对于你这个姿势很不舒服！

指导意见：

左侧睡觉也会压迫心脏的，所以你应该选择右侧睡觉的，以宝宝最舒服的姿势来睡觉！

VB.NET程序加密问题

在FormLoad事件里，写如下代码：

If MsgBox("是否打开程序?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

End

End If

大概方法是这样，要想加密码的话，将MsgBox()换成你自己写的对话框。

如果还嫌不够具体的话，你这点儿分就不够。。。

vb代码哈希加密算法？

Private Sub Initialize(ByVal vKeyString As String)

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