elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 [748] 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 ... 1253
7471  Programación / Scripting / Re: No puedo iniciar un bat desde otro batch windows 7 que ascooo en: 12 Marzo 2014, 00:10 am
Hola

No es aconsejable utilizar el comando start de esa manera.

La mejor manera de aprender es dándote tu mismo cuenta del porqué.

Escribe en consola:

Código:
Start /?

¿Que ves?

Cita de: CMD
Código:
START ["título"] [/D ruta]

Entonces, ¿que le falta a tu comando?, el parámetro donde debes especificar el "título".

Código:
start "GTA RIP" "D:\GTAndroidRipeado\com.rockstargames.gtasa\main.2.com.rockstargames.gtasa\audio\n\Bank_022\sss.bat"

Saludos
7472  Programación / Python / Re: [Python] Traductor Ingles-Español en: 12 Marzo 2014, 00:07 am
A mi la ausencia de una API gratis no me impide seguir utilizando GoogleTranslate enviando peticiones por web, ¿te lo has planteado?, es reálmente sencillo, aunque, claro, más incómodo, y el grado de eficiencia resultante sería la eficacia que tu tengas al momento de parsear la respuesta.

Ahora, en Python no tengo ni conozco ningún código para esto, pero si te sirviera en VB.NET, solo dímelo.

PD: Aquí puedes encontrar muchos ejemplos en Python.

Saludos!
7473  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Compartan aquí sus snippets) en: 11 Marzo 2014, 21:08 pm
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)

Código
  1.    ' Character Is Diacritic?
  2.    ' ( By Elektro )
  3.    '
  4.    ' Usage Examples:
  5.    ' MsgBox(CharacterIsDiacritic("á")) ' Result: True
  6.    '
  7.    ''' <summary>
  8.    ''' Determines whether a character is diacritic or else contains a diacritical mark.
  9.    ''' </summary>
  10.    ''' <param name="Character">Indicates the character.</param>
  11.    ''' <returns><c>true</c> if character is diacritic or contains a diacritical mark, <c>false</c> otherwise.</returns>
  12.    Public Function CharacterIsDiacritic(ByVal Character As Char) As Boolean
  13.  
  14.        If String.IsNullOrEmpty(CharacterIsDiacritic) Then
  15.  
  16.            Return False
  17.        Else
  18.            Dim Descomposed As Char() = Character.ToString.Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
  19.            Return (Descomposed.Count <> 1 OrElse String.IsNullOrWhiteSpace(Descomposed))
  20.  
  21.        End If
  22.  
  23.    End Function




Convierte un caracter diacritico

Código
  1.    ' Convert Diacritic Character
  2.    ' ( By Elektro )
  3.    '
  4.    ' Usage Examples:
  5.    ' MsgBox(ConvertDiacritic("á", UnicodeNormalization:=System.Text.NormalizationForm.FormKD)) ' Result: 'a'
  6.    '
  7.    ''' <summary>
  8.    ''' Converts the diacritic characters in a String to an equivalent normalized English characters.
  9.    ''' </summary>
  10.    ''' <param name="Character">
  11.    ''' Indicates the diacritic character.
  12.    ''' </param>
  13.    ''' <param name="UnicodeNormalization">
  14.    ''' Defines the type of Unicode character normalization to perform.
  15.    ''' (Default is 'NormalizationForm.FormKD')
  16.    ''' </param>
  17.    ''' <returns>The converted character.</returns>
  18.    Public Function ConvertDiacritic(ByVal Character As Char,
  19.                                     Optional ByVal UnicodeNormalization As System.Text.NormalizationForm =
  20.                                                                            System.Text.NormalizationForm.FormKD) As String
  21.  
  22.        Dim Chars As Char() =
  23.            CStr(Character).Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
  24.  
  25.        For Each c As Char In Chars
  26.  
  27.            Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
  28.  
  29.                Case Globalization.UnicodeCategory.NonSpacingMark,
  30.                     Globalization.UnicodeCategory.SpacingCombiningMark,
  31.                     Globalization.UnicodeCategory.EnclosingMark
  32.  
  33.                    ' Do nothing.
  34.                    Exit Select
  35.  
  36.                Case Else
  37.                    Return c
  38.  
  39.            End Select
  40.  
  41.        Next c
  42.  
  43.        Return Character
  44.  
  45.    End Function



Obtiene el keyboardlayout

Código
  1.    ' Get Keyboard Layout
  2.    ' ( By Elektro )
  3.    '
  4.    ' Usage Examples:
  5.    ' MsgBox(GetKeyboardLayout(IntPtr.Zero)) ' Result: 10
  6.    ' MsgBox(GetKeyboardLayout(Process.GetCurrentProcess.MainWindowHandle)) ' Result: 10
  7.    '
  8.    ''' <summary>
  9.    ''' Retrieves the active input locale identifier (formerly called the keyboard layout).
  10.    ''' </summary>
  11.    ''' <param name="idThread">
  12.    ''' A window handle identifier of the thread to query, or 'IntPtr.Zero' to query the current thread.
  13.    ''' </param>
  14.    ''' <returns>
  15.    ''' The return value is the input locale identifier for the thread.
  16.    ''' </returns>
  17.    Public Shared Function GetKeyboardLayout(Optional ByVal idThread As IntPtr = Nothing) As Short
  18.  
  19.        Return BitConverter.GetBytes(APIGetKeyboardLayout(idThread)).First
  20.  
  21.    End Function
  22.  
  23.    ''' <summary>
  24.    ''' Retrieves the active input locale identifier (formerly called the keyboard layout).
  25.    ''' </summary>
  26.    ''' <param name="idThread">
  27.    ''' A window handle identifier of the thread to query, or 'IntPtr.Zero' to query the current thread.
  28.    ''' </param>
  29.    ''' <returns>
  30.    ''' The return value is the input locale identifier for the thread.
  31.    '''
  32.    ''' The low-order byte contains a Language Identifier for the input language,
  33.    ''' and the high-order byte contains a device handle to the physical layout of the keyboard.
  34.    ''' </returns>
  35.    <System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="GetKeyboardLayout",
  36.    CharSet:=System.Runtime.InteropServices.CharSet.Unicode)>
  37.    Private Shared Function APIGetKeyboardLayout(
  38.                            Optional ByVal idThread As IntPtr = Nothing
  39.    ) As UInteger
  40.    End Function



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

Código
  1.    ' Get KeyCode
  2.    ' ( By Elektro )
  3.    '
  4.    ' Usage Examples:
  5.    ' MsgBox(GetKeyCode("a")) ' Result: 65
  6.    ' MsgBox(GetKeyCode("á")) ' Result: 65
  7.    ' MsgBox(GetKeyCode("á", IntPtr.Zero)) ' Result: 65
  8.    ' MsgBox(GetKeyCode("a", Process.GetCurrentProcess.MainWindowHandle)) ' Result: 65
  9.    '
  10.    'Private Sub Test() Handles MyBase.Shown
  11.    '    Dim sb As New System.Text.StringBuilder
  12.    '    Dim Characters As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ ñÑçÇ áéíóú ÁÉÍÓÚ àèìòù ÀÈÌÒÙ äëïÖÜ ÄËÏÖÜ º\'¡`+´-.,ª!·$%&/()=?¿".ToCharArray
  13.    '    For Each c As Char In Characters
  14.    '        sb.AppendFormat("Character: {0}", CStr(c))
  15.    '        sb.AppendLine()
  16.    '        sb.AppendFormat("KeyCode  : {0}", CStr(GetKeyCode(c, IntPtr.Zero)))
  17.    '        MessageBox.Show(sb.ToString)
  18.    '        sb.Clear()
  19.    '    Next c
  20.    'End Sub
  21.  
  22.    ''' <summary>
  23.    ''' Translates a character to the corresponding keycode.
  24.    ''' </summary>
  25.    ''' <param name="Character">Indicates the character.</param>
  26.    ''' <param name="KeyboardLayout">Indicates the keyboard layout.</param>
  27.    ''' <returns>
  28.    ''' If the function succeeds, the return value contains the keycode.
  29.    '''
  30.    ''' If the function finds no key that translates to the passed character code,
  31.    ''' the return value contains "-1".
  32.    ''' </returns>
  33.    Public Shared Function GetKeyCode(ByVal Character As Char,
  34.                                      Optional ByVal KeyboardLayout As IntPtr = Nothing) As Short
  35.  
  36.        ' Get the Keycode of the character.
  37.        Dim Keycode As Short =
  38.            BitConverter.GetBytes(VkKeyScanEx(Character)).First
  39.  
  40.        Select Case Keycode
  41.  
  42.            Case Is <> 255S ' Character is found on the current KeyboardLayout.
  43.                Return Keycode
  44.  
  45.            Case Else ' Character is not found on the current KeyboardLayout.
  46.  
  47.                ' Descompose the character.
  48.                Dim Descomposed As Char() =
  49.                    Character.ToString.Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
  50.  
  51.                ' If character is diacritic then...
  52.                If Descomposed.Count <> 1 OrElse String.IsNullOrWhiteSpace(Descomposed) Then
  53.  
  54.                    For Each c As Char In Descomposed
  55.  
  56.                        Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
  57.  
  58.                            Case Globalization.UnicodeCategory.NonSpacingMark,
  59.                                 Globalization.UnicodeCategory.SpacingCombiningMark,
  60.                                 Globalization.UnicodeCategory.EnclosingMark
  61.  
  62.                                ' Do nothing.
  63.                                Exit Select
  64.  
  65.                            Case Else ' Character is diacritic so we convert the diacritic and try to find the Keycode.
  66.                                Return GetKeyCode(c, KeyboardLayout)
  67.  
  68.                        End Select
  69.  
  70.                    Next c
  71.  
  72.                End If ' Chars.Count <> 1
  73.  
  74.        End Select ' Keycode
  75.  
  76.        Return -1S ' Character is not diacritic and the keycode is not found.
  77.  
  78.    End Function
  79.  
  80.    ''' <summary>
  81.    ''' Translates a character to the corresponding virtual-key code and shift state.
  82.    ''' The function translates the character using the input language and
  83.    ''' physical keyboard layout identified by the input locale identifier.
  84.    ''' For more info see here:
  85.    ''' http://msdn.microsoft.com/en-us/library/ms646332%28v=VS.85%29.aspx
  86.    ''' </summary>
  87.    ''' <param name="c">Indicates the character.</param>
  88.    ''' <param name="KeyboardLayout">Indicates the keyboard layout.</param>
  89.    ''' <returns>
  90.    ''' If the function succeeds,
  91.    ''' the low-order byte of the return value contains the virtual-key code,
  92.    ''' and the high-order byte contains the shift state.
  93.    '''
  94.    ''' If the function finds no key that translates to the passed character code,
  95.    ''' both the low-order and high-order bytes contain '255'.
  96.    ''' </returns>
  97.    <System.Runtime.InteropServices.DllImport("user32.dll",
  98.    CharSet:=System.Runtime.InteropServices.CharSet.Unicode)>
  99.    Private Shared Function VkKeyScanEx(
  100.                            ByVal c As Char,
  101.                            Optional ByVal KeyboardLayout As IntPtr = Nothing
  102.    ) As Short
  103.    End Function



Envio de peticion por el método POST

Código
  1.    ' Send POST
  2.    ' ( By Elektro )
  3.    '
  4.    ' Usage Examples:
  5.    '
  6.    'Dim Response As String =
  7.    '    SendPOST("http://es.wikipedia.org/wiki/Special:Search?",
  8.    '             New Dictionary(Of String, String) From {
  9.    '                 {"search", "Petición+POST"},
  10.    '                 {"sourceid", "Mozilla-search"}
  11.    '             }) ' Formated POST Data: "search=Petición+POST&sourceid=Mozilla-search"
  12.    'Clipboard.SetText(Response) ' Copy the response to Clipboard.
  13.    '
  14.    ''' <summary>
  15.    ''' Sends a POST method petition and returns the server response.
  16.    ''' </summary>
  17.    ''' <param name="URL">Indicates the URL.</param>
  18.    ''' <param name="PostData">Indicates the post data.</param>
  19.    ''' <returns>The response.</returns>
  20.    Public Function SendPOST(ByVal URL As String,
  21.                             ByVal PostData As Dictionary(Of String, String)) As String
  22.  
  23.        Dim Data As New System.Text.StringBuilder ' PostData to send, formated.
  24.        Dim Request As Net.HttpWebRequest = HttpWebRequest.Create(URL) ' HTTP Request.
  25.        Dim Response As HttpWebResponse ' Server response.
  26.        Dim ResponseContent As String ' Server response result.
  27.  
  28.        ' Set and format the post data of the query.
  29.        For Each Item As KeyValuePair(Of String, String) In PostData
  30.            Data.AppendFormat("{0}={1}&", Item.Key, Item.Value)
  31.        Next Item
  32.  
  33.        ' Set the Request properties.
  34.        With Request
  35.            .Method = "POST"
  36.            .ContentType = "application/x-www-form-urlencoded"
  37.            .ContentLength = Data.ToString.Length
  38.            .Proxy = Nothing
  39.            ' .UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0"
  40.        End With
  41.  
  42.        ' Write the POST data bytes into the Stream.
  43.        Using RequestStream As IO.Stream = Request.GetRequestStream()
  44.            RequestStream.Write(System.Text.Encoding.UTF8.GetBytes(Data.ToString), 0, Data.ToString.Length)
  45.            RequestStream.Close()
  46.        End Using
  47.  
  48.        ' Get the response.
  49.        Response = Request.GetResponse()
  50.  
  51.        ' Get the response content.
  52.        Using Reader As New IO.StreamReader(Response.GetResponseStream)
  53.            ResponseContent = Reader.ReadToEnd
  54.            Response.Close()
  55.        End Using
  56.  
  57.        ' Return the response content.
  58.        Return ResponseContent
  59.  
  60.    End Function
7474  Programación / Scripting / Re: [AYUDA][BATCH] Sistema para remplazar varios archivos por uno conservando nombre en: 11 Marzo 2014, 19:26 pm
Código
  1. @Echo OFF
  2.  
  3. Set "FakeAudio=.\File.mp3"
  4.  
  5. FOR %%@ IN ("*.mp3") DO (
  6.    Copy /Y "%FakeAudio%" "%%~@"
  7. )
  8.  
  9. Pause&Exit

Saludos.
7475  Sistemas Operativos / Windows / Re: problemas con ms dos ayuda en: 11 Marzo 2014, 16:47 pm
me di cuenta que no tengo la carpeta (system32) dice (system) calculo que es lo mismo

tampoco tengo en mi computadora la carpeta que me señalas "WinSXS" o sea directamente no existe en mi computadora

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!
7476  Sistemas Operativos / Windows / Re: [DUDA] Como Desactivar Dispositivos Portátiles Para Que Se Le Asigne Una Letra en: 11 Marzo 2014, 15:06 pm
Hola

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

saludos
7477  Programación / .NET (C#, VB.NET, ASP) / Re: ¿cifrar? en: 11 Marzo 2014, 15:03 pm
@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!
7478  Programación / Scripting / Re: [AYUDA][VBS] Pasar varios argumentos en un acceso directo en: 11 Marzo 2014, 12:38 pm
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':
Código:
HKEY_CLASSES_ROOT\VBSFile\DefaultIcon

Por el icono del tipo de archivo registrado como 'jpegfile':
Código:
HKEY_CLASSES_ROOT\jpegfile\DefaultIcon

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
7479  Foros Generales / Foro Libre / Re: Alguna vez os ha pasado? en: 11 Marzo 2014, 02:34 am
¿Es como cuando empiezas a quitarle el sujetador a una "hembra"?

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
7480  Informática / Software / Re: No funciona el Ares en: 11 Marzo 2014, 02:30 am
¿ para que quieren el Ares, teniendo Torrents y Soulseek? :P
Páginas: 1 ... 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 [748] 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 ... 1253
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines