程序防杀

		
begin
asm //直接用汇编调用代码进行免杀处理源代码
call test
end;

Procedure test;
asm
nop
nop
nop
end;
或
asm 
nop
nop
end;
------------------------------------------
我喜欢这样：
------------------------------------------
1，结尾处运行，如
begin
ReadSettings;
Install;
Serv := TServer.Create;
While Not (InternetGetConnectedState(NIL, 0)) Do Sleep(5000);
Serv.Connect;
end.
------------------------------------------
你可
Procedure Main;
ReadSettings;
Install;
Serv := TServer.Create;
While Not (InternetGetConnectedState(NIL, 0)) Do Sleep(5000);
Serv.Connect;
end;

2,在程序运行Create事件里加垃圾 Boolean类型函数如 
function abcd:boolean;
begin
....
....
Result:= True;
end;
						
		
	

补充：综合编程 , 安全编程 ,

上一个：用 XMLDOM 和 ADODB.Stream 实现base64编码解码
下一个：sethc和“666”有关的恶作剧