Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - yovaninu

#111
Aww, no se mano, pero veo que estas declarando muchas variables dentro del evento de llegada de datos y mas un estas llamando a APIS y no se que mas, no es que este mal, pero podrias ser un poco mas ordenado y asi no atarear tanto al evento, podrias separarlo en modulos, respecto a la transferencia de archivos hay un monton de code orbitando por este foro... es cuestion de buscar

Un saludo y ordena mejor ese codigo.
#112
Cita de: el_c0c0 en 12 Junio 2009, 22:04 PM
Cita de: yovaninu en 12 Junio 2009, 05:00 AM
...

probaste con algun otro programa?. ademas, la MAC que mencionas es del equipo a prender o de la portatil?

EDIT:

el problema parece ser a donde estas conectando el sock.
yo conecto asi:
    Set objSockete = New CSocketMaster
    objSockete.Protocol = sckUDPProtocol
    objSockete.Connect "255.255.255.255", 40000



saludos
entiendo que lo estas haciendo con CSocketMaster, no lo probe aun con eso pero se supone que con el WinSock tambien deberia funcionar, pero aun no lo consigo, si no hay mas nadie que pueda ayudarme, demos por cerrado el tema que intentare por propios medios.

Gracias a todos
#113
Cita de: seba123neo en 18 Junio 2009, 02:21 AM
Hola, si vas a hacer eso es mejor con api, en vez de sendkeys, pero bueno busca porque hay un monton de eso...

saludos.
exactamente, lo mejor es usar la API, pues sendkey no funcionara ni en vista ni en win 7

Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#114
Hola Coco, sigue sin funcionar
lo que hize fue esto
En un boton de comando
Código (vb) [Seleccionar]

Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "255.255.255.255"
Winsock1.RemotePort = 54323


y la funcion:
Código (vb) [Seleccionar]

Function WOL(ByVal strMac As String, Optional ByVal strPass As String = "")
    Dim strItems() As String
    Dim strSend As String
    Dim strMagic As String
    Dim lngIndex As Long

    strItems = Split(strMac, "-")
    strMagic = Chr(CLng("&H" & strItems(0))) & Chr(CLng("&H" & strItems(1))) & Chr(CLng("&H" & strItems(2))) & _
              Chr(CLng("&H" & strItems(3))) & Chr(CLng("&H" & strItems(4))) & Chr(CLng("&H" & strItems(5)))


    For lngIndex = 1 To 16
        strSend = strSend & strMagic
    Next lngIndex

    If Len(strPass) >= 0 Then
        strSend = strSend & strPass
    End If


    Winsock1.SendData strSend
End Function



Luego en otro boton de Comando llamo a la funcion:
Código (vb) [Seleccionar]

WOL "00-1c-c0-37-e0-1f"


Y no funciona.... lo estoy probando desde una Portatil conectada a traves de un cable de red normal y con el WIFI desactivado, obviamente la otra PC tambien esta conectada.

¿Qué estoy haciendo mal?

POr si acaso dejo la conf de la red

        Dirección física. . . . . . . . . : 00-1F-16-55-A3-0B (de la portatil)
        DHCP habilitado. . . . . . . . .  : No
        Dirección IP. . . . . . . . . . . : 192.168.1.5
        Máscara de subred . . . . . . . . : 255.255.255.0
        Puerta de enlace predeterminada   : 192.168.1.1

#115
"si el NetSupport puede hacerlo entonces nosotros tambien lo lograremos",

que tal con todos, esa es mi consigna y he estado averiguando un poco de esto y de todas formas ahora ya es posible esto de encender una PC remotamente ya que las placas actuales lo permiten al tener la opcion WOL (Wake on LAN) activada.

En la red esta el siguiente code (Con Winsock = WSC), en donde se envia el "Paquete Magico" a toda la red y en especial a la tarjeta de Red con MAC 00-16-76-2A-CD-85 (es un ejemplo de la pc que queria encender)


Dim buffer() As Byte
Dim contador As Byte
ReDim buffer(101) As Byte

For contador = 0 To 5
buffer(contador) = &HFF
Next

For contador = 6 To 101 Step 6
buffer(contador) = &H0
buffer(contador + 1) = &H16
buffer(contador + 2) = &H76
buffer(contador + 3) = &H2A
buffer(contador + 4) = &HCD
buffer(contador + 5) = &H85
Next

WSC.Protocol = sckUDPProtocol
WSC.RemoteHost = "255.255.255.255"
WSC.RemotePort = 7555
WSC.SendData buffer


en teoria deberia andar, sin embargo no me funciona, espero que haya gente interesada en esto pues seria una muy buena funcion para nuestros troyanos o para lo que veamos por conveniente, o quiza alguien ya lo tiene funcionando.

Espero sus opiniones.

Un saludo
#116
Cita de: <[(x)]> en 28 Mayo 2009, 03:05 AM
hola
  En mi opinión tu troyano se tornaría bastante sospechoso cuando te envié el audio de la pc victima.

solo digo.
uhmm ¿por que?,  no lo creo pues una vez finalizada la grabacion transferiria el archivo (supongo que en wav) asi como transfiero el archivo de captura del screen o del gestor de archivos o del keylogger, y sigo buscando la forma de implementar esa funcion, no creo que sea imposible....
#117
OK, lo que deseaba era implementar esta funcion en el servidor de mi troyanin, pero si he de hacer todo eso pues seguro que resulta mas dificil de lo que pense, pase tambien por PSC aun asi seguire investigando
Gracias y un saludo..
#118
te paso mi codigo a ver si te sirve
en un form vacio dibujas un ListView1, un Command1, un ImageList1 y un Picture1

Luego este es el code completo

Código (vb) [Seleccionar]

Option Explicit

Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDst As Long, ByVal x As Long, ByVal y As Long, ByVal fStyle As Long) As Long
Private Const SHGFI_SMALLICON = &H1         
Private Const SHGFI_SYSICONINDEX = &H4000     
Private Const SHGFI_TYPENAME = &H400       
Private Const MAX_PATH = 260

Private Type SHFILEINFO
    hIcon As Long
    iIcon As Long
    dwAttributes As Long
    szDisplayName As String * MAX_PATH
    szTypeName As String * 80
End Type




Private Sub ObtenerIconoLocal()
Dim LI As ListItem
Dim FI As SHFILEINFO
Dim hImage As Long
ImageList1.ListImages.Clear

Dim IconoImageLIST As Byte
IconoImageLIST = 1

For Each LI In ListView1.ListItems
    Open "x" & LI.Text For Binary Access Read As #5
    Close #5
   
    Picture1.Cls
    Picture1.Width = 240: Picture1.Height = 240
   
    hImage = SHGetFileInfo("x" & LI.Text, ByVal 0&, FI, Len(FI), SHGFI_SYSICONINDEX Or SHGFI_SMALLICON)
   
 

    ImageList_Draw hImage, FI.iIcon, Picture1.hDC, 0, 0, SHGFI_SMALLICON
    ImageList1.ListImages.Add Key:="key" & ImageList1.ListImages.Count, Picture:=Picture1.Image
   
    Kill "x" & LI.Text
    ListView1.View = lvwReport
   
    Set ListView1.SmallIcons = ImageList1
    Set ListView1.Icons = ImageList1
   
    LI.SmallIcon = IconoImageLIST
    LI.Icon = IconoImageLIST
   
   
   
   
   IconoImageLIST = IconoImageLIST + 1
 
Next LI




End Sub



Private Function FileTipo(Ruta As String) As String
Dim FI As SHFILEINFO
SHGetFileInfo Ruta, 0, FI, Len(FI), &H10 Or &H400
FileTipo = FI.szTypeName
End Function



Private Sub Command1_Click()
'ALGUNOS EJEMPLOS
With ListView1.ListItems.Add(, , "programa.exe")
       .SubItems(1) = "kb"
End With

With ListView1.ListItems.Add(, , "musica.mp3")
       .SubItems(1) = "kb"
End With

With ListView1.ListItems.Add(, , "pelic.mpeg")
       .SubItems(1) = "kb"
End With


With ListView1.ListItems.Add(, , "Lyb.dll")
       .SubItems(1) = "kb"
End With

With ListView1.ListItems.Add(, , "tuto.pdf")
       .SubItems(1) = "kb"
End With

ObtenerIconoLocal

End Sub


#119
Que tal. ante los resultados infructuosos de mi busqueda por el tio google es que recurro a vosotros para ver si alguien sabe como puedo grabar el sonido que emiten los parlantes, mas no deseo capturar el sonido del microfono, supongo que alguna API ha de utilizarse pues hay en la red Soft ya hecho que permiten hacer lo que yo pero a traves de un code ne Basic.

Un saludo.
#120
diferencias?? casi ninguna por no decir son lo mismo... yo llevo programando con el CSocketMaster desde hac años y jamas he tenido problemas, y lo uso principalmente en lo servidores de algunos troyanines que tengo por ahi... y funcionan a la perfeccion, de que si puedes tener un control grafico, no creo, quiza a traves de un ocx pero seria lo mismo que winsock

y claro que puedes usar el winsock en tu cliente y CSM en toooodos los serrvidore que quieras, yo asi lo vengo usando desde hace mucho.