日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

運用VB.NET加密文件

運用VB.NET加密文件

更新時間:2022-05-06 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

本文介紹使用XOR加密算法對數(shù)據(jù)進(jìn)行加密, 這是一種很簡單的算法,使用了盡量簡單的VB編程方法,通俗易懂。我們可以采用更安全的算法如DES算法,IDEA算法等。各位如有任何見解,請不吝賜教。

在窗體中添加一RichTextBox,設(shè)置其Name屬性為SourceFile,Multiline屬性為True,ScrollBars屬性為3-both。添加一MainMenu,設(shè)置一菜單項“文件”,其下有“打開”,“保存”,“加密”,“解密”,“算子”等子菜單項。
以下是大致的程序界面:



Public Class Form1
Inherits System.Windows.Forms.Form
Dim strNum As String
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
strNum = "password"
End Sub

Private Sub Form1_Resize(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Resize
SourceFile.Width = Form1.DefInstance.Width
SourceFile.Height = Form1.DefInstance.Height
End Sub
'解密過程,對xor算法而言,解密和加密過程是完全一樣的
Private Function XorOut(ByRef strNum As String, ByRef strText As String) As String
Dim i As Integer
Dim XorValue1 As Short
Dim XorValue2 As Short
Dim strResult As String
For i = 1 To Len(strText)
XorValue1 = Asc(Mid(strText, i, 1))
XorValue2 = Asc(Mid(strNum, (i Mod Len(strNum)) + 1, 1))
strResult = strResult & Chr(XorValue1 Xor XorValue2)
Next
XorOut = strResult
End Function

Private Sub MenuDeEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDeEncrypt.Click
SourceFile.Text = XorOut(strNum, (SourceFile.Text))
End Sub

Private Sub MenuEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuEncrypt.Click
SourceFile.Text = XorOut(strNum, (SourceFile.Text))
End Sub

Private Sub MenuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuOpen.Click
Dim openFile1 As New OpenFileDialog
' Determine whether the user selected a file from the OpenFileDialog.
If (openFile1.ShowDialog() = DialogResult.OK) _
And (openFile1.FileName.Length > 0) Then

' Load the contents of the file into the RichTextBox.
SourceFile.LoadFile(openFile1.FileName, _
RichTextBoxStreamType.PlainText)
End If
End Sub

Private Sub MenuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuSave.Click
' Create a SaveFileDialog to request a path and file name to save to.
Dim saveFile1 As New SaveFileDialog

' Initialize the SaveFileDialog to specify the RTF extension for the file.
'saveFile1.DefaultExt = "*.rtf"
'saveFile1.Filter = "RTF Files|*.rtf"

' Determine if the user selected a file name from the saveFileDialog.
If (saveFile1.ShowDialog() = DialogResult.OK) _
And (saveFile1.FileName.Length) > 0 Then

' Save the contents of the RichTextBox into the file.
SourceFile.SaveFile(saveFile1.FileName, _
RichTextBoxStreamType.PlainText)
End If
End Sub

Private Sub MenuNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuNum.Click
strNum = InputBox("請輸入加密算子", "設(shè)置加密算子")
End Sub
End

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 人人看人人看人做人人模 | 成人夜夜 | 青青草成人免费 | 国内精品久久久久影院一蜜桃 | 国产精品国产三级国产 | 小早川怜子一区二区 | 亚洲日本一区二区 | 一97日本道伊人久久综合影院 | 国产高清狼人香蕉在线观看 | 欧美一区二区视频 | 在线看免费视频 | 牛牛影视在线观看片免费 | 美日韩中文字幕 | 亚洲一二四区性毛片1在线 亚洲一级理论片 | 日本亚洲国产精品久久 | 日韩精品午夜 | 手机看片福利盒子久久青 | 啊片在线观看 | 亚洲精品综合久久中文字幕 | 英国美女一级毛片视频 | 国产成人综合亚洲一区 | 国产一级在线 | 亚洲成人网在线播放 | 免费观看欧美成人1314色 | 亚洲免费福利 | 久久伊人在 | 亚洲一区二区三区四区视频 | 天天干夜夜 | 天天综合天天做天天综合 | 天天狠天天干 | 国产一级特黄aa大片高清 | 997在线观看视频国产 | 欧美精品 日韩 | 本道久久综合88全国最大色 | 制服 丝袜 亚洲 中文 综合 | 免费看国产精品麻豆 | 深夜福利免费视频 | 日韩欧美一区二区三区久久 | 日韩黄| jizz日本老师 | 第一福利在线观看 |