Foro de elhacker.net

HOLA!!!

Antes que nada, el codigo esta un poco desordenado pero funciona perfect.

El programa es perfecto para cuando uno no quiere que accedan a la pc mientras uno no esta.

Posee Calculadora integrada, Calendario y Tetris

Si la pc se reinicia, el Programa al iniciar sesion se activa nuevamente.
Bloquea el administrador de tareas.
Queda "Always on top"
Te dice la fecha y la hora.

Metodos para Anularlo, bueno simple, entrar en modo a prueba de fallos y borrar o mover el exe. (o borrar el .bat que se crea en la carpeta inico).

Una captura:

(http://img192.imageshack.us/img192/1903/dibujofzw.jpg)

Atencion:

Como cerrarlo?

En el campo Nota1 poner el numero de dia en los primeros 2 caracteres
En el campo Nota2 poner el numero de mes en los primeros 2 caracteres
En el campo Nota3 poner el numero de año en los primeros 4 caracteres
(en el caso del mes y el dia , si son menores a 10 habra que poner un 0 antes del numero)

Ahi el boton salir funcionara...

Presionamos salir (dblclick)

Y en contraseña ponemos la hora y los minutos seguidos de "7913"

Presionamos salir y listo.

Descargar URL:
http://www.mediafire.com/?bmy8nwa3gbm053z

GRACIAS POR LEER!!!

Buena! lo bajare a ver q tal.

Che creo q tiene algunos bugs, yo de bien estupido q soy lei poco tu explicacion y lo ejecute xD y desp con lo poco q habia leido hice q ande el Salir pero no pude poner bien la contraseña jeje. Los fallos/bugs q digo q tiene es q yo agarre y reinicie y al reiniciar esta bueno porq se bloquea de nuevo si, pero no quedo en pantalla completa :S y se veia mi escritorio, aunque claro q no podia hacer nada.

Y yo tengo el System Explorer algo asi, q lo remplaze por mi Administrador de Tareas, asique lo pude ejecutar tranquilamente y al no estar en pantalla completa el Bloqueo.exe , pude utilizar bien el System Explorer para finalizar el proceso y luego abrir de nuevo el explorer.exe.

Asique seria ver eso de q al reiniciar no queda en pantalla completa, en vez de deshabilitar el Administrador de Tareas, podrias hacer q no se pueda ejecutar Ctrl+Alt+Del q seria mejor por si tienen remplazado el administrador asi como yo.
Y otra cosita, cuando reinicie pude ver el .bat correr q la verdad no entiendo bien porq usas el bat ese :S y ya q lo usas podrias poner que se ejecute oculto, aunque yo haria muchas cosas distintas pero la idea esta bien.


pd: Yo apenas descargue tu proyecto elimine el source y ejecute el bloqueo.exe por eso ni idea como funciona y no tengo muchas ganas de mirarlo xD

pd2: En el .bat cambia "Echo off" por "@echo off" q es asi, con el @ porq sino muestra igual la primer linea( aunque si haces lo q dije antes ni el bat se vera xD)

pd3: Con vs no hablo ironicamente ni te tomo el pelo, por las dudas te digo , por lo de hoy xD

HOLA!!!

Genial Bugs! Mañana me pongo a arreglarlos a mi en W$7 me tira error por que no existe la clave de registro XD.

Si, lo del bat fue una solucion... rapida y muuuy pobre.

GRACIAS POR LEER!!!

Dale, metele q esta bueno el proyecto, acordate lo del Ctrl+Alt+Del y de paso para las combinaciones de tecla para cambiar de usuario tamb.

Ctrl + alt + surp
Ctrl + alt + esc
Win + E
Win + R
alt + tab
ctrl + shift + escape

ahora no se me ocurren mas :P

HOLA!!!

Todas las combinaciones de Tecla windows + X se anulan al cerrar el Exporer.

Alt Tab anulado con el TopMost

Ctrl Shift Esc Anulado con clave de registro

Ctrl Alt Supr No anulado, pero de cualquier modo no permite cerrar el programa ya que no se podra abrir el Administrador de tareas.

Unica alternativa es que el usuario tenga modificado el Taskmgr.exe

GRACIAS POR LEER!!!

me olvide de las mas estupidas >.<

Alt +  F4

Alt + Espacio + C

apretar toooooodos los botones del teclado con los dos puños

Pero anula el Ctrl Alt + Supr, y ya lo has corregido a lo otro?

Jajaja en caso de poder detectarlo poner algun cartelito de auto destruccion xD

No lo he probado aun. Pero lo haz probado en windows 7? Control+alt+suprimir actua distinto ahi

HOLA!!!

Estuve averiguando y en cualquier sistema basado en tecnologia NT vease W$2000 en adelante, las teclas Ctrl Alt Supr estan reservadas y protegidas, no se puede cancelar su ejecucion (a no ser algun soft que quite el controlador del teclado ¡que buena idea voy a ver que sale!) asi que lo unico que proteje al programa de un Administrador de tareas alternativo es el topmost.

W$7 anoche lo quise probar y me tiro error con la clave de registro que anula el taskmgr y como no tengo vb ni ganas de modificarlo, ahora estoy trabajando en una segunda version de este beta.

GRACIAS POR LEER!!!

Con lo del topmost se soluciona eso si pero si arreglas el bug q te decia de q no queda en pantalla completa al reiniciar.

HOLA!!!

Si eso si esta solucionado :)

(tengo que subirlo de nuevo igual)

Anular la combinacion ctrl alt supr es imposible en windows mediante vb6

GRACIAS POR LEER!!!

¿Era necesario el spam? :¬¬

DoEvents! :P

Hola esta bueno el code, pero no seria mejor deshabilitar el teclado y poner un teclado en pantalla para escribir la contraseña??, te ahorrarias estar bloqueando las combinaciones de teclas... xD es solo una idea :P

HOLA!!!

Ejemm, como bloqueas el teclado?

Decime como seria, por que la verdad ni idea.

GRACIAS POR LEER!!!

Con un Hook, se podría.

DoEvents! :P

.
Se me ocurre meterle un juego al bloqueo de pantalla...

Dulces Lunas!¡.

¡Pero que no requiera teclado, porque como lo quiere bloquear! :laugh:

DoEvents! :P

HOLA!!!

Segun lo que enduve leyendo no se puede quitar la combinacion ctrl alt supr nisiquiera con un hook.

Lo del juego, si, estaria bueno, voy a ver si le agrego.

GRACIAS POR LEER!!!

Una forma fea que hacen algunos "virus" es cambiar de lugar los archivos que "manejan" el teclado, cosa q no los encuentre.

HOLA!!!

XD si, puedo quitar el taskmgr, pero no me agrada la idea...

Aparte en 7 y vista bloquea el equipo, no entra al adm de tareas.

GRACIAS POR LEER!!!

Paraara bloquear el teclado completo tenes que usar un HOOK, es la manera mas sencilla :P

HOLA!!!

Lei por ahí que era imposible bloquear el ctrl alt supr incluso con un hook, si me aseguras que se anula la pulsacion de ctrl alt supr, modifico el codigo.

GRACIAS POR LEER!!!

Yo tengo un programa hecho en otro lenguaje que lo bloquea TODO, no queda vivo ni Alt+Tab ni Ctr+Alt+Del ni na'a, solo el ratón (aún más facil de bloquear).

El problema es que no sé como incorporarlo en Vb6, cosa que te ayudaría bastante  :D

PD: Ahora reviso tu source... y perdón por revivir un post  :xD

EDIT: Lo del CTRL + ALT + DEL, eso si que no lo bloquea, pero todo lo demás si  :-[

HOLA!!!

Lo de los sufijos en los nombres de los frames... Es una boludes.
Lo de que use forms asiconsume menos memoria... Esos forms quedarian debajo del form principal.
Y lo del rendimiento es cierto... Ahora me pongo a arreglar el codigo... Mañana o pasado modifico el hilo y pongo las mejoras.

GRACIAS POR LEER!!!

Ejem..   :rolleyes: gracias a ti por programar ;D

Respuesta: SetParent ( con esta API metes un objeto X dentro de otro ), tambien puedes crea un form MDI, pero no es como usar un form MDI.

Lo de la memoria: no e probado el programa pero si se bloquea la pantalla es para que no usen la pc asi que eso no importa mucho, igual los forms puede que usen mas memoria que los controles (bytes) aun que eso depende de las propiedades de cada elemento, es decir, no se puede afirmar que usa mas memoria realmente, pero si se puede calcular/verificar.

las nomenclaturas son importantes, pero igual cada programador tiene su nomenclatura para declarar; cuando son proyectos grandes y grupales la nomenclatura pasa de ser trivial a requerida y exigida ( El grupo determina una tabla para los distintos tipos de datos/objetos ), pero para este caso no importa mucho que digamos.


Para bloquear el teclado de manera que no se pueda usar combinaciones de teclas se puede usar un hook, o tambien se me ocurre dejar mantenida una tecla por medio de API's de esa manera se podria cancelar  Control+Alt+Supr aun que es una mera suposición xP.

P.D.: Esperare un te-tris dentro xP

Dulces Lunas!¡.

HOLA!!!

Actualizo, tiene tetris, un dia de estos que me agarren ganas veo el tema de hook.

GRACIAS POR LEER!!!

A eso me referia, un MDI y todo arreglado

El tetris sufrio una sobredosis de algo  :o, por que las figuras se quedan suspendidas!

Y claro, tienes que escojer entre bloqueo de teclado o jugar tetris, la opcion del teclado digital estaria bien. Pero tambien me gustaria(en lo personal, claro) que la manera de cerrarlo fuera mas facil, una contraseña por ejemplo y con eso.

No veo la necesidad de calendario o calculadora... si de juegos!... muchos juegos!  :laugh: :laugh: :laugh: :laugh:

Salud!

HOLA!!!

El tema de una contraseña es que ya me paso con otros bloqueadores que hay por la red, la gente te puede ver la contraseña o incluso algun keylogger te guarda la contraseña, pero con el sistema de salida nos ahorramos que la gente vea la pass, ya que esta varia en cada minuto.

GRACIAS POR LEER!!!

Emm pues asi sea el sistema mas seguro del mundo, siempre habra la forma de sacarle la contraseña, ademas: ¿Que no habiamos quedado en el teclado virtual?, ya no seria de caracteres, si no de puntos en la pantalla, ademas podrias variar la posicion o el tamaño de las teclas del teclado virtual a cada intento de ingresar la contraseña...

PD: ¿Alguien sabe por que chingaos no puedo citar la respuesta de otro usuario?  :-X:

Salud!

.
Buena por el tetris (es mi vicio) .

PAra que no se coma el procesador:

 
' // poner este código en algún otro proceso y que sea llamado por el proceso form_load y/o en form_resize.
' // Sustituí algunas zonas del código donde se presenta la división con números decimales ( / ) por la divicion entera ( \ )
 
'Private Sub Fondo_Timer()
      Const nLineasH As Long = 50
      Const nLineasV As Long = 500
      GRIS = nLineasH + 1
      AutoRedraw = True               ' //  Esta linea hace que no se borre nada.
      'LINEAS HORIZONTALES DE ABAJO
      'For Y = Me.ScaleHeight To Me.ScaleHeight - Int(Me.ScaleHeight / 4) Step -Int(Me.ScaleHeight / (4 * nLineasH))
      For Y = Me.ScaleHeight To (Me.ScaleHeight - Me.ScaleHeight \ 4) Step (Not (Me.ScaleHeight / (4 * nLineasH)) - 1)
          GRIS = GRIS - 1
          Me.Line (0, Y)-(Me.ScaleWidth, Y), RGB(GRIS, GRIS, GRIS)
      Next
      'LINEAS VERTICALES EN DEGRADE DE ABAJO
' //      For X = 0 To Me.ScaleWidth Step Int(Me.ScaleWidth / nLineasV)
      For X = 0 To Me.ScaleWidth Step (Me.ScaleWidth \ nLineasV)
          GRIS = nLineasH + 1
          'For Y = Me.ScaleHeight To Me.ScaleHeight - Int(Me.ScaleHeight / 4) Step -Int(Me.ScaleHeight / (4 * nLineasH))
          For Y = Me.ScaleHeight To (Me.ScaleHeight - (Me.ScaleHeight \ 4)) Step (Not (Me.ScaleHeight \ (4 * nLineasH)) - 1)
              GRIS = GRIS - 1
              Me.Line (X, Y)-(X, Y - (Me.ScaleHeight \ (4 * nLineasH))), RGB(GRIS, GRIS, GRIS)
          Next
      Next
'      Fondo.Enabled = false   '// No tiene caso
      '0,217,217
'End Sub
 
 

@ignorantev1.1

se ve mas limpio y mas eficiente un comentario cuando sabes leer y respondes a lo ultimo, si fuera de hace tiempo es razonable citarlo pero en caso contrario se ve feo y ademas hasta da weba leer;   me da weba visual ademas que el scroll de mi mouse es una cochinada ¬¬".

P.D.: El programa lo usare para proteger mi pc, ya que mis sobrinos siempre entran a mi cuarto a toquetear mis cosas... a tal grado que instale el Avira ( Asi de paranoico ando ).

Dulces Lunas!¡.

Como no tenia (y no tengo) nada que hacer me puse a tratar de hacer una especie de teclado virtual y esto es lo que logre:
A lo mejor no es el mejor, pero al fin y al cabo es mi teclado virtual...  :-(

Private Type Tecla
    Caption As String
    X As Integer
    Y As Integer
End Type
 
Const BCKCOLOR = vbBlack
Const FNTCOLOR = vbWhite
 
Dim TECLA_WDT As Integer
Dim TECLA_HGT As Integer
Dim RAIZ_X As Integer
Dim RAIZ_Y As Integer
 
Dim GBL_M_X As Integer
Dim GBL_M_Y As Integer
 
Dim Buffer As String
 
Dim teclado(0 To 39) As Tecla
 
Private Sub pinta_Teclado()
    Me.Line (RAIZ_X, RAIZ_Y)-(RAIZ_X + TECLA_WDT * 10, RAIZ_Y + TECLA_HGT * 4), BCKCOLOR, BF
    Me.FORECOLOR = FNTCOLOR
    For i% = 0 To 39
        Me.Line (RAIZ_X + teclado(i).X * TECLA_WDT, RAIZ_Y + teclado(i).Y * TECLA_HGT)- _
            (RAIZ_X + (teclado(i).X + 1) * TECLA_WDT, RAIZ_Y + (teclado(i).Y + 1) * TECLA_HGT) _
            , FNTCOLOR, B
        Me.CurrentX = RAIZ_X + (teclado(i).X * TECLA_WDT) + _
                (TECLA_WDT / 2 - Me.TextWidth(teclado(i).Caption) / 2)
        Me.CurrentY = RAIZ_Y + (teclado(i).Y * TECLA_HGT) + _
                (TECLA_HGT / 2 - Me.TextHeight(teclado(i).Caption) / 2)
        Me.Print teclado(i).Caption
    Next
End Sub
 
Private Sub inicializa_Teclado()
    Dim reserved() As Integer
    Dim Teclas As String
    Dim rndPos As Integer
    Dim cVal As Integer
 
    Teclas = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ."
    ReDim reserved(0 To 37)
    For i% = 0 To 37
        reserved(i) = i
    Next i
 
    For i% = 0 To 37
        rndPos = Int(Rnd * UBound(reserved))
        cVal = reserved(rndPos)
        For j% = rndPos To UBound(reserved) - 1
            reserved(j) = reserved(j + 1)
        Next j
 
        If UBound(reserved) > 0 Then ReDim Preserve reserved(UBound(reserved) - 1)
 
        teclado(i).Y = Int(cVal / 10)
        teclado(i).X = cVal - teclado(i).Y * 10
        teclado(i).Caption = Mid(Teclas, i + 1, 1)
    Next i
 
    teclado(38).Y = 3
    teclado(38).X = 8
    teclado(38).Caption = "OK"
 
    teclado(39).Y = 3
    teclado(39).X = 9
    teclado(39).Caption = "BCK"
End Sub
 
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    GBL_M_X = -1: GBL_M_Y = -1
    If X >= RAIZ_X And Y >= RAIZ_Y And X <= RAIZ_X + (TECLA_WDT * 10) And _
    Y <= RAIZ_Y + (TECLA_WDT * 4) Then
        GBL_M_X = Fix(((X - RAIZ_X) / TECLA_WDT))
        GBL_M_Y = Fix(((Y - RAIZ_Y) / TECLA_HGT))
    End If
End Sub
 
Private Sub Form_Click()
    Dim isFound As Boolean
    Dim index As Integer
    If GBL_M_X <> -1 And GBL_M_Y <> -1 Then
        While index <= 39 And Not isFound
            If teclado(index).X = GBL_M_X And teclado(index).Y = GBL_M_Y Then
                isFound = True
            Else
                index = index + 1
            End If
        Wend
 
        If teclado(index).Caption = "BCK" Then
            If Len(Buffer) > 0 Then
                If Len(Buffer) = 1 Then
                    Buffer = ""
                Else
                    Buffer = Mid(Buffer, 1, Len(Buffer) - 1)
                End If
            End If
        ElseIf teclado(index).Caption = "OK" Then
            MsgBox "Buffer: " & Chr$(34) & Buffer & Chr$(34)
        Else
            Buffer = Buffer & teclado(index).Caption
        End If
 
        Me.Caption = Buffer
    End If
End Sub
 
Private Sub Form_Load()
    Randomize
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    TECLA_WDT = 48
    TECLA_HGT = 16
    RAIZ_X = Me.ScaleWidth / 2 - TECLA_WDT * 10 / 2
    RAIZ_Y = Me.ScaleHeight - TECLA_HGT * 4
    Call inicializa_Teclado
    Call pinta_Teclado
End Sub
 
Private Sub Form_Resize()
    TECLA_WDT = 48
    TECLA_HGT = 16
    RAIZ_X = Me.ScaleWidth / 2 - TECLA_WDT * 10 / 2
    RAIZ_Y = Me.ScaleHeight - TECLA_HGT * 4
    Me.Cls
    Call pinta_Teclado
End Sub
 
 

@BlackZeroX▓▓▒▒░░
Pues no me refiero a este "post" especificamente. No puedo citar ningun comentario desde hace tiempo y no estaba planteando mi duda para poder citar ahorita, de hecho no planeo citar a nadie (por el momento), pero si pienso hacerlo, a lo mejor, mas adelante... ¡jum! y como sigo sin tener nada que hacer tratare de aprender a leer...

@ignorantev1.1
No hace falta tanto código, con hacer un frame con las letras y los numeros ( cada letra es un boton, o un label ) y ocultarlo al iniciar el programa, y luego mostrarlo con

fraTuFrame.Visible = True

es suficiente, y pones este código y ya está (suponiendo que pulsamos el boton de  la letra "a") :

txtCampoParaPass.Text = txtCampoParaPass & "a"

Y el boton de borrar ( como el Backspace ) :

LongitudTexto = Len(txtCampoParaPass)
LongitudTexto = Val(LongitudTexto) - 1
txtCampoParaPass.Text = Left(txtCampoParaPass,LongitudTexto)

Así de fácil, lo único complicado es ir haciendo los botones uno por uno y ponerles las letras y/o números

PD: Yo si puedo citar, pero el error ese me ha saltado 1 o 2 veces...  :-\

HOLA!!!

Yo lo que haria es una matriz de controles que en su evento click tuviese esto.

Pass.txt = pass.txt & Botonletra(index).caption

Ahí ese seria el unico codigo necesario, lo unico alternativo a hacer es poner los botones con las letras correspondientes.

Pero no soy partidario de los teclados virtuales.

GRACIAS POR LEER!!!

HOLA!!!

Buena onda lo tuyo eh...

La parte de C++la voy a omitir por que este hilo no es para un flame.

Lo de los graficos y tonterias... A que te referis, el programa esta funcional.

GRACIAS POR LEER!!!

@martin_poipon Respeto tu opinion, pero no vengas a decir donde todos usamos vb por que queremos que hay cosas mejores.

No voy a decir a un foro de linux o bsd que windows es mejor :xD Es lo mismo aca

En cuanto a la app, ya se alargo mucho :XD

Martin.. hace cuanto que programas? a veces hay q ver con quien se discute xD, solo digo

Desde que empecé con mis primeros códigos en el "lenguaje de programación" batch (así le llamaba antes  ;D), 7-8 meses (batch -> neobook (ejemplo (http://tinypaste.com/f73258)) -> visual basic 6   -> c++)
PD: yo no estaba discutiendo, estaba hablando simplemente D:

.
Dime de lo que presumes y te dire de lo que careces

Creo que se estaban refiriendo a la forma de programar, no a lo has estudiado!¡.

P.D.: No importa quien lo haga, esto no es para hacer un flame, aun que si trae tetris yo contento xD...

Dulces Lunas!¡.

Ctrl + W?

Gracias lo probaré a ver que tal ;)