代码自我清除,自我加密,解密的实现(大牛飘过)勿喷

社区服务
高级搜索
猴岛论坛电脑百科代码自我清除,自我加密,解密的实现(大牛飘过)勿喷
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
0个回复

代码自我清除,自我加密,解密的实现(大牛飘过)勿喷

楼层直达
℡陌メ尐楓

ZxID:10371843

等级: 准尉

举报 只看楼主 使用道具 楼主   发表于: 2010-10-10 0
首先我们要定义几个过程,
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;
搞定。
当然还有很多要做的我就不多说拉。相信大家都知道。
[img]http://s8.hk/5hkb                                 


[/img]
« 返回列表
发帖 回复