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

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

主站蜘蛛池模板: 欧美成人看片一区二区三区 | 成人中文字幕一区二区三区 | 亚洲精品成人一区二区 | 国产亚洲精品国产第一 | 天天综合网天天做天天受 | 手机看片福利盒子久久青 | 翔田千里在线精品视频 | 欧美二区三区 | 欧美成人资源 | 天天看天天摸天天操 | 日本www色视频 | 特级淫片欧美高清视频蜜桃 | 十八短视频在线观看 | 久久久不卡 | 99热99re8国产在线播放 | 亚洲国产精品久久精品成人 | 日韩黄色在线视频 | 国产三级视频网站 | 一级爱爱 | 日韩区在线观看 | 日本玖玖视频 | 国产成人精品精品欧美 | 大香伊人中文字幕精品 | 亚欧成人一区二区 | 欧美激情国产一区在线不卡 | 蜜臀久久99精品久久久久久 | 99久久精品免费看国产免费软件 | 日本妇丰满乱xxxxⅹ视频 | 久久久国产精品福利免费 | 午夜免费观看_视频在线观看 | 国产亚洲视频在线观看 | 日韩成人在线观看 | 久久99久久99精品观看 | 精品一区二区高清在线观看 | 中国xxxx自拍视频 | 亚洲成aⅴ人片在线观 | 天天综合色天天综合网 | 99精品视频免费观看 | 国产片一区二区三区 | 天天干人人 | 国产综合91天堂亚洲国产 |