排课博士 2003算法分析

软件简介:

也许你们学校还在为没有一个好的排课软件而发愁,我们最新研制的\"排课博士软件\"可能解决你的实际问题,她将结束所有中小学手工排课的历史!对于每个学校来说，每到一个新学期的开始，首当其冲的就是该学期的课程如何安排的问题，而课程安排又涉及年级、班级、教师、课程、学校等方方面面的因素，如何排出一个好并且适用的课程表，是一项复杂的系统工程，充分考验排课人的智慧。计算机软件技术应用于学校的课程安排是发展的必然。充分发挥计算机的优势，将大量复杂的判断与运算交给计算机来做，是真正意义上的人脑的“减负”。教师设置好学校基本情况及排课要求，让计算机排出课程表，适度调课后的课表就能满意地应用于新的学期......

--------------------------------------------------------------------------------------

破解人:北极熊[DFCG]

下载地址: http://www.skycn.com/soft/10576.html

破解工具:Unfoxall3.0增强版

破解过程:

1、观察程序发现可能是FOX编的,用Unfoxall3.0反编译后找到主文件kbgl.brg

2、打开这个文件如下:

.....略一部分....

SET LIBRARY TO foxtools ADDITIVE

ON ERROR messagebox('软件出现问题，请与作者联系解决。','重要提示！')

SET DEFAULT TO SYS(5) + SYS(2003)

WITH _SCREEN

.CAPTION = ' 排课博士 ２００３ (未注册)'

.PICTURE = 'MAIN.JPG'

.ICON = '5.ico'

.MAXBUTTON = .F.

.VISIBLE = .F.

.WINDOWSTATE = 2

.VISIBLE = .T.

ENDWITH

ON ERROR do tc1 with error()

PUBLIC GGGGGGGG , 机器码 , 注册码

GGGGGGGG = .F.

IF FILE(GETENV('windir') + '\system\best.dll')

GGGGGGGG = .T.

ENDIF

IF GGGGGGGG = .T.

WITH _SCREEN

.CAPTION = ' 排课博士 ２００３ (已注册)'

ENDWITH

ENDIF

DECLARE INTEGER GetSerialNumber IN bkbs.ini INTEGER , STRING @

DECLARE INTEGER GetModelNumber IN bkbs.ini INTEGER , STRING @

DECLARE INTEGER GetRevisionNumber IN bkbs.ini INTEGER , STRING @

DECLARE INTEGER GetBufferSize IN bkbs.ini INTEGER

DECLARE INTEGER GetDiskCylinders IN bkbs.ini INTEGER

DECLARE INTEGER GetDiskHeads IN bkbs.ini INTEGER

DECLARE INTEGER GetSectorsOfTrack IN bkbs.ini INTEGER

FOR I = 0 TO 3

LNSERIALNUMBER = SPACE(40)

= GETSERIALNUMBER(I,@LNSERIALNUMBER)

JJJ = SUBSTR(ALLTRIM(LNSERIALNUMBER),1,8)

IF LEN(ALLTRIM(JJJ)) = 8

机器码 = JJJ

JQM = JJJ //上面是机器码的生成过程..

ENDIF

ENDFOR

CLEAR DLLS

注册码 = ;

CHR(ASC(SUBSTR(JQM,8,1)) + 3) + CHR(ASC(SUBSTR(JQM,1,1)) + 4) + ;

CHR(ASC(SUBSTR(JQM,7,1)) + 3) + CHR(ASC(SUBSTR(JQM,2,1)) + 4) + CHR(ASC(SUBSTR(JQM,6,1)) + 3) + ;

CHR(ASC(SUBSTR(JQM,3,1)) + 4) + CHR(ASC(SUBSTR(JQM,5,1)) + 3) + ;

CHR(ASC(SUBSTR(JQM,4,1)) + 4) //上面是注册码的生成过程..是不是很简单哦

DO kbgl.mpx

ON SHUTDOWN do tc

READ EVENTS

PROCEDURE tc

IF MESSAGEBOX('您要退出吗？',36,'退出:') = 6

CLEAR ALL

CLOSE ALL

QUIT

....略.....

总结:上面可以清楚的看见注册码的生成过程,很简单!

举例:

CHR(ASC(SUBSTR(JQM,8,1)) + 3) 就是取机器码(JQM)的第8位的ASCII码+3转变成字母,其他位类似!

注册信息在:C:\Windows\SYSTEM\best.dll,删掉这个文件可以返回未注册状态哦!

'VB注册机源代码:

Private Sub Command1_Click()

Dim jqm, code

jqm = Text1.Text

code = code & Chr(Asc(Mid(jqm, 8, 1)) + 3)

code = code & Chr(Asc(Mid(jqm, 1, 1)) + 4)

code = code & Chr(Asc(Mid(jqm, 7, 1)) + 3)

code = code & Chr(Asc(Mid(jqm, 2, 1)) + 4)

code = code & Chr(Asc(Mid(jqm, 6, 1)) + 3)

code = code & Chr(Asc(Mid(jqm, 3, 1)) + 4)

code = code & Chr(Asc(Mid(jqm, 5, 1)) + 3)

code = code & Chr(Asc(Mid(jqm, 4, 1)) + 4)

Text2.Text = code

End Sub

Private Sub Command2_Click()

End

End Sub

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

相关文章：

·语音界面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