亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

巧用VISUALBASIC的RND（）函數

2019-11-18 17:39:17
字體：大 中 小
來源：轉載
供稿：網友
VISUALBASIC的RND（）函數有一個重要的特征：當RND（）的參數（我們稱這里可以稱它為種子）為負值時，同一種子（負值）產生同一個隨機數序列。同時VISUALBASIC還具有強大的二進制技術功能，這樣我們可以按以下思路實現文件內容加密：
X=RND(-KEY)
'KEY為正數
VAULE=INT(256*RND)'產生一個隨機數(以此為密碼)
OpenFILENAME$ForBinaryAs#FILENUM'打開文件
Get#FILENUM,I,A'取文件內容
B=AXORVAULE'得到加密文件
結合
C=BXORVAULE'得到解密文件(B為加密后文件內容)
注意:這里的A非整個文件內容,可以是極少部分、幾個字節甚至單個字節,若為單字節,則文件中的每個字節同不同的數異或,破譯難度可見有多么大。具體過程:
SubENDECODE(FILENAME$,MA,FILE2$)'參數為:源文件,密碼,目標文件
DimFILENUMAsInteger,XAsSingle,IAsSingle
DimCHARNUMAsInteger,RANDOMINTEGERAsInteger
DimSINGLECHARAsString*1,filen2AsInteger'取單字節
IfMA<0Them
MA=MA*(-1)
EndIf
X=Rnd(-MA)'參數為負
FILENUM=FreeFile
OpenFILENAME$ForBinaryAs#FILENUM'二進制方式打開源文件
filen2=FreeFile
OpenFILE2$ForOutputAs#filen2'以順序文件打開目標文件
ForI=1ToLOF(FILENUM)'LOF()文件字節長
Get#FILENUM,I,SINGLECHAR'取單字節內容
CHARNUM=Asc(SINGLECHAR)
RANDOMINTEGER=Int(256*Rnd)'得到字母表
CHARNUM=CHARNUMXorRANDOMINTEGER'異或
EndSub
調用格式：ENDECODE源文件名，密碼，目標文件名
上面過程可以對任何EXE、COM、文本等文件進行加解密（奇數次加密，偶數次解密），重演性極好，保密性特優，若對上述過程進一步加工，如進行多重隨機等手段處理，那么將會更上一層樓，在此不累述。
順便提一下，上面過程若對目標文件同樣以二進制文件打開、寫入，那么只能對純西文文本進行加解密，對于純中文文本則通過修改取雙字節、I的步長為2來實現，其它（中西文結合文本、EXE、COM等文件）則將得不到預期結果，其原因可以能是ASCII大于127的字符，不能正常顯示，不能用put語句正常寫入文件（得到的只是空格），有興趣者不妨一試。
->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲少妇激情视频| 国产日韩欧美视频在线| 亚洲影院在线看| 国产热re99久久6国产精品| 在线视频欧美日韩| 国产91网红主播在线观看| 日韩精品在线免费播放| 国内外成人免费激情在线视频网站| 91精品国产99| 在线视频欧美性高潮| 国产精品你懂得| 亚洲日本欧美中文幕| 亚洲欧美日韩一区二区在线| 亚洲成人久久久| 久久久久久亚洲精品| 国产精品一久久香蕉国产线看观看| 亚洲天天在线日亚洲洲精| 亚洲人成在线免费观看| 一本一本久久a久久精品综合小说| 4438全国亚洲精品在线观看视频| 亚洲精品成人久久电影| 欧美精品在线看| 国产精品一二三视频| 色综合视频一区中文字幕| 亚洲最大av网站| 亚洲图中文字幕| 国产亚洲人成a一在线v站| 亚洲免费伊人电影在线观看av| 法国裸体一区二区| 91国产美女在线观看| 国产精品日日做人人爱| 在线a欧美视频| 国产精品尤物福利片在线观看| 国产精品狠色婷| 在线一区二区日韩| 欧美一级片久久久久久久| 国产精品69久久久久| 77777亚洲午夜久久多人| 国产乱人伦真实精品视频| 91精品国产自产在线老师啪| 亚洲欧美综合v| 欧美大片在线免费观看| 欧美日韩成人精品| 色噜噜狠狠色综合网图区| 97视频com| 亚洲第一视频网站| 亚洲美女av在线| 亚洲午夜久久久久久久| 久久久91精品国产一区不卡| 丝袜情趣国产精品| 精品久久久久久国产91| 97视频在线播放| 国内精品久久久久久中文字幕| 欧美激情按摩在线| 亚洲成人a级网| 夜夜嗨av色一区二区不卡| 久久精品国产亚洲一区二区| 亚洲国产精品久久久久秋霞蜜臀| 91在线中文字幕| 成人黄色免费片| 欧美激情视频在线免费观看 欧美视频免费一| 久久免费视频在线观看| 久久久久久综合网天天| 中文字幕无线精品亚洲乱码一区| 精品亚洲aⅴ在线观看| 日本高清+成人网在线观看| 欧美成人亚洲成人| 亚洲欧洲在线免费| 正在播放欧美一区| 最新中文字幕亚洲| 亚洲视频一区二区三区| 久久久久国产精品免费网站| 美女啪啪无遮挡免费久久网站| 国产精品久久久久久久久久三级| 国产区亚洲区欧美区| 久久成人精品一区二区三区| 亚洲国产精品久久久久| 国产福利视频一区二区| 日韩免费av在线| 亚洲电影免费在线观看| 亚洲成人免费在线视频| 国产精品精品一区二区三区午夜版| 亚洲欧美国产日韩天堂区| 日韩精品极品视频免费观看| 日韩免费在线播放| 欧美人成在线视频| 亚洲精品mp4| 久久精品久久久久久国产 免费| 久久视频中文字幕| 51精品在线观看| 91精品中国老女人| 欧美在线视频免费播放| 精品亚洲精品福利线在观看| 亚洲白拍色综合图区| 久久久国产精品亚洲一区| 日韩女优人人人人射在线视频| 欧美在线视频在线播放完整版免费观看| 亚洲天堂开心观看| 成人h片在线播放免费网站| 97精品久久久| 欧美电影免费观看电视剧大全| 欧美一级视频免费在线观看| 欧美日韩国产999| 国产成人精品日本亚洲专区61| 日韩黄色在线免费观看| 久久久久一本一区二区青青蜜月| 欧美理论在线观看| 国产精品一区二区av影院萌芽| 成人欧美一区二区三区黑人孕妇| 久久在线免费视频| 久久黄色av网站| 日日噜噜噜夜夜爽亚洲精品| 欧美丝袜一区二区三区| 国产剧情久久久久久| 91精品久久久久久综合乱菊| 国产精品第10页| 欧美精品一区二区三区国产精品| www.日韩系列| 日韩av手机在线| 午夜精品在线观看| 久久久日本电影| 91伊人影院在线播放| 亚洲欧美一区二区三区情侣bbw| 久久久国产精品x99av| 国产一区二区三区毛片| 欧美与欧洲交xxxx免费观看| 亚洲精品www久久久久久广东| 久久久久久久一区二区三区| 欧美激情第1页| 日韩在线免费视频观看| 亚洲a级在线观看| 国产精品免费久久久久影院| 国产精品自产拍在线观看中文| 国产精品自拍视频| 中文字幕无线精品亚洲乱码一区| 久久91精品国产91久久久| 国产精品成人一区二区| 欧美黄色小视频| 97久久伊人激情网| 色综合伊人色综合网站| 亚洲视屏在线播放| 欧美日韩精品国产| 91精品久久久久久久久| 丝袜一区二区三区| 91久久久久久久一区二区| 欧美裸身视频免费观看| 国产精品白丝av嫩草影院| 国产91露脸中文字幕在线| 92看片淫黄大片欧美看国产片| 久久香蕉国产线看观看网| 国产日韩在线亚洲字幕中文| 欧美激情视频三区| 伊人伊成久久人综合网站| 91tv亚洲精品香蕉国产一区7ujn| 亚洲精品一区二三区不卡| 精品国产一区久久久| 亚洲人a成www在线影院| 日韩成人在线视频| 欧美日韩亚洲一区二区| 精品国产福利在线| 亚洲精品suv精品一区二区| 亚洲无限乱码一二三四麻| 国产日韩精品在线| 亚洲国产精品久久久久久|