VB.NET開發的軟件，大家一般都是怎么加密的

網上有很多專業的加密教程

成都創新互聯：公司2013年成立為各行業開拓出企業自己的“網站建設”服務，為超過千家公司企業提供了專業的做網站、成都網站制作、網頁設計和網站推廣服務， 按需開發由設計師親自精心設計，設計的效果完全按照客戶的要求，并適當的提出合理的建議，擁有的視覺效果，策劃師分析客戶的同行競爭對手，根據客戶的實際情況給出合理的網站構架，制作客戶同行業具有領先地位的。

最適合小開發者的軟件加密方式就是下面這個

獲取硬件信息和個人注冊時的姓名手機號等一系列信息，通過預先設定好的加密函數進行散列加密，生成一個只有本人本機能使用的序列號，軟件正版授權的時候用同樣的方式生成序列號進行比對，一樣則通過

VB.NET做的一個行業小軟件，請問如何加密，比如需要通過什么硬件的序列號注冊；

最好的加密就是通過你的網站去加密！用網絡服務器驗證把一些主要程序都可以加載到服務器上！這樣你的程序加密就完美了！　（個人觀點純屬不懂裝懂的。哈哈見笑）

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

病情分析：

你好！

你懷孕31周，已經屬于孕晚期了，這個時期，胎動頻繁是比較正常的現象。如果懷孕月份再大一些，胎動就不會這么明顯了。你的寶寶動得很利害，這與你的往哪邊睡沒有特別大的關系的。正好相反，你往左側睡時，胎盤血液循環較好，胎兒感覺比較舒服，才會在子宮內活動。

指導意見：

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

建議你放松心情，平時可以自測胎動的，如果每小時大約3--5次，則為正常現象。如果感覺異常，還可以到醫院做胎心音監測的。

祝你健康！

病情分析：

根據你說的情況，現在胎兒的反應是正常的，沒有看出什么異常

指導意見：

胎兒每天也要適當的活動的，所以你不要擔心，定期到醫院進行孕檢就可以了

病情分析：

現在懷孕31周，左側睡是寶寶動的厲害，說明寶寶對于你這個姿勢很不舒服！

指導意見：

左側睡覺也會壓迫心臟的，所以你應該選擇右側睡覺的，以寶寶最舒服的姿勢來睡覺！

簡單VB.NET加密與解密

Private Function myEncrypt(ByVal Code As String) As String

Dim Result As String = ""

Dim CurrentChar As Char

For i As Integer = 0 To Code.Length - 1

CurrentChar = Code.Substring(i, 1)

Select Case Code.Substring(i, 1)

Case "Z"

Result = "a"

Case "z"

Result = "A"

Case Else

Result = Chr(Asc(CurrentChar) + 1)

End Select

Next

Return Result

End Function

'vb.net 2005 調試通過

求VB.NET生成TET文件的加密方法

使用加密方式存儲即可實現別人無法查看內容，加密的方式有很多，適用你這里使用的是可逆的算法，推薦你使用DES加密

Imports?System ?

Imports?System.Collections.Generic ?

Imports?System.Text ?

Imports?System.IO ?

Imports?System.Security ?

Imports?System.Security.Cryptography ?

Namespace?ZU14 ?

NotInheritable?Public?Class?DES ?

Private?iv?As?String?=?"1234的yzo"?

Private?key?As?String?=?"123在yzo"?

'/?summary?

'/?DES加密偏移量，必須是=8位長的字符串 ?

'/?/summary?

Public?Property?IV()?As?String ?

Get ?

Return?iv ?

End?Get ?

Set ?

iv?=?value?

End?Set ?

End?Property ?

'/?summary?

'/?DES加密的私鑰，必須是8位長的字符串 ?

'/?/summary?

Public?Property?Key()?As?String ?

Get ?

Return?key ?

End?Get ?

Set ?

key?=?value?

End?Set ?

End?Property ?

'/?summary?

'/?對字符串進行DES加密 ?

'/?/summary?

'/?param?name="sourceString"待加密的字符串/param?

'/?returns加密后的BASE64編碼的字符串/returns?

Public?Function?Encrypt(sourceString?As?String)?As?String ?

Dim?btKey?As?Byte()?=?Encoding.Default.GetBytes(key) ?

Dim?btIV?As?Byte()?=?Encoding.Default.GetBytes(iv) ?

Dim?des?As?New?DESCryptoServiceProvider() ?

Dim?ms?As?New?MemoryStream() ?

Try ?

Dim?inData?As?Byte()?=?Encoding.Default.GetBytes(sourceString) ?

Try ?

Dim?cs?As?New?CryptoStream(ms,?des.CreateEncryptor(btKey,?btIV),?CryptoStreamMode.Write) ?

Try ?

cs.Write(inData,?0,?inData.Length) ?

cs.FlushFinalBlock() ?

Finally ?

cs.Dispose() ?

End?Try ?

Return?Convert.ToBase64String(ms.ToArray()) ?

Catch ?

End?Try ?

Finally ?

ms.Dispose() ?

End?Try ?

End?Function?'Encrypt ?

'/?summary?

'/?對DES加密后的字符串進行解密 ?

'/?/summary?

'/?param?name="encryptedString"待解密的字符串/param?

'/?returns解密后的字符串/returns?

Public?Function?Decrypt(encryptedString?As?String)?As?String ?

Dim?btKey?As?Byte()?=?Encoding.Default.GetBytes(key) ?

Dim?btIV?As?Byte()?=?Encoding.Default.GetBytes(iv) ?

Dim?des?As?New?DESCryptoServiceProvider() ?

Dim?ms?As?New?MemoryStream() ?

Try ?

Dim?inData?As?Byte()?=?Convert.FromBase64String(encryptedString) ?

Try ?

Dim?cs?As?New?CryptoStream(ms,?des.CreateDecryptor(btKey,?btIV),?CryptoStreamMode.Write) ?

Try ?

cs.Write(inData,?0,?inData.Length) ?

cs.FlushFinalBlock() ?

Finally ?

cs.Dispose() ?

End?Try ?

Return?Encoding.Default.GetString(ms.ToArray()) ?

Catch ?

End?Try ?

Finally ?

ms.Dispose() ?

End?Try ?

End?Function?'Decrypt ?

'/?summary?

'/?對文件內容進行DES加密 ?

'/?/summary?

'/?param?name="sourceFile"待加密的文件絕對路徑/param?

'/?param?name="destFile"加密后的文件保存的絕對路徑/param?

Overloads?Public?Sub?EncryptFile(sourceFile?As?String,?destFile?As?String) ?

If?Not?File.Exists(sourceFile)?Then ?

Throw?New?FileNotFoundException("指定的文件路徑不存在！",?sourceFile) ?

End?If ?

Dim?btKey?As?Byte()?=?Encoding.Default.GetBytes(key) ?

Dim?btIV?As?Byte()?=?Encoding.Default.GetBytes(iv) ?

Dim?des?As?New?DESCryptoServiceProvider() ?

Dim?btFile?As?Byte()?=?File.ReadAllBytes(sourceFile) ?

Dim?fs?As?New?FileStream(destFile,?FileMode.Create,?FileAccess.Write) ?

Try ?

Try ?

Dim?cs?As?New?CryptoStream(fs,?des.CreateEncryptor(btKey,?btIV),?CryptoStreamMode.Write) ?

Try ?

cs.Write(btFile,?0,?btFile.Length) ?

cs.FlushFinalBlock() ?

Finally ?

cs.Dispose() ?

End?Try ?

Catch ?

Finally ?

fs.Close() ?

End?Try ?

Finally ?

fs.Dispose() ?

End?Try ?

End?Sub?'EncryptFile ?

'/?summary?

'/?對文件內容進行DES加密，加密后覆蓋掉原來的文件 ?

'/?/summary?

'/?param?name="sourceFile"待加密的文件的絕對路徑/param?

Overloads?Public?Sub?EncryptFile(sourceFile?As?String) ?

EncryptFile(sourceFile,?sourceFile) ?

End?Sub?'EncryptFile ?

'/?summary?

'/?對文件內容進行DES解密 ?

'/?/summary?

'/?param?name="sourceFile"待解密的文件絕對路徑/param?

'/?param?name="destFile"解密后的文件保存的絕對路徑/param?

Overloads?Public?Sub?DecryptFile(sourceFile?As?String,?destFile?As?String) ?

If?Not?File.Exists(sourceFile)?Then ?

Throw?New?FileNotFoundException("指定的文件路徑不存在！",?sourceFile) ?

End?If ?

Dim?btKey?As?Byte()?=?Encoding.Default.GetBytes(key) ?

Dim?btIV?As?Byte()?=?Encoding.Default.GetBytes(iv) ?

Dim?des?As?New?DESCryptoServiceProvider() ?

Dim?btFile?As?Byte()?=?File.ReadAllBytes(sourceFile) ?

Dim?fs?As?New?FileStream(destFile,?FileMode.Create,?FileAccess.Write) ?

Try ?

Try ?

Dim?cs?As?New?CryptoStream(fs,?des.CreateDecryptor(btKey,?btIV),?CryptoStreamMode.Write) ?

Try ?

cs.Write(btFile,?0,?btFile.Length) ?

cs.FlushFinalBlock() ?

Finally ?

cs.Dispose() ?

End?Try ?

Catch ?

Finally ?

fs.Close() ?

End?Try ?

Finally ?

fs.Dispose() ?

End?Try ?

End?Sub?'DecryptFile ?

'/?summary?

'/?對文件內容進行DES解密，加密后覆蓋掉原來的文件 ?

'/?/summary?

'/?param?name="sourceFile"待解密的文件的絕對路徑/param?

Overloads?Public?Sub?DecryptFile(sourceFile?As?String) ?

DecryptFile(sourceFile,?sourceFile) ?

End?Sub?'DecryptFile ?

End?Class?'DES ?

End?Namespace?'ZU14?

對文本文件加密

Dim?des?As?New?ZU14.DES() ?

des.IV?=?"abcd哈哈笑"?

des.Key?=?"必須八位"?

'加密

des.EncryptFile("d:\a.txt",?"d:\b.txt") ?

'解密

des.DecryptFile("d:\b.txt")

用VB.net編寫一個加密解密軟件

"采用DES算法"這個說法不明確，首先是使用多少位的DES進行加密，通常是128位或192位，其次是，要先把主密鑰轉化成散列，才能供DES進行加密，轉化的方法是什么沒有明確，通常是md5，所以有的銀行卡說是128位md5 3DS就是指用md5轉換主密鑰散列，用DES進行加密，但是DES本身是64位（包含校驗碼），2DES是128位，3DES是192位，但是沒有2DES的叫法，所以128位、192位統稱3DES

要完整的md5+3DS實例，需要100分以上，要不到我的空間中查找相關的文章

網站標題：vb.net文件加密,vb中加密加密代碼
網站地址：http://vcdvsql.cn/article36/hshppg.html

成都網站建設公司_創新互聯，為您提供做網站、外貿網站建設、手機網站建設、商城網站、網站維護、App設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯