pe123sdk.dpr

一款压缩壳PE123的DELPHI源码 学习写壳的很好的参考

library PE123SDK;

uses
  windows;

function PE123_SDK_Init():boolean;stdcall;
begin
  result := true;
end;

var
  vars:array[0..7] of cardinal;
function PE123_SDK_Vars(dw_type,p,value:cardinal):cardinal;stdcall;
begin
  case dw_type of
  PE123_SDK_VARS_GET:
    begin
      result := vars[p];
    end;
  PE123_SDK_VARS_SET:
    begin
      vars[p]:=value;
    end;
  end;
end;
exports PE123_SDK_Init,PE123_SDK_Vars;
begin
end.