花个 30min 做点逆向工程 tracking code
1. Delphi 7 + Quickreport + Access 无压缩, 无加壳
2. 本来我以为写的多么的厉害, tracking 到授权程式部分
搞了很长的时间 一直陷在里面 本来打算重写好了
后来发现那段授权程式 "是垃圾"
原本他在每个功能会增加授权机制, 就是可以让多使用者使用
依据不同的使用者 可以开启不同的function (新增 删除 修改)
这段码是去存取另外一个 table
我原本计画重建这个授权的 table (Basicpp)
结果发现 "这段是垃圾"
因为他根本就没有 call 这段码
他只做一个
当你去选择 menuitem 上面的功能时 会 check 可不可以进去
if bAccess then dosomething else ShowMessage('授权逾期')
cmp [$0048648], 00 ;if bAccess
jz exit ;jump ShowMessage
call [$0058304] ;next function
3. 本来我想改所 bAccess 把所有的 bAccess remake 掉 (塞 nop)
结果又发现 这是初学者写的 所以
他在 FormCreate 做了一件事情 (default value)
bool bAccess := false;
mov [$0048648], 00 ; bAccess := 0;
然后检查日期
if LeftStr(NowDate) < '2009/xx' then bAccess := true;
结果我发现... 我直接把最前面的 default 为 true 就行了
bool bAccess := true;
mov [$0048648], 01
只改一个 byte
30min (price: free)
原本我想把时间压在十分钟内 结果失策
4. 送去业主测试 因为我机器没有 XP 我只有 Windows 10 64bit
上面不能跑这么旧的程式
而且都是 delphi 10.1 没有 delphi 7 没办法 build
只能改完送去给业主 debug
我还是继续逆向工程 Delphi 10.1 Berlin
他的 rsa1024 license management 比较有挑战性
unis 写了破解 xe7 ~ xe10 结果 Embarcadero 受不了
直接请他到公司去上班
p.s.
java & .net 比较好 decompiler
我一大堆试用版改成正常版
delphi 8 之后 就很难了 因为他是 native code
※ 引述《hius (2.3S)》之铭言：
: 很久之前有请人写一套进销存
: 最近要移转到另一台电脑，重新安装后
: 功能都没办法用了，都跳出授权逾期
: http://i.imgur.com/O820gv9.jpg
: 询问原作者，他也退休了，资料也没保留。
: 把东西都丢给他看后，他说没法处理...说牵扯到什么元件之类的
: 请问这有的解吗？当初安装的套件都有留着。
: 实在是不想再花一笔费用请人重写阿~~~~~