±¾ÆªÎÄÕµÄÖ÷Òª¿ª·¢»·¾³ÊÇVisual Studio 2008£¬Visual StudioϵÁвúÆ·Ò»Ö±ÒÔÀ´¶¼ÌṩÁËÇ¿´óµÄ¿Ø¼þ¹¦ÄÜ£¬È»¶øÎÒÃÇÀûÓÃÕâЩ¿Ø¼þ¿ÉÒÔ±àд³ö¹¦ÄÜÇ¿´óµÄÓ¦ÓóÌÐò£¬Visual Studio2008ÔÚһЩÌØÐÔÉÏÒ²×ö³öÁËÐí¶àµÄ¸Ä½ø¡£±¾ÎÄÖ÷ÒªÀûÓÃ΢ÈíµÄ×îÐÂ.net¿ª·¢¹¤¾ßΪ´ó¼ÒչʾÎÄ×Ö¼ÓÃÜÓë½âÃܵÄÓ¦Ó÷½·¨£¬Îª´ó¼Ò½éÉÜ´´½¨»ù±¾¼ÓÃÜÓë½âÃܳÌÐòµÄһЩ¼¼ÇÉ¡£ºÜÊʺÏ.net¿ª·¢¹¤¾ßµÄ³õѧÕߣ¬¾ßÓÐÒ»¶¨µÄʵÓüÛÖµ¡£¡¡¡¡

¡¡¡¡Ñ¡ÔñForm1´°Ì壬ÔÚForm1´°ÌåÖÐÌí¼ÓÈçÏ¿ؼþ£ºLabel1¡¢Label2¡¢ Label3¿Ø¼þ£¬TextBox1¡¢TextBox2¡¢TextBox3¿Ø¼þ£¬Button1ÓëButton2¿Ø¼þ¡£

¡¡¡¡Ïà¹ØÊôÐÔÉèÖÃÈçÏ£º

ÎÒÃÇÊʵ±µØµ÷Õû½çÃ棬½çÃæÉèÖÃЧ¹ûÈçÏ£ºÍ¼2

¡¡¡¡³ÌÐò½çÃæÉèÖúúó£¬ÎÒÃÇÐèÒª´´½¨À࣬ÔÚÀàÖÐÀ´ÊäÈëÓë´Ë³ÌÐòÏà¹ØµÄ´úÂë¡¡¡¡

¡¡¡¡Ñ¡Ôñ<ÏîÄ¿>---<Ìí¼ÓÀà>---ÎļþÃüÃûΪ£ºcsmode Èçͼ3

¡¡¡¡ÔÚ±à³Ì֮ǰÊ×ÏÈÎÒÃÇÐèÒªÖªµÀSystem.Security.Cryptography ÃüÃû¿Õ¼ä¡¡¡¡

¡¡¡¡System.Security.Cryptography ÃüÃû¿Õ¼äÌṩ¼ÓÃÜ·þÎñ£¬°üÀ¨°²È«µÄÊý¾Ý±àÂëºÍ½âÂë

½éÉܲ¿·Ö³£ÓõÄö¾Ù

½éÉܲ¿·Ö³£ÓõÄö¾Ù½øÈëcsmode.vbÀàµÄ´úÂëʼþ

¡¡¡¡ÊäÈë´úÂ룺

¡¡¡¡Imports System

¡¡¡¡Imports System.IO

¡¡¡¡Imports System.Security.Cryptography

¡¡¡¡Imports System.Text¡¡¡¡

¡¡¡¡Public Class csmode

¡¡¡¡ Public Function Encrypt(ByVal StrInput As String) As String

¡¡¡¡ Dim ByteInput As [Byte]() = Encoding.Default.GetBytes(StrInput)

¡¡¡¡ Dim ms As New System.IO.MemoryStream¡¡¡¡

¡¡¡¡ Dim DESC As New DESCryptoServiceProvider¡¡¡¡

¡¡¡¡ Dim CStream As New CryptoStream(ms, DESC.CreateEncryptor(Encoding.Default.GetBytes("20000000"), Encoding.Default.GetBytes("×Ö½ÚÊýÁ¿")), CryptoStreamMode.Write)¡¡¡¡

¡¡¡¡ CStream.Write(ByteInput, 0, ByteInput.Length)

¡¡¡¡ CStream.FlushFinalBlock()

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

¡¡¡¡End Function¡¡¡¡

¡¡¡¡ Public Function Decrypt(ByVal StrInput As String) As String

¡¡¡¡ Dim ByteInput As [Byte]() = Convert.FromBase64String(StrInput)

¡¡¡¡ Dim ms As New System.IO.MemoryStream¡¡¡¡

¡¡¡¡ Dim DESC As New DESCryptoServiceProvider¡¡¡¡

¡¡¡¡ Dim CStream As New CryptoStream(ms, DESC.CreateDecryptor(Encoding.Default.GetBytes("20000000"), Encoding.Default.GetBytes("×Ö½ÚÊýÁ¿")), CryptoStreamMode.Write)

¡¡¡¡ CStream.Write(ByteInput, 0, ByteInput.Length)

¡¡¡¡ CStream.FlushFinalBlock()

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

¡¡¡¡ End Function¡¡¡¡

¡¡¡¡End Class¡¡¡¡

¡¡¡¡Ñ¡ÔñForm1´°Ì壬½øÈë´úÂë±à¼­Æ÷

¡¡¡¡Ê×ÏȽøÐÐÉùÃ÷

¡¡¡¡Imports System

¡¡¡¡Imports System.IO

¡¡¡¡Imports System.Text¡¡¡¡

¡¡¡¡Public Class Form1

¡¡¡¡Inherits System.Windows.Forms.Form

¡¡¡¡½øÈëButton1_Clickʼþ

¡¡¡¡Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

¡¡¡¡ Dim Encode As New csmode() '¶ÔÎÄ×Ö½øÐмÓÃÜ

¡¡¡¡ TextBox2.Text = Encode.Encrypt(TextBox1.Text)

¡¡¡¡ End Sub

¡¡¡¡½øÈëButton2_Clickʼþ

¡¡¡¡Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

¡¡¡¡ Dim Decode As New csmode() '¶ÔÎÄ×Ö½øÐнâÃÜ

¡¡¡¡ TextBox3.Text = Decode.Decrypt(TextBox2.Text)

¡¡¡¡End Sub

´úÂëÊäÈëÍê±Ï£¬½ÓÏÂÀ´ÔËÐгÌÐò½øÐвâÊÔ¡£Èçͼ4

¡¡¡¡³ÌÐòÔËÐгɹ¦£¬ÒÔÉÏÊÇÒ»¸ö¼òµ¥µÄÎÄ×Ö¼ÓÃÜÓë½âÃܳÌÐòµÄ±àд¹ý³Ì£¬Ï£Íû´ó¼Ò¿ÉÒÔ¾ÙÒ»·´Èý£¬ÀûÓÃÕâÖÖ˼·¿ÉÒÔ±àд³ö¹¦ÄܸüÇ¿´óµÄ¼Ó½âÃܳÌÐò¡£