GOM引擎非常不错的二级密码脚本实例

汉字、特殊字符，<字母区分大小写！！/FCOLOR=249>\
<请玩家不要将二次密码设置成与登陆密码一致！/FCOLOR=254>\
设置好之后请不要泄漏给任何人。<注：密码中如包含字母区分大小写/FCOLOR=249>\
点击下方的验证密码输入原始密码进行原密码验证.\
<验证原密码/@@InPutString92>　　　　　　　　　　　　　<返回/@main>

[@InPutString92]
#OR
CheckContainsText <$STR(S92)> @
CheckContainsText <$STR(S92)> ~
CheckContainsText <$STR(S92)> [
CheckContainsText <$STR(S92)> ]
CheckContainsText <$STR(S92)> <
CheckContainsText <$STR(S92)> >
CheckContainsText <$STR(S92)> {
CheckContainsText <$STR(S92)> }
#ACT
mov S92
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @修改二级密码
break
#elseact
DELAYGOTO 1 ~InPutString92

[~InPutString92]
#if
checkvar HUMAN 二级登陆密码 = <$STR(S92)>
#act
break
#say
为了防止木马盗号事件让玩家造成损失，现在特采用双密码验证登\
陆，当玩家电脑机器码与之前登陆不同时会锁定玩家角色，需输入\
二次密码解锁。如果你还未设置二级密码，请点击下面的设置密码\
设置。密码可以为数字、字母、汉字、特殊字符，<字母区分大小写！！/FCOLOR=249>\
<请玩家不要将二次密码设置成与登陆密码一致！/FCOLOR=254>\
设置好之后请不要泄漏给任何人。\
原密码验证通过，请输入新密码..<注：密码中如包含字母区分大小写/FCOLOR=249>\
<输入新密码/@@InPutString91>　　　　　　　　　　　　　<返回/@main>
#elseact
CALCVAR HUMAN 二级登陆次数 + 1
SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
#elsesay
对不起，密码验证失败。<注：密码中如包含字母区分大小写/FCOLOR=249>\
您已经累积输入密码错误<$HUMAN(二级登陆次数)>次。\
累积输入错误5次后，每输错一次密码就将踢您下线。\
更改密码可以清空此数值。\
<返回./@main>\
<退出./@exit>

#if
checkvar human 二级登陆次数 > 4
#act
kick
messagebox 对不起，您已经累积输入密码错误<$HUMAN(二级登陆次数)>次。\系统自动踢您下线，以后每次登陆均只有一次输入密码的机会。\更改密码可以清空此数值。
break

[@InPutString91]
#OR
CheckContainsText <$STR(S91)> @
CheckContainsText <$STR(S91)> ~
CheckContainsText <$STR(S91)> [
CheckContainsText <$STR(S91)> ]
CheckContainsText <$STR(S91)> <
CheckContainsText <$STR(S91)> >
CheckContainsText <$STR(S91)> {
CheckContainsText <$STR(S91)> }
#ACT
mov S91
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @修改二级密码
break
#elseact
DELAYGOTO 1 ~InPutString91

[~InPutString91]
#if
checkvar HUMAN 二级登陆密码 = <$STR(S92)>
#act
CALCVAR HUMAN 二级登陆密码 = <$STR(S91)>
CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
CALCVAR HUMAN 二级登陆次数 = 0
SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
SENDMSG 6 您成功修改二级密码为：【<$STR(S91)>】，请牢记此密码。
break
#say
恭喜您成功修改了二级登陆密码。\
当前密码为：<$STR(S91)>\
密码输入错误次数清零。\
<返回./@main>\
<退出./@exit>
#elsesay
对不起，请先验证原密码，才能进行新密码设置。\
<注：密码中如包含字母区分大小写/FCOLOR=249>\
<返回./@main>\
<退出./@exit>

[@InPutString93]
#OR
CheckContainsText <$STR(S93)> @
CheckContainsText <$STR(S93)> ~
CheckContainsText <$STR(S93)> [
CheckContainsText <$STR(S93)> ]
CheckContainsText <$STR(S93)> <
CheckContainsText <$STR(S93)> >
CheckContainsText <$STR(S93)> {
CheckContainsText <$STR(S93)> }
#ACT
mov S93
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @初始设置二级密码0
break
#elseact
DELAYGOTO 1 ~InPutString93

[~InPutString93]
#if
checkvar HUMAN 二级登陆密码 =
#act
CALCVAR HUMAN 二级登陆密码 = <$STR(S93)>
CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
CALCVAR HUMAN 二级登陆次数 = 0
SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
SENDMSG 6 您成功设置二级密码为：【<$STR(S93)>】，请牢记此密码。
MOV S93
break
#say
恭喜您成功设置二级密码。\ \
当前密码为：<$HUMAN(二级登陆密码)>\ \
<返回./@main>\
<退出./@exit>
#elsesay
对不起，您已经设置过二级密码，请点击修改密码进行修改。\
<返回./@main>\
<退出./@exit>

[@IsInFilterList]
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX [错误]：输入数据中包含了非法字符，请重新编辑！

 

---

 

完整的脚本下载链接：

Gom引擎Gom-Key新二级密码脚本带密码保护-免费分享