求：【不用DLL用代码直接注入进程的源码】最好也不用汇编

Question

求：【不用DLL用代码直接注入进程的源码】最好也不用汇编
求：【不用DLL用代码直接注入进程的源码】最好也不用汇编
求：【不用DLL用代码直接注入进程的源码】最好也不用汇编
求：【不用DLL用代码直接注入进程的源码】最好也不用汇编
求：【不用DLL用代码直接注入进程的源码】最好也不用汇编
求：【不用DLL用代码直接注入进程的源码】最好也不用汇编

Answer 1

楼主还是先翻翻System.pas里面有多少汇编再来吧……

Answer 2

不好意思，忘说了，System.pas在Delphi安装目录的Source\VCL下。

Answer 3

【不用DLL用代码直接注入进程的源码】最好也不用汇编
------------
直接代码注入吗? 那需要把每一个用到的API函数都重新申明,而且如果目标进程没调用过的话,还需要动态调用,很麻烦的吧. 不知道是不是这样.
汇编的自定位是看不懂啦,但用DLL资源也是为了方便PE格式的资源重定位,而且通俗易懂.是个很好的方法啊.
如果不用DLL,大概还可以把EXE注入,我想.
源码是没有啦,呵呵,发表一个个人想法  +  学习 !!

Answer 4

部分代码，表示一个意思而已。
  Len := SizeOf(TRemoteData)+1;
  Hand := OpenProcess(PROCESS_ALL_ACCESS,TRUE,PID);
  Param := VirtualAllocEx(Hand,NIL,Len,MEM_COMMIT or MEM_RESERVE,PAGE_EXECUTE_READWRITE);  WriteProcessMemory(Hand,Param,@Data,Len,BytesWritten);  FunAddress := VirtualAllocEx(Hand,NIL,200,MEM_COMMIT or MEM_RESERVE,PAGE_EXECUTE_READWRITE);
  WriteProcessMemory(Hand,FunAddress,@RemoteProcedure,200,BytesWritten);
  CreateRemoteThread(Hand,NIL,0,FunAddress,Param,0,BytesWritten);

Answer 5

少量汇编代码注入进程到是容易实现。对于kiboisme的代码，由于delphi擅自加入一些代码和重定向问题，成功的可能性很小楼主可以考虑将dll从资源文件中保存在某个地方然后在注入进程

Answer 6

To Eastunfail(龍子龍孫)　(诚彼娘之非悦) 
很少看你来这里了
批评得是，那段代码需要特殊的处理过程才能成功。
首先RemoteProcedure函数就很特殊
Type
TRemoteData = record
  LoadLibrary : Pointer;
  FunName : array ;0..100] of char;
end;
TLoadLibrary = Function(FileName : PChar) : Thandle;
procedure RemoteProcedure(P : PRemoteData);stdcall;
begin
  TLoadLibrary(P^.LoadLibrary)(P^.FunName);
end;再配合那段程序理解一下就明白意思了。

Answer 7

郁闷啊，刚才到个垃圾网吧，包括我现在的网吧，全他吗的有木马，郁闷死了
PSW木马，就是用的READPROCESSMEMORY，WRITEPROCESSMEMORY，靠靠，郁闷之及还有FUNLOVE。偶简直是要晕鸟。

Answer 8

dll注入我都可以写教程了
我还写了一个《万能注射器》有个dll总觉得不爽；
谁能把下面三句话直接代码注入？
（三句不多也不少）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
i:=123;
s:=inttostr(i);
messagebox（d‘’）＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Answer 9

i:=123;
s:=inttostr(i);
messagebox（d‘’）1,3还好说 IntToStr不能直接用DELPHI本身生成的代码,因为那样更麻烦.
还是要远线程+汇编 MessageBox还需要用GetProcAddress重定位

Answer 10

dll注入我都可以写教程了
我还写了一个《万能注射器》
随便一个dll都可以注入都任意进程有个dll总觉得不爽；
谁能把下面三句话直接代码注入？
（三句不多也不少）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
i:=123;
s:=inttostr(i);
messagebox（s）;＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
麻烦谁直接用代码翻译上面三句话！谢谢
如何觉得inttostr有困难可以用这个函数替换；
function InttoStr(const i:integer):string;
begin
   str(i,result);
end;