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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 ... 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 [515] 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 ... 1236
5141  Foros Generales / Foro Libre / Re: Aplicación movil para ver videos publicitarios (y ganar algo de dinero) en: 13 Junio 2015, 20:16 pm
Cita de: Ori-chan en 13 Junio 2015, 20:10 pm
Creo que se refiere a recargar la batería.

La verdad es que sí, tal vez un poco exagerado el coste, pero a eso me refería xD. Tampoco me ha quedado claro si son 5 minutos por video, es decir 10 minutos gastando batería, o 5 minutos en total.

Saludos!
5142  Foros Generales / Foro Libre / Re: Aplicación movil para ver videos publicitarios (y ganar algo de dinero) en: 13 Junio 2015, 17:22 pm
Cita de: programatrix en 13 Junio 2015, 01:55 am
Lo pongo principalmente porque la idea que ha tenido esta gente es buena y si ayuda a alguién a ganarse 5€ extra :)

...Qué luego consumirás recargando el móvil xD.

Saludos!
5143  Programación / .NET (C#, VB.NET, ASP) / Re: Leer datos de una tabla html en: 13 Junio 2015, 17:10 pm
Un método eficiente para parsear un documento HTML es haciendo uso de la librería (gratuita) profesional HtmlAgilityPack, esta se basa en la utilización de expresiones XPATH.

En este ejemplo creo una (simple) Class llamada RowData que servirá para mantener una colección rehutilizable con los datos obtenidos de la tabla:

Código
  1. Imports HtmlAgilityPack
  2.  
  3. Public Class Form1
  4.  
  5.     Dim htmlCode As XElement =
  6.     <html>
  7.         <div id="contenedor-portadilla">
  8.             <table class="TablaPaises" id="calsificacion_completa">
  9.                 <thead>
  10.                     <tr class="Estadistica">
  11.                         <th colspan="2" class="sinfondo"></th>
  12.                         <th colspan="1">Totales</th>
  13.                     </tr>
  14.                 </thead>
  15.                 <tbody>
  16.                     <tr>
  17.                         <td class="Num">1</td>
  18.                         <td class="Pais">España</td>
  19.                     </tr>
  20.                     <tr>
  21.                         <td class="Num">2</td>
  22.                         <td class="Pais">Portugal</td>
  23.                     </tr>
  24.                 </tbody>
  25.             </table>
  26.         </div>
  27.     </html>
  28.  
  29.     Public Class RowData
  30.         Public Property Index As Integer
  31.         Public Property Country As String
  32.     End Class
  33.  
  34.     Private Sub Test() Handles MyBase.Load
  35.  
  36.         Dim doc As New HtmlDocument
  37.         doc.LoadHtml(htmlCode.ToString)
  38.  
  39.         Dim tColumnName As String = 
  40.             doc.DocumentNode.SelectSingleNode(".//table[@class='TablaPaises']/thead/tr[@class='Estadistica']/th[@colspan='1']").InnerText
  41.  
  42.         Dim tRows As IEnumerable(Of RowData) =
  43.             From node As HtmlNode In doc.DocumentNode.SelectNodes(".//table[@class='TablaPaises']/tbody/tr")
  44.                    Select New RowData With
  45.                           {
  46.                               .Index = CInt(node.SelectSingleNode(".//td[@class='Num']").InnerText),
  47.                               .Country = node.SelectSingleNode(".//td[@class='Pais']").InnerText.Trim(" "c)
  48.                           }
  49.  
  50.         For Each row As RowData In tRows
  51.             Debug.WriteLine(String.Format("Num: {0}, País: {1}", CStr(row.Index), row.Country))
  52.         Next row
  53.  
  54.     End Sub
  55.  
  56. End Class

De todas formas, cómo te ha comentado @fran800m puedes parsear un objeto de tipo XElement (o XDocument), puedes utilizar una sintaxis parecida a esta:

Código
  1. Dim value As String = htmlCode.<Nombre De Elemento 1>.<Nombre De Elemento 2>.<etc...>.<@Nombre de Atributo>.Value

También puedes usar las funciones built-in de dicha Class XElement para buscar descendientes, ancestros, enumerar las expresiones XPATH disponibles, etc.

Saludos!
5144  Informática / Software / Re: Duda sobre John The ripper en: 13 Junio 2015, 10:59 am
Aparte de lo comentado, más de 1 string puede dar cómo resultado el mismo hash MD5, así que suerte con los falsos positivos xD.

Saludos!
5145  Programación / .NET (C#, VB.NET, ASP) / Re: Agregar archivo a exe en VB en: 13 Junio 2015, 10:52 am
Cita de: okik en 12 Junio 2015, 18:48 pm
Supongo que lo que que quieres,   es crear dos TXT y que se abran automáticamente. Se me ocurre que uses ShellExecute, ya que he probado con 'Shell'  y a través de la consola y no funcionaba.

Con ShellExecute se abren sin problema. Quizás haya otra manera, no se.

➢ Process.Start(filename) - MSDN

Saludos!
5146  Programación / .NET (C#, VB.NET, ASP) / Re: Leer una clase en un formulario Windows de Visual C# en: 12 Junio 2015, 12:51 pm
Cita de: Meta en 11 Junio 2015, 23:25 pm
¿Cómo lo solucionas?

No llego a comprender cómo se computa el Checksum.

De todas formas tampoco le doy ningún interés, ya que el checksum es solo un indicador, un bad checksum no afecta al comportamiento del juego.

Cita de: Meta en 11 Junio 2015, 23:25 pm
Edito:
Hice por ahora hasta aquí y esto hasta las ******************************** de colocar compañías.

Lo que estás haciendo, aparte de no ser nada práctico, son malas prácticas de programación,
¿en que momento se te ocurre que la mejor solución es ponerte a escribir una a una las +120 condicionales?  :-\,
¿para que tienes a tu disposición las Classes/Types de .Net Framework si no las usas?, ¿para que estás programando en C#?.

Existe una cosa que se llama Diccionarios (Dictionary) entre otros muchos tipos de objetos que puedes utilizar, como listas, tuplas, arrays dimensionales, arrays escalonados (jagged array), etc, o tu propia Class.

Piensa mejor en las alternativas que realmente existen para ahorrarte tiempo, antes de volver a hacer algo cómo lo que has hecho :P.

yo por ejemplo no me puse a escribir una a una la enumeración con las +120 entradas, no, esa enumeración la conseguí desarrollando un código de 2 o 3 lineas para reemplazar el orden de las palabras (los números a la derecha) de la lista original, y luego cojí un editor de texto que soportase expresiones regulares (Sublime Text) y usé el reemplazo mediante dichas expresiones para los caracteres ilegales; En caso de no haber tenido un editor que lo hiciese, habría desarrollado un pequeño código de pocas lineas para utilizar RegEx con los mismos fines.

Ejemplo:
Código
  1. Public Class Form1
  2.  
  3.     Dim licenses As String =
  4.         <a> 
  5. 0 Invalid License Code
  6. 1 Nintendo
  7. 5 Zamuse
  8. 8 Capcom
  9. 9 HOT B
  10. 10 Jaleco
  11. 11 STORM (Sales Curve) (1)
  12. 15 Mebio Software
  13. 18 Gremlin Graphics
  14. 21 COBRA Team
  15. 22 Human/Field
  16. 24 Hudson Soft
  17. 26 Yanoman
  18. 28 Tecmo (1)
  19. 30 Forum
  20. 31 Park Place Productions / VIRGIN
  21. 33 Tokai Engeneering (SUNSOFT?)
  22. 34 POW
  23. 35 Loriciel / Micro World
  24. 38 Enix
  25. 40 Kemco (1)
  26. 41 Seta Co.,Ltd.
  27. 45 Visit Co.,Ltd.
  28. 53 HECT
  29. 61 Loriciel
  30. 64 Seika Corp.
  31. 65 UBI Soft
  32. 71 Spectrum Holobyte
  33. 73 Irem
  34. 75 Raya Systems/Sculptured Software
  35. 76 Renovation Pruducts
  36. 77 Malibu Games (T*HQ Inc.) / Black Pearl
  37. 79 U.S. Gold
  38. 80 Absolute Entertainment
  39. 81 Acclaim
  40. 82 Activision
  41. 83 American Sammy
  42. 84 GameTek
  43. 85 Hi Tech
  44. 86 LJN Toys
  45. 90 Mindscape
  46. 93 Technos Japan Corp. (Tradewest)
  47. 95 American Softworks Corp.
  48. 96 Titus
  49. 97 Virgin Games
  50. 98 Maxis
  51. 103 Ocean
  52. 105 Electronic Arts
  53. 107 Laser Beam
  54. 110 Elite
  55. 111 Electro Brain
  56. 112 Infogrames
  57. 113 Interplay
  58. 114 LucasArts
  59. 115 Sculptured Soft
  60. 117 STORM (Sales Curve) (2)
  61. 120 THQ Software
  62. 121 Accolade Inc.
  63. 122 Triffix Entertainment
  64. 124 Microprose
  65. 127 Kemco (2)
  66. 130 Namcot/Namco Ltd. (1)
  67. 132 Koei/Koei! (second license?)
  68. 134 Tokuma Shoten Intermedia
  69. 136 DATAM-Polystar
  70. 139 Bullet-Proof Software
  71. 140 Vic Tokai
  72. 143 I'Max
  73. 145 CHUN Soft
  74. 146 Video System Co., Ltd.
  75. 147 BEC
  76. 151 Kaneco
  77. 153 Pack in Video
  78. 154 Nichibutsu
  79. 155 TECMO (2)
  80. 156 Imagineer Co.
  81. 160 Wolf Team
  82. 164 Konami
  83. 165 K.Amusement
  84. 167 Takara
  85. 169 Technos Jap. ????
  86. 170 JVC
  87. 172 Toei Animation
  88. 173 Toho
  89. 175 Namcot/Namco Ltd. (2)
  90. 177 ASCII Co. Activison
  91. 178 BanDai America
  92. 180 Enix
  93. 182 Halken
  94. 186 Culture Brain
  95. 187 Sunsoft
  96. 188 Toshiba EMI/System Vision
  97. 189 Sony (Japan) / Imagesoft
  98. 191 Sammy
  99. 192 Taito
  100. 194 Kemco (3) ????
  101. 195 Square
  102. 196 NHK
  103. 197 Data East
  104. 198 Tonkin House
  105. 200 KOEI
  106. 202 Konami USA
  107. 205 Meldac/KAZe
  108. 206 PONY CANYON
  109. 207 Sotsu Agency
  110. 209 Sofel
  111. 210 Quest Corp.
  112. 211 Sigma
  113. 214 Naxat
  114. 216 Capcom Co., Ltd. (2)
  115. 217 Banpresto
  116. 219 Hiro
  117. 221 NCS
  118. 222 Human Entertainment
  119. 223 Ringler Studios
  120. 224 K.K. DCE / Jaleco
  121. 226 Sotsu Agency
  122. 228 TandESoft;
  123. 229 EPOCH Co.,Ltd.
  124. 231 Athena
  125. 232 Asmik
  126. 233 Natsume
  127. 234 King/A Wave
  128. 235 Atlus
  129. 236 Sony Music
  130. 238 Psygnosis / igs
  131. 243 Beam Software
  132. 244 Tec Magik
  133. 255 Hudson Soft
  134. </a>.Value
  135.  
  136.     Private licDict As New Dictionary(Of String, String)
  137.  
  138.     Private Sub CreateLicenseDictionary()
  139.  
  140.         For Each line As String In licenses.Trim.Split({ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
  141.  
  142.             Dim code As Byte = Convert.ToByte(line.Substring(0, line.IndexOf(" "c)))
  143.             Dim codeHex As String = Convert.ToString(code, toBase:=16)
  144.             Dim name As String = line.Substring(line.IndexOf(" "c), line.Length - code.ToString.Length)
  145.  
  146.             licDict.Add(codeHex, name)
  147.  
  148.         Next line
  149.  
  150.     End Sub
  151.  
  152.     Private Sub Test()
  153.  
  154.         textBox_Codigo_Licencia_2.Text = Me.licDict(Codigo_Licencia)
  155.  
  156.     End Sub
  157.  
  158. End Class

Puedes hacer algo parecido en C#, con los datos de la variable "code" y "name" también puedes crear la enumeración de C# en un archivo de texto, construyendo el string con ese formato específico, que solo tendrías que copiar y pegar en tu código fuente.

En fin... será por porisiblidades.

Saludos!
5147  Programación / Scripting / Re: Ayuda con Select Case VBS en: 12 Junio 2015, 11:28 am
Cita de: tincopasan en 12 Junio 2015, 10:20 am
Es increible como piden ayuda, y no dan las gracias ni por casualidad!

Suele pasar...

Pero bueno, a esto es a lo que nos arriesgamos la mayoría de las veces al ayudar desinteresadamente, podemos acabar haciendo el trabajo de otra persona sin tan siquiera recibir un humilde GRACIAS por el esfuerzo que hayamos invertido.

...¿Créditos?, las personas que ni siquiera se paran a agradecer, mucho menos van a ser capaces de reconocer que su código/trabajo lo ha hecho otra persona o que al menos les han ayudado a hacerlo, aunque personalmente el reconocimiento me da igual, yo me conformo con un gesto amable de agradecimiento, la misma amabilidad que nosotros solemos tener cuando ayudamos a los demás sin esperar recibir nada a cambio, pero siempre sienta bien que al menos te agradezcan la ayuda que les has ofrecido.

Generalizando, ese tipo de personas luego volverán por que no son capaces de explicar o entender ni la mitad del código que le hemos dado, y ahí ya se darán cuenta ellos solitos de los favores que han perdido por ser tan desconsiderados con las personas que estuvieron dispuestas a ayudarle.

En fín, a mi también me indigna un poquito, pero que le vamos a hacer.

PD: Tampoco es que este sea un caso extremo ...es un código sin complejidad, en un lenguaje sencillo y apenas 100 lineas de códigio.

Saludos!
5148  Programación / .NET (C#, VB.NET, ASP) / Re: Error cuando se crea ejecutable en: 12 Junio 2015, 10:35 am
Lo que debes hacer para corregirlo es simplemente evitar castear un string VACÍO a esa variable Double, eso es lo que estás haciendo en alguna parte del código, así que comprueba los métodos que se llaman al iniciar tu app;
esto lo puedes controlar haciendo un chequeo al string con la función 'String.IsNullOrEmpty' o también 'String.IsNullOrWhiteSpace', o la función Enumerable.All o Enumerable.Any para evaluar una condición en los caracteres, o haciendo uso de la función 'Double.TryParse'.

Una combinación de todo:
Código
  1. Dim num As Double
  2. Dim str As String = ""
  3.  
  4. If String.IsNullOrEmpty(str) Then
  5.     MessageBox.Show("La variable 'str' está vacía.")
  6.  
  7. ElseIf Not str.All(Function(c As Char) Char.IsNumber(c)) Then
  8.     MessageBox.Show("La variable 'str' contiene caracteres no numéricos.")
  9.  
  10. ElseIf Not Double.TryParse(str, num) Then
  11.     MessageBox.Show("La variable 'str' tiene un formato incorrecto.")
  12.  
  13. End If
  14.  
  15. MessageBox.Show("Nuevo valor: " & num)

Notas:
· La función 'Double.TryParse' intentará convertir la cadena de 'String' a tipo 'Double', devolviendo 'False' si la conversión ha fallado, o 'True' si la conversión ha tenido éxito.

· Si la conversión falla, el valor que se le asigna a la variable referenciada de tipo 'Double' será '0',
  si la conversión tiene éxito, obviamente el valor de la variable referenciada pasa a ser el valor que se ha convertido.

Saludos!
5149  Programación / Programación Visual Basic / MOVIDO: Agregar archivo a exe en VB en: 12 Junio 2015, 06:37 am
El tema ha sido movido a .NET.

Esto es VisualBasic.Net, no VisualBasic.

http://foro.elhacker.net/index.php?topic=436790.0
5150  Programación / .NET (C#, VB.NET, ASP) / Re: [C#] DataGridView congelación de app en: 11 Junio 2015, 18:05 pm
Mi manejo en C# no es muy bueno.

Puedes declarar el delegado:
Código
  1. internal delegate void UpdateVisualizacionMatriculaDelegate(string texto);
  2.  
  3. private void updateVisualizacionMatricula()
  4. {
  5. 	if (this.InvokeRequired) {
  6. 		this.Invoke(new UpdateVisualizacionMatriculaDelegate(updateVisualizacionMatricula), texto);
  7.  
  8. 	} else {
  9. 		lb_visualizacionMatricula.Text = texto;
  10. 		int x = groupBoxVisualizacion.Width + label29.Width;
  11. 		int w = lb_visualizacionMatricula.Width;
  12. 		lb_visualizacionMatricula.Left = x / 2 - w / 2;
  13. 	}
  14. }
  15.  
  16. //=======================================================
  17. //Service provided by Telerik (www.telerik.com)
  18. //=======================================================

O también puedes usar el delegado Action para evitar la declaración de delegados adicionales en el código

Código
  1. this.Invoke(new Action<string>(updateVisualizacionMatricula), texto)
Páginas: 1 ... 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 [515] 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines