(Sony) Posted February 27, 2012 Share Posted February 27, 2012 '======================== VMware Detection ======================= '====================== Modo de uso Call sVMWARE_M3 ====================== '======================== Detecciones 0 | 36 ======================= '======================== Plataforma Win32 ======================= '======================== Autor M3n3g@tt1 ======================= Public Sub sVMWARE_M3() Dim sWMI, sFind As Object Dim IsVMWARE As String Dim sProcess As Variant Set sWMI = GetObject("winmgmts:") Set sFind = sWMI.InstancesOf("win32_process") For Each sProcess In sFind sVMW = Chr(86) & Chr(77) & Chr(119) & Chr(97) & Chr(114) & Chr(101) & Chr(84) Chr (114) & Chr(97) & Chr(121) & Chr(46) & Chr(101) & Chr(120) & Chr(101) = 1 If InStr(sProcess.Caption, sVMW) = 1 Then IsVMWARE = True MsgBox "VMWare Detected !!!" End End If Next End Sub Scan: Fichero: sVmware_M3.exe Fecha/Hora: 23/1/2012 02:24:03 GMT +1 Tamaño: 20480 Bytes MD5: bbe7901a7fef47c8fa2d1bc5dc4f7432 SHA1: a97ac594335007cd84226eab2bfd18cacaa55181 Detecciones: 0/36 Estado: LIMPIO AVG Free - Limpio ArcaVir - Limpio Avast 5 - Limpio Avast - Limpio AntiVir (Avira) - Limpio BitDefender - Limpio VirusBuster Internet Security - Limpio Clam Antivirus - Limpio COMODO Internet Security - Limpio Dr.Web - Limpio eTrust-Vet - Limpio F-PROT Antivirus - Limpio F-Secure Internet Security - Limpio G Data - Limpio IKARUS Security - Limpio Kaspersky Antivirus - Limpio McAfee - Limpio MS Security Essentials - Limpio ESET NOD32 - Limpio Norman - Limpio Norton Antivirus - Limpio Panda Security - Limpio A-Squared - Limpio Quick Heal Antivirus - Limpio Rising Antivirus - Limpio Solo Antivirus - Limpio Sophos - Limpio Trend Micro Internet Security - Limpio VBA32 Antivirus - Limpio Vexira Antivirus - Limpio Webroot Internet Security - Limpio Zoner AntiVirus - Limpio Ad-Aware - Limpio AhnLab V3 Internet Security - Limpio BullGuard - Limpio Immunet Antivirus - Limpio Link to comment Share on other sites More sharing options...
Recommended Posts