首先我们要定义几个过程，
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;
搞定。
当然还有很多要做的我就不多说拉。相信大家都知道。