//需要修改的地方 1.6行处的密码
// 2.16行处的密码
// 3.修改密保数值
// 4.9行修改密保数值
UserVar ql=DropList{否:1|是:2}=0 弹出序列号
If ql="2"
    mm=InputBox("请输入密码")
    If mm="冷月"
        //=======正确密码
        MSGBOX "序列号为[ ********* ]",0+64,"提示"
        //防止密保卡丢失
        EndScript 
    Else 
        MSGBOX "密码错误",0+64,"提示"
        EndScript 
    EndIf 
EndIf 
//下面这句是获得剪切板内容
Plugin mm2 = Sys.GetCLB()
//通过读取粘贴板得到密码
//所以事先 先设置好粘贴板内容 也就是密码
If mm2="冷月"
    //正确
Else 
    //错误
    MSGBOX "密保卡密码错误",0+64,"提示"
    EndScript 
EndIf 
//以下内容根据自己情况修改
VBS dim A(9)
VBS A(1)="33":A(2)="28":A(3)="66":A(4)="16"
VBS A(5)="24":A(6)="30":A(7)="43":A(8)="85"
VBS dim B(9)
VBS B(1)="73":B(2)="12":B(3)="72":B(4)="93":B(5)="32"
VBS B(6)="74":B(7)="35":B(8)="11"
VBS dim C(9)
VBS C(1)="00":C(2)="39":C(3)="31":C(4)="01":C(5)="29"
VBS C(6)="10":C(7)="54":C(8)="47"
VBS dim D(9)
VBS D(1)="56"(2)="91"(3)="16"(4)="72"(5)="26"
VBS D(6)="02"(7)="59"(8)="60"
VBS dim E(9)
VBS E(1)="66":E(2)="37":E(3)="33":E(4)="19":E(5)="95"
VBS E(6)="16":E(7)="16":E(8)="86"
VBS dim F(9)
VBS F(1)="18":F(2)="11":F(3)="42":F(4)="42":F(5)="83"
VBS F(6)="25":F(7)="33":F(8)="08"
VBS dim G(9)
VBS G(1)="54":G(2)="88":G(3)="25":G(4)="43":G(5)="74"
VBS G(6)="01":G(7)="03":G(8)="75"
VBS dim H(9)
VBS H(1)="99":H(2)="52":H(3)="35":H(4)="48":H(5)="13"
VBS H(6)="30":H(7)="45":H(8)="53"
VBS dim I(9)
VBS I(1)="77":I(2)="21":I(3)="58":I(4)="64":I(5)="16"
VBS I(6)="21":I(7)="55":I(8)="33"
VBS dim J(9)
VBS J(1)="76":J(2)="63":J(3)="59":J(4)="63":J(5)="22"
VBS J(6)="66":J(7)="77":J(8)="03"
x=InputBox("请大写输入字母"&Vbcrlf&"输入方式如下:"&Vbcrlf&"A3.E6.B7","验证码","A3.A4.A5")
dd=split(x,".")
Gosub 判断
y2=tc:dd(0)=dd(1):tc=tc2
Gosub 判断
ss=tc:dd(0)=dd(2):dd(2)=dd(0)
Gosub 判断
msgbox "第一个为:"&"[ "&y2&" ]"&Vbcrlf&"第二个为:"&"[ "&ss&" ]"&Vbcrlf&"第三个为:"&"[ "&tc&" ]",0+64,"密保卡"
EndScript 
Sub 判断
    If dd(0)="A1"
        tc=A(1):A(1)=tc
    ElseIf dd(0)="A2"
        tc=A(2):A(2)=tc
    ElseIf dd(0)="A3"
        tc=A(3):A(3)=tc
    ElseIf dd(0)="A4"
        tc=A(4):A(4)=tc
    ElseIf dd(0)="A5"
        tc=A(5):A(5)=tc
    ElseIf dd(0)="A6"
        tc=A(6):A(6)=tc
    ElseIf dd(0)="A7"
        tc=A(7):A(7)=tc
    ElseIf dd(0)="A8"
        tc=A(8):A(8)=tc
    ElseIf dd(0)="B1"
        tc=B(1):B(1)=tc
    ElseIf dd(0)="B2"
        tc=B(2):B(2)=tc
    ElseIf dd(0)="B3"
        tc=B(3):B(3)=tc
    ElseIf dd(0)="B4"
        tc=B(4):B(4)=tc
    ElseIf dd(0)="B5"
        tc=B(5):B(5)=tc
    ElseIf dd(0)="B6"
        tc=B(6):B(6)=tc
    ElseIf dd(0)="B7"
        tc=B(7):B(7)=tc
    ElseIf dd(0)="B8"