请帮忙解出下列strSerial的值,strSerial值的格式为XXXXX-XXXXX-XXXXX-XXXXX
Function IfIsSerial() Dim strSerial
Dim arrSerial
Dim strChar
Dim idx
Dim isummary if len(strSerial)<>23 then
IfIsSerial = false
exit function
end if arrSerial = split(strSerial,"-")
if (ubound(arrSerial)-lBound(arrSerial))<>3 then
IfIsSerial = false
exit function
end if
isummary = 0
strSerial = arrSerial(0)
idx = 1
Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + (Asc(strChar) * 4)
idx = idx + 1
Loop
strSerial = arrSerial(1)
idx = 1 Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + Asc(strChar) * 3
idx = idx + 1
Loop
strSerial = arrSerial(2)
idx = 1 Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + Asc(strChar) * 2
idx = idx + 1
Loop
strSerial = arrSerial(3)
idx = 1 Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + Asc(strChar)
idx = idx + 1
Loop
If isummary <> 3364 Then
IfIsSerial = False
Else
IfIsSerial = True
End If
End Function
Function IfIsSerial() Dim strSerial
Dim arrSerial
Dim strChar
Dim idx
Dim isummary if len(strSerial)<>23 then
IfIsSerial = false
exit function
end if arrSerial = split(strSerial,"-")
if (ubound(arrSerial)-lBound(arrSerial))<>3 then
IfIsSerial = false
exit function
end if
isummary = 0
strSerial = arrSerial(0)
idx = 1
Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + (Asc(strChar) * 4)
idx = idx + 1
Loop
strSerial = arrSerial(1)
idx = 1 Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + Asc(strChar) * 3
idx = idx + 1
Loop
strSerial = arrSerial(2)
idx = 1 Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + Asc(strChar) * 2
idx = idx + 1
Loop
strSerial = arrSerial(3)
idx = 1 Do While idx <= 5
strChar = Mid(strSerial, idx, 1)
isummary = isummary + Asc(strChar)
idx = idx + 1
Loop
If isummary <> 3364 Then
IfIsSerial = False
Else
IfIsSerial = True
End If
End Function
XXXXX-XXXXX-XXXXX-XXXXX
然后以-为分隔符分成4组
第1组所有字符的Ascii码乘以4相加得到总和1
第2组所有字符的Ascii码乘以3相加得到总和2
第3组所有字符的Ascii码乘以2相加得到总和3
第4组所有字符的Ascii码乘以1相加得到总和4
然后
总和1+总和2+总和3+总和4=3364 这样注册码就正确了
ppppp-ppqqp=ppppp
等都满足，只要中间两个q三个p,其他都是p
ooooo-orsqr-rpsoq
ooooo-orsqr-rpspp
ooooo-orsqr-rpsqo
ooooo-orsqr-rqops
ooooo-orsqr-rqoqr
ooooo-orsqr-rqorq
ooooo-orsqr-rqosp
ooooo-orsqr-rqpos
ooooo-orsqr-rqppr
ooooo-orsqr-rqpqq
ooooo-orsqr-rqprp
ooooo-orsqr-rqpso
ooooo-orsqr-rqqor
ooooo-orsqr-rqqpq
ooooo-orsqr-rqqqp
ooooo-orsqr-rqqro
ooooo-orsqr-rqroq
ooooo-orsqr-rqrpp
ooooo-orsqr-rqrqo
ooooo-orsqr-rqsop
ooooo-orsqr-rqspo
ooooo-orsqr-rroos
ooooo-orsqr-rropr
ooooo-orsqr-rroqq
ooooo-orsqr-rrorp
ooooo-orsqr-rroso
ooooo-orsqr-rrpor
ooooo-orsqr-rrppq
ooooo-orsqr-rrpqp
ooooo-orsqr-rrpro
ooooo-orsqr-rrqoq
ooooo-orsqr-rrqpp
ooooo-orsqr-rrqqo
ooooo-orsqr-rrrop
ooooo-orsqr-rrrpo
ooooo-orsqr-rrsoo
ooooo-orsqr-rsoor
ooooo-orsqr-rsopq
ooooo-orsqr-rsoqp
ooooo-orsqr-rsoro
ooooo-orsqr-rspoq
ooooo-orsqr-rsppp
ooooo-orsqr-rspqo
ooooo-orsqr-rsqop
ooooo-orsqr-rsqpo
ooooo-orsqr-rsroo
ooooo-orsqr-sooqs
ooooo-orsqr-soorr
ooooo-orsqr-soosq
ooooo-orsqr-sopps
ooooo-orsqr-sopqr
ooooo-orsqr-soprq
ooooo-orsqr-sopsp
ooooo-orsqr-soqos
ooooo-orsqr-soqpr
ooooo-orsqr-soqqq
ooooo-orsqr-soqrp
ooooo-orsqr-soqso
ooooo-orsqr-soror
ooooo-orsqr-sorpq
ooooo-orsqr-sorqp
ooooo-orsqr-sorro
ooooo-orsqr-sosoq
ooooo-orsqr-sospp
ooooo-orsqr-sosqo
ooooo-orsqr-spops
ooooo-orsqr-spoqr
ooooo-orsqr-sporq
ooooo-orsqr-sposp
ooooo-orsqr-sppos
ooooo-orsqr-spppr
ooooo-orsqr-sppqq
ooooo-orsqr-spprp
ooooo-orsqr-sppso
ooooo-orsqr-spqor
ooooo-orsqr-spqpq
ooooo-orsqr-spqqp
ooooo-orsqr-spqro
ooooo-orsqr-sproq
ooooo-orsqr-sprpp
ooooo-orsqr-sprqo
ooooo-orsqr-spsop
ooooo-orsqr-spspo
ooooo-orsqr-sqoos
ooooo-orsqr-sqopr
ooooo-orsqr-sqoqq
ooooo-orsqr-sqorp
ooooo-orsqr-sqoso
ooooo-orsqr-sqpor
ooooo-orsqr-sqppq
ooooo-orsqr-sqpqp
ooooo-orsqr-sqpro
ooooo-orsqr-sqqoq
ooooo-orsqr-sqqpp
ooooo-orsqr-sqqqo
ooooo-orsqr-sqrop
ooooo-orsqr-sqrpo
ooooo-orsqr-sqsoo
ooooo-orsqr-sroor
ooooo-orsqr-sropq
ooooo-orsqr-sroqp
ooooo-orsqr-sroro
ooooo-orsqr-srpoq
ooooo-orsqr-srppp
ooooo-orsqr-srpqo
ooooo-orsqr-srqop
ooooo-orsqr-srqpo
ooooo-orsqr-srroo
ooooo-orsqr-ssooq
ooooo-orsqr-ssopp
ooooo-orsqr-ssoqo
ooooo-orsqr-sspop
ooooo-orsqr-ssppo
ooooo-orsqr-ssqoo
ooooo-orsqs-oooss
ooooo-orsqs-ooprs
ooooo-orsqs-oopsr
ooooo-orsqs-ooqqs
ooooo-orsqs-ooqrr
ooooo-orsqs-ooqsq
ooooo-orsqs-oorps
ooooo-orsqs-oorqr
ooooo-orsqs-oorrq
ooooo-orsqs-oorsp
ooooo-orsqs-oosos
ooooo-orsqs-oospr
ooooo-orsqs-oosqq
ooooo-orsqs-oosrp
ooooo-orsqs-oosso
ooooo-orsqs-opors
ooooo-orsqs-oposr
ooooo-orsqs-oppqs
ooooo-orsqs-opprr
ooooo-orsqs-oppsq
ooooo-orsqs-opqps
ooooo-orsqs-opqqr
ooooo-orsqs-opqrq
ooooo-orsqs-opqsp
ooooo-orsqs-opros
ooooo-orsqs-oprpr
ooooo-orsqs-oprqq
ooooo-orsqs-oprrp
ooooo-orsqs-oprso
ooooo-orsqs-opsor
ooooo-orsqs-opspq
ooooo-orsqs-opsqp
ooooo-orsqs-opsro
ooooo-orsqs-oqoqs
ooooo-orsqs-oqorr
ooooo-orsqs-oqosq
ooooo-orsqs-oqpps
ooooo-orsqs-oqpqr
ooooo-orsqs-oqprq
ooooo-orsqs-oqpsp
ooooo-orsqs-oqqos
ooooo-orsqs-oqqpr
ooooo-orsqs-oqqqq
ooooo-orsqs-oqqrp
ooooo-orsqs-oqqso
ooooo-orsqs-oqror
ooooo-orsqs-oqrpq
ooooo-orsqs-oqrqp
ooooo-orsqs-oqrro
ooooo-orsqs-oqsoq
ooooo-orsqs-oqspp
ooooo-orsqs-oqsqo
ooooo-orsqs-orops
ooooo-orsqs-oroqr
ooooo-orsqs-ororq
ooooo-orsqs-orosp
ooooo-orsqs-orpos
ooooo-orsqs-orppr
ooooo-orsqs-orpqq
ooooo-orsqs-orprp
ooooo-orsqs-orpso
ooooo-orsqs-orqor
ooooo-orsqs-orqpq
ooooo-orsqs-orqqp
ooooo-orsqs-orqro
ooooo-orsqs-orroq
ooooo-orsqs-orrpp
ooooo-orsqs-orrqo
ooooo-orsqs-orsop
ooooo-orsqs-orspo
ooooo-orsqs-osoos
ooooo-orsqs-osopr
ooooo-orsqs-osoqq
ooooo-orsqs-osorp
ooooo-orsqs-ososo
ooooo-orsqs-ospor
ooooo-orsqs-osppq
ooooo-orsqs-ospqp
ooooo-orsqs-ospro
ooooo-orsqs-osqoq
ooooo-orsqs-osqpp
ooooo-orsqs-osqqo
ooooo-orsqs-osrop
ooooo-ooors-sssss