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


 


Tema destacado: Análisis del vídeo del hackeo al Sindicato de los Mossos de Esquadra


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ... 944
71  Foros Generales / Foro Libre / ¿Cómo de real es la supuesta realidad en la que vivimos los seres humanos? en: 16 Abril 2017, 03:57
Hola!

Estaba viendo unos videos en Youtube y me encontré con este video que nos habla sobre el planteamiento de realidades alternativas. La autora nos habla de varias hipótesis bastante conocidas como la de estar existiendo dentro de una simulación informática, o de una realidad creada por máquinas, o de un posible Dios "maligno".

El video dura poco, pero está muy bien para quien no sepa nada sobre el tema... para hacernos reflexionar.



Publico este post por que es bueno mantener siempre presente y no olvidarnos de que existen varias posibilidades para darle significado a la supuesta realidad, y por eso me gustaría saber como de real creen ustedes que es eso a lo que llamamos Realidad. ¿Podriamos estar viviendo en una simulación creada por una especie inteligente y/o por una máquina robótica?.

...Ultimamente he escuchado hablar mucho sobre la hipótesis de la Gnosis o Gnosticismo; pocos sabrán lo que es, y mejor que no lo sepan... en serio, no lo busquen... o se arrepentirán, es una posibilidad de la realidad muy cruel, quizás la más cruel.

¡Saludos!
72  Programación / .NET / Re: Integración visual basic for aplication en proyecto compilado en: 16 Abril 2017, 00:33
No se te entiende nada. ¿Qué IDE?, Microsoft no proporciona ninguna IDE built-in para VBA, a no ser que te estés refiriendo a la IDE de terceros que viene en el Excel; de todas formas no se te entiende. Intenta explícarte mejor, y muéstranos lo que has intentado hacer por ti mismo...

¡Saludos!
73  Programación / Scripting / Re: Ayuda con pycharm en: 15 Abril 2017, 21:22
Esto es un foro de hacking ético, no se admiten peticiones de cracks/seriales, para eso ya está Google.

Tema Cerrado.
74  Programación / Programación General / Re: Necesito ayuda con Sublime Text 3 en: 14 Abril 2017, 20:38
hola, estoy instalando Sublime Text 3, pero cunado voy a instalarle los paquetes Package Control, me da un error.

Hola. ¿Has probado a solicitar los servicios de un vidente para que te adivine el nombre del paquete y el mensaje de error que te muestra el programa?, eso sería lo principal; te dejo por aquí un enlace:


¡Saludos!
75  Programación / .NET / MOVIDO: Necesito ayuda con Sublime Text 3 en: 14 Abril 2017, 20:25
El tema ha sido movido a Programación General.

http://foro.elhacker.net/index.php?topic=467979.0
76  Foros Generales / Foro Libre / Alguien que sepa Ruso o Ucraniano... en: 14 Abril 2017, 18:00
Buenas.

Me interesa descargar este programa:

...Tengo una versión bastante antigua de ese programa, la cual está en Inglés, pero esa nueva versión me aparece por defecto en Ruso o Ucraniano (una de dos, no lo sé exacto), y no sé si es de forma intencionada o es un fallo del autor del programa o que todavía no ha compartido una versión traducida al Inglés. El caso es que me gustaría saber si alguien que sepa Ruso puede hacer el favor de descargar la app y mirar la interfáz de usuario para decirme si se puede cambiar el idioma a Inglés, y cuales son los pasos para hacerlo...

Yo no veo forma de acceder a ningún posible menú de opciones, pero bueno, tampoco sé Ruso así que prefiero asegurarme por alguien que entienda el idioma; para colmo no puedo utilizar la versión antigua que tengo para comparar los textos de la UI (...me caducó el trial).



El executable solo ocupa 4 MB y es portable, no requiere instalacion.

¡Gracias!
77  Programación / .NET / Re: Librería de Snippets para VB.Net !! (Compartan aquí sus snippets) en: 13 Abril 2017, 12:50
Pausar la ejecución de la consola hasta que se pulse cierta tecla...

Código
  1. ''' ----------------------------------------------------------------------------------------------------
  2. ''' <summary>
  3. ''' Pause the console execution Indefinitely until any key is pressed.
  4. ''' </summary>
  5. ''' ----------------------------------------------------------------------------------------------------
  6. <DebuggerStepThrough>
  7. Public Shared Sub Pause()
  8.    Console.ReadKey(intercept:=True)
  9. End Sub
  10.  
  11. ''' ----------------------------------------------------------------------------------------------------
  12. ''' <summary>
  13. ''' Pause the console execution Indefinitely until the specified key is pressed.
  14. ''' </summary>
  15. ''' ----------------------------------------------------------------------------------------------------
  16. ''' <param name="key">
  17. ''' The key to wait for.
  18. ''' </param>
  19. ''' ----------------------------------------------------------------------------------------------------
  20. <DebuggerStepThrough>
  21. Public Shared Sub Pause(ByVal key As Keys)
  22.  
  23.    Dim keyInfo As ConsoleKeyInfo
  24.  
  25.    Do Until (keyInfo.Key = key)
  26.        keyInfo = Console.ReadKey(intercept:=True)
  27.    Loop
  28.  
  29. End Sub

Modo de empleo:
Código
  1. Console.WriteLine("Press any key to exit...")
  2. Pause()
  3. Environment.Exit(0)

Código
  1. Dim key As Keys = Keys.Enter
  2. Dim keyName As String = [Enum].GetName(GetType(Keys), key)
  3.  
  4. Console.WriteLine(String.Format("Press '{0}' key to continue...", keyName))
  5. Pause(key)
  6. Console.WriteLine("Well done.")
78  Foros Generales / Foro Libre / Re: Cómo Trump tomaba tarta de chocolate mientras decidía bombardear Siria en: 13 Abril 2017, 11:48
El tito Trump cuando no está comiendo tarta de chocolate está bailando, y se lo pasa pipa...

79  Foros Generales / Sugerencias y dudas sobre el Foro / Re: Me han baneado una cuenta con 10 años de antiguedad en: 13 Abril 2017, 10:31
no encuentro motivo para saber porque fue baneada mi cuenta "encuentrosweb"

Cuando te banean, te debería llegar una notificación via e-mail con la razón del baneo, ¿no te ha llegado?.

Al parecer el autor del baneo no ha puesto ninguna razón de baneo... yo personálmente estoy más que harto de que algunos compañeros cierren o eliminen posts sin explicar motivo, o que baneen sin dejar razón alguna.

PD: Yo tampoco he sido.

¡Saludos!
80  Programación / .NET / Re: [Duda] VB.NET - Comparar dos cadenas de texto y mostrar diferencias en: 12 Abril 2017, 19:49
Hola.

Si quieres algo sofisticado entonces lee sobre el algoritmo Diff y el problema LCS (Longest Common Subsequence) e implementa el algoritmo. Existen librerías Diff gratuitas para .NET por lo que no tienes que hacer practicamente nada.

Aparte, lo que pides se puede interpretar de muchas maneras y se puede implementar de infinitas formas dependiendo de las necesidades del programa, así que como no especifiques un poco más siendo breve y conciso aclarando punto por punto como debería comportarse el algoritmo ante cada situación de coincidencia o no coincidencia pues... vamos mal, jeje.

De todas formas te voy a mostrar dos ejemplos que he escrito con los que te puedas hacer una idea de como implementar un algoritmo básico de comparación de cadenas de texto. Ambos ejemplos evaluan las diferencias y usan un RichTextBox para colorear los caracteres que coinciden y los que no, pero ambos ejemplos tienen propósitos distintos para distintos escenarios... pues como ya dije hay infinitas maneras de implementar esto y depende de las necesidades del programa.





El primer ejemplo está enfocado a la evaluación por individual del caracter actual que se haya escrito en el control de edición, esto quiere decir que si modificas otro caracter no se actualizarán las diferencias/colorización del resto de caracteres en el RichTextBox.

Código
  1. Public NotInheritable Class Form1 : Inherits Form
  2.  
  3.    Private ReadOnly Property OrgText As String = "Hello World!"
  4.  
  5.    Private ReadOnly Property CurText As String
  6.        Get
  7.            If (Me.RichTextBox1 IsNot Nothing) Then
  8.                Return Me.RichTextBox1.Text
  9.            Else
  10.                Return String.Empty
  11.            End If
  12.        End Get
  13.    End Property
  14.  
  15.    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
  16.  
  17.        Dim rtb As RichTextBox = DirectCast(sender, RichTextBox)
  18.        Dim chPos As Integer = (rtb.SelectionStart - 1)
  19.        Dim ch As Char = rtb.Text.Substring(chPos, 1)
  20.        Dim diffState As TriState
  21.  
  22.        If (chPos >= Me.OrgText.Length) Then
  23.            diffState = TriState.UseDefault
  24.  
  25.        ElseIf (Me.OrgText(chPos) = ch) Then
  26.            diffState = TriState.True
  27.  
  28.        Else
  29.            diffState = TriState.False
  30.  
  31.        End If
  32.  
  33.        ColorizeDifference(rtb, chPos, diffState)
  34.  
  35.    End Sub
  36.  
  37.    Friend Shared Sub ColorizeDifference(ByVal rtb As RichTextBox, ByVal charPos As Integer, ByVal diffState As TriState)
  38.  
  39.        Dim oldSelectionStart As Integer = rtb.SelectionStart
  40.        Dim oldSelectionLength As Integer = rtb.SelectionLength
  41.        Dim fontStyle As FontStyle = rtb.Font.Style
  42.  
  43.        rtb.SelectionStart = charPos
  44.        rtb.SelectionLength = 1
  45.  
  46.        Select Case diffState
  47.  
  48.            Case TriState.True ' El caracter coincide.
  49.                rtb.SelectionColor = Color.YellowGreen
  50.                fontStyle = fontStyle And Not FontStyle.Underline
  51.  
  52.            Case TriState.False ' El caracter no coincide.
  53.                rtb.SelectionColor = Color.IndianRed
  54.                fontStyle = fontStyle Or FontStyle.Underline
  55.  
  56.            Case TriState.UseDefault ' El índice del caracter está fuera de rango.
  57.                rtb.SelectionColor = Color.Gray
  58.                fontStyle = fontStyle Or FontStyle.Underline
  59.  
  60.        End Select
  61.  
  62.        Using font As New Font(rtb.Font, fontStyle)
  63.            rtb.SelectionFont = font
  64.        End Using
  65.  
  66.        rtb.SelectionStart = oldSelectionStart
  67.        rtb.SelectionLength = oldSelectionLength
  68.        rtb.ResumeLayout(performLayout:=True)
  69.  
  70.    End Sub
  71.  
  72. End Class



El segundo ejemplo está enfocado a la evaluación del texto entero; cada vez que se modifique el texto del RichTextBox se actualizarán las diferencias/colorización de todos los caracteres. Este es el código que he usado en la imagen que he compartido arriba.

Código
  1. Public NotInheritable Class Form1 : Inherits Form
  2.  
  3.    Private ReadOnly Property OrgText As String = "Hello World!"
  4.  
  5.    Private ReadOnly Property CurText As String
  6.        Get
  7.            If (Me.RichTextBox1 IsNot Nothing) Then
  8.                Return Me.RichTextBox1.Text
  9.            Else
  10.                Return String.Empty
  11.            End If
  12.        End Get
  13.    End Property
  14.  
  15.    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
  16.  
  17.        Dim diffIndices As Dictionary(Of Integer, TriState) = GetDifferences(Me.OrgText, Me.CurText)
  18.        ColorizeDifferences(Me.RichTextBox1, diffIndices)
  19.  
  20.    End Sub
  21.  
  22.    Friend Shared Function GetDifferences(ByVal orgText As String, ByVal curText As String) As IDictionary(Of Integer, TriState)
  23.  
  24.        Dim orgChars As Char() = orgText.ToArray()
  25.        Dim curChars As Char() = curText.ToArray()
  26.  
  27.        Dim orgLength As Integer = orgChars.Length
  28.        Dim curLength As Integer = curChars.Length
  29.  
  30.        Dim diffIndices As New Dictionary(Of Integer, TriState)(curLength, EqualityComparer(Of Integer).Default)
  31.  
  32.        For i As Integer = 0 To (curLength - 1)
  33.  
  34.            If (i < orgLength) Then
  35.                diffIndices.Add(i, (orgChars(i) = curChars(i)))
  36.  
  37.            Else
  38.                diffIndices.Add(i, TriState.UseDefault)
  39.  
  40.            End If
  41.  
  42.        Next i
  43.  
  44.        Return diffIndices
  45.  
  46.    End Function
  47.  
  48.    Friend Shared Sub ColorizeDifferences(ByVal rtb As RichTextBox, ByVal diffIndices As IDictionary(Of Integer, TriState))
  49.  
  50.        Dim oldSelectionStart As Integer = rtb.SelectionStart
  51.        Dim oldSelectionLength As Integer = rtb.SelectionLength
  52.        Dim fontStyle As FontStyle = rtb.Font.Style
  53.  
  54.        rtb.SuspendLayout()
  55.        For Each kvp As KeyValuePair(Of Integer, TriState) In diffIndices
  56.  
  57.            rtb.SelectionStart = kvp.Key
  58.            rtb.SelectionLength = 1
  59.  
  60.            Select Case kvp.Value
  61.  
  62.                Case TriState.True ' El caracter coincide.
  63.                    rtb.SelectionColor = Color.YellowGreen
  64.                    fontStyle = fontStyle And Not FontStyle.Underline
  65.  
  66.                Case TriState.False ' El caracter no coincide.
  67.                    rtb.SelectionColor = Color.IndianRed
  68.                    fontStyle = fontStyle Or FontStyle.Underline
  69.  
  70.                Case TriState.UseDefault ' El índice del caracter está fuera de rango.
  71.                    rtb.SelectionColor = Color.Gray
  72.                    fontStyle = fontStyle Or FontStyle.Underline
  73.  
  74.            End Select
  75.  
  76.            Using font As New Font(rtb.Font, fontStyle)
  77.                rtb.SelectionFont = font
  78.            End Using
  79.  
  80.        Next
  81.        rtb.SelectionStart = oldSelectionStart
  82.        rtb.SelectionLength = oldSelectionLength
  83.        rtb.ResumeLayout(performLayout:=True)
  84.  
  85.    End Sub
  86.  
  87. End Class

¡Saludos!
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ... 944
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines