首页
社区
课程
招聘
[原创]我不知道这个问题属于哪个板块?
发表于: 2009-6-5 22:41 2974

[原创]我不知道这个问题属于哪个板块?

2009-6-5 22:41
2974
各位大哥好,最近我写了个小程序,想加以个外壳,找了半天也找不到好用的,
最后发现VMPROTECT这个玩意儿比较好,
就像用在我的程序里面,我用的是Vb现在不知道如何调用,
6c0K9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4m8W2k6r3W2&6i4K6u0W2j5$3!0E0i4K6u0r3j5X3u0K6K9s2c8E0L8q4)9J5c8X3u0T1M7K6S2Q4x3V1k6H3k6h3c8A6P5e0S2Q4x3X3b7^5x3K6g2Q4x3X3g2Z5N6r3@1`.
这个上面只讲了DELPHI 和VC
,我尝试了在DELPHI 中吧他的那2句汇编代码写成DLL来调用,结果调用是成功了,
可是VM软件中看不到在DELPHI中用的那种效果,

哪位大哥知道Vb如何掉用,请指教下,小弟不胜感激!附上我写的DELPHI dll代码,供其他程序调用

library VM;


uses
  SysUtils,
  Classes;

//function skadhfsajkdhfstart(x:integer):integer;stdcall;
//function skadhfsajkdhfsstop(x:integer):integer;stdcall;
{$R *.res}
function skadhfsajkdhfstart(id:integer):integer;stdcall;
begin
if id=520 then
begin
    asm
      db $EB,$10,'VMProtect begin',0   //关键在此
    end;
    result:=1;
end
   else

   begin
    result:=0;
   end;
 end;



function skadhfsajkdhfsstop(id:integer):integer;stdcall;
begin
if id=520 then
 begin
        asm
         db $EB,$0E,'VMProtect end',0   //结束关键代码保护
        end   ;
        result:=1;
 end

ELSE
  begin
  result:=0;
  end;
    end;

exports
  skadhfsajkdhfstart,
  skadhfsajkdhfsstop;

begin
end.


[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回