建站
咨詢
售后
建站咨詢
新聞中心
在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)容加密：
專注于為中小企業(yè)提供成都網(wǎng)站制作、網(wǎng)站建設(shè)服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)蓬江免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
- 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
#T#上面利用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.NETRND()函數(shù)實現(xiàn)文件加密功能
本文URL：http://www.5511xx.com/article/djpgodc.html
