📄 symmetricread.aspx

📁 asp.net技术内幕的书配源码

💻 ASPX

字号:

<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Security.Cryptography" %>

<Script Runat="Server">

CONST DESKey As String = "ABCDEFGH"
CONST DESIV As String = "HGFEDCBA"

Sub Page_load
  DESDecrypt
End Sub

Function Convert2ByteArray( strInput As String ) As Byte()
  Dim intCounter As Integer
  Dim arrChar As Char()

  arrChar = strInput.ToCharArray()
  Dim arrByte( arrChar.Length - 1 ) As Byte
  For intCounter = 0 To arrChar.Length - 1
    arrByte( intCounter ) = Convert.ToByte( arrChar( intCounter ) )
  Next
  Return arrByte
End Function

Sub DESDecrypt
  Dim arrDESKey As Byte()
  Dim arrDESIV As Byte()
  Dim objFileStream As FileStream
  Dim objDES As DESCryptoServiceProvider
  Dim objDecryptor As ICryptoTransform
  Dim objCryptoStream As CryptoStream

  arrDESKey = Convert2ByteArray( DESKey )
  arrDESIV = Convert2ByteArray( DESIV )
  objDES = New DESCryptoServiceProvider
  objDecryptor = objDES.CreateDecryptor( arrDESKey, arrDESIV )
  objFileStream = New FileStream( _
    MapPath( "secret.txt" ), _
    FileMode.Open, _
    FileAccess.Read )
  objCryptoStream = New CryptoStream( _
    objFileStream, _
    objDecryptor, _
    CryptoStreamMode.Read )
   lblMessage.Text = New StreamReader( objCryptoStream ).ReadToEnd()
  objFileStream.Close
End Sub

</Script>

<html>
<head><title>SymmetricRead.aspx</title></head>
<body>

<h2>DES Decryption</h2>

<b>Decrypted Text:</b>
<p>
<asp:Label
  ID="lblMessage"
  Runat="Server" />

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -