这种窗口能完美的干掉？

冥界3大法王

https://wwgc.lanzouj.com/ih3tZ2h9db7a
首先这是一个Demo的程序，输出会有水印，把它干掉了。
不久又发现了一个窗口
它是窗口类名叫TTrialForm
用Resource Hacker查看发现Form窗体不在资源中
FOA:8A7C


多说无益，还是看截图 和 汇编吧。

下面不久有个push eax ，修改就会触发CMP 。。。。异常了。
我知道正常的流程该是直接Form1窗体，换言之也就是无论是资源，还是多余的流程皆无用，能否完美的处理掉？

冥界3大法王

搞定了。。。心急了。

[Delphi] 纯文本查看 复制代码

?

function Scramble(s:string): string; var   r:string;   i: integer;   c: char;   b: byte; begin   r := '';   for i := 1 to length(s) do   begin     b := ord(s[i]);     b := (b and $E0) + ((b and $1F) xor 5);     c := chr(b);     r := r + c;   end;   Result := r; end;   function NoIDERunning: boolean; begin   Result := (FindWindow(PChar(Scramble('QDuuilfdqljk')), nil) = 0) OR        (FindWindow(PChar(Scramble('QDuuGplia`w')), nil) = 0); end;   procedure ShowTrialMessage; var  s1,s2: string; begin   s1 := Scramble('Duuilfdqljk%pv`v%qwldi%s`wvljk%jc%QHV%vjcqrdw`%fjhujk`kqv+') +#13#10 +         Scramble('Fjkqdfq%QHV%vjcqrdw`%mqqu?**rrr+qhvvjcqrdw`+fjh%cjw%sdila%ilf`kvlkb+');   s2 := Scramble('Rdwklkb');   MessageBox(0,PChar(s1),PChar(s2),MB_OK); end;     initialization      if NoIDERunning then      ShowTrialMessage; (*    if  (FindWindow('TApplication', nil) = 0) OR        (FindWindow('TAppBuilder', nil) = 0) then    begin      MessageBox(0,'Application uses trial version of TMS software components.'#13#10'Contact TMS software [url]http://www.tmssoftware.com[/url] for valid licensing','Info',MB_OK);    end *)

wddtt

关注你好几年了

lies2014

编程最终都是通过 API 实现的，没有源码的情况下找到 API 就可以去除这些限制

冥界3大法王

lies2014 发表于 2024-12-6 16:11
编程最终都是通过 API 实现的，没有源码的情况下找到 API 就可以去除这些限制

@lies2014
我还有一个疑问，因为肯定是没花钱的用户
所以编译时，肯定会调用
TMSTrial.dcu
x:\TMSVCLUIPack RSXE14\TMSProductTrial.inc
x:\TMSVCLUIPack RSXE14\TRIAL.INC
x:\TMSVCLUIPack RSXE14\TRIALINIT.INC
这几个文件。。就会生成多了几K的那个Form窗体的资源

能不能调试编译的阶段，让那资源也不被写入EXE？

lies2014

冥界3大法王 发表于 2024-12-7 09:14
@lies2014
我还有一个疑问，因为肯定是没花钱的用户
所以编译时，肯定会调用

如果想编译阶段资源不写入，你得有pas及dfm（dfm用来确认其中有哪些资源，再将pas中涉及的调用全部删除）
dcu是已经编译好的文件，要想将资源剥离很困难，除非很了解dcu的结构，还必须具备很深的功底