【源码】DLL远程注入 有图右真相

hipxh

1. 
   
2. '说明： dll远程注入
   
3. '那个DLL是我随便找的一个  在QQ文件中随便找的一个
   
4. '因为该源码的重点是 掩饰注入  而不是其他 至于怎么运行DLL中的函数  大家可以先研究下。。。
   
5. 'by 尘粒 QQ：550702953
   
6. 
   
7. 
   
8. Private Sub Command1_Click()
   
9. 
   
10. Dim dllfile As String
    
11. Dim hprosess As Long, l As Integer, hvir As Long, hmod As Long, hthread As Long
    
12. Dim intstep As Integer
    
13. dllfile = App.Path + "\mydll.dll" 'dll的文件名
    
14. 
    
15. If Val(Text1.Text) <= 0 Then '如果进程的PID 小于等于0 说明用户输入的PID不正确
    
16. 
    
17. intstep = 1 '说明是第一步 获取PID这步的。。。
    
18. 
    
19. GoTo myerror '跳到处理错误上面
    
20. Else
    
21. hprosess = OpenProcess(2035711, 0, Val(Text1.Text)) '打开进程
    
22. intstep = 2 '说明是第二步 打开进程这一步的
    
23. If hprosess = 0 Then GoTo myerror '打开进程失败 跳到处理错误上面
    
24. 
    
25. l = Len(dllfile) + 1 '取dll文件名的长度+1
    
26. hvir = VirtualAllocEx(hprosess, 0, l, 4096, 4)
    
27. WriteProcessMemory hprosess, hvir, dllfile, l, 0
    
28. hmod = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
    
29. intstep = 3
    
30. If hmod = 0 Then GoTo myerror
    
31. hthread = CreateRemoteThread(hprosess, 0, 0, hmod, hvir, 0, 0) '这个就是关键了  远程线程
    
32. 
    
33.      If hthread <> 0 Then MsgBox "恭喜 注入成功咯" '成功 弹出信息
    
34.      intstep = 0 '因为成功了 所以把这个赋值为0 不然后面就会按错误信息处理了。。。
    
35. '下面就是处理后事了
    
36. VirtualFreeEx hprosess, hvir, 0, 32768
    
37. CloseHandle hthread
    
38. CloseHandle hprosess
    
39. End If
    
40. 
    
41. myerror: '错误的处理?????
    
42. Select Case inttype
    
43. Case 1 '输入的PID错误
    
44. MsgBox "请输入正确的PID````````````"
    
45. Case 2 '打开进程失败
    
46. MsgBox "打开进程失败！！！！````````````"
    
47. Case 3 '获取函数地址失败??
    
48. MsgBox "获取函数地址失败！！！"
    
49. End Select
    
50. 
    
51. End Sub
    

复制代码

南无

厉害呀，顶一下

toudu

写的不错

http://www.vbgood.com/thread-107249-2-1.html

可以借鉴下，老外写的vbdllinjector

但是这个帖子楼主的源码好像还没放

bakurise

CreateRemoteThread 。。。。 瞬间被杀软咔掉。。。。

sunshinebean

hook一下LoadLibraryExW,让你注

hipxh

sunshinebean 发表于 2011-12-5 18:52
hook一下LoadLibraryExW,让你注

那我就只能望这他笑了。。。。

ahsl20048

貌似我的注入失败了，查模块没见到

hlb1117

DLL远程注入很简单啊，有什么好研究的？

hipxh

bigboy2050 发表于 2011-12-6 09:53
楼主大侠 什么叫 掩饰注入啊？？？

演示  打错。。。。  演示打成掩饰了。。。。

hipxh

hlb1117 发表于 2011-12-6 02:45
DLL远程注入很简单啊，有什么好研究的？

。。。。  
   DLL注入 正常情况下是挺简单的。  但是有些情况也听难的。
     在说 如果你只是为了注入而注入当然没什么用 没什么可以研究的 但是??????
  比如HOOK 就需要用到注入。