这种窗口能完美的干掉？

冥界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
*)

lxxfhtd

谢谢分享

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的结构，还必须具备很深的功底