首页
社区
课程
招聘
[旧帖] [求助]软件的试用天数有什么办法延长! 0.00雪花
发表于: 2007-4-14 16:39 10786

[旧帖] [求助]软件的试用天数有什么办法延长! 0.00雪花

2007-4-14 16:39
10786
给个文件的下载地址。。。里面有文件。。。。看一下。
http://www.goodwawa.com/soft/POSObj.rar
有兴趣的朋友帮我个忙,看一下。试用30天。怎么延长到90到或更长。。。!
---------------------------------------------------------------------------

//Public function pub_f_check_lock (none) returns integer
string ls_date
string ls_version
string ls_regkey
string ls_serial
string ls_register
string ls_str
string ls_ret
string ls_date_key
string ls_appname
string ls_setupdate
date ld_exprise
integer li_days

registryget(gvar.regkey,"Serial",regstring!,ls_serial)
IF len(ls_serial) = 25 AND gvar.is_demo = FALSE THEN //7
ELSE //7
        IF gvar.gb_dbconnected THEN //10
                select sys_var_value INTO :ls_setupdate from sys_t_system where sys_var_id ='Sys_PrintFlag'  USING sqlca;
                IF len(ls_setupdate) > 0 THEN //15
                        IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 30 THEN //16
                                messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
                                RETURN 1
                        END IF //16
                END IF //15
        END IF //10
        RETURN 0
END IF //7
IF  NOT gvar.gb_dbconnected THEN RETURN 0
IF gvar.is_network THEN //27
        IF gefunc.of_hasp("login") <> "fail" THEN //28
                IF mid(trim(gefunc.of_hasp("read")),1,25) = ls_serial THEN //29
                        gefunc.of_hasp("logout")
                ELSE //29
                        gefunc.of_hasp("logout")
                        messagebox(gvar.apptitle,"系统警告:~n~n目前您使用系统的序列号是非法的,请从供应商或本地代理商处获取,系统将中断退出!")
                        RETURN 3
                END IF //29
        ELSE //28
                RETURN 2
        END IF //28
ELSE //27
        IF mid(trim(gefunc.of_hasp("memoread")),1,25) = ls_serial THEN //41
        ELSE //41
//SHU_ERROR:DEMO_SCRIPT_LIMIT.

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (16)
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
没人帮我吗???
2007-4-15 00:15
0
雪    币: 200
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
谢谢分享!我在努力!
2007-4-15 13:23
0
雪    币: 226
活跃值: (11)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
4
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 30 THEN //16
        messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
2007-4-15 14:12
0
雪    币: 175
活跃值: (2491)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
pb程序。改源程序,然后编译就可以了。
2007-4-15 20:45
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
最好把源程序拿出来。这样能更好的进行破解
2007-4-16 10:42
0
雪    币: 201
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 90 THEN //16
        messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
2007-4-23 16:57
0
雪    币: 202
活跃值: (151)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
改这里改这里
2007-4-28 23:27
0
雪    币: 200
活跃值: (13)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
註冊就不會有90天限制了
2007-4-29 03:33
0
雪    币: 58
活跃值: (23)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
谢谢分享!!!!
2007-4-29 17:23
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
11
9楼还真行来
2007-4-29 17:32
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
学习.....
2007-5-12 19:43
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
用OD把代码贴出来
我看能不能分析出来
最近才学几天
刚好练练看能不能破解成功
2007-5-12 20:22
0
雪    币: 740
活跃值: (952)
能力值: ( LV9,RANK:160 )
在线值:
发帖
回帖
粉丝
14
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 30 THEN //16
        messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
        RETURN 1

30改成255(保守,稳定。不怕就改32767……)
2007-5-12 21:36
0
雪    币: 205
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
直接改成 -1不就可以了吗?
2007-5-30 22:20
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
这段代码是通过什么软件查看到的啊?
2007-5-31 10:00
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
下不了,你的地址是不是有问题啊
2007-5-31 11:29
0
游客
登录 | 注册 方可回帖
返回
//