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

病情分析：

成都創(chuàng)新互聯(lián)公司是專業(yè)的達(dá)日網(wǎng)站建設(shè)公司，達(dá)日接單;提供做網(wǎng)站、成都網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行達(dá)日網(wǎng)站開發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

你好！

你懷孕31周，已經(jīng)屬于孕晚期了，這個(gè)時(shí)期，胎動(dòng)頻繁是比較正常的現(xiàn)象。如果懷孕月份再大一些，胎動(dòng)就不會(huì)這么明顯了。你的寶寶動(dòng)得很利害，這與你的往哪邊睡沒(méi)有特別大的關(guān)系的。正好相反，你往左側(cè)睡時(shí)，胎盤血液循環(huán)較好，胎兒感覺比較舒服，才會(huì)在子宮內(nèi)活動(dòng)。

指導(dǎo)意見：

在懷孕晚期，原則上應(yīng)該多往左側(cè)睡，以利于胎盤的血液循環(huán)，對(duì)于胎兒有利。但是，如果你感覺左側(cè)睡胎動(dòng)明顯，那么，也可以換到右側(cè)睡或是平躺著睡，只要睡得舒服，怎么睡都可以的，并不要強(qiáng)求往哪一側(cè)睡。

建議你放松心情，平時(shí)可以自測(cè)胎動(dòng)的，如果每小時(shí)大約3--5次，則為正?，F(xiàn)象。如果感覺異常，還可以到醫(yī)院做胎心音監(jiān)測(cè)的。

祝你健康！

病情分析：

根據(jù)你說(shuō)的情況，現(xiàn)在胎兒的反應(yīng)是正常的，沒(méi)有看出什么異常

指導(dǎo)意見：

胎兒每天也要適當(dāng)?shù)幕顒?dòng)的，所以你不要擔(dān)心，定期到醫(yī)院進(jìn)行孕檢就可以了

病情分析：

現(xiàn)在懷孕31周，左側(cè)睡是寶寶動(dòng)的厲害，說(shuō)明寶寶對(duì)于你這個(gè)姿勢(shì)很不舒服！

指導(dǎo)意見：

左側(cè)睡覺也會(huì)壓迫心臟的，所以你應(yīng)該選擇右側(cè)睡覺的，以寶寶最舒服的姿勢(shì)來(lái)睡覺！

VB.NET程序加密問(wèn)題

在FormLoad事件里，寫如下代碼：

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

End

End If

大概方法是這樣，要想加密碼的話，將MsgBox()換成你自己寫的對(duì)話框。

如果還嫌不夠具體的話，你這點(diǎn)兒分就不夠。。。

vb代碼哈希加密算法？

Private?Sub?Initialize(ByVal?vKeyString?As?String)

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

Dim?str?As?String?=?"abcd"??vbCrLf

TextBox6.Text?=?str??Hash(str)

End?Sub