您好,登錄后才能下訂單哦!
本篇內(nèi)容主要講解“VB.NET加密文件的實(shí)現(xiàn)方法”,感興趣的朋友不妨來(lái)看看。本文介紹的方法操作簡(jiǎn)單快捷,實(shí)用性強(qiáng)。下面就讓小編來(lái)帶大家學(xué)習(xí)“VB.NET加密文件的實(shí)現(xiàn)方法”吧!
VB.NET編程環(huán)境可以幫助開(kāi)發(fā)人員打造一個(gè)性能穩(wěn)定,安全可靠的編程平臺(tái),幫助開(kāi)發(fā)人員大大提高編程效率。本文介紹使用XOR加密算法對(duì)數(shù)據(jù)進(jìn)行加密, 這是一種很簡(jiǎn)單的算法,使用了盡量簡(jiǎn)單的VB編程方法,通俗易懂。我們可以采用更安全的算法如DES算法,IDEA算法等。
在窗體中添加一RichTextBox,設(shè)置其N(xiāo)ame屬性為SourceFile,Multiline屬性為T(mén)rue,ScrollBars屬性為3-both。添加一MainMenu,設(shè)置一菜單項(xiàng)“文件”,其下有“打開(kāi)”,“保存”,“加密”,“解密”,“算子”等子菜單項(xiàng)。
以下是大致的VB.NET加密文件的程序界面:
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.LoadstrNum = "password"
End Sub
Private Sub Form1_Resize(ByVal event
Sender As System.Object, ByVal eventArgs
As System.EventArgs) Handles MyBase.ResizeSourceFile.Width = Form1.DefInstance.Width
SourceFile.Height = Form1.DefInstance.Height
End Sub
解密過(guò)程,對(duì)xor算法而言,解密和VB.NET加密文件的過(guò)程是完全一樣的
Private Function XorOut(ByRef
strNum As String, ByRef strText
As String) As StringDim 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))strResultstrResult = 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.ClickSourceFile.Text = XorOut(strNum,
(SourceFile.Text))End Sub
Private Sub MenuEncrypt_Click
(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Handles MenuEncrypt.ClickSourceFile.Text = XorOut(strNum,
(SourceFile.Text))End Sub
Private Sub MenuOpen_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
MenuOpen.ClickDim 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.ClickstrNum = InputBox("請(qǐng)輸入加密算子",
"設(shè)置加密算子")End Sub
End Class
到此,相信大家對(duì)“VB.NET加密文件的實(shí)現(xiàn)方法”有了更深的了解,不妨來(lái)實(shí)際操作一番吧!這里是億速云網(wǎng)站,更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢(xún),關(guān)注我們,繼續(xù)學(xué)習(xí)!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。