化学金牌3.0的破解算法分析

• ==========================================
  Dim SN,MSN
  msn=InputBox("输入你的机器码！" & vbcrlf & vbCrlf & "KeyGen Make bY DarkNess0ut[FCG]", _
  "化学金牌V3.0算号器" )
  if msn="" then
  MsgBox "没有机器码，你让我怎么算阿！" & vbcrlf & "我又不是神仙！呵呵！", _
  vbokonly+vbinformation,"呵呵，重来!"
  wscript.quit
  end if
  if len(msn)<>11 then
  MsgBox "哎，个数都数错了！" & vbCrlf & "再看过！",vbOkonly+vbinformation,"呵呵，重来!"
  wscript.quit
  end if
  SN=MID(MSN,1,8)
  Dim I,Sum,SN1
  FOR i=1 to 8
  SN1=ASC(MId(SN,i,1))
  if SN1>64 then
  SUM=SUM+SN1-64+9
  else
  SUM=SUM+SN1-48
  end if
  NEXT
  DIM CHK
  CHK=RIGHT(Right(MSN,2)+SUM,2)
  SN=SN & CHK
  msgbox "OK!" & vbcrlf & "SN:" & SN & vbcrlf & "随后可以拷贝注册码!", _
  vbokonly+vbinformation,"化学金牌V3.0"
  InputBox "请拷贝密码：" & vbCrlf & "请支持国产优秀软件！" , _
  "化学金牌V3.0注册码",SN进入讨论组讨论。

  （出处：网侠）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 化学金牌3.0的破解算法分析 相关文章：
• ·化学金牌3.0的破解算法分析
• 化学金牌3.0的破解算法分析 相关软件

上一篇:豪杰大眼睛II算法分析

下一篇:eXeScope 6.30注册码算法分析

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐