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

再贴一篇简单注册算法，以表歉意，顺便方便我们的化学工作者

看了化学金牌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

（出处：赢政天下整理收藏）

相关文章：

·语音界面2.0算法分析及注册机源码！

·侠客系统修改器1.21破解手记--算法分析

·中文拨号上网计时计费器 V4.12注册算法分析

·ClockWise 3.22e注册码算法分析

·CoolClock V1.02注册算法分析

·Directory Scanner v1.5 注册算法分析

·Disk Chief 1.2 简单注册算法分析

·EffeTech HTTP Sniffer 3.2注册算法分析

·eLib2.01算法分析

·EZ MP3 Recorder 1.15 注册算法分析

相关软件：

→ 特别推荐

→ 热点TOP10

我为人人《《==》》人人为我

关于我们 |

帮助(？)

| 广告服务 |

版权声明 |

商业合作 |

发展历程 |

加盟我们 |

联系我们

Copyright © 1999-2003

winzheng.com All Rights Reserved.

繁体版:由华琦数码技术提供

Powered

by:MeSky.Net