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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Mensajes
Páginas: 1 ... 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 [94] 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 ... 137
931  Programación / Programación Visual Basic / Re: [SpyUserAgent] Mi ultima aplicacion, aver que les parece en: 12 Abril 2011, 20:34 pm
HOLA!!!

Cita de: moba741120 en 12 Abril 2011, 20:18 pm
Tu codigo no lo encuentro por ningun lado, sera que ya lo quitaste?

Reviviste un post de mas de 3 años  :¬¬ :¬¬

Cita de: seba123neo en 21 Julio 2008, 23:21 pm
reviviste un post de 1 año  :¬¬ :¬¬

GRACIAS POR LEER!!!
932  Programación / Programación Visual Basic / Re: mensaje en pantalla en: 12 Abril 2011, 15:07 pm
HOLA!!!

Lo que dice raul lo tengo en el proyecto del bloqueo de pantalla para el TOP-MOST:

Te dejo un link http://foro.elhacker.net/programacion_visual_basic/source_bloqueo_de_pantalla-t322438.0.html

GRACIAS POR LEER!!!
933  Programación / Programación General / Re: ¿Me ayudan a decidirme? C / C++ o Java o .NET? en: 8 Abril 2011, 16:56 pm
HOLA!!!

En mi opinion...

Me decantaria por Java y Net (Csharp y VB). Y ademas agregaria Delphi.

GRACIAS POR LEER!!!
934  Programación / Programación Visual Basic / Re: [RETO] Reemplazo de Operadores Binarios. en: 8 Abril 2011, 14:12 pm
HOLA!!!

Aca les dejo mi solucion:

Las funciones son independientes...

Al igual que Black tengo problemas con el And y Or Negativos :P.

Utilizo 3 Array de Flags(bool) Para guardar los numeros y el resultado en binario.

Soporte para tipos de datos Dec, Hex, Oct y Bin.

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
  126.  

GRACIAS POR LEER!!!
935  Programación / Programación Visual Basic / [RETO] Reemplazo de Operadores Binarios. en: 7 Abril 2011, 17:19 pm
HOLA!!!

Me parece que va a estar bueno, el reto consiste en crear 3 funciones:
(Usa Long por la rapidez y para soportar numeros grandes)

Código:
AndAlt(Byte1 As Long, Byte2 As Long) as Long
OrAlt(Byte1 As Long, Byte2 As Long) as Long
XorAlt(Byte1 As Long, Byte2 As Long) as Long

Creo que mucho no hay que explicar las funciones deben devolver lo mismo que los operadores binarios convencionales.

P.D: Me habia olvidado... NotAlt(Byte1 As Long)
P.D2: Creo que es obvio, no se pueden usar los operadores en las funciones.
P.D3:Para los que no saben como funcionan los operadores binarios:
Código:
Primero los valores se convierten a binario y luego se hace esto:

And: Solo si se comparte el mismo bit en ambos numeros.
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
        -----------------
Result  = 0 0 1 0 1 0 0 0

Or : Solo si uno tiene un bit "1".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
        -----------------
Result  = 1 0 1 1 1 0 1 1

Xor : Solo si uno tiene un bit "1" y el otro "0".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
        -----------------
Result  = 1 0 0 1 0 0 1 1

GRACIAS POR LEER!!!
936  Programación / Programación Visual Basic / Re: ¿Es posible añadir GoogleAdsense en VB6? en: 7 Abril 2011, 13:06 pm
HOLA!!!

No me preguntes como pero a mi me cerraron la cuenta de adsense con 45 dolares despues de un mes de distribuir programas con publicidad.

GRACIAS POR LEER!!!
937  Programación / Programación C/C++ / Re: [DUDA][PROYECTO]Crear Sistema operativo independiente a Windows en: 6 Abril 2011, 01:07 am
HOLA!!!

Dije lo que pensaba, como vos tambien decias lo que pensabas sobre los "supuestos SO no booteables".



P.D: Perdon si me pase pero escribi lo que crei conveniente en el momento y no me arrepiento de nada, es mas Afirmo nuevamente todo lo dicho.

GRACIAS POR LEER!!!
938  Programación / Scripting / Re: [VBS] [JS] Recopilación de 1.735 Scripts para aprender. en: 5 Abril 2011, 13:37 pm
HOLA!!!

Genial Vamos a ver si hay algo bueno por ahi :D.

GRACIAS POR LEER!!!
939  Programación / Programación C/C++ / Re: [DUDA][PROYECTO]Crear Sistema operativo independiente a Windows en: 4 Abril 2011, 19:47 pm
HOLA!!!

Cita de: Simeneuro en  4 Abril 2011, 19:11 pm
1·Varios emuladores de sistema operativos(creaban usuarios, los borranvan, etc...).
2·Messenger falsos.
3·Keyloggers.
4·Blocs de notas.
5·Cronómetros, relojes, calendarios.
6·Reproductores de músicas.
7·Navegadores(co9n muchos más comandos que un navegador normal echo en vb, todos inventados por mi).
8·Y mucho más, también algunos conectados con bases de datos, por ejemplo, hice uno que te crease objetos para el world of warcraft conectado a la db(sql en este caso).

Jajaja!
Muchachos estamos en frente al dios de VB! (y posteriormente el de ¿HTML? , PHP y Cpp)

1- A eso entre parentesis le llamas emulador de SO... Por favor, se hace con un simple BAT.
2- [MUY LAMMER] Genial! aprendimos a sacarle una foto a la pantalla, recortarla con paint, poner labels invisibles y por ultimo un par de cuadros de texto!
3- Keyloggers... Apuesto que los haces con timers sin palabras ... Estas subido a un pony.
4- Bienn!!! Blocs de notas... sin verlos no puedo decir mucho... asique Bien.
5- Timer, Timer y agregamos al proyecto MS Calendar control. ¡Terminado!
6- Agregamos al proyecto MS Multimedia control seleccionamos el archivo y PLAY ¡Terminado!
7- Decime cual es un navegador Normal hecho en VB.
8- Acceso a datos... Nunca vi las Bds del WOW pero Calculo que estara bien.

[JOKE]
9- Deberias hacer un SO para que te Corrija la Ortografia Genio![/JOKE]

[SARCASM]
10- Toda la sabiduria que muestra Simeneuro me supera, mi mente inferior no puede procesar tanta informacion.[/SARCASM]

Repito, Estas subido en un pony y pensas que estas en un Formula 1.

GRACIAS POR LEER!!!
940  Programación / Programación Visual Basic / Re: Extraer parte del texto, de una cadena de caracteres de un tex box... en: 4 Abril 2011, 19:03 pm
HOLA!!!

Esto fue una clara TAREA.

GRACIAS POR LEER!!!
Páginas: 1 ... 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 [94] 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 ... 137
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines