注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

[木马]Delphi无窗体程序调用DLL例子(开发插件马可以参考)  

2014-03-31 08:05:35|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

网上看了一些程序与插件的例子,想搬其中一段代码到马上面使用,发现老是出错
后面发现那代码只适合有窗体的程序,有很多用delphi写马的都用了很多控件
所以导致马的体积非常非常大,比如灰鸽子、等等,但是也有些马都是纯代码实现的
修改这类或者自己也写这类马,网上那段代码就失效了,所以在这里给大家提供一份
通用的加载DLL的代码,这份代码不用管你的程序是否是窗体程序,均可调用DLL。

program Project1;

uses
  Windows,
  SysUtils;

//{$R *.res}

type
TFunc =function(x,y:integer):integer;stdcall;
var
Th:Thandle;
Tf:TFunc;
Tp:TFarProc;
begin


Th :=LoadLibrary('DllDemo.dll');    {load dll}
if(Th   >0) then
try
Tp :=GetProcAddress(Th,PChar('max'));
if(Tp <>nil) then
begin         { begin 1}
Tf :=TFunc(Tp);

MessageBox(0, PAnsiChar('最大数'+IntToStr(Tf(8,4))), '提示', MB_OK + MB_ICONSTOP + MB_TOPMOST);

end   { end 1}
else
   MessageBox(0, '好的程序1111111', '提示', MB_OK + MB_ICONSTOP + MB_TOPMOST);

finally
FreeLibrary(Th);
end
else
MessageBox(0, '好的程序2222222', '提示', MB_OK + MB_ICONSTOP + MB_TOPMOST);

end.


DLL。。。。

library DllDemo;
uses
  SysUtils,
  Classes;

{$R *.RES}

function max(x,y:integer):integer;stdcall;
begin
     if(x>y) then
      max :=x
      else
      max :=y;
end;

exports max;

begin
end.
  评论这张
 
阅读(866)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016