国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設(shè)計 > 正文

如何實現(xiàn)VB程序登錄admin888加密

2019-11-18 17:39:13
字體：大 中 小
供稿：網(wǎng)友
現(xiàn)在有些軟件都設(shè)置密碼登錄，啟動軟件時要求使用者輸入有效的密碼。其實密碼就是對明文文本進行一一對應的變換，使這變成不可識別的密碼文本，讓非法使用者不能識別。

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

首先，建立一個標準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

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

Rnd-1
'對隨機數(shù)生成器做初始化的動作
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

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

'得到字符串內(nèi)字符的數(shù)目
Str_len=Len(Password)
'給每個字符轉(zhuǎn)換成密碼數(shù)字
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中運行通過。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 和硕县| 册亨县| 崇左市| 淮北市| 鹿泉市| 津市市| 涿州市| 潜山县| 建阳市| 铅山县| 宣汉县| 乡城县| 聂拉木县| 柯坪县| 永兴县| 新宁县| 偏关县| 梁山县| 安义县| 博乐市| 彭泽县| 临江市| 怀集县| 栾川县| 始兴县| 玉林市| 阿勒泰市| 潜山县| 新源县| 吴旗县| 宝丰县| 临湘市| 平潭县| 徐水县| 百色市| 辛集市| 绩溪县| 拉孜县| 长海县| 淮滨县| 威远县|