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 ... 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 [43] 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 ... 137
421  Foros Generales / Sugerencias y dudas sobre el Foro / Re: Llegó mi hora :( en: 6 Junio 2012, 15:08 pm
HOLA!!!

Es cierto, yo lo vi ayer y anteayer.

GRACIAS POR LEER!!!
422  Foros Generales / Foro Libre / Re: Recomiendenme libros en: 6 Junio 2012, 15:06 pm
HOLA!!!

El arte de la guerra
http://es.wikipedia.org/wiki/El_arte_de_la_guerra

El Príncipe
http://es.wikipedia.org/wiki/El_Pr%C3%ADncipe

El Hombre que Calculaba
http://es.wikipedia.org/wiki/El_hombre_que_calculaba

GRACIAS POR LEER!!!
423  Programación / .NET (C#, VB.NET, ASP) / Re: Que les parece mi aplicacion opiniones? en: 5 Junio 2012, 22:57 pm
HOLA!!!

Cita de: zapala76 en  5 Junio 2012, 22:07 pm
Lo que lastima la vista es tu falta de ortografía (demasiado se escribe), y además  podrías ver las cosas positivas también, no?'

Tranquilo, me equivoque, lo siento.

Si hubiera visto algo positivo ya estaria escrito en mi post.

Tenes algo que ver con el user que creo el post? por que si no es asi seria raro ya que es muy comun esa respuesta despues de una dura critica contra uno. Defensor de nada sos.

Calculo que solo en esos 2 puntos sin sentido se basa tu post.

Mucha suerte!

GRACIAS POR LEER!!!
424  Programación / Scripting / Re: Negativos en batch en: 5 Junio 2012, 19:52 pm
HOLA!!!

¿No seria mejor asi?

Cita de: EleKtro H@cker en  3 Junio 2012, 10:49 am
Código
  1. @echo off
  2. Echo Introduezca los grados Celsius (§C) 
  3. set /P gradoscelsius=^>^> 
  4. Set /A gradoscelsius=%gradoscelsius:-=%
  5. set /A resultado=%gradoscelsius%-273
  6. Echo Resultado: %gradoscelsius% §C = %resultado% §K | MORE

GRACIAS POR LEER!!!
425  Foros Generales / Dudas Generales / Re: Nombres para sistema operativo en: 5 Junio 2012, 04:46 am
HOLA!!!

Cumulonimbus = Nube

Nombre: CumulonimbOS o simplemente NimbOS

GRACIAS POR LEER!!!
426  Programación / .NET (C#, VB.NET, ASP) / Re: Reconocimiento de texto en imagen (OCR) en: 4 Junio 2012, 21:01 pm
HOLA!!!

Siempre es la misma fuente?

Guarda cada letra y revisa pixel por pixel, maneja un porcentage de tolerancia y el resto es ver que caracter se asemeja mas al guardado.

GRACIAS POR LEER!!!
427  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda! Como serian los codigos para crear un programa para ver ip (y explicacion en: 4 Junio 2012, 20:56 pm
HOLA!!!

La mejor api y mas simple que encontre:
http://wtfismyip.com/text

GRACIAS POR LEER!!!
428  Programación / .NET (C#, VB.NET, ASP) / Re: Programa para Trollear en: 4 Junio 2012, 20:55 pm
HOLA!!!

En vb6 llenas la ram hasta el punto que no anda nada.

Deberias agregarle un sistema para que  luego de X ventanas abiertas (averigua como contar las que quedaron abiertas) empiece un Do : x= x + 1 - x - 1 + 5 : Loop asi te comes el procesador.

Aunque no se si como se ejecuta desde el Framework podes hacer eso.

GRACIAS POR LEER!!!
429  Programación / Programación Visual Basic / Re: Recopilacion de Funciones con operaciones Binarias. en: 4 Junio 2012, 15:57 pm
HOLA!!!

Deberias agregar el reto de reemplazo de operadores binarios:


And, Not, Xor y Or reemplazados:
Código
  1. Private Function AndAlt(Byte1 As Long, Byte2 As Long) As Long
  2. Dim bit1() As Boolean
  3. Dim bit2() As Boolean
  4. Dim bit3() As Boolean
  5. Dim CT     As Long
  6. Dim Tam    As Long
  7. Dim b1     As Long
  8. Dim b2     As Long
  9. b1 = Byte1
  10. b2 = Byte2
  11.    Do
  12.        ReDim Preserve bit1(CT)
  13.        If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
  14.        If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
  15.        bit1(CT) = CBool(b1 Mod 2)
  16.        b1 = Fix(b1 / 2)
  17.        CT = CT + 1
  18.    Loop
  19.    CT = 0
  20.    Do
  21.        If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
  22.        If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
  23.        ReDim Preserve bit2(CT)
  24.        bit2(CT) = CBool(b2 Mod 2)
  25.        b2 = Fix(b2 / 2)
  26.        CT = CT + 1
  27.    Loop
  28.    If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
  29.    If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
  30.    Tam = UBound(bit1)
  31.    ReDim bit3(Tam)
  32.    For X = 0 To Tam
  33.        If bit1(X) Then If bit2(X) Then bit3(X) = True
  34.    Next
  35.    For X = 0 To Tam
  36.        If bit3(X) Then AndAlt = AndAlt + 2 ^ (X)
  37.    Next
  38.  
  39. End Function
  40.  
  41. Private Function OrAlt(Byte1 As Long, Byte2 As Long) As Long
  42. Dim bit1() As Boolean
  43. Dim bit2() As Boolean
  44. Dim bit3() As Boolean
  45. Dim CT     As Long
  46. Dim Tam    As Long
  47. Dim b1     As Long
  48. Dim b2     As Long
  49. b1 = Byte1
  50. b2 = Byte2
  51.    Do
  52.        ReDim Preserve bit1(CT)
  53.        If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
  54.        If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
  55.        bit1(CT) = CBool(b1 Mod 2)
  56.        b1 = Fix(b1 / 2)
  57.        CT = CT + 1
  58.    Loop
  59.    CT = 0
  60.    Do
  61.        If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
  62.        If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
  63.        ReDim Preserve bit2(CT)
  64.        bit2(CT) = CBool(b2 Mod 2)
  65.        b2 = Fix(b2 / 2)
  66.        CT = CT + 1
  67.    Loop
  68.    If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
  69.    If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
  70.    Tam = UBound(bit1)
  71.    ReDim bit3(Tam)
  72.    For X = 0 To Tam
  73.        If bit1(X) Then bit3(X) = True
  74.        If bit2(X) Then bit3(X) = True
  75.    Next
  76.    For X = 0 To Tam
  77.        If bit3(X) Then OrAlt = OrAlt + 2 ^ (X)
  78.    Next
  79.  
  80. End Function
  81.  
  82. Private Function XorAlt(Byte1 As Long, Byte2 As Long) As Long
  83. Dim bit1() As Boolean
  84. Dim bit2() As Boolean
  85. Dim bit3() As Boolean
  86. Dim CT     As Long
  87. Dim Tam    As Long
  88. Dim b1     As Long
  89. Dim b2     As Long
  90. b1 = Byte1
  91. b2 = Byte2
  92.    Do
  93.        ReDim Preserve bit1(CT)
  94.        If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
  95.        If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
  96.        bit1(CT) = CBool(b1 Mod 2)
  97.        b1 = Fix(b1 / 2)
  98.        CT = CT + 1
  99.    Loop
  100.    CT = 0
  101.    Do
  102.        If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
  103.        If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
  104.        ReDim Preserve bit2(CT)
  105.        bit2(CT) = CBool(b2 Mod 2)
  106.        b2 = Fix(b2 / 2)
  107.        CT = CT + 1
  108.    Loop
  109.    If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
  110.    If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
  111.    Tam = UBound(bit1)
  112.    ReDim bit3(Tam)
  113.    For X = 0 To Tam
  114.        If bit1(X) Then If bit2(X) = False Then bit3(X) = True
  115.        If bit2(X) Then If bit1(X) = False Then bit3(X) = True
  116.    Next
  117.    For X = 0 To Tam
  118.        If bit3(X) Then XorAlt = XorAlt + 2 ^ (X)
  119.    Next
  120.  
  121. End Function
  122.  
  123. Private Function NotAlt(Byte1 As Long) As Long
  124.    NotAlt = -(Byte1 + 1)
  125. End Function

GRACIAS POR LEER!!!
430  Foros Generales / Foro Libre / Re: COMO ACABARA INTERNET en: 1 Junio 2012, 20:50 pm
HOLA!!!

Internet terminara muriendo por la falta de energia electrica o por que algun loquito o nacion encuentre algun factor critico y rompa todo.

(las intranets no estan incluidas en mi profecia)

GRACIAS POR LEER!!!
Páginas: 1 ... 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 [43] 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 ... 137
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines