您的位置:首页精文荟萃破解文章 → 排课博士 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 = ' 排课博士 2003 (未注册)'
.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 = ' 排课博士 2003 (已注册)'
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  

相关视频

    没有数据

相关阅读 Unfoxall 2.0 增强版完美破解方法UnFoxall 3.0介绍UNFOXALL2。0增强版注册机UNFOXALL 2.1的注册机cf11周年庆轮回活动地址 cf11周年庆轮回活动抽奖地址2019cf火线实验室活动地址2020 cf火线实验室活动抽奖地址2020dnf超级会员8月活动地址2019 dnf2019超级会员8月黑钻礼包领取地址cf枪王自助餐8月活动地址2019 cf8月枪王自助餐礼包领取地址

文章评论
发表评论

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

最新文章 比特币病毒怎么破解 比去除winrar注册框方法 华为无线路由器HG522-C破解教程(附超级密码JEB格式文件京东电子书下载和阅读限制破解教UltraISO注册码全集(最新)通过Access破解MSSQL获得数据

人气排行 华为无线路由器HG522-C破解教程(附超级密码JEB格式文件京东电子书下载和阅读限制破解教UltraISO注册码全集(最新)qq相册密码破解方法去除winrar注册框方法(适应任何版本)怎么用手机破解收费游戏华为无线猫HG522破解如何给软件脱壳基础教程