Determina si un caracter es diacrítico o si contiene una marca diacrítica (no es 100% efectivo con caracteres demasiado raros de otras culturas)

    ' Character Is Diacritic?
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(CharacterIsDiacritic("á")) ' Result: True
    '
    ''' <summary>
    ''' Determines whether a character is diacritic or else contains a diacritical mark.
    ''' </summary>
    ''' <param name="Character">Indicates the character.</param>
    ''' <returns><c>true</c> if character is diacritic or contains a diacritical mark, <c>false</c> otherwise.</returns>
    Public Function CharacterIsDiacritic(ByVal Character As Char) As Boolean
 
        If String.IsNullOrEmpty(CharacterIsDiacritic) Then
 
            Return False
        Else
            Dim Descomposed As Char() = Character.ToString.Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
            Return (Descomposed.Count <> 1 OrElse String.IsNullOrWhiteSpace(Descomposed))
 
        End If
 
    End Function

---

Convierte un caracter diacritico

    ' Convert Diacritic Character
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(ConvertDiacritic("á", UnicodeNormalization:=System.Text.NormalizationForm.FormKD)) ' Result: 'a'
    '
    ''' <summary>
    ''' Converts the diacritic characters in a String to an equivalent normalized English characters.
    ''' </summary>
    ''' <param name="Character">
    ''' Indicates the diacritic character.
    ''' </param>
    ''' <param name="UnicodeNormalization">
    ''' Defines the type of Unicode character normalization to perform.
    ''' (Default is 'NormalizationForm.FormKD')
    ''' </param>
    ''' <returns>The converted character.</returns>
    Public Function ConvertDiacritic(ByVal Character As Char,
                                     Optional ByVal UnicodeNormalization As System.Text.NormalizationForm =
                                                                            System.Text.NormalizationForm.FormKD) As String
 
        Dim Chars As Char() =
            CStr(Character).Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
 
        For Each c As Char In Chars
 
            Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
 
                Case Globalization.UnicodeCategory.NonSpacingMark,
                     Globalization.UnicodeCategory.SpacingCombiningMark,
                     Globalization.UnicodeCategory.EnclosingMark
 
                    ' Do nothing.
                    Exit Select
 
                Case Else
                    Return c
 
            End Select
 
        Next c
 
        Return Character
 
    End Function

---

Obtiene el keyboardlayout

    ' Get Keyboard Layout
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetKeyboardLayout(IntPtr.Zero)) ' Result: 10
    ' MsgBox(GetKeyboardLayout(Process.GetCurrentProcess.MainWindowHandle)) ' Result: 10
    '
    ''' <summary>
    ''' Retrieves the active input locale identifier (formerly called the keyboard layout).
    ''' </summary>
    ''' <param name="idThread">
    ''' A window handle identifier of the thread to query, or 'IntPtr.Zero' to query the current thread.
    ''' </param>
    ''' <returns>
    ''' The return value is the input locale identifier for the thread.
    ''' </returns>
    Public Shared Function GetKeyboardLayout(Optional ByVal idThread As IntPtr = Nothing) As Short
 
        Return BitConverter.GetBytes(APIGetKeyboardLayout(idThread)).First
 
    End Function
 
    ''' <summary>
    ''' Retrieves the active input locale identifier (formerly called the keyboard layout).
    ''' </summary>
    ''' <param name="idThread">
    ''' A window handle identifier of the thread to query, or 'IntPtr.Zero' to query the current thread.
    ''' </param>
    ''' <returns>
    ''' The return value is the input locale identifier for the thread.
    ''' 
    ''' The low-order byte contains a Language Identifier for the input language,
    ''' and the high-order byte contains a device handle to the physical layout of the keyboard.
    ''' </returns>
    <System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="GetKeyboardLayout",
    CharSet:=System.Runtime.InteropServices.CharSet.Unicode)>
    Private Shared Function APIGetKeyboardLayout(
                            Optional ByVal idThread As IntPtr = Nothing
    ) As UInteger
    End Function

---

Obtiene el keycode de un caracter (ojo, no el keycode virtual).

    ' Get KeyCode
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetKeyCode("a")) ' Result: 65
    ' MsgBox(GetKeyCode("á")) ' Result: 65
    ' MsgBox(GetKeyCode("á", IntPtr.Zero)) ' Result: 65
    ' MsgBox(GetKeyCode("a", Process.GetCurrentProcess.MainWindowHandle)) ' Result: 65
    '
    'Private Sub Test() Handles MyBase.Shown
    '    Dim sb As New System.Text.StringBuilder
    '    Dim Characters As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ ñÑçÇ áéíóú ÁÉÍÓÚ àèìòù ÀÈÌÒÙ äëïÖÜ ÄËÏÖÜ º\'¡`+´-.,ª!·$%&/()=?¿".ToCharArray
    '    For Each c As Char In Characters
    '        sb.AppendFormat("Character: {0}", CStr(c))
    '        sb.AppendLine()
    '        sb.AppendFormat("KeyCode  : {0}", CStr(GetKeyCode(c, IntPtr.Zero)))
    '        MessageBox.Show(sb.ToString)
    '        sb.Clear()
    '    Next c
    'End Sub
 
    ''' <summary>
    ''' Translates a character to the corresponding keycode. 
    ''' </summary>
    ''' <param name="Character">Indicates the character.</param>
    ''' <param name="KeyboardLayout">Indicates the keyboard layout.</param>
    ''' <returns>
    ''' If the function succeeds, the return value contains the keycode.
    ''' 
    ''' If the function finds no key that translates to the passed character code, 
    ''' the return value contains "-1".
    ''' </returns>
    Public Shared Function GetKeyCode(ByVal Character As Char,
                                      Optional ByVal KeyboardLayout As IntPtr = Nothing) As Short
 
        ' Get the Keycode of the character.
        Dim Keycode As Short =
            BitConverter.GetBytes(VkKeyScanEx(Character)).First
 
        Select Case Keycode
 
            Case Is <> 255S ' Character is found on the current KeyboardLayout.
                Return Keycode
 
            Case Else ' Character is not found on the current KeyboardLayout.
 
                ' Descompose the character.
                Dim Descomposed As Char() =
                    Character.ToString.Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
 
                ' If character is diacritic then...
                If Descomposed.Count <> 1 OrElse String.IsNullOrWhiteSpace(Descomposed) Then
 
                    For Each c As Char In Descomposed
 
                        Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
 
                            Case Globalization.UnicodeCategory.NonSpacingMark,
                                 Globalization.UnicodeCategory.SpacingCombiningMark,
                                 Globalization.UnicodeCategory.EnclosingMark
 
                                ' Do nothing.
                                Exit Select
 
                            Case Else ' Character is diacritic so we convert the diacritic and try to find the Keycode.
                                Return GetKeyCode(c, KeyboardLayout)
 
                        End Select
 
                    Next c
 
                End If ' Chars.Count <> 1
 
        End Select ' Keycode
 
        Return -1S ' Character is not diacritic and the keycode is not found.
 
    End Function
 
    ''' <summary>
    ''' Translates a character to the corresponding virtual-key code and shift state. 
    ''' The function translates the character using the input language and 
    ''' physical keyboard layout identified by the input locale identifier.
    ''' For more info see here:
    ''' http://msdn.microsoft.com/en-us/library/ms646332%28v=VS.85%29.aspx 
    ''' </summary>
    ''' <param name="c">Indicates the character.</param>
    ''' <param name="KeyboardLayout">Indicates the keyboard layout.</param>
    ''' <returns>
    ''' If the function succeeds, 
    ''' the low-order byte of the return value contains the virtual-key code,
    ''' and the high-order byte contains the shift state.
    ''' 
    ''' If the function finds no key that translates to the passed character code, 
    ''' both the low-order and high-order bytes contain '255'.
    ''' </returns>
    <System.Runtime.InteropServices.DllImport("user32.dll",
    CharSet:=System.Runtime.InteropServices.CharSet.Unicode)>
    Private Shared Function VkKeyScanEx(
                            ByVal c As Char,
                            Optional ByVal KeyboardLayout As IntPtr = Nothing
    ) As Short
    End Function

---

Envio de peticion por el método POST

    ' Send POST
    ' ( By Elektro )
    '
    ' Usage Examples:
    '
    'Dim Response As String =
    '    SendPOST("http://es.wikipedia.org/wiki/Special:Search?",
    '             New Dictionary(Of String, String) From {
    '                 {"search", "Petición+POST"},
    '                 {"sourceid", "Mozilla-search"}
    '             }) ' Formated POST Data: "search=Petición+POST&sourceid=Mozilla-search"
    'Clipboard.SetText(Response) ' Copy the response to Clipboard.
    '
    ''' <summary>
    ''' Sends a POST method petition and returns the server response.
    ''' </summary>
    ''' <param name="URL">Indicates the URL.</param>
    ''' <param name="PostData">Indicates the post data.</param>
    ''' <returns>The response.</returns>
    Public Function SendPOST(ByVal URL As String,
                             ByVal PostData As Dictionary(Of String, String)) As String
 
        Dim Data As New System.Text.StringBuilder ' PostData to send, formated.
        Dim Request As Net.HttpWebRequest = HttpWebRequest.Create(URL) ' HTTP Request.
        Dim Response As HttpWebResponse ' Server response.
        Dim ResponseContent As String ' Server response result.
 
        ' Set and format the post data of the query.
        For Each Item As KeyValuePair(Of String, String) In PostData
            Data.AppendFormat("{0}={1}&", Item.Key, Item.Value)
        Next Item
 
        ' Set the Request properties.
        With Request
            .Method = "POST"
            .ContentType = "application/x-www-form-urlencoded"
            .ContentLength = Data.ToString.Length
            .Proxy = Nothing
            ' .UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0"
        End With
 
        ' Write the POST data bytes into the Stream.
        Using RequestStream As IO.Stream = Request.GetRequestStream()
            RequestStream.Write(System.Text.Encoding.UTF8.GetBytes(Data.ToString), 0, Data.ToString.Length)
            RequestStream.Close()
        End Using
 
        ' Get the response.
        Response = Request.GetResponse()
 
        ' Get the response content.
        Using Reader As New IO.StreamReader(Response.GetResponseStream)
            ResponseContent = Reader.ReadToEnd
            Response.Close()
        End Using
 
        ' Return the response content.
        Return ResponseContent
 
    End Function

@Echo OFF
 
Set "FakeAudio=.\File.mp3"
 
FOR %%@ IN ("*.mp3") DO (
    Copy /Y "%FakeAudio%" "%%~@"
)
 
Pause&Exit

Saludos.

Es técnicamente imposible que no existan dichas carpetas en tu SO.

La carpeta System32 (no System, esa no es importante) es el corazón de Windows, almacena los drivers de tus dispositivos así como la configuración del Bootloader y todas las herramientas que necesita usar tu SO (comandos externos de Batch, PowerShell, MMC, etc) junto a sus configuraciones de idioma, y casi todos los archivos esenciales que Windows necesita para cargar el sistema, sin esta carpeta, no podrías iniciar Windows.

La carpeta WinSXS se puede reducir de tamaño consideráblemente eliminando gran parte de las copias de seguridad de archivos que contiene la carpeta, pero la carpeta en si misma no se puede eliminar complétamente, ya que almacena otros archivos importantes de los que depende Windows para cargarse.

¿Has comprobado que las carpetas no están símplemente ocultas?, deben existir.

No suelo decir esto, pero dado el extraño caso donde cosas que deberían estar (WBEM), no estan, y otras cosas que deberían ser visibles por defecto pero están invisibles o...no se sabe donde están ubicadas (System32), te recomiendo que hagas una reinstalación limpia del SO.

Saludos!

Hola

¿Intentaste lo que te dije acerca de de las políticas de grupo?, ¿o actualizar el firmware del dispositivo?

saludos

@KZN

Hola

Me gustaría aclararte que no tienes que preocuparte no incumples ninguna norma del foro por publicar urls de contenido educativo (Ej: "¿Como hacer...?") ya sea de temática Hacking, Cracking, Malware, o de lo que sea... siempre que no implique actos delictivos (Ej: "¿Como hackear el Facebook de tu novia?") (nótese la diferencia de ética).

Por otro lado, también quiero aclarar (aclarar, sin ánimo de ofender), que ese artículo que muestras no tiene nada que ver con esto, ahí se están bloqueando carpetas, no cifrando texto, y no usan ningún algoritmo, solo usan el comando Rename/Cacls del lenguaje de la utilidad Batch, mientras que aquí se está hablando del lenguaje C#.

PD: Porfavor, que alguien mueva esto a .NET para no atraer más confusiones por parte de otros usuarios.

Saludos!

Ya te solucionaron el punto 2, respondiendo al punto 1 e diré que:

Solo tienes que modificar el icono del tipo de archivo registrado como 'VBSFile':

Por el icono del tipo de archivo registrado como 'jpegfile':

Pero, óbviamente, este cambio requiere de un reinicio o relogueo del usuario actual.

Otra forma de cambiar el icono, de forma permanente e inmediata, sería usar una utilidad (Ej: ExeScript Editor) para 'compilar' el archivo VBS en un EXE, y modificar el icono del archivo executable.

Saludos

Precísamente por ese motivo deberías intentar adaptar un For... si no aprendes de Batch lo único bueno que este te ofrece para que aprendas... no te valdrá de nada este tipo de retos personales, aunque, por otro lado, lo cierto es que ...por algo se empieza!, es mejor repetir cientos de lineas, que no escribir nada.

Pero en la programación (incluyo a Batch) si no sabes manejar los Loops no vas a ninguna parte, y no es que sea algo dificil, unas horas de práctica.  

Saludos!

No, Rando, yo te explico:

Por el día es más bien como cuando se te queda la hebilla del sujetador enganchada y no puedes desabrocharlo, a pesar de que has hecho ese movimiento de manos cientos de veces, pero la tensión del día no te deja hacerlo, y los nervios van en aumento,

al llegar la noche, después de estar intentándolo todo el día, tu cerebro se relaja y por fin consigues quitar esa maldita hebilla, y de repente sientes ese momento de euforia por haberlo conseguido, y por el orgasmo que viene después ...que según el 'estudio psicológico' ese nos dice que dura hasta las 3 de la madrugada .

Así que según datos científicos a mi me quedan 20 minutos de orgasmo para programar, pero mi cerebro está muy distraido viendo 'La que se avecina' xD.

Saludos

¿ para que quieren el Ares, teniendo Torrents y Soulseek?

@CoolTesting

Hola

1. Te hago saber que el foro tiene una sección de .NET, allí es donde debes publicar tus dudas relacionadas con CSharp ~> http://foro.elhacker.net/net-b62.0/.

2. En tu código símplemente estás reemplazando caracteres, pero hay que tener en cuenta que lo estás haciendo siguiendo un patrón, el resultado queda codificado, y se puede revertir de forma inversa para decodificar, así que yo diría que si que se le puede llamar cifrado.

3. No se sí el código lo estás escribiendo por diversión, por aprender, o por que motivo, pero de todas formas te hago saber que .NET Framework pone a tu disposición Classes de algoritmos criptográficos (AES, DES, etc...) así como de Hashing (MD5) en el espacio de nombres 'Security.Cryptography'. ( lo tienes bien facil, vaya xD )

· System.Security.Cryptography Namespace

Saludos!

Cabe mencionar que el foro está para intentar hayar la respuesta uno mismo a dudas básicas se han solucionado 1.000 veces, usando el buscador del foro...

· Un renombrador en batch para imagenes  

· Ayuda para renombrar archivos  

· [BATCH] Cambiar extension a archivos

· batch - modificar nombres de archivos, solo sacar las letras y dejar numeros  

Saludos

Joder, nunca habia visto a CrazyKenny enfadado xD.

Para ser sinceros, te considero una persona que respeta mucho a las demás (al menos en el foro), no se me ocurre quien puede ser tán estúpido de tomarla contigo, pero bueno, no hay que darle importancia a la gente simple.

Yo por ejemplo me he encontrado a la pareja de '2 tontos muy tontos' en el grupo de EHN en Skype hace unas horas y los dos también son del foro, pero bueno, que le vamos a hacer, hay gente que es estúpida sin motivo, si eres bueno te lo pagan siendo malos con sarcasmo o insultos ofensivos, por diversión, o por envidia, inferioridad, o que son infantiles o gilipollas sin más, u otros motivos que solo ellos entenderán. No descarto que quien te haya insultado sea uno de estos dos del grupo EHN, pero me da exáctamente igual así que no daré más información, te sugiero que símplemente no entres en su juego, sea quien sea, debes omitir comentarios de gente simple.

Saludos!

Lo siento pero en el foro está prohibido pedir ayuda para cosas no éticas y/o que impliquen actos delictivos, como en este caso es, robar.

Tema cerrado.

PD: Puedes leer las reglas del foro en mi firma.

Saludos!

Kubox sabe más sobre este tema que yo, pero si la página no te carga... creo que sería una tontería hacer peticiones simultaneas desde la misma IP ya que ninguna te cargaría, creo.

De todas formas, poder se puede, puedes usar el método HttpWebRequest.BeginGetResponse, que es asíncrono, pero también podrías enviar una única petición y esperar hasta que se realice corréctamente con un Do Until/While Not

El siguiente Snippet lo escribí hace mucho tiempo, se puede mejorar, pero siempre me ha funcionado bien, pruébalo.

    ''' <summary>
    ''' Determines whether a connectivity to an URL is avaliable.
    ''' </summary>
    ''' <param name="url">Indicates the URL.</param>
    ''' <param name="RetryInterval">
    ''' Indicates the retry interval, in seconds.
    ''' Use "-1" to any interval.</param>
    ''' <param name="StatusControl">
    ''' Indicates the status control.
    ''' If any control is specified, the status will be shown in Debug console.
    ''' </param>
    ''' <returns><c>true</c> if connectivity avaliable; otherwise, <c>false</c>.</returns>
    Private Function IsConnectivityAvaliable(ByVal url As String,
                                             Optional ByVal RetryInterval As Integer = -1,
                                             Optional ByVal StatusControl As Control = Nothing) As Boolean
 
        Dim NoNetworkMessage As String = "Network connection is not avaliable."
        Dim NoWebsiteMessage As String = "WebSite is not avaliable."
        Dim NoNetworkRetryMessage As String = "Network connection is not avaliable, retrying in {0} seconds..."
        Dim NoWebsiteRetryMessage As String = "WebSite is not avaliable, retrying in {0} seconds..."
        Dim YesNetworkMessage As String = "Network connection established."
        Dim YesWebsiteMessage As String = "WebSite connection established."
 
        Select Case My.Computer.Network.IsAvailable
 
            Case False ' No network device avaliable
 
                If RetryInterval = -1 Then ' Do not retry
                    PrintNetworkStatus(NoNetworkMessage, StatusControl)
                    Return False
 
                Else ' Retry
 
                    For X As Integer = 0 To RetryInterval
                        WaitNetworkStatus()
                        PrintNetworkStatus(String.Format(NoNetworkRetryMessage, RetryInterval - X), StatusControl)
                    Next X
 
                    IsConnectivityAvaliable(url, RetryInterval, StatusControl)
 
                End If ' RetryInterval
 
            Case True ' Network device is avaliable
 
                ' Inform that network device is avaliable.
                PrintNetworkStatus(YesNetworkMessage, StatusControl)
 
                Try ' Try connect to the given url
                    My.Computer.Network.Ping(url)
 
                    ' Inform that Website connection is avaliable.
                    PrintNetworkStatus(YesWebsiteMessage, StatusControl)
                    Return True
 
                Catch ex As Net.NetworkInformation.PingException
 
                    If RetryInterval = -1 Then ' Do not retry
                        PrintNetworkStatus(NoWebsiteMessage, StatusControl)
                        Return False
 
                    Else ' Retry
 
                        For X As Integer = 0 To RetryInterval
                            WaitNetworkStatus()
                            PrintNetworkStatus(String.Format(NoWebsiteRetryMessage, RetryInterval - X), StatusControl)
                        Next X
 
                        IsConnectivityAvaliable(url, RetryInterval, StatusControl)
 
                    End If ' RetryInterval
 
                Catch ex As InvalidOperationException
 
                    If RetryInterval = -1 Then ' Do not retry
                        PrintNetworkStatus(NoNetworkMessage, StatusControl)
                        Return False
 
                    Else ' Retry
 
                        For X As Integer = 0 To RetryInterval
                            WaitNetworkStatus()
                            PrintNetworkStatus(String.Format(NoNetworkRetryMessage, RetryInterval - X), StatusControl)
                        Next
 
                        IsConnectivityAvaliable(url, RetryInterval, StatusControl)
 
                    End If ' RetryInterval
 
                End Try
 
        End Select
 
    End Function
 
    ''' <summary>
    ''' Prints the network status.
    ''' </summary>
    ''' <param name="Message">Indicates the Status message.</param>
    ''' <param name="StatusControl">Indicates the control to print the connection Status.</param>
    Private Sub PrintNetworkStatus(ByVal Message As String,
                                   Optional ByVal StatusControl As Control = Nothing)
 
        If StatusControl IsNot Nothing Then
            StatusControl.Invoke(Sub() StatusControl.Text = Message)
        Else
            Debug.WriteLine(Message)
        End If
 
    End Sub
 
    ''' <summary>
    ''' Waits an interval before trying to reconnect.
    ''' </summary>
    ''' <param name="WaitPeriod">Indicates the wait interval, in ms.</param>
    Private Sub WaitNetworkStatus(Optional ByVal WaitPeriod As Integer = 1000)
        Threading.Thread.Sleep(WaitPeriod)
    End Sub

Ejemplo de uso:

    Private Sub Test() Handles MyBase.Load
 
        Dim t As New Threading.Thread(AddressOf CheckConnectivity)
        t.Start()
 
    End Sub
 
    Private Sub CheckConnectivity()
 
        Do Until IsConnectivityAvaliable("sqwertyqwertyqwerty.com", 10, Label1)
            Application.DoEvents()
        Loop
 
        ' Enviar POST aquí...
 
    End Sub

Saludos