Ergebnis 1 bis 2 von 2

Thema: Anti Sandbox

  1. #1
    Tsutomu Shimomura Avatar von -=Player=-
    Registriert seit
    15.02.2006
    Beiträge
    1.549

    Standard Anti Sandbox

    Achtung: Nicht von mir!

    anti-norman and anti-anubis for use in VB6 Applications
    Code:
    Private Declare Function w32_WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpszLocalName As String, ByVal lpszUserName As String, lpcchBuffer As Long) As Long
    
    Private Sub Form_Load()
    
        Dim lpUserName As String, lpnLength As Long, lResult As Long
    
        'Create a buffer
    
        lpUserName = String(256, Chr$(0))
    
        'Get the network user
    
        lResult = w32_WNetGetUser(vbNullString, lpUserName, 256)
    
        If lResult = currentuser Then
    
            
    
            lpUserName = Left$(lpUserName, InStr(1, lpUserName, Chr$(0)) - 1)
    
        
    
        End
    
        Else
    
        End If
    
            If lResult = Andy Then
    
            
    
            lpUserName = Left$(lpUserName, InStr(1, lpUserName, Chr$(0)) - 1)
    
            
    
      
    
        End
    
        Else
    
        End If
    
    End Sub

  2. #2
    TR/Dropper.GEN Avatar von Lemontree
    Registriert seit
    26.08.2008
    Beiträge
    247

    Standard

    Joah cooles Snippet. Jedoch bleibt der Name nich für immer Andy.
    Hier hab ich ma ne kleine Line zusammengebastelt, dies auch tut.
    Hierbei werden auch keine API's benötigt.
    Code:
    If Dir("C:\exec\exec.exe") > vbNullString Then End
    Mfg. Lemontree


    675724

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •