建站
咨詢
售后
建站咨詢
新聞中心
求VB.NET生成TET文件的加密方法
使用加密方式存儲(chǔ)即可實(shí)現(xiàn)別人無法查看內(nèi)容，加密的方式有很多，適用你這里使用的是可逆的算法，推薦你使用DES加密
創(chuàng)新互聯(lián)專注于延安企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站,商城系統(tǒng)網(wǎng)站開發(fā)。延安網(wǎng)站建設(shè)公司,為延安等地區(qū)提供建站服務(wù)。全流程按需策劃設(shè)計(jì)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
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?
'/?對(duì)字符串進(jìn)行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?
'/?對(duì)DES加密后的字符串進(jìn)行解密 ?
'/?/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?
'/?對(duì)文件內(nèi)容進(jìn)行DES加密 ?
'/?/summary?
'/?param?name="sourceFile"待加密的文件絕對(duì)路徑/param?
'/?param?name="destFile"加密后的文件保存的絕對(duì)路徑/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?
'/?對(duì)文件內(nèi)容進(jìn)行DES加密，加密后覆蓋掉原來的文件 ?
'/?/summary?
'/?param?name="sourceFile"待加密的文件的絕對(duì)路徑/param?
Overloads?Public?Sub?EncryptFile(sourceFile?As?String) ?
EncryptFile(sourceFile,?sourceFile) ?
End?Sub?'EncryptFile ?
'/?summary?
'/?對(duì)文件內(nèi)容進(jìn)行DES解密 ?
'/?/summary?
'/?param?name="sourceFile"待解密的文件絕對(duì)路徑/param?
'/?param?name="destFile"解密后的文件保存的絕對(duì)路徑/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?
'/?對(duì)文件內(nèi)容進(jìn)行DES解密，加密后覆蓋掉原來的文件 ?
'/?/summary?
'/?param?name="sourceFile"待解密的文件的絕對(duì)路徑/param?
Overloads?Public?Sub?DecryptFile(sourceFile?As?String) ?
DecryptFile(sourceFile,?sourceFile) ?
End?Sub?'DecryptFile ?
End?Class?'DES ?
End?Namespace?'ZU14?
對(duì)文本文件加密
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編寫一個(gè)加密解密軟件
"采用DES算法"這個(gè)說法不明確，首先是使用多少位的DES進(jìn)行加密，通常是128位或192位，其次是，要先把主密鑰轉(zhuǎn)化成散列，才能供DES進(jìn)行加密，轉(zhuǎn)化的方法是什么沒有明確，通常是md5，所以有的銀行卡說是128位md5 3DS就是指用md5轉(zhuǎn)換主密鑰散列，用DES進(jìn)行加密，但是DES本身是64位（包含校驗(yàn)碼），2DES是128位，3DES是192位，但是沒有2DES的叫法，所以128位、192位統(tǒng)稱3DES
要完整的md5+3DS實(shí)例，需要100分以上，要不到我的空間中查找相關(guān)的文章
求VB.NET的MD5算法調(diào)用
下面是完整的類，可以設(shè)置任意密碼
'DES及md5加密解密----添加引用中添加對(duì)system.web的引用。
Imports?System.Security.Cryptography
Imports?System
Imports?System.Text
Imports?System.Web
'''?summary
'''?DES加密類
'''?/summary
'''?remarks/remarks
Public?Class?DESEncrypt
Public?Sub?DESEncrypt()
End?Sub
Public?Shared?Function?Encrypt(ByVal?Text?As?String)?As?String
Return?Encrypt(Text,?"12345678")
End?Function
Public?Shared?Function?Encrypt(ByVal?Text?As?String,?ByVal?sKey?As?String)?As?String
Dim?des?As?New?DESCryptoServiceProvider()
Dim?inputByteArray?As?Byte()
inputByteArray?=?Encoding.Default.GetBytes(Text)
des.Key?=?ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey,?"md5").Substring(0,?8))
des.IV?=?ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey,?"md5").Substring(0,?8))
Dim?ms?As?New?System.IO.MemoryStream()
Dim?cs?As?New?CryptoStream(ms,?des.CreateEncryptor(),?CryptoStreamMode.Write)
cs.Write(inputByteArray,?0,?inputByteArray.Length)
cs.FlushFinalBlock()
Dim?ret?As?New?StringBuilder()
Dim?b?As?Byte
For?Each?b?In?ms.ToArray()
ret.AppendFormat("{0:X2}",?b)
Next
Return?ret.ToString()
End?Function
Public?Shared?Function?Decrypt(ByVal?Text?As?String)?As?String
Return?Decrypt(Text,?"12345678")
End?Function
Public?Shared?Function?Decrypt(ByVal?Text?As?String,?ByVal?sKey?As?String)?As?String
Dim?des?As?New?DESCryptoServiceProvider()
Dim?len?As?Integer
len?=?Text.Length?/?2
Dim?inputByteArray(len?-?1)?As?Byte
Dim?x,?i?As?Integer
For?x?=?0?To?len?-?1
i?=?Convert.ToInt32(Text.Substring(x?*?2,?2),?16)
inputByteArray(x)?=?CType(i,?Byte)
Next
des.Key?=?ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey,?"md5").Substring(0,?8))
des.IV?=?ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey,?"md5").Substring(0,?8))
Dim?ms?As?New?System.IO.MemoryStream()
Dim?cs?As?New?CryptoStream(ms,?des.CreateDecryptor(),?CryptoStreamMode.Write)
cs.Write(inputByteArray,?0,?inputByteArray.Length)
cs.FlushFinalBlock()
Return?Encoding.Default.GetString(ms.ToArray())
End?Function
End?Class
'以下是調(diào)用方法
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'加密
Dim?str_Encrypt?As?String?=?DESEncrypt.Encrypt("你要加密的文本，可以是任意長度",?"密碼，可以很長，如果省略這個(gè)參數(shù)就是默認(rèn)的12345678")
End?Sub
Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click?'解密
Dim?str_Decrypt?As?String?=?DESEncrypt.Decrypt("你要解密的文本,?可以是任意長度",?"加密時(shí)用到的密碼，如果省略這個(gè)參數(shù)就是默認(rèn)的12345678")
End?Sub
新聞名稱：vb.netdes vbnet的sendkeys
本文來源：http://www.dlmjj.cn/article/docsdcg.html
