排课博士 2003算法分析 -pc6资讯

您的位置：首页 → 精文荟萃 → 破解文章 → 排课博士 2003算法分析

排课博士 2003算法分析 时间：2004/10/15 0:55:00来源：本站整理作者：蓝点我要评论(0)

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

--------------------------------------------------------------------------------------
破解人:北极熊[DFCG]
下载地址: ;http://www.pc6.com/softview/SoftView_1044.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　　

相关视频

没有数据

文章评论

查看所有0条评论>>

热门文章 去除winrar注册框方法