导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

[置顶] {下载}本站提供delphi下载

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

XP/2003下Delphi最简单的方法开放3389

{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows;
var
reg:TRegistry;
procedure Help;
begin
writeln('');
writeln('======Win XP&2003 Open3389 by lanyu====== ');
Writeln('Useag '+ExtractFileName(Paramstr(0))+' [/n]');
...

 

Ring3下注入DLL的另类方法,能过杀软和游戏NP(源码)

Ring3下注入DLL的另类方法,能过杀软和游戏NP(源码)

    注入DLL是做全局钩子或者拦截类软件都有可能用到的技术,如果做外挂的话我们也有可能需要注入一个DLL到游戏进程中去干点什么“坏事”。 但我们知道现在要注入DLL是越来越难了。场景1:制作火星文输入法外挂,原理是利用API HOOK拦截并修

ActiveX启动下载者(delphi)

明生注:看的是思想,不可以复制他的。因为这里的代码需要好好的修改下

program InjectTheSelf;



{$IMAGEBASE $13140000}



uses

....

最简单的下载者过NOD32 卡巴等启发[VC Delphi两个版本]

#pragma comment(lib, "urlmon.lib")

#include

#pragma comment(linker,"/SECTION:.text,EWR /IGNORE:4078 /FILEALIGN:0x200")

 

未命名文章

原理是以独占的方式打开文件,再把文件句柄复制到另一个程序中去,达到本程序退出后目标文件仍被打开的目的

program createfile; 

uses 

  Windows, SysUtils; 

//提权函数 

procedure SetPrivilege

.... 

绕过主动防御的代码注入方法(非DELPHI代码)

明生注:这并非是一份DELPHI代码,但是里面的东西值得学习。如果学远程注入可以找到相关的资料所以我就转过来了

目前大多数的杀软都是hook NtWriteVirtualMemory和NtUserSetWindowsHookAW、NtUserSetWindowsHookE来防止代码注入。

关于代码注入Ring3层的方法主要有:

l 远程线程CreateRemoteThread

l 消息钩子SetWindowsHookEx

明生注:这并非是一份DELPHI代码,但是里面的东西值得学习。如果学远程注入可以找到相关的资料所以我就转过来了

目前大多数的杀软都是hook NtWriteVirtualMemory和NtUserSetWindowsHookAW、NtUserSetWindowsHookE来防止代码注入。

关于代码注入Ring3层的方法主要有:

l 远程线程CreateRemoteThread

l 消息钩子SetWindowsHookEx

DELPHI木马生成技术!(配置)api

经常会看到鸽子或一些木马可以自定义生成一个服务端程序,开始很奇怪,他是怎么做到的!后来去网上搜了下,但是没找到相关文章! 后来碰巧得到了一个QQ病毒的源代码,而这个程序就可以生成一个文件,于是就研究了下代码,但是收获不大,但是很实用,他的大致思路和鸽子是一样的:

原理一:

在程序的尾部追加数据,然后程序运行时从尾部读取数据,这个方法看似容易,但是实际操作的时候遇到了很多问题,我最不明白的是他既然加了数据又是怎么保持PE文件本身的格式的!但是这个方法确实可行,我看了鸽子的源码,他所用的方法基本一样!先把一个文件复制出来然后把数据写到文件尾部!

......

用DDDK编写驱动,修改SSDT表HOOK NTDebugActiveProcess函数

用DDDK编写驱动,修改SSDT表HOOK NTDebugActiveProcess函数





代码如下

 

代码:

 

...

WinInet 下载文件示例

 

Uses WinInet
(1)HTTP下载
Function WWWDownFile(Const FTURL,LocalFile : String) : Boolean; //下载函数.
Const
FTAcceptTypes = '*/*';
FTAgent = 'Explorer';
FTUserName = ''; //用户名.
...

Delphi 替换和安装新svchost服务

明生注:因为都是转来转去所以没有找到原作者,如果有侵犯你的版权请与我联系。。谢谢作者文章

procedure Install(var DelMe:Boolean );stdcall ;
var
FileName: array[0..255] of Char;
reg:TRegistry;
hSCM,hSCS: Cardinal ;
ss : TServiceStatus;
...

delphi用wininet函数下载HTTP文件

  GetInetFile function uses Wininet; function GetInetFile(const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..Buffer

[原创]让exe支持命令运行的delphi语法

原创:心动吧明生KISS

转换请注明:http://www.abcxd.com

  很多程序有的时候需要在dos命令下运行。。但是如果不带命令而直接运行的话。又会有很多问题。所以今天这一个就是讲求,如何让delphi生成的EXE也能支持命令运行,其实所有生成出来的exe都可以支持命令的。只是我们并没有接收外部传进来的值。所以就无处判断。。而现在这一个就是来介绍他的方法。先看一下他的函数写法

...
分页:[«]1[2][3][»]

日历

<< 2010-5 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

站内搜索

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved