-
-
[原创]周末又到了，尝尝Authorware做的CM吧!
-
发表于: 2009-4-24 11:35
-
呵呵，到处是VC/VB/Delphi等语言做的CM，今天俺用Authorware做了一个CM，果然不出预料，十分的强大，音乐图片一加就上M了
换换口味哈，嘿嘿。
欢迎各路高手前来，算法十分简单，能写出注册算法的就very good了。
换换口味哈，嘿嘿。
欢迎各路高手前来，算法十分简单，能写出注册算法的就very good了。
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
|
|
|---|---|
|
|
跟进~~
|
|
|
 一堆call不知道哪个打哪个，郁闷通行码的判断在timer里面，貌似跟程序所在的位置有关么？？ 我想要提示.... |
|
|
嘿嘿，没有timer，就是正常的验证, F(user)=code模式，简单验证。下面是流程图
(再提醒就是源代码了.... ) |
|
|
|
|
|
|
|
|
大家加油啊！
|
|
|
|
|
|
午睡时梦到这个
 |
|
|
呵呵，还是sessiondiy大侠强大，每次都是你啊
|
|
|
|
|
|
[QUOTE=sessiondiy;611990]要人发帖赚雪碧
C:\u.dat 内容最少6位数字 SN:= 0; for i:=strlen(u) downto 1 { m= 分; SN= SN + 日*u[i] - m; if m > 9 { m = m div 10; } SN= i * (SN + 西元年^m + 日^m); } 所以在这个 2009/xx/26 xx:10:xx 的时间上, u.dat 内容若为 123456 的话 序号为 2988343 注: ^ 表示次方 若在OD里慢慢跟踪的话, 会发现 m 在变.[/QUOTE] 不错，不错啊，佩服！ 确实是这样的，太厉害了！有一点点问题，u.dat内容可以不是数字。
|
|
|
sessiondiy 怎一个"强"字了得!
|
|
|
Authorware版算法源码公布：(既然已经被人破解了，那么就公布算法源代码吧
)pass := EntryText nPassLen := CharCount(pass) if nPassLen<4 then Quit(0) else user:=ReadExtFile("c:\\u.dat") if IOStatus<>0 then --文件不存在或者出错 Quit(0) else nUserLen:=CharCount(user) if nUserLen<6 then --用户名长度小于6位 Quit(0) end if end if end if repeat while nUserLen>0 c:=SubStr(user,nUserLen,nUserLen) ps := ps + Code(c)*Day-Minute+Year**Number(SubStr(String(Minute),1,1))+Day**Number(SubStr(String(Minute),1,1)) ps := ps*nUserLen nUserLen:=nUserLen-1 end repeat if CharCount(ps)>20 then --如果位数太长，只取前20位 ps := SubStr(ps, 1, 20) end if nPsLen := CharCount(String(ps)) if nPassLen<>nPsLen then Quit(0) else p1 := Number(pass) p2 := Number(ps) if p1<>p2 then Quit(0) end if end if 这是点击按钮事件的关键代码，谢谢大家的支持! |
|
|
|
|
|
|
|
|
Authorware主要是用来做多媒体动画及课件用的，大小不是问题哈！
|
|
|
杀鸡用牛刀
过关后应该来点刺激的画面 你放观世音 
|
|
|
万一被老大发现了咋办呢？不敢啊！
 不管鸡刀还是牛刀，只要能把鸡杀死，就是好刀
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
