能力值:
( LV2,RANK:10 )
|
-
-
2 楼
学习了尤其是e语言注册机照着做一遍,谢谢!
|
能力值:
( LV2,RANK:10 )
|
-
-
3 楼
厉害学习下
|
能力值:
( LV2,RANK:10 )
|
-
-
4 楼
高手啊,好好学习下
|
能力值:
( LV6,RANK:90 )
|
-
-
5 楼
嘎嘎。謝謝老大的文章。特別是易語言的註冊機源碼。讓我又學到東西了。嘻嘻。不過我有一個問題。就是老大你寫的這個註冊機支持中文的用戶名嗎?貌似不支持。。
看我之前寫好的易語言註冊機源碼,沒老大你的精練啊。
.版本 2
.局部变量 len, 整数型
.局部变量 len2, 整数型
.局部变量 len3, 整数型
.局部变量 密钥, 文本型
.局部变量 密钥2, 文本型
.局部变量 密钥3, 文本型
.局部变量 i, 整数型
.局部变量 M, 整数型
.局部变量 N, 整数型
.局部变量 A, 整数型
.局部变量 B, 整数型
.局部变量 C, 文本型
.局部变量 D, 文本型
len = 取文本长度 (编辑框2.内容)
密钥 = “aqbicHdSeXfMgkhEiVjZkelRmynBoKpdqTrAsFtWulvjwDxIyPzzAxBpCODkEgFYGmHtIaJrKQLnMsNuOUPGQJRLSNTbUcVfWhXoYwZC”
密钥2 = “IsaeBREbmpaqdslg”
密钥3 = “Iqp”
len2 = 取文本长度 (密钥)
len3 = 取文本长度 (密钥2)
置随机数种子 ()
.如果 (len ≤ 0)
信息框 (“用戶名不能為空!”, 0, “溫馨小提示:”)
.否则
.如果 (len > 16)
信息框 (“用户名不能超过16位”, 0, “温馨小提示:”)
.否则
.计次循环首 (len, i)
A = 取代码 (编辑框2.内容, i)
.判断开始 (A < 65 或 A > 122)
D = 字符 (取代码 (密钥3, 取随机数 (1, 3)))
C = C + D
.判断 (A > 90 且 A < 97)
D = 字符 (取代码 (密钥3, 取随机数 (1, 3)))
C = C + D
.默认
.变量循环首 (0, len2, 1, M)
B = 取代码 (密钥, M × 2 + 1)
.判断开始 (A = B)
C = C + 字符 (取代码 (密钥, M × 2 + 2))
.默认
.判断结束
.变量循环尾 ()
.判断结束
.计次循环尾 ()
.如果 (len < 16)
编辑框3.内容 = C + 取文本左边 (密钥2, len3 - len)
.否则
.如果 (len = 16)
编辑框3.内容 = C
|
能力值:
( LV5,RANK:69 )
|
-
-
6 楼
学习了 都搞注册机了
|
能力值:
( LV2,RANK:10 )
|
-
-
7 楼
两个易语言的,继续学习
|
能力值:
( LV2,RANK:10 )
|
-
-
8 楼
易语言的代码看了有点别扭。
|