Mensajes

Yo opino que con la salud no se juega y por eso, sin ánimo de ofender, digo lo siguiente ...por si quieres reflexionar sobre ello:

¿En que momento has pensado que te puede ser de ayuda compartir tu desagradable experiencia defecativa en un foro de temática Hacking?

¿Es que acaso no sabes que existen cientos de foros especializados en estos temas donde expertos en medicina están dispuestos a escuchar tu problema para ayudarte y darte una opinión elaborada sobre sintomas,curación,etc... y aconsejarte con mayor seguridad para ti y para tu intestino?,
¿que haces aqui jugando con tu salud si dices que es un tema serio y eso te preocupa?.

PD: De verdad, yo hay cosas que jamás llegaré a comprender, como por ejemplo, el razonamiento del ser humano en algunas ocasiones.

Saludos!

¿Desactivar el servicio de indexación de disco puede hacerlo cualquier equipo?

Puedes hacerlo en cualquier equipo, o mejor dicho, en cualquiera de tus disco duros.

Si eres un usuario que necesita indizar los archivos (Ej: realizas muchas búsquedas en el PC diaríamente), entonces notarás todo lo contrario a una mejora de rendimiento (las búsquedas se volverán mucho más lentas).

Si por lo contrario eres un usuario que no necesita mantener indizados los archivos, entonces notarás una ligera mejora de rendimiento.

PD: Como ya intenté explicarte...debes investigar lo que significa y lo que hace cada servicio de Windows para conocer los pros y los contras de cada servicio que desactives y así saber si estás haciendo lo correcto o no.

Saludos

[pkgmgr]

Microsoft publica una década después de forma oficial lo que "todo el mundo" ya sabia como hacer ...van bastante atrasados en el sentido de publicar soluciones oficiales para el usuario final, y así les va con las críticas de sus productos.

En mi opinión cualquier persona con un mínimo de conocimiento de las existentes utilidades commandline del sistema, o una persona sin conocimientos pero con un par de minutos para usar Google e intentar buscar el modo de deshabilitar IE ...siempre van a acabar encontrando la misma solución automatizada (comando pkgmgr y/o DISM).

Lo que intento decir es que esto no es nada nuevo ni tampoco es dificil de averiguar, se conoce desde que existen estas caracteristicas, y porque Microsoft decida publicarlo con tantísimos años de retraso en un Blog "de su casa" no creo que se pueda considerar como "Noticia" digna de ser publicada como tal y otorgarle una chincheta dandole así un mérito que Microsoft no se ha merecido ni se lo ha ganado (en mi opinión), pero aún me parece peor quien decidió publicar la fuente en una página de Geeks, donde se supone que si realmente son Geeks ya deberían conocer la existencia de este tipo de tweaks desde hace varios años atrás.

Ojo, no critico en ningún aspecto a wolfbcn por publicar la noticia, sino Microsoft o los responsables del Blog de MSDN o quien sea que se haya encargado de divulgar esta """noticia""" de forma oficial, la verdad es que me fastidia mucho que Microsoft sea así ...porque llegan demasiado tarde, pero bueno, al menos esto le servirá a las personas que a dia de hoy no se vean capacitados para abrir Google y encontrar la misma solución al mismo problema... bueno, ahi lo dejo.

Saludos!

[Diff]

¿Existe algún buen software donde puedas cargar dos archivos EXE y te indique las diferencias de bytes entre esos archivos binarios?

Estoy buscando algo tipo el método de comparación Diff que usan muchos programas con archivos de texto, pero para archivos EXE, para saber que cambios se le hicieron.

Y si encima permitiera editar diréctamente en hexadecimal y vaya comparando los cambios originales sería genial.

EDITO: Ya encontré uno, perdon por las molestias.

Beyond Compare + Hex viewer plugin



Saludos!

Sin la ejecucion del IE: multiupload

Muchas gracias por tu tiempo, ¿pero sería mucho pedir que explicases como pudiste encontrar la instrucción?, ahora debo buscar la instrucción donde se minimiza el programa y seguramente esté cerca de la dirección que hayas manipulado... ¿podrias indicarmelo?

Un saludo y gracias a los dos!

[Windows 7: Write-Caching - Enable or Disable]

No seria nuevamente...SCSI, no SATA???

No hagas caso del nombre, en la clave "...\SCSI\" están listados los dispositivos SATA (todos), CDROMS, unidades fijas, etc, como imagino que también se listarán los dispositivos SAS.

En la clave "...\IDE\" están listados los dispositivos ATA/IDE.

PD: Windows 7: Write-Caching - Enable or Disable

basicamente activar la caché mejora el rendimiento de un disco (y se nota bastante, por eso lo quiero mantener activado en el disco principal), pero si sufres un fallo de luz (o si se te resetea el PC por cualquier pantallazo azul y tu disco estaba haciendo una operación importante) podría sufrir daños en los sectores

saludos

No me molesta, sabes que el Hardware no es lo mio, no tenia claro donde podian estar enumerados los dispositivos IDE's

PD: Esto que escribí forma parte del "nuevo" pack de trucos que tanto te gusta xD (y deberia funcionar en cualquier caso)

Código (dos) [Seleccionar] Expandir

Echo [+] Deshabilitar la cache de escritura en discos duros secundarios menos el disco principal
REM Get the System's Hard Drive Model ID.
For /F "Tokens=1,2,* Delims=\" %%a in (
'Reg.exe Query "HKLM\SYSTEM\CurrentControlSet\services\Disk\Enum" ^| Find /I "0    REG_SZ"'
) Do (
Set "ExcludedDeviceID=%%b"
)
)

REM Set the 'UserWriteCacheSetting' device property, excluding then System's Hard Drive.
:: SATA Hard Drive
REG.exe Query "HKLM\SYSTEM\CurrentControlSet\Enum\SCSI\%ExcludedDeviceID%" 1>NUL 2>&1 && (
For /F "Tokens=* Delims=" %%a In (
'REG.exe Query "HKLM\SYSTEM\CurrentControlSet\Enum\SCSI" ^| Find /I "Disk"'
) Do (
Echo "%%a" | Find /I "%ExcludedDeviceID%" 1>Nul || (
For /F "Tokens=* Delims=" %%b In ('REG.exe Query "%%~a"') Do (
Reg.exe ADD "%%b\Device Parameters\Disk" /V "UserWriteCacheSetting" /T "REG_DWORD" /D "0x00000000" /F 1>NUL
)
)
)
)
:: IDE Hard Drive
REG.exe Query "HKLM\SYSTEM\CurrentControlSet\Enum\IDE\%ExcludedDeviceID%" 1>NUL 2>&1 && (
For /F "Tokens=* Delims=" %%a In (
'REG.exe Query "HKLM\SYSTEM\CurrentControlSet\Enum\IDE" ^| Find /I "Disk"'
) Do (
Echo "%%a" | Find /I "%ExcludedDeviceID%" 1>Nul || (
For /F "Tokens=* Delims=" %%b In ('REG.exe Query "%%~a"') Do (
Reg.exe ADD "%%b\Device Parameters\Disk" /V "UserWriteCacheSetting" /T "REG_DWORD" /D "0x00000000" /F 1>NUL
)
)
)
)

Saludos

[Regshot]

Hola

Desde hace varios años uso el programa Regshot (pero una versión modificada y mejorada para x64 en Ruso de la que se conoce poco), y ...bueno, al darle al botón "comparar" en el programa, este se minimiza y lanza un reporte en una molesta ventana de Internet Explorer (no del navegador por defecto, sino específicamente del IE), además lanza el mismo reporte en el Notepad.exe (no en editor por defecto, sinó el Notepad).

Lo que necesito es, saltar la instrucción que hace que el programa se minimice a la barra de tareas, y también saltar la instrucción que hace ejecutar el IE, la del Notepad la quiero dejar como está, pero es que me molesta mucho que me lo quiera mostrar también en el IE y encima se minimice.

EDITO: Se me olvidaba comentar, que el programa no dispone de ninguna opción para customizar esos aspectos, por eso intento hacerlo a lo bruto.

El problema es que intento examinar el exe y el PEid me dice que no tiene una cabecera PE válida asi que no me da ningún dato del exe, lo he intentado con el PE explorer pero este no soporta x64, así que no puedo daros ninguna información al respecto sobre con que lenguaje fue compilado... de lo que estoy seguro es de que no es un ensamblado .NET porque el Reflector no lo reconoce como tal.

Como no tengo el source de este programa (de esta versión en x64, no la del Regshot de Sourceforge) y la web está muerta pues... solo me queda intentar hacerle ingenieria inversa al archivo.

Si alguien tiene tiempo para orientarme sobre el proceso en el OllyDbg x64 2.01 o mejor aun, si alguien tiene tiempo para encontrar y saltar esas dos instrucciones que me interesan (considero que con los datos proporcionados debe ser cuestion de minutos para un experto)... cualquier info para avanzar, se lo agradeceria mucho.

EDITO 2: El olly no me abre el exe, asi que me recomendaron buscar (al menos para tenerlas localizadas) las instrucciones con el CheatEngine, pero no me vi capaz de encontrar nada, así que luego estuve buscando algún debugger para x64, encontré esto y esto otro pero se distribuyen solo el código fuente, hay que compilarlo y no tengo lo necesario para hacerlo.

EDITO 3: Ahora me estoy descargando por torrent el IDa Pro y el W32DASM x64 (que pesa lo suyo) que se supone que soportan un binario x64... ya veremos si consigo algo con esto.

EDITO 4: Con el IDA Pro encuentro la instrucción del IE pero ninguno de los que hemos estado investigando el modo de cambiar el opcode o noopear hemos conseguido hacerlo xD, es un programa complejo, en fin, que no se diga que no lo he intentado.

El EXE: http://www.mediafire.com/download/12ac3ep47w24mhs/Regshot.rar

Saludos!

[Windows 7 Manager]

Hay muchísimas (demasiadas) caracteristicas de Windows tanto visuales como "invisibles" que ralentizan el sistema y en la mayoría de los casos son complementos completamente innecesarios, pero sería una locura ponerse aquí a explicarte cada uno de estas caracteristicas, los detalles de su funcionalidad, y los pros (o contras) si lo habilitas o deshabilitas, nadie tiene tiempo para eso, así que seré breve.

Examina la lista de los servicios de Windows que se ejecutan en segundo plano y lee acerca de lo que hace cada uno (si lo quieres hacer bien primero debes tomarte tiempo para investigar), entre los cuales cabe destacar (para deshabilitarlos):
· Temas (Aero)
· Todos los servicios de Windows Media player
· Todo lo referente conexiones remotas: registro remoto, telnet, escritorio remoto, servidor, examinador de equipos, cliente web, etc.
· Cola de impresión, si no tienes impresora.
· Firewall de Windows y Windows Defender.
· Centro de seguridad.

Luego existen cientos de "trucos" que son mejoras aplicables al sistema, muchos "trucos" tienen que ver con simples cambios de customización, pero hay otros muchos cambios para optimizar el rendimiento general del sistema.
Existen decenas de páginas que recopilan todos estos "trucos" catalogados en diferentes temáticas, y puedes examinar lo que hace cada uno y si te conviene o no aplicar el cambio...
· http://www.askvg.com/category/windows-seven/

Y también hay herramientas que te ayudan a aplicar estos "trucos" de una manera más sencilla, como por ejemplo Windows 7 Manager y Ultimate Windows Tweaker

Saludos.

[Control.ControlCollection Class]

1. ¿Que tipo de proyecto es?.





Un control debe añadirse a un container que pueda albergar controles, por ende no se puede hacer sin una "ventana", Control.ControlCollection Class, al menos, hasta donde yo se.

Puedes heredar la Class ToolStripControlHost, para mostrar un popup con un control, pero es limitada y tiene sus inconvenientes, no te servirá de mucho.

O puedes heredar un Form, añadirle los controles y hacer el form "transparente".





Te he escrito un ejemplo completo, para un proyecto de tipo WindowsForms, pero no te acostumbres.
PD: Lo escribí en VB.NET, te servirá para orientarte y puedes traducir el código usando cualquier conversor online: http://converter.telerik.com/

Por un lado, la Class que hereda un System.Windows.Form, la cual se puede mejorar, pero es solo un ejemplo (nótese el color Fuchsia, quizas quieras cambiarlo):

EDITO: Funcionalidad extendida para mover los controles al mantener el botón del ratón.

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 03-31-2014
' ***********************************************************************
' <copyright file="ControlsForm.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' *************************************************************************

''' <summary>
''' Class ControlsForm.
''' Invisible Form designed to host Controls.
''' </summary>
Public Class ControlsForm : Inherits Form

#Region " Variables & Properties "

   ''' <summary>
   ''' Indicates whether the Form and it's controls are moveable.
   ''' </summary>
   Private _Moveable As Boolean = False

   ''' <summary>
   ''' Indicates whether the moveable events are handled
   ''' </summary>
   Private MoveableIsHandled As Boolean = False

   ''' <summary>
   ''' Boolean Flag that indicates whether the Form should be moved.
   ''' </summary>
   Private MoveFormFlag As Boolean = False

   ''' <summary>
   ''' Indicates the position where to move the form.
   ''' </summary>
   Private MoveFormPosition As Point = Nothing

   ''' <summary>
   ''' Gets or sets a value indicating whether this <see cref="ControlsForm"/> and it's controls are movable.
   ''' </summary>
   ''' <value><c>true</c> if controls are movable; otherwise, <c>false</c>.</value>
   Public Property Moveable As Boolean

       Get
           Return Me._Moveable
       End Get

       Set(ByVal value As Boolean)

           Me._Moveable = value

           Dim Pan As Panel =
             (From p As Panel In MyBase.Controls.OfType(Of Panel)()
              Where p.Tag = Me.Handle).First

           Select Case value

               Case True ' Add Moveable Events to EventHandler.

                   If Not Me.MoveableIsHandled Then ' If not Moveable handlers are already handled then...
                       For Each c As Control In Pan.Controls
                           AddHandler c.MouseDown, AddressOf MouseDown
                           AddHandler c.MouseUp, AddressOf MouseUp
                           AddHandler c.MouseMove, AddressOf MouseMove
                       Next c
                       Me.MoveableIsHandled = True
                   End If

               Case False ' Remove Moveable Events from EventHandler.

                   If Me.MoveableIsHandled Then ' If Moveable handlers are already handled then...
                       For Each c As Control In Pan.Controls
                           RemoveHandler c.MouseDown, AddressOf MouseDown
                           RemoveHandler c.MouseUp, AddressOf MouseUp
                           RemoveHandler c.MouseMove, AddressOf MouseMove
                       Next c
                       Me.MoveableIsHandled = False
                   End If

           End Select

       End Set

   End Property

#End Region

#Region " Constructors "

   ''' <summary>
   ''' Prevents a default instance of the <see cref="ControlsForm"/> class from being created.
   ''' </summary>
   Private Sub New()
   End Sub

   ''' <summary>
   ''' Initializes a new instance of the <see cref="ControlsForm" /> class.
   ''' Constructor Overload to display a collection of controls.
   ''' </summary>
   ''' <param name="Controls">The control array to display in the Formulary.</param>
   ''' <param name="FormLocation">The default Formulary location.</param>
   Public Sub New(ByVal [Controls] As Control(),
                  Optional ByVal FormLocation As Point = Nothing)

       ' InitializeComponent call.
       MyBase.SuspendLayout()
       MyBase.Name = "ControlsForm"

       ' Adjust Form size.
       MyBase.ClientSize = New Size(0, 0)
       MyBase.AutoSize = True
       MyBase.AutoSizeMode = AutoSizeMode.GrowAndShrink

       ' Set the Transparency properties.
       MyBase.AllowTransparency = True
       MyBase.BackColor = Color.Fuchsia
       MyBase.TransparencyKey = Color.Fuchsia
       MyBase.DoubleBuffered = False

       ' Is not necessary to display borders, icon, and taskbar, hide them.
       MyBase.FormBorderStyle = BorderStyle.None
       MyBase.ShowIcon = False
       MyBase.ShowInTaskbar = False

       ' Instance a Panel to add our controls.
       Dim Pan As New Panel

       With Pan

           ' Suspend the Panel layout.
           Pan.SuspendLayout()

           ' Set the Panel properties.
           .Name = "ControlsForm Panel"
           .Tag = Me.Handle
           .AutoSize = True
           .AutoSizeMode = AutoSizeMode.GrowAndShrink
           .BorderStyle = BorderStyle.None
           .Dock = DockStyle.Fill

       End With

       ' Add our controls inside the Panel.
       Pan.Controls.AddRange(Controls)

       ' Add the Panel inside the Form.
       MyBase.Controls.Add(Pan)

       ' If custom Form location is set then...
       If Not FormLocation.Equals(Nothing) Then

           ' Set the StartPosition to manual relocation.
           MyBase.StartPosition = FormStartPosition.Manual

           ' Relocate the form.
           MyBase.Location = FormLocation

       End If

       ' Resume layouts.
       Pan.ResumeLayout(False)
       MyBase.ResumeLayout(False)

   End Sub

   ''' <summary>
   ''' Initializes a new instance of the <see cref="ControlsForm" /> class.
   ''' Constructor Overload to display a single control.
   ''' </summary>
   ''' <param name="Control">The control to display in the Formulary.</param>
   ''' <param name="FormLocation">The default Formulary location.</param>
   Public Sub New(ByVal [Control] As Control,
                  Optional ByVal FormLocation As Point = Nothing)

       Me.New({[Control]}, FormLocation)

   End Sub

#End Region

#Region " Event Handlers "

   ''' <summary>
   ''' Handles the MouseDown event of the Form and it's controls.
   ''' </summary>
   ''' <param name="sender">The source of the event.</param>
   ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
   Private Shadows Sub MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) _
   Handles MyBase.MouseDown

       If e.Button = MouseButtons.Left Then
           Me.MoveFormFlag = True
           Me.Cursor = Cursors.NoMove2D
           Me.MoveFormPosition = e.Location
       End If

   End Sub

   ''' <summary>
   ''' Handles the MouseMove event of the Form and it's controls.
   ''' </summary>
   ''' <param name="sender">The source of the event.</param>
   ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
   Private Shadows Sub MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
   Handles MyBase.MouseMove

       If Me.MoveFormFlag Then
           Me.Location += (e.Location - Me.MoveFormPosition)
       End If

   End Sub

   ''' <summary>
   ''' Handles the MouseUp event of the Form and it's controls.
   ''' </summary>
   ''' <param name="sender">The source of the event.</param>
   ''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
   Private Shadows Sub MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) _
   Handles MyBase.MouseUp

       If e.Button = MouseButtons.Left Then
           Me.MoveFormFlag = False
           Me.Cursor = Cursors.Default
       End If

   End Sub

#End Region

End Class

Por otro lado, la Class de ejemplo de uso:

EDITO: Class actualizada.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

#Region " Objects "

    ' Our inherited Form.
    Protected WithEvents frm As ControlsForm = Nothing

    ' Our controls.
    Friend WithEvents tb1 As New TextBox With {.Text = "Elektro-Test 1"}
    Friend WithEvents tb2 As New TextBox With {.Text = "Elektro-Test 2"}
    Friend WithEvents cb1 As New CheckBox With {.Text = "Elektro-Test 3", .FlatStyle = FlatStyle.Flat}

#End Region

#Region " Constructor "

    ''' <summary>
    ''' Initializes a new instance of the <see cref="Form1"/> class.
    ''' </summary>
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Center this form into the screen.
        Me.StartPosition = FormStartPosition.CenterScreen

    End Sub

#End Region

#Region " Main Button Event Handlers "

    ''' <summary>
    ''' Handles the Click event of the ButtonMain control.
    ''' </summary>
    Private Sub ButtonMain_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles ButtonMain.Click

        ' Set the Control locations.
        tb1.Location = New Point(5, 5)
        tb2.Location = New Point(tb1.Location.X, tb1.Location.Y + CInt(tb1.Height * 1.5R))
        cb1.Location = New Point(tb2.Location.X, tb2.Location.Y + CInt(tb2.Height * 1.5R))

        ' Instance the Form that will store our controls.
        If frm Is Nothing Then
            frm = New ControlsForm({tb1, tb2, cb1},
                       New Point(Me.Bounds.Right, Me.Bounds.Top))
        End If

        With frm
            .Moveable = True ' Set the Controls moveable.
            .Show() ' Display the invisible Form.
        End With

    End Sub

#End Region

#Region " Textbox's Event Handlers "

    ''' <summary>
    ''' Handles the TextChanged event of the TextBox controls.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Friend Sub tb_textchanged(ByVal sender As Object, ByVal e As KeyPressEventArgs) _
    Handles tb1.KeyPress, tb2.KeyPress, cb1.KeyPress

        ' Just a crazy message-box to interacts with the raised event.
        MessageBox.Show("No me da la gana que cambies el texto de mis preciosos controles, asi que voy a hacerlos desaparecer!",
                        "Elektro Is Angry '¬¬",
                        MessageBoxButtons.OK, MessageBoxIcon.Stop)

        e.Handled = True

        ' Searchs the ControlsForm
        Dim f As Form = sender.FindForm

        ' ...And close it
        f.Hide()
        ' f.Close()
        ' f.Dispose()

    End Sub

#End Region

End Class

...Que produce este resultado, donde lo de la derecha son 3 textboxes en el interior del Form "transparente":



Saludos