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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 ... 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 [50] 51 52 53 54 55 56 57 58 59 60 61 62 63 64
491  Programación / Programación Visual Basic / Ariadne's Thread [Encuentra tu pendrive robado :D] en: 25 Diciembre 2010, 21:33 pm
Holaaaaaa.  ;D

Ariadne's Thread

Encuentra tu Pendrive, MP3 o Ipod Robado!
Pequeño software de rastreo que al ser abierto envia muchos datos de la pc.
En caso de robos, al ejecutar el programa obtendras muuuuchos datos del "ladron" aumentando tus posibilidades de saber quien lo tiene.

===0===

Find your Stolen Pendrive, MP3 Player or Ipod!
This software will email you with the information of the "thief's" Computer, hoping you will find him (or her :P)

Sorry for my bad english :P!



ScreenShot





Modo de uso:
Paso 1: Crear el Rastreador
Paso 2: Copiarlo en tu pendrive, mp3, ipod, etc. (Recomendable crearlo con un nombre llamativo: "Contraceñas.txt" seria muuuuy copado :P!!!)
Paso 3: Que te roben :P!
Paso 4: El choro abre el archivo que llama la atencion
Paso 5: Te llegan los datos.
Paso 6: Le rompes la cabeza al que te lo robo :D!

How to use :P
Step1: Build the Tracker
step 2: Copy the tracker to your USB drive (if you use a name like Password.txt is better ;D )
step 3: wait for somebody to steal you :P
step 4: The one who stole you opens the tracker
step 5: You get aaaall the info.
Step 6: You beat the crap out of the one who stole you :D!



Downloads!

http://infrangelux.sytes.net/FileX/index.php?dir=&file=ProjectAriadnesThread.zip
LINK ARREGLADO!
492  Programación / Programación Visual Basic / Re: ¿Cómo reiniciar un timer en visual basic 6? en: 25 Diciembre 2010, 17:08 pm
para "Reiniciar" un timer (es decir que empieze denuevo la cuenta atras) pone asi:

Timer1.enabled = false
timer1.enabled = true


automaticamente para y empieza de nuevo :P!
493  Programación / Programación Visual Basic / Re: imposible comparar texto :S en: 22 Diciembre 2010, 21:03 pm
desde el vamos el error esta aca

If (v) = (va) Then
 
       MsgBox "Ya hay una nueva versión!. Usted usa la versión ·3·"
 
Else
     MsgBox "No hay actualizaciones disponibles", vbInformation, "Actualizaciones..."
 
End If

si la version = a version actual entonces no hay actualizciones, esta al revez.

mas alla de eso ni idea :S
494  Programación / Ingeniería Inversa / Spreader Facebook. en: 20 Diciembre 2010, 23:49 pm
Hola.
Estaba en faisbuc como siempre al re pedo cuando me mandan esto:

"Foto  http://www.facebook.com/l.php?u=www.acoplasticos.org/crm"


entro en acroplasticos y me encuentro con un site igualito a Facebook pero con un boton que dice que para ver la foto necesito bajarla.
OBVIAMENTE baja un archivo EXE que NO abri.  :P

lo que me sorprendio es que funcionase por FB.

http://acoplasticos.org/crm/ es el sitio y me sorprendio que la home te direcciona a un supuesto sitio de nosequepolimero colombiano :S

Analizen si quieren sino ... no :P

EDITO: Lo meti en una sandbox:
http://camas.comodo.com/cgi-bin/submit?file=0c0be56c272d47e79daa8ae55bd39ed35589549a7b55176f5b764d359ae33edf

Se hace pasar por drives de nvidia
495  Programación / Programación Visual Basic / Re: Parar cierre de aplicación en VB en: 20 Diciembre 2010, 21:30 pm
el problema es que el evento tuyo esta en el form close
osea ya es inevitable.

coloca ese codigo en el boton que diga "Cerrar" :P
496  Programación / Programación Visual Basic / Re: [Desafio/Reto/Tiempo al Pedo] Konami Code en: 19 Diciembre 2010, 03:11 am
AHAHA TEMANME!!!

Lo logre :D
Código
  1. Dim Cur As Byte
  2. 'arriba 38
  3. 'abajo 40
  4. 'izq 37
  5. 'derech 39
  6. 'B 66
  7. 'A 65
  8.  
  9. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  10.    tmrPulso.Enabled = False
  11.    Select Case Cur
  12.    Case 0
  13.        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
  14.    Case 1
  15.        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
  16.    Case 2
  17.        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
  18.    Case 3
  19.        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
  20.    Case 4
  21.        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
  22.    Case 5
  23.        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
  24.    Case 6
  25.        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
  26.    Case 7
  27.        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
  28.    Case 8
  29.        If KeyCode = 66 Then Cur = Cur + 1 Else Cur = 0
  30.    Case 9
  31.        If KeyCode = 65 Then
  32.            MsgBox "KABIO EL KONAMI KODE"
  33.            Cur = 0
  34.        End If
  35.    End Select
  36.    tmrPulso.Enabled = True
  37. End Sub
  38.  
  39.  
  40. Private Sub tmrPulso_Timer()
  41. Cur = 0
  42. End Sub

Ponganle al timer el interval que quieran, yo probe con 2000 ms (2 segundos) y quedo pulenta ^.^
497  Programación / Programación Visual Basic / Re: [Desafio/Reto/Tiempo al Pedo] Konami Code en: 19 Diciembre 2010, 02:31 am
yo lo intente, pero tube el problema de que no lograba encontrar en el formpress cuales eran las teclas.
498  Programación / Programación Visual Basic / Re: Esperar al final de la ejecucion de otro programa. en: 14 Diciembre 2010, 03:13 am
Ahora que ya me habias dado la puntita use gugel y salio algo al toq.

No es lo mas lindo del mundo pero funciona :D
Código
  1. ' Shell And Wait.
  2. ' Taken Fron VB-Helper.com
  3. '
  4. ' Edited to fit MY nedds :D
  5. ' Elemental Code ^.^
  6. Option Explicit
  7. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  8. Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  9. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  10.  
  11. Private Const SYNCHRONIZE = &H100000
  12. Private Const INFINITE = -1&
  13.  
  14. ' Start the indicated program and wait for it
  15. Private Sub ShellAndWait(ByVal program_name As String, ByVal window_style As VbAppWinStyle)
  16. Dim process_id As Long
  17. Dim process_handle As Long
  18.  
  19.    ' Start the program.
  20.    On Error GoTo ShellError
  21.    process_id = Shell(program_name, window_style)
  22.    On Error GoTo 0
  23.  
  24.    DoEvents
  25.  
  26.    ' Wait for the program to finish.
  27.    ' Get the process handle.
  28.    process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
  29.    If process_handle <> 0 Then
  30.        WaitForSingleObject process_handle, INFINITE
  31.        CloseHandle process_handle
  32.    End If
  33.  
  34.    'Closed Window
  35.    'Do whatever you want here :D
  36.    Exit Sub
  37.  
  38. ShellError:
  39.    MsgBox "Error starting task " & _
  40.        txtProgram.Text & vbCrLf & _
  41.        Err.Description, vbOKOnly Or vbExclamation, _
  42.        "Error"
  43. End Sub


EDiTO: he notado que la aplicacion mientras "espera" queda como que no responde.
a mi me sirve, si no les sirve... mala suerte :P
499  Programación / Programación Visual Basic / Re: [Source] Efecto Luvia de TV en: 14 Diciembre 2010, 02:41 am
MATOOOOOOO!!!!!!

Esta fantastico el efecto.

jeje, con ruidito y todo.
500  Programación / Programación Visual Basic / Esperar al final de la ejecucion de otro programa. en: 13 Diciembre 2010, 21:51 pm
HOLA :D

Estoy haciendo un downloader para probar la funcion de kInvoke de Karcrack y le queria agregar un minimelt.
Que no eliminaria el programa que estas ejecutando sino el que bajaste y ejecutaste.

Osea el downloader lo que hace es bajar un archivo, ejecutarlo y necesito que cuando termine lo elimine.

pero si lo quiero eliminar antes del final de la ejecucion explota todo.

asi que, como hago lo que en consola seria.

Start notepad.exe /wait

??????
Páginas: 1 ... 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 [50] 51 52 53 54 55 56 57 58 59 60 61 62 63 64
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines