软件简介:也许你们学校还在为没有一个好的排课软件而发愁，我们最新研制的\"排课博士软件\"可能解决你的实际问题，她将结束所有中小学手工排课的历史！对于每个学校来说，每到一个新学期的开始，首当其冲的就是该学期的课程如何安排的问题，而课程安排又涉及年级、班级、教师、课程、学校等方方面面的因素，如何排出一个好并且适用的课程表，是一项复杂的系统工程，充分考验排课人的智慧。计算机软件技术应用于学校的课程安排是发展的必然。充分发挥计算机的优势，将大量复杂的判断与运算交给计算机来做，是真正意义上的人脑的“减负”。教师设置好学校基本情况及排课要求，让计算机排出课程表，适度调课后的课表就能满意地应用于新的学期……
--------------------------------------------------------------------------------------破解人:北极熊[DFCG]下载地址: ;http://www.APP资源下载网.com/softview/SoftView_1044.html 破解工具:Unfoxall3.0增强版破解过程:1、观察程序发现可能是FOX编的,用Unfoxall3.0反编译后找到主文件kbgl.brg2、打开这个文件如下:.....略一部分....SET LIBRARY TO foxtools ADDITIVEON 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 3LNSERIALNUMBER = SPACE(40)= GETSERIALNUMBER(I,@LNSERIALNUMBER)JJJ = SUBSTR(ALLTRIM(LNSERIALNUMBER),1,8)IF LEN(ALLTRIM(JJJ)) = 8机器码 = JJJJQM = 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.mpxON SHUTDOWN do tcREAD EVENTS PROCEDURE tcIF MESSAGEBOX('您要退出吗？',36,'退出:') = 6CLEAR ALLCLOSE ALLQUIT ....略.....总结:上面可以清楚的看见注册码的生成过程,很简单!举例:CHR(ASC(SUBSTR(JQM,8,1)) + 3) 就是取机器码(JQM)的第8位的ASCII码+3转变成字母,其他位类似!注册信息在:C:\Windows\SYSTEM\best.dll,删掉这个文件可以返回未注册状态哦!'VB注册机源代码:Private Sub Command1_Click()Dim jqm, codejqm = Text1.Textcode = 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 = codeEnd SubPrivate Sub Command2_Click()EndEnd Sub