-
-
[旧帖]
[转帖]代码自我清除,自我加密,解密的实现
0.00雪花
-
发表于:
2009-10-25 12:22
1717
-
[旧帖] [转帖]代码自我清除,自我加密,解密的实现
0.00雪花
最近开发壳,但是我的壳主要的安全不在题目上写的,所以就公开在delphi中实现代码自我加密解密清除的方法,高手就不用看了,很简单的。
首先我们要定义几个过程,
procedure EncryptCode(Badress,size,key:cardinal);//Badress为加密起始地址,size为加密大小,key为加密密钥
var
CTemp:cardinal;
begin
Virtulloc(pointer(Badress),Size,Page_readwrite,Ctemp);//函数名级不起来拉。
asm
push eax;
push ebx;
push ecx;
mov eax,badress;
mov ebx,size;
mov ecx,key;
xor dword ptr ds:[eax],ecx;
add eax,4;
dec ebx;
db $75,fc;//这里可能不正确,反正向xor dword ptr ds:[eax],ecx;跳就可以拉
pop ecx;
pop ebx;
pop eax;
end;
end;
加密和解密是同一段代码。
代码清除
procedure CleanCode(Badress,size,key:cardinal);//Badress为加密起始地址,size为加密大小,key为加密密钥
var
CTemp:cardinal;
begin
Virtulloc(pointer(Badress),Size,Page_readwrite,Ctemp);//函数名级不起来拉。
asm
push eax;
push ebx;
push ecx;
mov eax,badress;
mov ebx,size;
mov ecx,key;
xor dword ptr ds:[eax],0;
add eax,1;
dec ebx;
db $75,fc;//这里可能不正确,反正向xor dword ptr ds:[eax],ecx;跳就可以拉
pop ecx;
pop ebx;
pop eax;
end;
end;
现在就可以调用拉。调用方法很简单,但是要注意的是,不能让加密代码加密自己过程内调用到的。当然对于这个badress我们用
call XXXXXXXX;
pop eax;
搞定。
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!