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

當(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)下載排行

主站蜘蛛池模板: 国产91精品一区二区视色 | 欧美成片vs欧美 | a毛片毛费观看 | 欧美精品第一区 | 久久视频这里有精品68 | 日本老年人精品久久中文字幕 | 激情综合亚洲欧美日韩 | 欧美久久天天综合香蕉伊 | 亚洲狠狠婷婷综合久久久久网站 | 天天天天天天干 | 欧美精品国产一区二区 | 国产99视频精品免费观看9e | 中文字幕乱码亚州精品一区 | 麻豆69堂免费视频 | h网站国产 | 国产福利午夜自产拍视频在线 | 一级毛片无毒不卡直接观看 | 无码精品一区二区三区免费视频 | 午夜影视网站 | 亚洲九九爱 | 噜噜噜色网 | 国产福利视频一区二区微拍视频 | 色拍拍噜噜噜在线视频 | 顶级欧美色妇xxxxbbbb | 国产成人yy精品1024在线 | 中文视频在线观看 | 另类欧美亚洲 | 精品一二区 | 狠狠久久久久久亚洲综合网 | 亚洲精品一区二区三区四区手机版 | 5g免费影院永久天天影院网址 | 最近中文字幕高清中文字幕在线看 | 欧美日韩一区二区三区麻豆 | 福利国产在线 | 国产高清视频在线免费观看 | 色播亚洲视频在线观看 | 日本视频一区二区三区 | 成人免费视频一区 | 深夜影院在线视频观看 | 久久99热久久国产精品 | 伊人第一页 |