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


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14
41  Programación / .NET (C#, VB.NET, ASP) / De regreso con mis temas jejje ,saltar un espacio en arreglo en: 21 Mayo 2015, 09:34 am
Hola a todos

en un arreglo de numeros de x cantidad de numeros, siempre el famoso 01 al 99 :) yo formo grupos de numeros de 10 numeros

concatenando splist o variables de dos numeros cada uno de ese arreglo de esta manera:

Código
  1.  Dim Bz1 As IEnumerable(Of Integer) =
  2. (
  3. From Value As Integer In split(1).Concat(split(2).Concat(split(3)).Concat(split(4)).Concat(split(5)))
  4. Where (Value <= MAX AndAlso Value > 0)).Distinct
  5.  
  6.  
  7.        Dim Sl1 As IEnumerable(Of Integer) = Bz1
  8.        Dim SM1 As List(Of Integer) = Bz1.toList
  9.        SM1.Sort()
  10.  
  11.       Me.ListBox2.Items.AddRange((From value As Integer In SM1 Where value <> 0).Cast(Of Object).ToArray)
  12.  


Bien esto funciona bien el problema que quiero resolver es que tiene correlatividad de numeros.


arreglo principal ( 01 02 03 04 05 06 07 08 09 10 ....................99)

este codigo muestra este resultado

01 02 03 04 05 06 07 08 09 10

Porque al ordenarse el arreglo los splits o variables enpiezan desde el principio del arreglo

split(1) = 01 02
split(2) = 03 04
split(3) = 05 06
split(4) = 07 08
split(5) = 09 10



estos split los saco de esta funcion que toma los valores del arreglo principal


Código
  1. Dim split As IEnumerable(Of IEnumerable(Of Integer)) =
  2.        SplitIntoParts(collection:=alia1, amount:=2, fillEmpty:=True)


en definitiva lo que nesecito es hacer saltos de numeros intermedios de los numeros contenidos en los split

ejemplo
ahora es de esta forma

split(1) = 01 02
split(2) = 03 04
split(3) = 05 06
split(4) = 07 08
split(5) = 09 10
******************
y lo nesecito de esta forma

split(1) = 01 03
split(2) = 02 04
split(3) = 05 07
split(4) = 06 08
split(5) = 08 10


Bueno antes de preguntar he usado take,skip sin resultados :) con la clausula Where no se plantear el problema

claro esta que si volvemos a unir los split como estan ahora y despues, se formaria la misma combinacion pero lo puse a si para el ejemplo ya que las concatenaciones cambian de forma que haga otras numeraciones :)


Luis



42  Programación / .NET (C#, VB.NET, ASP) / Eliminar duplicados o repetidos en: 27 Abril 2015, 15:08 pm
Hola a todos
bueno aca estoy de nuevo :) con mis rollos

no encuentro la manera de eliminar datos repetidos he puesto por todos lados pero no me filtra los registros repetidos se como hacerlo con variables pero como aca pongo todas las variables juntas en un testbox ;( me da ese fallo

01 02 03 04 05 06 07 08 09
01 02 03 04 05 06 07 08 09




Código
  1. Dim Lnumbers As List(Of IEnumerable(Of Integer)) = { SM18, SM17, SM16, SM14....,}.Distinct.ToList
  2.  
  3.  
  4.      For Each col As IEnumerable(Of Integer) In Lnumbers
  5.  
  6.  
  7.  
  8.            ListBox23.Items.Add(String.Join(", ", From value As Integer In col
  9.                                                                      Select If(value.ToString.Length = 1I,
  10.                                                                                value.ToString.Insert(0I, "0"c),
  11.                                                                                value.ToString)))
  12.        Next col



Luis
43  Programación / .NET (C#, VB.NET, ASP) / Problema mostrar multiples variables en un solo Listbox en: 19 Abril 2015, 18:28 pm
Bueno aca de nuevo con un problema similar al anterior post   :silbar:

Queria mostrar en un solo listbox 60 listbox  y se resolvio :) ahora pense que seria mejor mostrar  las variables que se muestra en esos testbosex  y podria hacer el codigo mas limpio jejej

tengo esto, pero dos cosas si son 60 variables como es que se colocan jejej ya que logro poner una y la muestra pero repiten los resultados :( cuando se supone que deberia :)

de esta manera si hay una sola variable
01 02 03 04 05 06 07 08 09 10

y me muestra : ????

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10


Código
  1. Dim Lnumbers As List(Of Integer) = rsalmlals2
  2.  
  3.        For Each Lnumber As Integer In Lnumbers
  4.  
  5.            ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer)))
  6.  
  7.        Next Lnumber


Saludos
Luis
44  Programación / .NET (C#, VB.NET, ASP) / Como puedo mostar 60 listbox en uno solo :) en: 18 Abril 2015, 13:18 pm
Hola de nuevo por aca, ya espacio el tiempo en entrar por preguntas tontas jejej gracias a mi amigo elektro que por miedo a sus regaños  :silbar:  no mentira , es gracias a el que me dio la pista como trabajar en este lenguaje pero me falta un monton por aprender jejeje

ahora la temida pregunta :)

tengo 60 listbox y por supuesto las consabidas variables de cada uno de estos listbox donde muestro resultados numericos ahora se me ocurre meter en un solo lisbotx todas estas variables pero separadas por resultados

algo como esto

listbox1
01 02 03 04 05 06 07 08 09 10 <---------variable 1
 
11 12 13 14 15 16 17 18 19 20 <---------variable 2

21 22 23 24 25 26 27 28 29 30 <---------variable 3 ....Etc

estaba concatenando ;( pero ***** desastre jejej


saludos
Luis








45  Programación / .NET (C#, VB.NET, ASP) / rellenar con rand variable ya cargada de datos en: 9 Abril 2015, 14:35 pm
 Otro de mis inventos :)

quiero rellenar con numeros aleatorios cuando la cuenta de la variable este por debajo de 30, el rango de estos numeros es 00 al 99, pero no deberian de repetir en la variable.

tengo esto que rellena pero con ceros

Código
  1. If Resultados.Count < 30 Then
  2.  
  3.           Resultados = Resultados.Concat(Enumerable.Repeat(Of Integer)(0, (30 - Resultados.Count)))
  4.  
  5.          End If

entonces se me ocurrio esto pero nunca me da la seguridad de tener como minimo 30 datos en la variable :( a veces el programa entero no llega a esa cantidad y FALLO

Código
  1. If Resultados.Count < 30 Then
  2.  
  3.           Resultados = numerosFaltantesdelRango
  4.  
  5.        End If




Luis
46  Seguridad Informática / Análisis y Diseño de Malware / Explotar a los correos spam denegacion de servico en: 8 Abril 2015, 20:05 pm
Hola no tengo Npi de como hacerlo pero alguien me puede decir como se puede evitar o que se reenvien sus mensajes spam ? y saturarlos de tal manera que se les quite las ideas de enviar basura ?

luis
47  Programación / .NET (C#, VB.NET, ASP) / Pregunta Re tonta :( no mostra ceros en listbox en: 1 Abril 2015, 18:56 pm
En serio :)  o yo no se buscar o esto no existe

envio a un listbox una serie de datos numericos y los muestro en un listbox y a al principio y segun los calculos estos muestran algunos ceros ( bueno yo diria que bastantes jejej )  :silbar:  y lo que quiero no es eliminar los ceros, pero si que no se vean  y que solo el listbox muestre numeros pero no el cero ( cuestion de estetica )

Código
  1. Dim se As IEnumerable(Of Integer) = Resultss
  2.        Dim li As List(Of Integer) = se
  3.        li.Sort()
  4.        Me.ListBox7.Items.AddRange(li.Cast(Of Object).ToArray)
48  Programación / .NET (C#, VB.NET, ASP) / Otra mision con variables en: 31 Marzo 2015, 15:43 pm
Hola a todos aca traigo otra e las mias

tengo tres variables dos con arreglos y una tercera que trabajaria con los registros de la variable que cumpla con la condicion en ese momento pero no se si se puede hacer algo con esta chapuza que haciendo  :)


Código
  1.    Dim values1 As    integer  
  2.        Dim values2 As   integer
  3.       [color=red] Dim compuesto As Integer <-- a esta variable llegaria los datos de cualquiera de las dos anteriores[/color]
  4.  
  5.  
  6.  
  7.  
  8.        Dim Re As IEnumerable(Of Integer) =
  9.           (values).
  10.           Distinct.
  11.           Select(Function(values As Integer)
  12.                      If values <= 35 Then
  13.  
  14.                          Return values
  15.                      Else
  16.  
  17.                          Return values2
  18.  
  19.                      End If
  20.  
  21.                  End Function)
  22.  


Luis
49  Programación / .NET (C#, VB.NET, ASP) / Rellenar con rand no me funciona en: 29 Marzo 2015, 12:20 pm
Otra de las mias
cuando quiero unir dos rutinas o mas no me funciona lo de rellenar con numeros aleatorios dentro del rango

se supone que este codigo al no haber mas numeros dentro del arreglo tomaria uno al azar dentro del rango establecido pero no se que pasa ahora que no lo hace


Código
  1.   ReadOnly MAX As Integer = 99
  2.  
  3.  
  4.        Dim Rand As New Random
  5.        Dim ReAsult2255e As IEnumerable(Of Integer) =
  6.           (splits(1).Concat(splits(3).Concat(splits(5).
  7.           Distinct.
  8.           Select(Function(Value As Integer)
  9.                      Return If(Value < MAX, Value, Rand.Next(1, MAX))
  10.                  End Function))))
  11.  
  12.        Dim seAlecctedValues231 As IEnumerable(Of Integer) = ReAsult2255e
  13.        Dim liste3 As List(Of Integer) = ReAsult2255e.Take(10).ToList
  14.        liste3.Sort()
  15.        ListBox12.Items.AddRange(liste3.Cast(Of Object).ToArray)
  16.        ' ----------------------------------------------------------------------
  17.  
  18.  
  19.       Dim Rand1 As New Random
  20.        Dim AReAAsult2255e As IEnumerable(Of Integer) =
  21.           (splits(3).Concat(splits(10).Concat(splits(11).Concat(splits(12).
  22.           Distinct.
  23.           Select(Function(Value As Integer)
  24.                      Return If(Value < MAX, Value, Rand1.Next(1, MAX))
  25.                  End Function)))))
  26.  
  27.        Dim seAlecctedValues231A As IEnumerable(Of Integer) = AReAAsult2255e
  28.        Dim listeA3 As List(Of Integer) = AReAAsult2255e.Take(10).ToList
  29.  
  30.        listeA3.Sort()
  31.        ListBox13.Items.AddRange(listeA3.Cast(Of Object).ToArray)


Luis


50  Programación / .NET (C#, VB.NET, ASP) / Eliminar filtrar numeros con terminaciones iguales en: 26 Marzo 2015, 11:53 am
Eliminar numeros con terminaciones iguales

Hola de nuevo aca estoy con mis chapusas en programacion :)

Formo combinaciones de numeros de un arreglo o variables pero donde el resultado no debe tener el mismo numero terminal explico :)

Código
  1. Dim resultss As IEnumerable(Of Integer) =
  2.            {
  3.                01,03,04,06,07,08,09,20,28,35.39,45,48,55,66,68,75,78.90,98........
  4.            }
  5.  
  6.        Dim selectedValues As IEnumerable(Of Integer) = resultss.Take(10)
  7.  
  8.        Me.ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)
  9.    End Sub

esto me da combinaciones de 10 numeros


salida

01,03,04,06,07,08,09,20,28,35

39,45,48,55,66,68,75,78.90,98

en la primera combinacion esta el 08 y el 28
en la segunda combinacion estan el  45 55 75

la idea es que en ninguna combinacion  tenga repetidos el mismo numero terminal ?

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