Mensajes

Bueno lo he revisado y lo he comentado creo que esta todo bien jejeje si veis algo raro decirmelo o si alguien no lo entiende

Código (vb) [Seleccionar] Expandir

Public Sub Comenzar_Scroll(Objeto_Scroll As PictureBox, Texto As String, Velocidad As Long, Color_Fuente As Long)
Dim r_Height_Texto As Long
Dim ObjetoRect As RECT
Dim t_Vel As Long
Dim Ret As Long

'Aqui esta poniendo las propiedades pasa que se pueda
With Objeto_Scroll  ' escibir en el picture o form
    .ScaleMode = vbPixels   'modo pixel
    .AutoRedraw = True  'para que se actualizae el pintado
    .ForeColor = Color_Fuente 'color de fuente
    .FontSize = 16  'Tamano de la letra
End With


'Aqui lo que hace es una primera llamada a la api para comprobar
' que puede pintar el texto sobre el objeto dado
Ret = DrawText(Objeto_Scroll.hdc, Texto, -1, ObjetoRect, &H400)

'Si el retorno es 0 entonces no puede pintar correctamente el objeto
'Y por lo tanto sale
If Ret = 0 Then MsgBox " Error ", vbCritical: Exit Sub
   
    With ObjetoRect
       
        'Configura la posición inicial del área donde dibujar el texto
        .Top = Objeto_Scroll.ScaleHeight
        .Left = 0
        .Right = Objeto_Scroll.ScaleWidth
         r_Height_Texto = .Bottom
        .Bottom = .Bottom + Objeto_Scroll.ScaleHeight
    End With
     
'Esta variable si está en True detiene el scroll
Finalizar = False


'Si no cambias el valor de variable sigue dibujando el texto
'infinitamente
While Finalizar = False

    'Aqui hace una comprobacion de la velocidad
    If (GetTickCount() - t_Vel) > Velocidad Then
                                   
        ' Borra el contenido ya pintado en el objeto
        Objeto_Scroll.Cls
       
        ' Dibuja el texto
        Call DrawText(Objeto_Scroll.hdc, Texto, -1, ObjetoRect, &H1 Or &H10)
       
        With ObjetoRect
            'Cambia la proxima posicion donde se escribira el texto
            .Top = .Top - 1
            .Bottom = .Bottom - 1
           
            ' Si llegó arriba de todo comienza de nuevo el scroll reseteando los valores top y bottom
            If .Top < -(r_Height_Texto) Then
                .Top = Objeto_Scroll.ScaleHeight
                .Bottom = r_Height_Texto + Objeto_Scroll.ScaleHeight
            End If
       
        End With
       
        'Cambia la variable para futuras comprobaciones de velocidad
        t_Vel = GetTickCount()
       
    End If
   
    DoEvents
Wend
End Sub


Salu2, Noele1995

hay varias formas de saberlo , la mas comun es cuando tu ruter no acepta conexiones o la otra es un rango establecido entre 172.26.0.1 y 192.169.1.1 que serian  la dirección IP local es la que corresponde a la red local de su casa u oficina .   nota: si es una red muy pero muy grade cabe decir que el rango establecido en esa red es relativo al numero de ordenadores que poseais .

El rango de ip locales suelen ser estos pero no tiene porque, hay muchas redes que tienen cambiados estos rangos o tienen configuradas ips locales estaticas y de esta forma pueden estar fuera del rango y ser locales. Lo de la recepcion de conexiones del router si se podria mirar para hacerlo por ahi.

Salu2, Noele1995

Lo vi y me interese  jejeje asique he hecho algo en base a codigos de LeandroA para quien le sirva ahi vá.

https://rapidshare.com/files/2759427725/BanderaSegunPais.rar

Es un tema importante a saber lo de NVT. Y nolose exactamente pero el de indetectables no creo que envien ninguna muestra sobre todo porque es de una comunidad que ya se sabe que se fabrica malware y ademas es de pago, asique me parece probable que lo hagan.

PD: Creo que se deberia hacer un post adjuntado a los importantes con informacion sobre esto ya que por internet hay poca y mucha gente "quema" los programas y sources.

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.

Gracias por la ayuda aunque al final no la necesite, solo tuve que hacer algunas modificaciones en las declaraciones y funciono

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.

Código (vb) [Seleccionar] Expandir

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

Ya tenia pensado modificarlo porque no me va a funcionar en mi proyecto ya que es multiconexion asique habia pensado ya ponerlo como parametro de las funciones, jeje esque lo hice rapido y no me di cuenta, luego lo cambio.

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