Mensajes

[Ariadne's Thread]

Holaaaaaa.  

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 )

Sorry for my bad english !



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 !!!)
Paso 3: Que te roben !
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 !

How to use
Step1: Build the Tracker
step 2: Copy the tracker to your USB drive (if you use a name like Password.txt is better )
step 3: wait for somebody to steal you
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 !



Downloads!

http://infrangelux.sytes.net/FileX/index.php?dir=&file=ProjectAriadnesThread.zip
LINK ARREGLADO!

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 !

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

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.  

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

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

Se hace pasar por drives de nvidia

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"

AHAHA TEMANME!!!

Lo logre

Código (vb) [Seleccionar] Expandir

Dim Cur As Byte
'arriba 38
'abajo 40
'izq 37
'derech 39
'B 66
'A 65

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    tmrPulso.Enabled = False
    Select Case Cur
    Case 0
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 1
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 2
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 3
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 4
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 5
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 6
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 7
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 8
        If KeyCode = 66 Then Cur = Cur + 1 Else Cur = 0
    Case 9
        If KeyCode = 65 Then
            MsgBox "KABIO EL KONAMI KODE"
            Cur = 0
        End If
    End Select
    tmrPulso.Enabled = True
End Sub


Private Sub tmrPulso_Timer()
Cur = 0
End Sub

Ponganle al timer el interval que quieran, yo probe con 2000 ms (2 segundos) y quedo pulenta ^.^

yo lo intente, pero tube el problema de que no lograba encontrar en el formpress cuales eran las teclas.

Ahora que ya me habias dado la puntita use gugel y salio algo al toq.

No es lo mas lindo del mundo pero funciona

Código (vb) [Seleccionar] Expandir

' Shell And Wait.
' Taken Fron VB-Helper.com
'
' Edited to fit MY nedds :D
' Elemental Code ^.^
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&

' Start the indicated program and wait for it
Private Sub ShellAndWait(ByVal program_name As String, ByVal window_style As VbAppWinStyle)
Dim process_id As Long
Dim process_handle As Long

   ' Start the program.
   On Error GoTo ShellError
   process_id = Shell(program_name, window_style)
   On Error GoTo 0

   DoEvents

   ' Wait for the program to finish.
   ' Get the process handle.
   process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
   If process_handle <> 0 Then
       WaitForSingleObject process_handle, INFINITE
       CloseHandle process_handle
   End If

   'Closed Window
   'Do whatever you want here :D
   Exit Sub

ShellError:
   MsgBox "Error starting task " & _
       txtProgram.Text & vbCrLf & _
       Err.Description, vbOKOnly Or vbExclamation, _
       "Error"
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

MATOOOOOOO!!!!!!

Esta fantastico el efecto.

jeje, con ruidito y todo.

HOLA

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

??????