利用VB.NET RND()函數(shù)實現(xiàn)文件加密功能

這篇文章主要講解了“利用VB.NET RND()函數(shù)實現(xiàn)文件加密功能”，文中的講解內(nèi)容簡單清晰，易于學(xué)習(xí)與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學(xué)習(xí)“利用VB.NET RND()函數(shù)實現(xiàn)文件加密功能”吧！

在VB.NET中定義了很多種的函數(shù)，我們不能一一的都使用過，只有你用到過的函數(shù)你較為熟悉，這里就VB.NET RND()函數(shù)和大家簡單的分析一下。VB.NET RND()函數(shù)有一個重要的特征：當(dāng)RND()的參數(shù)（我們稱這里可以稱它為種子）為負(fù)值時，同一種子（負(fù)值）產(chǎn)生同一個隨機數(shù)序列。同時Visual Basic還具有強大的二進制技術(shù)功能，這樣我們可以按以下思路實現(xiàn)文件內(nèi)容加密：

X=RND(-KEY) ’KEY為正數(shù)  VAULE=INT(256*RND) ’產(chǎn)生一個隨機數(shù)(以此為密碼)  Open FILENAME$ For Binary As #FILENUM’打開文件  Get #FILENUM,I,A ’取文件內(nèi)容  B=A XOR VAULE ’得到加密文件

結(jié)合

C=B XOR VAULE’得到解密文件(B為加密后文件內(nèi)容)

注意:這里的A非整個文件內(nèi)容,可以是極少部分、幾個字節(jié)甚至單個字節(jié),若為單字節(jié),則文件中的每個字節(jié)同不同的數(shù)異或,破譯難度可見有多么大。具體過程:

Sub ENDECODE(FILENAME$,MA,FILE2$)'參數(shù)為:源文件,密碼,目標(biāo)文件  Dim FILENUM As Integer,X As Single,I As Single  Dim CHARNUM As Integer,RANDOMINTEGER As Integer  Dim SINGLECHAR As String *1,filen2 As Integer'取單字節(jié)  If MA<0 Them  MAMA=MA*(-1)  End If  X=Rnd(-MA)'參數(shù)為負(fù)  FILENUM=FreeFile Open FILENAME$ For Binary As #FILENUM '二進制方式打開源文件  filen2=FreeFile Open FILE2$ For Output As #filen2’以順序文件打開目標(biāo)文件  For i=1 To LOF(FILENUM)'LOF()文件字節(jié)長  Get #FILENUM,i,SINGLECHAR'取單字節(jié)內(nèi)容  CHARNUM=Asc(SINGLECHAR)  RANDOMINTEGER=Int(256*Rnd)'得到字母表  CHARNUMCHARNUM=CHARNUM Xor RANDOMINTEGER'異或  Print #filen2,Chr$(CHARNUM);’寫入目標(biāo)文件  Next I  Close FILENUM  Close filen2  ok ’調(diào)用成功對話框  End Sub

上面利用VB.NET RND()函數(shù)調(diào)用過程可以對任何exe com、文本等文件進行加解密（奇數(shù)次加密，偶數(shù)次解密），重演性極好，保密性特優(yōu)，若對上述過程進一步加工，如進行多重隨機等手段處理，那么將會更上一層樓，在此不累述。順便提一下，上面過程若對目標(biāo)文件同樣以二進制文件打開、寫入，那么只能對純西文文本進行加解密，對于純中文文本則通過修改取雙字節(jié)、Ｉ的步長為２來實現(xiàn)，其它（中西文結(jié)合文本、exe com等文件）則將得不到預(yù)期結(jié)果，其原因可以能是ascll大于127的字符，不能正常顯示，不能用ｐｕｔ語句正常寫入文件（得到的只是空格），有興趣者不妨一試。

感謝各位的閱讀，以上就是“利用VB.NET RND()函數(shù)實現(xiàn)文件加密功能”的內(nèi)容了，經(jīng)過本文的學(xué)習(xí)后，相信大家對利用VB.NET RND()函數(shù)實現(xiàn)文件加密功能這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是億速云，小編將為大家推送更多相關(guān)知識點的文章，歡迎關(guān)注！