Mensajes

HOLA!!!

Tu codigo no lo encuentro por ningun lado, sera que ya lo quitaste?

Reviviste un post de mas de 3 años 

reviviste un post de 1 año 

GRACIAS POR LEER!!!

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!!!

HOLA!!!

En mi opinion...

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

GRACIAS POR LEER!!!

HOLA!!!

Aca les dejo mi solucion:

Las funciones son independientes...

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

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 (vb) [Seleccionar] Expandir

Private Function AndAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT     As Long
Dim Tam    As Long
Dim b1     As Long
Dim b2     As Long
b1 = Byte1
b2 = Byte2
    Do
        ReDim Preserve bit1(CT)
        If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
        If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
        bit1(CT) = CBool(b1 Mod 2)
        b1 = Fix(b1 / 2)
        CT = CT + 1
    Loop
    CT = 0
    Do
        If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
        If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
        ReDim Preserve bit2(CT)
        bit2(CT) = CBool(b2 Mod 2)
        b2 = Fix(b2 / 2)
        CT = CT + 1
    Loop
    If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
    If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
    Tam = UBound(bit1)
    ReDim bit3(Tam)
    For X = 0 To Tam
        If bit1(X) Then If bit2(X) Then bit3(X) = True
    Next
    For X = 0 To Tam
        If bit3(X) Then AndAlt = AndAlt + 2 ^ (X)
    Next

End Function

Private Function OrAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT     As Long
Dim Tam    As Long
Dim b1     As Long
Dim b2     As Long
b1 = Byte1
b2 = Byte2
    Do
        ReDim Preserve bit1(CT)
        If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
        If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
        bit1(CT) = CBool(b1 Mod 2)
        b1 = Fix(b1 / 2)
        CT = CT + 1
    Loop
    CT = 0
    Do
        If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
        If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
        ReDim Preserve bit2(CT)
        bit2(CT) = CBool(b2 Mod 2)
        b2 = Fix(b2 / 2)
        CT = CT + 1
    Loop
    If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
    If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
    Tam = UBound(bit1)
    ReDim bit3(Tam)
    For X = 0 To Tam
        If bit1(X) Then bit3(X) = True
        If bit2(X) Then bit3(X) = True
    Next
    For X = 0 To Tam
        If bit3(X) Then OrAlt = OrAlt + 2 ^ (X)
    Next

End Function

Private Function XorAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT     As Long
Dim Tam    As Long
Dim b1     As Long
Dim b2     As Long
b1 = Byte1
b2 = Byte2
    Do
        ReDim Preserve bit1(CT)
        If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
        If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
        bit1(CT) = CBool(b1 Mod 2)
        b1 = Fix(b1 / 2)
        CT = CT + 1
    Loop
    CT = 0
    Do
        If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
        If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
        ReDim Preserve bit2(CT)
        bit2(CT) = CBool(b2 Mod 2)
        b2 = Fix(b2 / 2)
        CT = CT + 1
    Loop
    If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
    If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
    Tam = UBound(bit1)
    ReDim bit3(Tam)
    For X = 0 To Tam
        If bit1(X) Then If bit2(X) = False Then bit3(X) = True
        If bit2(X) Then If bit1(X) = False Then bit3(X) = True
    Next
    For X = 0 To Tam
        If bit3(X) Then XorAlt = XorAlt + 2 ^ (X)
    Next

End Function

Private Function NotAlt(Byte1 As Long) As Long
    NotAlt = -(Byte1 + 1)
End Function


GRACIAS POR LEER!!!

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir

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!!!

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!!!

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!!!

HOLA!!!

Genial Vamos a ver si hay algo bueno por ahi .

GRACIAS POR LEER!!!

[Estas subido a un pony]

HOLA!!!

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!!!

HOLA!!!

Esto fue una clara TAREA.

GRACIAS POR LEER!!!