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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ... 64
21  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 1 en: 23 Enero 2013, 17:29 pm
Código
  1. Private Sub Form_Load()
  2.    Form1.Show
  3.    Form1.AutoRedraw = True
  4.    MsgBox "empezara luego del ok"
  5.    t = Timer
  6.    For x = 0 To 100000
  7.        Call mul5and3below1000
  8.    Next
  9.    Form1.Print "tiempo 7913 " & Timer - t
  10.    Form1.Print "resultado 7913 " & mul5and3below1000
  11.    t = Timer
  12.    For x = 0 To 100000
  13.        Call mul_3_5
  14.    Next
  15.    Form1.Print "Tiempo dany " & Timer - t
  16.    Form1.Print "Resultado dani " & mul_3_5
  17. End Sub
  18. Private Function mul5and3below1000() As Long
  19.   Dim ct As Long
  20.   Dim aux As Long
  21.   Do
  22.       mul5and3below1000 = mul5and3below1000 + aux + aux2
  23.       ct = ct + 1
  24.       aux = ct + ct + ct
  25.       aux2 = ct + ct + ct + ct + ct
  26.   Loop While aux2 < 1000
  27.   Do
  28.       mul5and3below1000 = mul5and3below1000 + aux
  29.       ct = ct + 1
  30.       aux = ct + ct + ct
  31.   Loop While aux < 1000
  32.   ct = 0
  33.   aux = 0
  34.   Do
  35.       mul5and3below1000 = mul5and3below1000 - aux
  36.       ct = ct + 1
  37.       aux = ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct
  38.   Loop While aux < 1000
  39. End Function
  40.  
  41. Function mul_3_5() As Long
  42. Dim i As Integer
  43. For i = 1 To 999
  44. If (i Mod 3) < 1 Or (i Mod 5) < 1 Then
  45. mul_3_5 = mul_3_5 + i
  46. End If
  47. Next i
  48. End Function

Ok, con esta funcion de testeo los resultados mios son:
22  Foros Generales / Sugerencias y dudas sobre el Foro / Re: Se pueden hacer ventas? en: 23 Enero 2013, 16:34 pm
Estoy abriendo el paraguas...

Y por mp?
23  Seguridad Informática / Análisis y Diseño de Malware / Re: duda poison ivy en: 23 Enero 2013, 01:16 am
no me interesa, pero haciendo correctamente la pregunta del user anterior...

Sabemos de algun rat relativamente estable y que ande en windows 7?
24  Foros Generales / Noticias / Re: Estudiante es echado de universidad por descubrir fallo de seguridad en: 23 Enero 2013, 01:02 am
y si aca en argentina es igual

Yo me saque una baja nota porque "Trabaje demasiado" textuales palabras de la profesora.

Yo ya sali de la secundaria.
Pero le adverti a la directora que usar outlook en una red WI FI era un suicidio porque con CAIN le sacaban la contraseña.
Me dijo que estaba equivocado.

Dos semanas despues le robaron la casilla de email y quien fue el sospechoso?
Si, YO.

El sistema te trunca a sus estandares.
Saber es peligroso, y hacer lo correcto aun mas.

25  Seguridad Informática / Análisis y Diseño de Malware / Re: Troyanizar logmein en: 20 Enero 2013, 16:06 pm
thininstall no muestra una ventanita a la hora de abrir el final?

Si no mal recuerdo te sale como una notificacion de MSN diciendo "App creada usando thininstall"
26  Media / Diseño Gráfico / Re: Animaciones faciles de hacer? en: 20 Enero 2013, 03:58 am
Pivot stickfigure animator.

http://pivotanimator.net/Download

El 2.7 si es medio bobo.

Sino el 4 va a andar bien :)
27  Media / Diseño Gráfico / Re: Ideas para logos en: 20 Enero 2013, 03:56 am
AAA Logo creator.

Obtenes buenas ideas y resultados medianamente interezantes. Sumale a eso una pizca de conocimiento en photoshop y tenes algo muuuuy bueno. (ponele creatividad tuya y ni te digo :P)
28  Media / Diseño Gráfico / Re: Busco iconos de años (50s,60s,70s,80s,90s,2000,2001,2002,etc...) en: 20 Enero 2013, 03:54 am
Normalmente yo me guio por lo basico.

Que metes adentro? (Calculo que musica) :P
Que tipo de musica? (Suponiendo que electronica por tu nick)

Mandale algo en 8bits :P

Osea, dibujalos vos con el paint :P
29  Programación / Programación Visual Basic / Re: SendKeys CONSULTA en: 17 Enero 2013, 00:25 am
Te mande un Mensaje.

Yo tengo un codigo que escanea los pixeles de la pantalla y toma la pocion al bajar la vida.
100 % indetectable.

Funciona con el Argentum de Tierras del Sur, pero de ultima quizas lo pueda adaptar.
Mira el mensaje y despues me contas.
30  Foros Generales / Foro Libre / Re: Que pasaría si no existiera las religiones? en: 15 Enero 2013, 21:20 pm

Una imagen lo dice todo
Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ... 64
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines