Turkhackteam.net/org - Turkish Hacking & Security Platform  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform >
Turkhackteam Under Ground
> Undetected

Undetected Crypter, HEX kodlama ile ilgili konular



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

Undetected

Yeni Konu aç Cevapla
 
Seçenekler
Alt 16-10-2017 20:55   #1
  • Tamamen Forumdan Uzaklaştırıldı
  • Üye Bilgileri
Üyelik tarihi
09/2017
Mesajlar
Konular

Teşekkür (Etti): 6
Teşekkür (Aldı): 22


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



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..
 Offline  
 
Alıntı ile Cevapla
Alt 16-10-2017 21:27   #2
  • Tamamen Forumdan Uzaklaştırıldı
  • Üye Bilgileri
Üyelik tarihi
09/2017
Mesajlar
Konular

Teşekkür (Etti): 6
Teşekkür (Aldı): 22




apiler eklendi
 Offline  
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından paylaşılmaktadır.
Bu konular yasalara uygunluk ve telif hakkı konusunda yönetimimiz tarafından kontrol edilse de, gözden kaçabilen içerikler yer alabilmektedir.
Bu tür konuları turkhackteamiletisim [at] gmail.com mail adresimize bildirebilirsiniz, konular hakkında en kısa sürede gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com

Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz.
Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2019

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı

Google+
Pomeranian Boo
instagram takipci hilesi

wau