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


 


Tema destacado: Página de elhacker.net en Google+ Google+


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 869
1  Programación / Scripting / Re: Borrado de archivos selectivos en MsDos Batch en: Hoy a las 09:35
La pregunta:

Cómo puedo, en vez de borrar subcarpetas, borrar sólo los archivos, tanto de la carperas como subcarpetas de esa unidad?

Código
  1. For /F "UseBackQ Tokens=* Delims=" %%# In (
  2.    "%CD%\Carpetas.txt"
  3. ) Do (
  4.    PUSHD "%%~#"
  5.    Call Echo "%%CD%%"
  6.    (Call Del /Q /S "%%CD%%\*.*")2>Nul
  7.    POPD
  8. )

Saludos
2  Foros Generales / Dudas Generales / Re: Se ejecuta FlashUtil64_22_0_0_210_ActiveX.exe cuando entro en elhacker en: Ayer a las 22:26
por cierto que es eso del Elektro astral, te vas a poner a leer el tarot o que.

jajaja no, por desgracia ya es suficiente con un miembro en mi familia que se dedique a estafar a la gente y ASESINAR su mente y su alma con eso del Tarot... no me van esos rollos esotéricos ni la gente que se aprovecha de la creedulidad de los demás para llenarse los bolsillos.

Astral simplemente es la mejor definición que encontré para describir una etapa de mi vida.

En fin, siento desviar el tema, pero me has preguntado y te respondo.

Saludos!
3  Foros Generales / Dudas Generales / Re: Se ejecuta FlashUtil64_22_0_0_210_ActiveX.exe cuando entro en elhacker en: Ayer a las 19:28
Es el plugin de Adobe Flash Player en su versión ActiveX, es decir, para Internet Explorer. No es nada malicioso que lo tengas corriendo (mientras no haya algún exploit aprovechándose por medio xD), y seguramente sea una tontería si le modificas la extensión a .bak ya que tal vez te podría pedir reinstalar Flash Player (no estoy seguro, no uso IE) en algún momento determinado cuando se requiera reproducir un objeto Flash.

De todas formas no se decirte exactamente que componente de EHN requiere el plugin de Flash Player, supongo que otro compañero te podrá dar más detalles al respecto.

Saludos!
4  Programación / .NET / Re: Usar proyecto creado en C# en mi projecto de Vb.Net !! en: Ayer a las 16:23
O simplemente lo llamo desde mi proyecto, añado una referencia y lo uso de la misma forma pero desde VB.NET

Exacto, puedes añadir una referencia ya sea de una dll, o de un proyecto (.vbproj/.csproj), e incluso de un executable .NET para usar los miembros que hayas compilado (como si fuese una dll)

Saludos
5  Informática / Multimedia / Re: Porque se me daña la PC al cargar vídeos MKV? en: Ayer a las 15:11
Pues si... el problema es un conflicto entre el Media Preview y los videos MKV...

Entonces dejare mis vídeos MKV guardados fuera del PC, porque no dejaré de usar el Media Preview que ayuda a tener siempre visibles las miniaturas de los vídeos, fotografías y películas guardados en el PC...

Saludos, y gracias a todos por la atención prestada.

Imagino que ya lo sabrás, pero en el panel de configuración de Media Preview puedes evitar que se generen las vistas previas para archivos MKV ...si eso te ayudase a mejorar el rendimiento.



Pero mucho más importante es que configures apropiadamente las opciones de la relación entre velocidad <> calidad de las vistas previas, así es como lo tengo yo en Windows 10 y no me causa ningún problema al abrir y cargar directorios con cientos de videos MKV:

     

Saludos
6  Programación / .NET / Re: Leer archivo json desde vb.net ...? ayuda !!! en: Ayer a las 09:30
En la tecnología Silverlight puedes utilizar el espacio de nombres System.Json, en la tecnología Windows Universal puedes utilizar el espacio de nombres Windows.Data.Json, y en el resto de tecnologías puedes utilizar la class System.Runtime.Serialization.Json.JsonReaderWriterFactory, un ejemplo hardcodeado de esto último lo puedes encontrar en mi API gratuita ElektroKit donde extraigo la respuesta de un servicio web que me devuelve un documento JSON y lo leo de la misma forma que si fuese un documento Xml:
( en el bloque de la función GeoLocate )

Sin embargo, la forma portable y también la más sofisticada o ventajosa de trabajar con el formato JSON en .NET es utilizando la libreria de terceros JSON.NET, sobre todo al parsear este tipo de formato.
En su web tienes una breve comparación de rendimiento:
...y ese es el motivo por el cual incluso Microsoft prefiere utilizar JSON.NET en sus APIs públicas hospedadas en GitHub xD, del mismo modo que también lo usa Google en sus APIs para .NET, etc.

En fin, en la misma web también te muestran ejemplos de utilización de JSON.NET:

Como puedes ver, no te he mostrado nada que no pudieras haber resuelto por ti mismo con una simple búsqueda en Google como ya te mencionó el compañero @MCKSys Argentina... intenta buscar antes de formular preguntas típicas o muy fáciles.

Saludos!



EDITO:

Acabo de desarrollar esta función de uso genérico para convertir un string en formato JSON a un objeto de tipo XElement, el cual nos facilita mucho la usabilidad en .NET:

Código
  1. ''' ----------------------------------------------------------------------------------------------------
  2. ''' <summary>
  3. ''' Converts a JSON <see cref="String"/> to <see cref="XElement"/>.
  4. ''' </summary>
  5. ''' ----------------------------------------------------------------------------------------------------
  6. ''' <param name="json">
  7. ''' The source JSON string.
  8. ''' </param>
  9. '''
  10. ''' <param name="enc">
  11. ''' The character encoding that must be used to read the JSON string.
  12. ''' </param>
  13. ''' ----------------------------------------------------------------------------------------------------
  14. ''' <returns>
  15. ''' The resulting <see cref="XElement"/>.
  16. ''' </returns>
  17. ''' ----------------------------------------------------------------------------------------------------
  18. <DebuggerStepThrough>
  19. Public Shared Function ConvertToXElement(ByVal json As String, ByVal enc As Encoding) As XElement
  20.  
  21.    Dim data As Byte() = enc.GetBytes(json)
  22.  
  23.    Using ms As New MemoryStream(data)
  24.  
  25.        Using xmlReader As XmlDictionaryReader =
  26.            JsonReaderWriterFactory.CreateJsonReader(ms, enc, New XmlDictionaryReaderQuotas, Nothing)
  27.  
  28.            Return XElement.Load(xmlReader)
  29.  
  30.        End Using
  31.  
  32.    End Using
  33.  
  34. End Function
  35.  
  36. ''' ----------------------------------------------------------------------------------------------------
  37. ''' <summary>
  38. ''' Converts a JSON <see cref="String"/> to <see cref="XDocument"/>.
  39. ''' </summary>
  40. ''' ----------------------------------------------------------------------------------------------------
  41. ''' <param name="json">
  42. ''' The source JSON string.
  43. ''' </param>
  44. '''
  45. ''' <param name="enc">
  46. ''' The character encoding that must be used to read the JSON string.
  47. ''' </param>
  48. ''' ----------------------------------------------------------------------------------------------------
  49. ''' <returns>
  50. ''' The resulting <see cref="XDocument"/>.
  51. ''' </returns>
  52. ''' ----------------------------------------------------------------------------------------------------
  53. <DebuggerStepThrough>
  54. Public Shared Function ConvertToXDocument(ByVal json As String, ByVal enc As Encoding) As XDocument
  55.  
  56.    Return New XDocument(ConvertToXElement(json, enc))
  57.  
  58. End Function

Ejemplo de uso:
Código
  1.        Dim json As String = <a>
  2. {
  3.    "colorsArray":[{
  4.            "colorName":"red",
  5.            "hexValue":"#f00"
  6.        },
  7.        {
  8.            "colorName":"green",
  9.            "hexValue":"#0f0"
  10.        },
  11.        {
  12.            "colorName":"blue",
  13.            "hexValue":"#00f"
  14.        },
  15.        {
  16.            "colorName":"cyan",
  17.            "hexValue":"#0ff"
  18.        },
  19.        {
  20.            "colorName":"magenta",
  21.            "hexValue":"#f0f"
  22.        },
  23.        {
  24.            "colorName":"yellow",
  25.            "hexValue":"#ff0"
  26.        },
  27.        {
  28.            "colorName":"black",
  29.            "hexValue":"#000"
  30.        }
  31.    ]
  32. }</a>.Value
  33.  
  34.        Dim xml As XElement = ConvertToXElement(json, Encoding.UTF8)
  35.  
  36.        Dim firstColorName As String = xml.<colorsArray>.<item>(0).<colorName>.Value
  37.        Dim firsHexValue As String = xml.<colorsArray>.<item>(0).<hexValue>.Value
  38.  
  39.        Console.WriteLine(String.Format("Color Name: {0}; Hex. Value: {1}", firstColorName, firsHexValue))

El elemento Xml resultante tras la conversión de tipos:
Código
  1. <root type="object">
  2.  <colorsArray type="array">
  3.    <item type="object">
  4.      <colorName type="string">red</colorName>
  5.      <hexValue type="string">#f00</hexValue>
  6.    </item>
  7.    <item type="object">
  8.      <colorName type="string">green</colorName>
  9.      <hexValue type="string">#0f0</hexValue>
  10.    </item>
  11.    <item type="object">
  12.      <colorName type="string">blue</colorName>
  13.      <hexValue type="string">#00f</hexValue>
  14.    </item>
  15.    <item type="object">
  16.      <colorName type="string">cyan</colorName>
  17.      <hexValue type="string">#0ff</hexValue>
  18.    </item>
  19.    <item type="object">
  20.      <colorName type="string">magenta</colorName>
  21.      <hexValue type="string">#f0f</hexValue>
  22.    </item>
  23.    <item type="object">
  24.      <colorName type="string">yellow</colorName>
  25.      <hexValue type="string">#ff0</hexValue>
  26.    </item>
  27.    <item type="object">
  28.      <colorName type="string">black</colorName>
  29.      <hexValue type="string">#000</hexValue>
  30.    </item>
  31.  </colorsArray>
  32. </root>
7  Foros Generales / Foro Libre / MOVIDO: Clonar disco duro o realizar imagen de sistema en menos de 16 gb en: Ayer a las 09:00
El tema ha sido movido a Software.

http://foro.elhacker.net/index.php?topic=456771.0
8  Programación / .NET / Re: guardar un numero y mostrarlo de nuevo programa calculadora en: 25 Agosto 2016, 18:49
Esto no es Visual Basic, es Visual Basic.NET, pro favor, publica correctamente las preguntas en el futuro.

no logro hacer bien las siguientes si alguien me ayude o explique

MS, M-, M+ MR

Se hace muy tedioso de leer el código que has publicado, y los nombres de muchos de los controles que has definido (los botones) no describen su función ni tampoco has dejado pistas, ni tampoco te has molestado en explicarnos al menos en lo que debemos fijarnos de tu código, así que disculpa pero en vez de ponerme a revisar y buscar un fallo en tu código directamente prefiero mostrarte un ejemplo (el cual te debería resultar muy sencillo adaptarlo) de como puedes implementar las funciones de memoria:

Código
  1. ' El formato del separador de decimales.
  2. Private ReadOnly numberFormat As NumberFormatInfo = CultureInfo.GetCultureInfo("en-US").NumberFormat
  3. Private memValue As Decimal
  4.  
  5. ' M+
  6. Private Sub Button_MemAdd_Click(ByVal sender As Object, ByVal e As EventArgs) _
  7. Handles Button_MemAdd.Click
  8.  
  9.    Me.memValue += Decimal.Parse(Me.TextBox_CalcDisplay.Text, Me.numberFormat)
  10.  
  11. End Sub
  12.  
  13. ' M-
  14. Private Sub Button_MemSubstract_Click(ByVal sender As Object, ByVal e As EventArgs) _
  15. Handles Button_MemSubstract.Click
  16.  
  17.    Me.memValue -= Decimal.Parse(Me.TextBox_CalcDisplay.Text, Me.numberFormat)
  18.  
  19. End Sub
  20.  
  21. ' MR
  22. Private Sub Button_MemRecall_Click(ByVal sender As Object, ByVal e As EventArgs) _
  23. Handles Button_MemRecall.Click
  24.  
  25.    Me.TextBox_Input.Text = Convert.ToString(If(Me.memValue = 0.0D, 0D, Me.memValue), Me.numberFormat)
  26.  
  27. End Sub
  28.  
  29. ' MC
  30. Private Sub Button_MemClear_Click(ByVal sender As Object, ByVal e As EventArgs) _
  31. Handles Button_MemClear.Click
  32.  
  33.    Me.memValue = 0D
  34.  
  35. End Sub



Aparte de eso, veo muchas partes del código cuyo algoritmo lo puedes simplificar a un par de lineas, es comprensible que todavía no te des cuenta puesto que estarás iniciándote en el lenguaje empezando por programar una calculadora, pero conviene que sepas desde ya sobre malas costumbres de programación que solo te complicarán la vida y hacer un esfuerzo por evitar escribir cosas como esta:

Código
  1. Private Sub B0_Click(sender As Object, e As EventArgs) Handles B0.Click
  2.  
  3.    Tpantalla.Text = Tpantalla.Text & "0"
  4. End Sub
  5.  
  6. Private Sub B2_Click(sender As Object, e As EventArgs) Handles B2.Click
  7.  
  8.    Tpantalla.Text = Tpantalla.Text & "2"
  9. End Sub
  10.  
  11. Private Sub B3_Click(sender As Object, e As EventArgs) Handles B3.Click
  12.  
  13.    Tpantalla.Text = Tpantalla.Text & "3"
  14. End Sub
  15.  
  16. Private Sub B4_Click(sender As Object, e As EventArgs) Handles B4.Click
  17.    Tpantalla.Text = Tpantalla.Text & "4"
  18. End Sub
  19.  
  20. Private Sub B5_Click(sender As Object, e As EventArgs) Handles B5.Click
  21.  
  22.    Tpantalla.Text = Tpantalla.Text & "5"
  23. End Sub
  24.  
  25. Private Sub B6_Click(sender As Object, e As EventArgs) Handles B6.Click
  26.  
  27.    Tpantalla.Text = Tpantalla.Text & "6"
  28. End Sub
  29.  
  30. Private Sub B7_Click(sender As Object, e As EventArgs) Handles B7.Click
  31.  
  32.    Tpantalla.Text = Tpantalla.Text & "7"
  33. End Sub
  34.  
  35. Private Sub B8_Click(sender As Object, e As EventArgs) Handles B8.Click
  36.  
  37.    Tpantalla.Text = Tpantalla.Text & "8"
  38. End Sub
  39.  
  40. Private Sub B9_Click(sender As Object, e As EventArgs) Handles B9.Click
  41.  
  42.    Tpantalla.Text = Tpantalla.Text & "9"
  43. End Sub

Piensa en lo siguiente: tienes 10 botones, esos 10 botones llevan por nombre un número (0...9), y los 10 cumplen una misma funcionalidad que es añadir su "nombre" o número correspondiente al textbox, entonces, ¿por que no unir todos los botones en el mismo controlador de eventos con la sentencia Handles?:

Código
  1. Private Sub MultiHandler_NumericButtons_Click(ByVal sender As Object, ByVal e As EventArgs) _
  2. Handles Button_Num1.Click, Button_Num2.Click, Button_Num3.Click,
  3.        Button_Num4.Click, Button_Num5.Click, Button_Num6.Click,
  4.        Button_Num7.Click, Button_Num8.Click, Button_Num9.Click,
  5.        Button_Num0.Click
  6.  
  7.    Me.TextBox_CalcDisplay.AppendText(DirectCast(sender, Button).Text)
  8.  
  9. End Sub

PD: En caso de que la propiedad TextBox.Text no sea un número (es de suponer que si, al tratarse de una calculadora), siempre puedes utilizar la propiedad TextBox.Tag

Saludos!
9  Programación / Programación Visual Basic / MOVIDO: guardar un numero y mostrarlo de nuevo programa calculadora en: 25 Agosto 2016, 18:14
El tema ha sido movido a .NET.

http://foro.elhacker.net/index.php?topic=456709.0
10  Programación / .NET / Re: Extraer texto de una imagen jpg, png o video .avi en: 25 Agosto 2016, 18:10
Como ya te han dicho, intenta describir mejor a lo que te refieres...

De todas formas yo creo que te refieres a un motor OCR para reconocer el texto de una imagen (ej. un Captcha). Para ello puedes utilizar la solución común y gratuita, Tesseract:

Aunque yo te recomendaría una solución de pago más sofisticada: ABCocr

Como ya he dicho no es gratuita, pero si sabes buscar bien... . .  . :silbar:

En mi API gratuita ElektroKit puedes encontrar una class donde está definida la función DecryptImage() para hacerte el uso de ABCocr mas facil imposible:

( click en la imagen para ir al código fuente )

Saludos
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 869
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines