UTM4XP
所属分类:驱动编程
开发工具:Visual Basic
文件大小:1418KB
下载次数:259
上传日期:2010-01-05 21:33:18
上 传 者:
cogito
说明: 一个简单ARK源码。包括进线程操作,隐藏进程检测,SSDT,SHADOW SSDT hook查看等等
(An anti-rookit tool)
文件列表:
!FPLG\Shadow SSDT\CIcyListView.cls (50864, 2009-04-20)
!FPLG\Shadow SSDT\frmMain.frm (5811, 2009-07-07)
!FPLG\Shadow SSDT\frmMain.frx (3786, 2009-07-07)
!FPLG\Shadow SSDT\mdlDisasm.bas (9725, 2009-04-18)
!FPLG\Shadow SSDT\mdlDumpKernelMemory.bas (1797, 2009-04-19)
!FPLG\Shadow SSDT\mdlPortableExecutable.bas (7839, 2009-04-19)
!FPLG\Shadow SSDT\mdlShadowSSDT.bas (7615, 2009-04-19)
!FPLG\Shadow SSDT\MSSCCPRJ.SCC (196, 2009-06-21)
!FPLG\Shadow SSDT\print scr.jpg (482247, 2009-05-03)
!FPLG\Shadow SSDT\Shadow SSDT.csi (3574, 2009-05-03)
!FPLG\Shadow SSDT\shadow ssdt.exe.manifest (803, 2009-01-21)
!FPLG\Shadow SSDT\Shadow SSDT.lvw (63488, 2009-04-18)
!FPLG\Shadow SSDT\Shadow SSDT.vbp (920, 2009-07-07)
!FPLG\Shadow SSDT\Shadow SSDT.vbw (249, 2009-07-21)
!FPLG\Shadow SSDT\Shadow.exe (155648, 2009-07-07)
!FPLG\Shadow SSDT\Shadow_SSDT.RES (77652, 2009-04-19)
!FPLG\SSDT\Dump.frm (2714, 2008-04-09)
!FPLG\SSDT\Dump.frx (12, 2008-04-09)
!FPLG\SSDT\List.frm (4920, 2009-07-21)
!FPLG\SSDT\List.frx (3786, 2009-07-21)
!FPLG\SSDT\MSSCCPRJ.SCC (189, 2009-06-21)
!FPLG\SSDT\SSDT.bas (13671, 2008-12-31)
!FPLG\SSDT\SSDT.exe (49152, 2009-07-21)
!FPLG\SSDT\ssdt.old\ASM.RES (127052, 2007-11-22)
!FPLG\SSDT\ssdt.old\Form1.frm (13695, 2009-07-21)
!FPLG\SSDT\ssdt.old\Form1.frx (3786, 2009-07-21)
!FPLG\SSDT\ssdt.old\HookViewer.vbp (1022, 2009-07-21)
!FPLG\SSDT\ssdt.old\HookViewer.vbw (264, 2009-07-21)
!FPLG\SSDT\ssdt.old\mFilePE.bas (5839, 2008-08-20)
!FPLG\SSDT\ssdt.old\mKernelModule.bas (2706, 2008-10-01)
!FPLG\SSDT\ssdt.old\mMapIntoMemory.bas (2756, 2008-04-19)
!FPLG\SSDT\ssdt.old\mMemoryControl.bas (7044, 2008-04-19)
!FPLG\SSDT\ssdt.old\mod_MapMemory.bas (12226, 2008-10-01)
!FPLG\SSDT\ssdt.old\mPeGetExports.bas (2087, 2008-04-22)
!FPLG\SSDT\ssdt.old\mProcess.bas (7903, 2009-07-05)
!FPLG\SSDT\ssdt.old\mSetStyle.bas (4424, 2008-10-01)
!FPLG\SSDT\ssdt.old\MSSCCPRJ.SCC (195, 2008-04-25)
!FPLG\SSDT\ssdt.old\mStrCheck.bas (1519, 2008-04-23)
!FPLG\SSDT\ssdt.old\SSDT.exe (212992, 2009-07-11)
!FPLG\SSDT\SSDT.vbp (764, 2009-07-21)
... ...
Attribute VB_Name = "mod_z_ReadMemory"
Private Declare Function ZwSystemDebugControl Lib "NTDLL" (ByVal ControlCode As Long, ByRef InputBuffer As Long, ByVal InputBufferLength As Long, ByVal pOutputBuffer As Long, ByVal OutputBufferLength As Long, ByRef ReturnLength As Long) As Long
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As String) As Long
Public Function GetData(ByVal Address As Long, ByVal Buffer As Long, ByVal Length As Long) As Boolean
Dim ReturnLength As Long
ZwSystemDebugControl 8, Address, 12, 0, 0, ReturnLength
If ReturnLength = Length Then GetData = True
End Function
Public Function ReadMemory(ByVal Address As Long, Optional ByVal Length As Long = 4) As Long
Dim ret As Long
GetData Address, VarPtr(ret), Length
ReadMemory = ret
End Function
Public Function GetPIDByEPROCESS(ByVal lngEPROCESS As Long) As Long
'May be False PID
GetPIDByEPROCESS = ReadMemory(lngEPROCESS + 132)
End Function
Public Function PsGetETHREADByEPROCESS(ByVal lngEPROCESS As Long) As Long
PsGetETHREADByEPROCESS = ReadMemory(lngEPROCESS + &H190) - &H22C
End Function
Public Function PsGetTruePID(ByVal lngEPROCESS As Long) As Long
PsGetTruePID = ReadMemory(PsGetETHREADByEPROCESS(lngEPROCESS) + &H1EC)
End Function
Public Function GetIFNByEPROCESS(ByVal szEPROCESS As String) As String
Dim i As Long, allURL As String
Dim SnN() As String
szEPROCESS = UCase(Trim("0x" & szEPROCESS))
For i = 1 To frmMAIN.lvProc.ListItems.Count
If szEPROCESS = UCase(Trim(frmMAIN.lvProc.ListItems(i).SubItems(2))) Then
allURL = frmMAIN.lvProc.ListItems(i).SubItems(3)
End If
Next
SnN = Split(allURL, "\")
GetIFNByEPROCESS = SnN(UBound(SnN))
End Function
'Public Function StringFromPtr(ByVal pString As Long) As String
'Dim Buff() As Byte, Length As Long
'Length = lstrlen(pString)
'If Length = 0 Then Exit Function
'ReDim Buff(Length - 1)
'CopyMemory VarPtr(Buff(0)), pString, Length
'StringFromPtr = StrConv(Buff, vbUnicode)
'End Function
近期下载者:
相关文件:
收藏者: