国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 津南区| 楚雄市| 清徐县| 奉贤区| 喀什市| 南汇区| 建湖县| 平顶山市| 彭阳县| 绩溪县| 资源县| 小金县| 中宁县| 迁西县| 宜兴市| 宁晋县| 宣威市| 田东县| 秭归县| 南靖县| 克东县| 南宫市| 汉中市| 北碚区| 荣成市| 宜川县| 文成县| 阿克苏市| 资阳市| 合水县| 永年县| 辽宁省| 上高县| 依安县| 旅游| 岫岩| 临颍县| 汤原县| 北京市| 德格县| 滁州市|