日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET編寫DEC加密程序?qū)嶋H操作技巧分享

在VB.NET中存在著這樣兩種函數(shù)，一個(gè)是解密函數(shù)，另一個(gè)則是加密函數(shù)。這兩種函數(shù)的應(yīng)用則可以幫助開發(fā)人員實(shí)現(xiàn)DEC加密程序。下面我們可以通過兩段代碼來對(duì)VB.NET編寫DEC加密程序的相關(guān)方法進(jìn)行一個(gè)解讀。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、成都小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了黃岡免費(fèi)建站歡迎大家使用！

VB.NET編寫DEC加密程序之加密函數(shù)：

 
 
 
      
  
  
  1. Public Shared Function Encrypt（ByVal 
    pToEncrypt As String， ByVal sKey 
    As String） As String  
    2.   
  
  
  2. Dim des As New DESCryptoServiceProvider（）  
    3.   
  
  
  3. Dim inputByteArray（） As Byte  
    4.   
  
  
  4. inputByteArray = Encoding.Default.
    GetBytes（pToEncrypt）  
    5.   
  
  
  5. ''建立加密對(duì)象的密鑰和偏移量  
    6.   
  
  
  6. ''原文使用ASCIIEncoding.ASCII方法的GetBytes方法  
    7.   
  
  
  7. ''使得輸入密碼必須輸入英文文本  
    8.   
  
  
  8. des.Key = ASCIIEncoding.ASCII.GetBytes（sKey）  
    9.   
  
  
  9. des.IV = ASCIIEncoding.ASCII.GetBytes（sKey）  
    10.   
  
  
  10. ''寫二進(jìn)制數(shù)組到加密流  
    11.   
  
  
  11. ''（把內(nèi)存流中的內(nèi)容全部寫入）  
    12.   
  
  
  12. Dim ms As New System.IO.MemoryStream（）  
    13.   
  
  
  13. Dim cs As New CryptoStream（ms， 
    des.CreateEncryptor， 
    CryptoStreamMode.Write）  
    14.   
  
  
  14. ''寫二進(jìn)制數(shù)組到加密流  
    15.   
  
  
  15. ''（把內(nèi)存流中的內(nèi)容全部寫入）  
    16.   
  
  
  16. cs.Write（inputByteArray， 0， 
    inputByteArray.Length）  
    17.   
  
  
  17. cs.FlushFinalBlock（）  
    18.   
  
  
  18. ''建立輸出字符串  
    19.   
  
  
  19. Dim ret As New StringBuilder（）  
    20.   
  
  
  20. Dim b As Byte  
    21.   
  
  
  21. For Each b In ms.ToArray（）  
    22.   
  
  
  22. ret.AppendFormat（"{0：X2}"， b）  
    23.   
  
  
  23. Next  
    24.   
  
  
  24. Return ret.ToString（）  
    25.   
  
  
  25. End Function 
    26.

VB.NET編寫DEC加密程序之解密函數(shù)：

 
 
 
      
  
  
  1. Public Shared Function Decrypt
    （ByVal pToDecrypt As String， 
    ByVal sKey As String） As String  
    2.   
  
  
  2. Dim des As New DESCryptoService
    Provider（）  
    3.   
  
  
  3. ''把字符串放入byte數(shù)組  
    4.   
  
  
  4. Dim len As Integer  
    5.   
  
  
  5. len = pToDecrypt.Length / 2 - 1  
    6.   
  
  
  6. Dim inputByteArray（len） As Byte  
    7.   
  
  
  7. Dim x， i As Integer  
    8.   
  
  
  8. For x = 0 To len  
    9.   
  
  
  9. i = Convert.ToInt32（pToDecrypt.
    Substring（x * 2， 2）， 16）  
    10.   
  
  
  10. inputByteArray（x） = CType（i， Byte）  
    11.   
  
  
  11. Next  
    12.   
  
  
  12. ''建立加密對(duì)象的密鑰和偏移量，此值重要，不能修改  
    13.   
  
  
  13. des.Key = ASCIIEncoding.ASCII.GetBytes（sKey）  
    14.   
  
  
  14. des.IV = ASCIIEncoding.ASCII.GetBytes（sKey）  
    15.   
  
  
  15. Dim ms As New System.IO.MemoryStream（）  
    16.   
  
  
  16. Dim cs As New CryptoStream（ms， 
    des.CreateDecryptor， CryptoStreamMode.Write）  
    17.   
  
  
  17. cs.Write（inputByteArray， 0， 
    inputByteArray.Length）  
    18.   
  
  
  18. cs.FlushFinalBlock（）  
    19.   
  
  
  19. Return Encoding.Default.GetString（ms.ToArray）  
    20.   
  
  
  20. End Function 
    21.

兩個(gè)函數(shù)中第一個(gè)參數(shù)是待加密或解密的字符串，sKey是使用的密鑰，必須是8位，使用的時(shí)候要注意哦，不然會(huì)出錯(cuò)的。

以上就是我們?yōu)榇蠹医榻B的VB.NET編寫DEC加密程序操作技巧。

【編輯推薦】

  1. VB.NET匿名類型可變與不可變之間區(qū)別
  2. VB.NET數(shù)據(jù)類型概念剖析
  3. 輕松掌握VB.NET設(shè)置IP技巧
  4. 幾步解決VB.NET編寫病毒
  5. VB.NET特殊操作符總結(jié)概述

網(wǎng)站欄目：VB.NET編寫DEC加密程序?qū)嶋H操作技巧分享
文章位置：http://m.5511xx.com/article/dhoceec.html