<Script language = "VBScript">
Function KeyGen(sName)
for i = 1 to len(sName)
c = asc(Mid(sName , i , 1))
d = ((((c Mod 10) ^ (c Mod 5) * c) Mod 100) xor d) Mod 100
sCode = sCode & Right("0" & d , 2)
next
KeyGen = Left(sCode , 10)
end Function
</Script>
JCCM1 网页注册机 By AloneWolf 2009-11-10<BR>
用户名:<input type="Text" id = "txtName" value = "AloneWolf">
注册码:<input type="Text" id = "txtCode" value = "">
<input type="button" value = "KeyGen" Onclick="txtCode.value = KeyGen(txtName.value)">