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

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

如何實現VB程序登錄admin888加密

2019-11-18 17:39:13

字體：大中小

來源：轉載

供稿：網友

現在有些軟件都設置密碼登錄，啟動軟件時要求使用者輸入有效的密碼。其實密碼就是對明文文本進行一一對應的變換，使這變成不可識別的密碼文本，讓非法使用者不能識別。

本程序是通過，輸入登錄密碼，然后把用戶密碼加密保存到文本里。

首先，建立一個標準EXE工程，在窗體上放置一個TextBox控件，名稱為txtPassWord，PasswordChar屬性為"*"。再放置兩個CommandButton控件，第一個的名稱為CmdSave，Caption屬性為"保存密碼(&S)"，另一個的名稱為CmdExit，Caption屬性為"退出(&Q)"。

主程序原代碼如下：
OptionExplicit
'定義變量
DimFilenumAsInteger
DimLoadFilesAsString

ConstNUM_ASC=MAX_ASC-MIN_ASC 1

DimoffsetAsLong
DimStr_lenAsInteger
DimiAsInteger
DimchAsInteger

'得到了加密的數字
offset=NumericPassword(Password)

Rnd-1
'對隨機數生成器做初始化的動作
Randomizeoffset

Str_len=Len(From_Text)
Fori=1ToStr_len
ch=Asc(Mid$(From_Text,i,1))
Ifch>=MIN_ASCAndch<=MAX_ASCThen
ch=ch-MIN_ASC
offset=Int((NUM_ASC 1)*Rnd)
ch=((ch offset)ModNUM_ASC)
ch=ch MIN_ASC
To_Text=To_Text&Chr$(ch)
EndIf
Nexti
EndSub

'解密子程序
PrivateSubSubDecipher(ByValPasswordAsString,ByValFrom_TextAsString,To_TextAsString)
ConstMIN_ASC=32'Space.
ConstMAX_ASC=126'~.
ConstNUM_ASC=MAX_ASC-MIN_ASC 1

DimoffsetAsLong
DimStr_lenAsInteger
DimiAsInteger
DimchAsInteger

offset=NumericPassword(Password)
Rnd-1
Randomizeoffset

Str_len=Len(From_Text)
Fori=1ToStr_len
ch=Asc(Mid$(From_Text,i,1))
Ifch>=MIN_ASCAndch<=MAX_ASCThen
ch=ch-MIN_ASC
offset=Int((NUM_ASC 1)*Rnd)
ch=((ch-offset)ModNUM_ASC)
Ifch<0Thench=ch NUM_ASC
ch=ch MIN_ASC
To_Text=To_Text&Chr$(ch)
EndIf
Nexti
EndSub

'將你輸入的每個字符轉換成密碼數字
PrivateFunctionNumericPassword(ByValPasswordAsString)AsLong
DimValueAsLong
DimchAsLong
DimShift1AsLong
DimShift2AsLong
DimiAsInteger
DimStr_lenAsInteger

'得到字符串內字符的數目
Str_len=Len(Password)
'給每個字符轉換成密碼數字
Fori=1ToStr_len
ch=Asc(Mid$(Password,i,1))
Value=ValueXor(ch*2^Shift1)
Value=ValueXor(ch*2^Shift2)

Shift1=(Shift1 7)Mod19
Shift2=(Shift2 13)Mod23
Nexti
NumericPassword=Value
EndFunction

注：VB編程樂園:http://www.vbeden.com
Email:gzboshi@21cn.com

本程序在Windows98SE VB5.0中運行通過。->

上一篇：VB5三十六計

下一篇：VB的“問”與“答”

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

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

久精品免费视频| 久久频这里精品99香蕉| 欧美日韩国产综合新一区| www.国产一区| 欧美性猛交xxxx富婆弯腰| 国产精品www色诱视频| 国产精品久久久久久av福利软件| 亚洲国产成人精品女人久久久| 国产精品r级在线| 日韩免费在线电影| 亚洲国产精久久久久久久| 国产精品久久久999| 国内精品久久久久影院优| 欧美激情视频在线观看| 欧美高跟鞋交xxxxhd| 国产免费观看久久黄| 久久久成人精品| 国产精品av在线播放| 精品日本美女福利在线观看| 在线看日韩欧美| 国产精品久久久久久久久粉嫩av| 国产精品18久久久久久麻辣| 亚洲伊人一本大道中文字幕| 色婷婷av一区二区三区久久| 亚洲精品久久久久国产| 2019中文字幕免费视频| 国产精品吹潮在线观看| 日本国产欧美一区二区三区| 国内精品中文字幕| 欧美日韩一区二区三区在线免费观看| 欧日韩不卡在线视频| 久久露脸国产精品| 日韩免费视频在线观看| 中文字幕国产精品| 国产精品久久久久久网站| 国产精品久久77777| 久久久久国产精品免费| 成人国产精品久久久久久亚洲| 国产欧美精品日韩| 欧美韩国理论所午夜片917电影| 黑人巨大精品欧美一区二区免费| 91中文字幕一区| 久久久久国产精品免费网站| 欧美日韩另类字幕中文| 精品夜色国产国偷在线| 国产精品久久久久久久久| 欧洲永久精品大片ww免费漫画| 国产精品wwwwww| 国产在线观看一区二区三区| 亚洲人成电影网站色www| 国产精品嫩草影院久久久| 亚洲伊人第一页| 日日摸夜夜添一区| 国产精品一区二区三| 国产精品白丝av嫩草影院| 亚洲精品欧美日韩专区| 午夜精品久久久久久久男人的天堂| 国产69久久精品成人| 久久久噜噜噜久久| 97在线视频观看| 国产婷婷97碰碰久久人人蜜臀| 久热精品视频在线| 国产精品丝袜久久久久久高清| 色偷偷av亚洲男人的天堂| 亚洲国产精品系列| 日韩欧美精品中文字幕| 中文字幕免费精品一区高清| 国产v综合v亚洲欧美久久| 97精品国产aⅴ7777| 波霸ol色综合久久| 播播国产欧美激情| 国产一区二区三区三区在线观看| 欧美日本啪啪无遮挡网站| 国产精品欧美日韩久久| 亚洲精品丝袜日韩| 欧美在线视频网站| 欧美一级大胆视频| 亚洲国产精品大全| 欧美性xxxxx| 日韩欧美国产骚| 精品免费在线视频| 在线视频中文亚洲| 欧美日韩亚洲精品内裤| 久久久精品久久久| 欧美一级片免费在线| 久久久久久12| 欧美激情欧美激情在线五月| 色哟哟入口国产精品| 国产美女直播视频一区| 国产噜噜噜噜久久久久久久久| www.久久久久久.com| 色噜噜久久综合伊人一本| 日韩精品在线影院| 国产精品va在线播放| 91精品久久久久久久久久久久久| 亚洲日本欧美日韩高观看| 久久久久国产视频| 欧美男插女视频| 乱亲女秽乱长久久久| 国产精品国产三级国产aⅴ浪潮| 亚洲第五色综合网| 亚洲视频电影图片偷拍一区| 亚洲91精品在线观看| 日韩欧美精品网址| 欧美成年人在线观看| 国产成人在线视频| 中文字幕欧美日韩在线| 国产精品777| 日韩av在线免费观看一区| 久久五月情影视| 国产精品色悠悠| 日韩毛片在线观看| 成人中文字幕在线观看| 欧美精品久久久久久久免费观看| 日韩电影在线观看永久视频免费网站| 成人免费淫片aa视频免费| 久久国产精品首页| 国产美女精品免费电影| 日韩av一区二区在线观看| 国产精品综合久久久| 51精品国产黑色丝袜高跟鞋| 亚洲偷熟乱区亚洲香蕉av| 国内免费久久久久久久久久久| 538国产精品视频一区二区| 亚洲无限乱码一二三四麻| 亚洲人午夜精品免费| 成人免费黄色网| 日韩成人中文字幕| 亚洲偷欧美偷国内偷| 久久黄色av网站| 欧美日韩在线第一页| 亚洲电影成人av99爱色| 日韩av在线影院| 欧美高清电影在线看| 欧美一区深夜视频| 日韩电影中文亚洲精品乱码| 全色精品综合影院| 亚洲成人精品在线| 亚洲成人av片在线观看| 久久全球大尺度高清视频| 视频一区视频二区国产精品| 夜夜嗨av色综合久久久综合网| 国产亚洲福利一区| 国产精品极品尤物在线观看| 97精品国产91久久久久久| 久久久久一本一区二区青青蜜月| 久久久精品国产一区二区| 精品久久香蕉国产线看观看亚洲| 777精品视频| 成人黄色片在线| 亚洲欧美国产精品专区久久| 尤物九九久久国产精品的分类| 色99之美女主播在线视频| 欧美大秀在线观看| 欧美丝袜一区二区三区| 久久天天躁狠狠躁夜夜av| 91在线免费看网站| 亚洲а∨天堂久久精品喷水| 欧美乱人伦中文字幕在线| 亚洲无av在线中文字幕| 91精品国产综合久久香蕉的用户体验| 国产噜噜噜噜久久久久久久久| 亚洲免费成人av电影| 免费97视频在线精品国自产拍|