1. //需要修改的地方 1.6行处的密码
2. // 2.16行处的密码
3. // 3.修改密保数值
4. // 4.9行修改密保数值
5. 用户定义变量 ql=DropList{否:1|是:2}=0 弹出序列号
6. 如果表达式 (ql="2") 为真,则
7.     mm=InputBox("请输入密码")
8.     如果表达式 (mm="冷月") 为真,则
9.         //=======正确密码
10.         MSGBOX "序列号为[ ********* ]",0+64,"提示"
11.         //防止密保卡丢失
12.     脚本停止运行
13. 否则
14.     MSGBOX "密码错误",0+64,"提示"
15. 脚本停止运行
16. 条件结束
17. 条件结束
18. //下面这句是获得剪切板内容
19. 调用插件命令 mm2 = Sys.GetCLB()
20. //通过读取粘贴板得到密码
21. //所以事先 先设置好粘贴板内容 也就是密码
22. 如果表达式 (mm2="冷月") 为真,则
23.     //正确
24. 否则
25.     //错误
26.     MSGBOX "密保卡密码错误",0+64,"提示"
27. 脚本停止运行
28. 条件结束
29. //以下内容根据自己情况修改
30. （VBScript语句） dim A(9)
31. （VBScript语句） A(1)="33":A(2)="28":A(3)="66":A(4)="16"
32. （VBScript语句） A(5)="24":A(6)="30":A(7)="43":A(8)="85"
33. （VBScript语句） dim B(9)
34. （VBScript语句） B(1)="73":B(2)="12":B(3)="72":B(4)="93":B(5)="32"
35. （VBScript语句） B(6)="74":B(7)="35":B(8)="11"
36. （VBScript语句） dim C(9)
37. （VBScript语句） C(1)="00":C(2)="39":C(3)="31":C(4)="01":C(5)="29"
38. （VBScript语句） C(6)="10":C(7)="54":C(8)="47"
39. （VBScript语句） dim D(9)
40. （VBScript语句） D(1)="56"(2)="91"(3)="16"(4)="72"(5)="26"
41. （VBScript语句） D(6)="02"(7)="59"(8)="60"
42. （VBScript语句） dim E(9)
43. （VBScript语句） E(1)="66":E(2)="37":E(3)="33":E(4)="19":E(5)="95"
44. （VBScript语句） E(6)="16":E(7)="16":E(8)="86"
45. （VBScript语句） dim F(9)
46. （VBScript语句） F(1)="18":F(2)="11":F(3)="42":F(4)="42":F(5)="83"
47. （VBScript语句） F(6)="25":F(7)="33":F(8)="08"
48. （VBScript语句） dim G(9)
49. （VBScript语句） G(1)="54":G(2)="88":G(3)="25":G(4)="43":G(5)="74"
50. （VBScript语句） G(6)="01":G(7)="03":G(8)="75"
51. （VBScript语句） dim H(9)
52. （VBScript语句） H(1)="99":H(2)="52":H(3)="35":H(4)="48":H(5)="13"
53. （VBScript语句） H(6)="30":H(7)="45":H(8)="53"
54. （VBScript语句） dim I(9)
55. （VBScript语句） I(1)="77":I(2)="21":I(3)="58":I(4)="64":I(5)="16"
56. （VBScript语句） I(6)="21":I(7)="55":I(8)="33"
57. （VBScript语句） dim J(9)
58. （VBScript语句） J(1)="76":J(2)="63":J(3)="59":J(4)="63":J(5)="22"
59. （VBScript语句） J(6)="66":J(7)="77":J(8)="03"
60. x=InputBox("请大写输入字母"&Vbcrlf&"输入方式如下:"&Vbcrlf&"A3.E6.B7","验证码","A3.A4.A5")
61. dd=split(x,".")
62. 调用子程序 判断
63. y2=tc:dd(0)=dd(1):tc=tc2
64. 调用子程序 判断
65. ss=tc:dd(0)=dd(2):dd(2)=dd(0)
66. 调用子程序 判断
67. msgbox "第一个为:"&"[ "&y2&" ]"&Vbcrlf&"第二个为:"&"[ "&ss&" ]"&Vbcrlf&"第三个为:"&"[ "&tc&" ]",0+64,"密保卡"
68. 脚本停止运行
69. 子程序 判断
70.     如果表达式 (dd(0)="A1") 为真,则
71.         tc=A(1):A(1)=tc
72.     否则如果(dd(0)="A2")为真,则
73.         tc=A(2):A(2)=tc
74.     否则如果(dd(0)="A3")为真,则
75.         tc=A(3):A(3)=tc
76.     否则如果(dd(0)="A4")为真,则
77.         tc=A(4):A(4)=tc
78.     否则如果(dd(0)="A5")为真,则
79.         tc=A(5):A(5)=tc
80.     否则如果(dd(0)="A6")为真,则
81.         tc=A(6):A(6)=tc
82.     否则如果(dd(0)="A7")为真,则
83.         tc=A(7):A(7)=tc
84.     否则如果(dd(0)="A8")为真,则
85.         tc=A(8):A(8)=tc
86.     否则如果(dd(0)="B1")为真,则
87.         tc=B(1):B(1)=tc
88.     否则如果(dd(0)="B2")为真,则
89.         tc=B(2):B(2)=tc
90.     否则如果(dd(0)="B3")为真,则
91.         tc=B(3):B(3)=tc
92.     否则如果(dd(0)="B4")为真,则
93.         tc=B(4):B(4)=tc
94.     否则如果(dd(0)="B5")为真,则
95.         tc=B(5):B(5)=tc
96.     否则如果(dd(0)="B6")为真,则
97.         tc=B(6):B(6)=tc
98.     否则如果(dd(0)="B7")为真,则
99.         tc=B(7):B(7)=tc
100.     否则如果(dd(0)="B8")为真,则