+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Cracking / Anti Crack (http://parsicoders.com/forumdisplay.php?fid=75)
+--- انجمن: Anti Debug (http://parsicoders.com/forumdisplay.php?fid=76)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=77)
+---- موضوع: VB6 - Anti CW Sandbox & Anubis Module (/showthread.php?tid=1126)
VB6 - Anti CW Sandbox & Anubis Module - Amin_Mansouri - 10-20-2011
کد:
Public Sub cw_anub()
' Anti CW Sandbox
'-------------------------
If Environ("userprofile") = "H:/Dokumenteund Einstellungen/Schmidti" Then
MsgBox "No emulation or Virtualisation of this application possible" & vbCrLf & "Please contact your Vendor for more information.", , "Vendor notification."
End
Else
'ANTI Anubis
'--------------------
If App.Path & App.EXEName & ".exe" = "C:\sample.exe" Then
MsgBox "No emulation or Virtualisation of this application possible" & vbCrLf & "Please contact your Vendor for more information.", , "Vendor notification."
End
Else
'MsgBox "Success...."
End If
End If
End Sub