THT DUYURU

chat
Undetected Crypter, HEX kodlama ile ilgili konular

takipci
Seçenekler

Anti Sandbox & Anti-Anubis & Anti-Debuggers (OllyDbG, ..) Modul VB6

Drone31 - ait Kullanıcı Resmi (Avatar)
Tamamen Askıya Alındı
Üyelik tarihi:
09/2017
Mesajlar:
249
Konular:
28
Teşekkür (Etti):
6
Teşekkür (Aldı):
22
Ticaret:
(0) %
1
6876
16-10-2017 20:55
#1
Kod:
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) As Long



'Anti Sandbox  Method - Visual Basic
 
Public Function Sandboxed() As Boolean
    Dim hMod As Long
    hMod = GetModuleHandle("SbieDll.dll")
    If hMod = 0 Then
        Sandboxed = False
    Else
        Sandboxed = True
    End If
End Function

'Anti-Anubis
Public Function Anubis() As Boolean

Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
 
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(Environ("SystemDrive") & "\", Temp1, Len(Temp1), SerialNum, 0, 0, _
Temp2, Len(Temp2))
 
If SerialNum = 1824245000 Then
    Anubis = True
Else
    Anubis = False
End If

End Function

'Anti-Debuggers (OllyDbG, ..)
Public Function Debugger() As Boolean
    Debugger = Not (OutputDebugString(VarPtr(ByVal "=)")) = 1)
End Function
Konu Drone31 tarafından (16-10-2017 21:27 Saat 21:27 ) değiştirilmiştir.
Drone31 - ait Kullanıcı Resmi (Avatar)
Tamamen Askıya Alındı
Üyelik tarihi:
09/2017
Mesajlar:
249
Konular:
28
Teşekkür (Etti):
6
Teşekkür (Aldı):
22
Ticaret:
(0) %
16-10-2017 21:27
#2
apiler eklendi

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler