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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  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 ... 55
71  Seguridad Informática / Hacking / Re: Ser un hacker bueno con mi edad ¿será posible? en: 17 Septiembre 2016, 22:54 pm
Primera regla basica

EL QUE QUIERE SER HACKER NO LO DICE  ::) ::) ::) ::) ::)


Luis
72  Programación / Programación General / Buscador personalizado automático en: 12 Septiembre 2016, 01:20 am
Hola chicos
bueno suelo estar por net jejej saludos a Elektro buen profe..medio programo ya que a veces npi de lo que hago.

Bien al tema quiero hacer un buscador que trabaje por mi aunque este durmiendo la idea basica es crear un programita que segun le ponga las meta palabras este busque en la red y si encuentra me envie a un email los datos. solo quiero una orientacion o por donde tengo que empezar .si es posible para hacerlo en visual net me defiendo bien con este lenguaje gracias a mi amigo elektro pero ni modo si es en otro método

saludos
Luis
73  Foros Generales / Sugerencias y dudas sobre el Foro / Alguien conoce a Eleкtro ????? en: 21 Agosto 2016, 15:38 pm
Me gustaría saber que opinión tenéis sobre este personaje ? 

luis
74  Seguridad Informática / Hacking / Re: Ayuda! Mi dominio redirecciona a contenido malicioso en: 14 Agosto 2016, 11:08 am
Hola lo mas probable es que te hayan inyectado codigo malicioso ( eso me paso con una de mis web ) soluciones posibles:

Primero cambia las claves de el ftp o de la cuenta del servidor

segundo : ya no vale que hagas copia de lo que tienes en el servidor estas infectado

tercero : ahora viene lo mas malo ,tendrás que hacer todo de nuevo y no usar nada de lo que tengas subido ya que lo tendrás que borrar todo.

y avisa a los que te prestan servicio de hosting tambien cabe la posibilidad que sea a traves de ellos que te inyecten codigo.


busca info sobre esto " inyectar codigo en paginas webs "


saludos
Luis
75  Programación / .NET (C#, VB.NET, ASP) / Re: Pregunta Boba / como pasar registros desde un listbox a variables en: 7 Abril 2016, 19:12 pm
Cita de: Eleкtro en  7 Abril 2016, 18:54 pm
Te lo pregunto más que nada por que yo no me voy a seguir conectando con la misma frecuencia al foro por motivos...indeseables, por si necesitas (mi) ayuda AHORA. ¿seguro que se ha resuelto tu duda?, de lo contrario dilo sin miedo, que no como xd

saludos

No de verdad esta listo , solo te pido que me dejes un email en mi privado  :silbar: :silbar: :silbar:

Luis
76  Programación / .NET (C#, VB.NET, ASP) / Re: Pregunta Boba / como pasar registros desde un listbox a variables en: 7 Abril 2016, 18:07 pm
Cita de: Eleкtro en  7 Abril 2016, 17:03 pm
Asumo que por variable te estás refiriendo a un Array de enteros, ¿has leido mi última respuesta en este hilo?, ahí te expliqué como hacerlo, y de varias maneras...

Si no es eso lo que quieres hacer entonces yo no me estoy enterando (para variar...)

Saludos

Que si hombre lo que paso es que solo vi lo de Lekim ,tenia un ojo en el visual y otro aca no lo vi bien jeje como siempre gracias Elektro

Clausurado este post jejje hasta la siguiente pregunta  :silbar: :silbar: :silbar:


Luis
77  Programación / .NET (C#, VB.NET, ASP) / Re: Pregunta Boba / como pasar registros desde un listbox a variables en: 7 Abril 2016, 16:55 pm
Cita de: Lekim en  7 Abril 2016, 15:42 pm
Lo que no entiendo es por qué no usas este otro código que te pasó Elektro y que modifiqué para 6 números y para que no hubieran correlativos.

Todas las combinaciones:

Código
  1.         Dim intCol As New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.OfType(Of Integer))
  2.  
  3.         Dim pairsCol As IEnumerable(Of String) = Nothing
  4.  
  5.         pairsCol =
  6.             From value1 As Integer In intCol
  7.             From value2 As Integer In intCol
  8.             From value3 As Integer In intCol
  9.             From value4 As Integer In intCol
  10.             From value5 As Integer In intCol
  11.             Select String.Join(Environment.NewLine, (
  12.                                From value6 As Integer In intCol
  13.                                   Where (value1 <> value2) AndAlso
  14.                                         (value1 <> value3) AndAlso
  15.                                         (value1 <> value4) AndAlso
  16.                                         (value1 <> value5) AndAlso
  17.                                         (value1 <> value6) AndAlso
  18.                                         (value2 <> value3) AndAlso
  19.                                         (value2 <> value4) AndAlso
  20.                                         (value2 <> value5) AndAlso
  21.                                         (value2 <> value6) AndAlso
  22.                                         (value3 <> value4) AndAlso
  23.                                         (value3 <> value5) AndAlso
  24.                                         (value3 <> value6) AndAlso
  25.                                         (value4 <> value5) AndAlso
  26.                                         (value4 <> value6) AndAlso
  27.                                         (value5 <> value6) AndAlso
  28.                                         (value2 > value1) AndAlso
  29.                                         (value3 > value2) AndAlso
  30.                                         (value4 > value3) AndAlso
  31.                                         (value5 > value4) AndAlso
  32.                                         (value6 > value5)
  33.                                   Select String.Format("{0:00} {1:00} {2:00} {3:00} {4:00} {5:00}",
  34.                                                        value1, value2, value3, value4, value5, value6)))
  35.  
  36.  
  37.         For Each pairs As String In pairsCol
  38.             For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  39.                 ListBox1.Items.Add(line)
  40.             Next line
  41.  
  42.         Next pairs
  43.  
  44.  



Combinaciones SIN todos los  números correlativos

Código
  1.       Dim intCol As New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.OfType(Of Integer))
  2.  
  3.         Dim pairsCol As IEnumerable(Of String) = Nothing
  4.  
  5.         pairsCol =
  6. From value1 As Integer In intCol
  7. From value2 As Integer In intCol
  8. From value3 As Integer In intCol
  9. From value4 As Integer In intCol
  10. From value5 As Integer In intCol
  11. Select String.Join(Environment.NewLine, (
  12.               From value6 As Integer In intCol
  13.                  Where (value1 <> value2) AndAlso
  14.                        (value1 <> value3) AndAlso
  15.                        (value1 <> value4) AndAlso
  16.                        (value1 <> value5) AndAlso
  17.                        (value1 <> value6) AndAlso
  18.                        (value2 <> value3) AndAlso
  19.                        (value2 <> value4) AndAlso
  20.                        (value2 <> value5) AndAlso
  21.                        (value2 <> value6) AndAlso
  22.                        (value3 <> value4) AndAlso
  23.                        (value3 <> value5) AndAlso
  24.                        (value3 <> value6) AndAlso
  25.                        (value4 <> value5) AndAlso
  26.                        (value4 <> value6) AndAlso
  27.                        (value5 <> value6) AndAlso
  28.                        (value2 > value1) AndAlso
  29.                        (value3 > value2) AndAlso
  30.                        (value4 > value3) AndAlso
  31.                        (value5 > value4) AndAlso
  32.                        (value6 > value5) 
  33.                  Select String.Format("{0:00} {1:00} {2:00} {3:00} {4:00} {5:00}",
  34.                                       value1, value2, value3, value4, value5, value6)))
  35.  
  36.  
  37.         For Each pairs As String In pairsCol
  38.             For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  39.                 Dim Pattern As String = " "
  40.                 Dim Digito() As String
  41.                 Digito = System.Text.RegularExpressions.Regex.Split(line, Pattern)
  42.  
  43.                         If CInt(Digito(1)) <> CInt(Digito(0)) + 1 Or
  44.                                 CInt(Digito(2)) <> CInt(Digito(1)) + 1 Or
  45.                                     CInt(Digito(3)) <> CInt(Digito(2)) + 1 Or
  46.                                      CInt(Digito(4)) <> CInt(Digito(3)) + 1 Or
  47.                                        CInt(Digito(5)) <> CInt(Digito(4)) + 1 Then
  48.                     ListBox1.Items.Add(line)
  49.  
  50.                 End If
  51.             Next line
  52.  
  53.         Next pairs



Pero no me queda claro como pasar cada Item a Integer.

Este ejemplo, al final va obteniendo los números y crea una array cuyos items son los números de una combinación pero no se como se podría crear otro array con cada array ?¿?¿?¿

Código
  1.         Dim intCol As New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.OfType(Of Integer))
  2.  
  3.         Dim pairsCol As IEnumerable(Of String) = Nothing
  4.  
  5.         pairsCol =
  6. From value1 As Integer In intCol
  7. From value2 As Integer In intCol
  8. From value3 As Integer In intCol
  9. From value4 As Integer In intCol
  10. From value5 As Integer In intCol
  11. Select String.Join(Environment.NewLine, (
  12.               From value6 As Integer In intCol
  13.                  Where (value1 <> value2) AndAlso
  14.                        (value1 <> value3) AndAlso
  15.                        (value1 <> value4) AndAlso
  16.                        (value1 <> value5) AndAlso
  17.                        (value1 <> value6) AndAlso
  18.                        (value2 <> value3) AndAlso
  19.                        (value2 <> value4) AndAlso
  20.                        (value2 <> value5) AndAlso
  21.                        (value2 <> value6) AndAlso
  22.                        (value3 <> value4) AndAlso
  23.                        (value3 <> value5) AndAlso
  24.                        (value3 <> value6) AndAlso
  25.                        (value4 <> value5) AndAlso
  26.                        (value4 <> value6) AndAlso
  27.                        (value5 <> value6) AndAlso
  28.                        (value2 > value1) AndAlso
  29.                        (value3 > value2) AndAlso
  30.                        (value4 > value3) AndAlso
  31.                        (value5 > value4) AndAlso
  32.                        (value6 > value5) 
  33.                  Select String.Format("{0:00} {1:00} {2:00} {3:00} {4:00} {5:00}",
  34.                                       value1, value2, value3, value4, value5, value6)))
  35.  
  36.  
  37.         For Each pairs As String In pairsCol
  38.             For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  39.                 Dim Pattern As String = " "
  40.                 Dim Digito() As String
  41.                 Digito = System.Text.RegularExpressions.Regex.Split(line, Pattern)
  42.  
  43.                         If CInt(Digito(1)) <> CInt(Digito(0)) + 1 Or
  44.                                 CInt(Digito(2)) <> CInt(Digito(1)) + 1 Or
  45.                                     CInt(Digito(3)) <> CInt(Digito(2)) + 1 Or
  46.                                      CInt(Digito(4)) <> CInt(Digito(3)) + 1 Or
  47.                                        CInt(Digito(5)) <> CInt(Digito(4)) + 1 Then
  48.                     ListBox1.Items.Add(line)
  49.  
  50.                 End If
  51.             Next line
  52.  
  53.         Next pairs
  54.  
  55.         '//Esto solo crea un array con la última combinación. 
  56.        '//En realidad lo hace con todas pero solo queda registrada la última
  57.        '//¿Habría que hacer una colección de arrays?
  58.         Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))
  59.         Dim int32Col As IEnumerable(Of Integer) = Nothing
  60.  
  61.         For Each item As String In NuevaLista
  62.             int32Col = From Elemento As String In item.Split(" "c) Select CInt(Elemento)
  63.         Next
  64.  
  65.         'Los números de la última combinación
  66.         MessageBox.Show(int32Col(0).ToString)
  67.         MessageBox.Show(int32Col(1).ToString)
  68.         MessageBox.Show(int32Col(2).ToString)
  69.         MessageBox.Show(int32Col(3).ToString)
  70.         MessageBox.Show(int32Col(4).ToString)
  71.         MessageBox.Show(int32Col(5).ToString)
  72.  

FALTABA UN:

Código:
(value5 <> value6) AndAlso

Ya lo he puesto  :¬¬



Ya te agradezco la ayuda pero esto ya lo tengo cubierto, tengo mas filtros de lo que seguro usare jejej cuando tienes una idea pero no sabes como implementarlo es lo Jo,,,

Lo que pasa y como sabe  "El padre de Net "   jejej (elektro es broma ) casi todo mi programa esta hecho en linq: por eso cuando me salgo de la linea esa me pierdo  :silbar: :silbar:
pero como soy terco jejej no creo que no se pueda convertir los datos de un listbox en una simple variable


Luis
78  Programación / .NET (C#, VB.NET, ASP) / Re: Pregunta Boba / como pasar registros desde un listbox a variables en: 7 Abril 2016, 14:26 pm
Cita de: Lekim en  7 Abril 2016, 14:10 pm
Pero no sería pasarlo a integer, sino crear una colección o matriz interpretando cada elemento de una cadena de texto distinto de " " como integer. De ahí el uso que le das de Split

Al parecer tiene dos códigos, uno que le pasé yo y otro el tuyo Elektro. El cual estará como lo acabas de poner. Y quiere usar los dos en el mismo proyecto

Eso mismo  es lo que quiero ya que si no tendria que modificar todo lo que llevo en años  :silbar:
79  Programación / .NET (C#, VB.NET, ASP) / Re: Pregunta Boba / como pasar registros desde un listbox a variables en: 7 Abril 2016, 13:22 pm
Cita de: Lekim en  7 Abril 2016, 13:19 pm
Código:
no se puede pasar el codigo entero a integer ?

¿Es esta la pregunta?
"Entero a integer"  es lo mismo XD.

No fuera bromas. No se a que te refieres

Jeje se me fue la olla  :rolleyes: :rolleyes: de string a integer jejje

luis
80  Programación / .NET (C#, VB.NET, ASP) / Re: Pregunta Boba / como pasar registros desde un listbox a variables en: 7 Abril 2016, 13:16 pm
Cita de: Lekim en  7 Abril 2016, 12:52 pm
Repito. No puedes meter cadenas de texto 'string' en integer.

De hecho, según ese código (que me suena un poco  :xD) ya  tienes el ejemplo de como meter el ListBox en una variable...

Código
  1. Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))

Lo que hace el código, es meter la lista pura del ListBox (que son cadenas string) en la variable ClearList   que es un List(of T) que es un array.  
Luego en el For Each repasa cada Item del ClearList y si cumple las condiciones borra los Items del ListBox que las cumpla.


Ahora, si quieres meterlo en una variable, llamada por ejemplo 'NuevaLista', tan solo lo  has de meter otra vez como antes:
Código:
 Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))

Y ya lo tienes metido. Pero como String, claro. Porque algo como esto --> "01 02 03 04 05 06" es string e incluso Object, pero no integer

Código
  1.         ListBox1.Items.Add("01 02 03 04 05 06")
  2.         ListBox1.Items.Add("10 20 30 44 45 46")
  3.         ListBox1.Items.Add("12 22 34 45 56 65")
  4.         ListBox1.Items.Add("12 22 34 45 56 65")
  5.  
  6.  
  7.         Dim Pattern As String = " "
  8.         Dim Digito() As String
  9.  
  10.         '//Mete los Items del ListBox en ClearList 
  11.         Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))
  12.         For Each Item As String In ClearList
  13.             Digito = System.Text.RegularExpressions.Regex.Split(Item, Pattern)
  14.             If CInt(Digito(1)) = CInt(Digito(0)) + 1 And
  15.                  CInt(Digito(2)) = CInt(Digito(1)) + 1 And
  16.                      CInt(Digito(3)) = CInt(Digito(2)) + 1 And
  17.                          CInt(Digito(5)) = CInt(Digito(4)) + 1  Then
  18.  
  19.                 ListBox1.Items.Remove(Item) '<-----Borra un Item del ListBox
  20.             End If
  21.         Next
  22.         '//Mete la nueva lista en NewList
  23.         Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))
  24.         NuevaLista = NuevaLista.Distinct.ToList '//Quita Items repetidos
  25.         MessageBox.Show(NuevaLista(0).ToString)
  26.         MessageBox.Show(NuevaLista(1).ToString)
  27.  

Pero como te comenté no soy experto en NET, pero por lo que sé, yo lo veo así.

s2s


había un condición repetida dos veces, ya le he quitado :
Código:
CInt(Digito(5)) = CInt(Digito(4)) + 1


Ya  había resuelto  lo de meterlo en una variable  y me he vuelto loco tratando de pasarlos a integer,pero se que es como tu dices pero no puedo trabajar  mis otros códigos ya que son todos integer  >:D  no se puede pasar el codigo entero a integer ? ya que te son conocidos  :silbar: :silbar: :silbar:

lo he puesto asi pero da error al final   

La conversión de la cadena "10 20 30 44 45 46" en el tipo 'Integer' no es válida.


Código
  1.   ListBox1.Items.Add("01 02 03 04 05 06")
  2.         ListBox1.Items.Add("10 20 30 44 45 46")
  3.         ListBox1.Items.Add("12 22 34 45 56 65")
  4.         ListBox1.Items.Add("12 22 34 45 56 65")
  5.  
  6.  
  7.         Dim Pattern As String = " "
  8.         Dim Digito() As String
  9.  
  10.         '//Mete los Items del ListBox en ClearList 
  11.         Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))
  12.         For Each Item As String In ClearList
  13.             Digito = System.Text.RegularExpressions.Regex.Split(Item, Pattern)
  14.             If CInt(Digito(1)) = CInt(Digito(0)) + 1 And
  15.                  CInt(Digito(2)) = CInt(Digito(1)) + 1 And
  16.                      CInt(Digito(3)) = CInt(Digito(2)) + 1 And
  17.                        CInt(Digito(4)) = CInt(Digito(3)) + 1 And
  18.                          CInt(Digito(5)) = CInt(Digito(4)) + 1 Then
  19.  
  20.                 ListBox1.Items.Remove(Item) '<-----Borra un Item del ListBox
  21.             End If
  22.         Next
  23.         '//Mete la nueva lista en NewList
  24.         Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))
  25.         NuevaLista = NuevaLista.Distinct.ToList '//Quita Items repetidos
  26.         MessageBox.Show(NuevaLista(0).ToString)
  27.         MessageBox.Show(NuevaLista(1).ToString)
  28.  
  29.         Me.ListBox2.Items.AddRange((From value As Integer In NuevaLista Where value <> 0).Cast(Of Object).ToArray)   <<<aca el error
  30.  

saludos
Luis
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 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines