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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Temas
Páginas: 1 2 3 4 [5] 6 7 8 9
41  Programación / Programación Visual Basic / mFileExists.bas [Tan rustico como se pueda :D] en: 1 Febrero 2011, 22:28 pm
Siguiendo con lo rustico aca les dejo este modulo para hacer una funcion que VB deberia haber tenido :P

Código
  1. '---------------------------------------------------------------------------------------
  2. ' Module    : mFileExists
  3. ' Author    : Elemental Code
  4. ' Date      : 01/02/2011
  5. ' Purpose   : Check if a file exists in the most rustic way
  6. '---------------------------------------------------------------------------------------
  7. Option Explicit
  8. Dim attr As VbFileAttribute
  9. Public Function FileExists(ByVal sPath As String) As Boolean
  10. On Error GoTo Missing
  11. attr = GetAttr(sPath)
  12. FileExists = True
  13. Exit Function
  14. Missing:
  15. FileExists = False
  16. End Function

Esta es la version estupida, facil y rustica de averiguar si un archivo existe.
Posiblemente haya aproximadamente 15.000 formas mejores pero esta funciona y la arme yo de guapo que soy.

Ademas uso esto como palanca para que un programador capo (Ejem Karcrack, Cobein, Seba123neo, BlackZeroX, Mr.Frog, LeandroA) se jueguen y saquen una version super rapida, con inline de ASM y que tire rayos por los ojos :D

Saludos.
42  Programación / Programación Visual Basic / Ayuda con Sockets en: 25 Enero 2011, 17:53 pm
holaa  ;D

Despues de ver el programa "Turbinas" hecho en vb6.0, no me parecio demasiado complicado recrearlo
Para los que no conocen el soft, es un lammereada que conecta y desconecta muuuuy rapido sockets haciendo un mini ataque DOS.
Se usa para tirar servidores de juegos o cosas asi.

Entonces con un timer y un Winsock deberia ser suficiente pero, Oh sorpresa, no se si el socket lo tengo que poner en udp o tcp ni tampoco se si tengo que esperar respuesta antes de desconectarlo y reconectarlo. :P


Codigo todavía no escribi nada pero la idea creo que esta.

Si me tiran un cable se los agradeceria ^^
43  Programación / Programación Visual Basic / [Source] Obtener hWnd, Caption y Class de cualquier cosa :D! en: 7 Enero 2011, 16:49 pm
hola :D!

En un nuevo proyecto pongan un timer que se llame Timer1
y cuatro etiquetas
lblCoor
lblCaption
lblClass
lblhWnd

y metanle este codigo que no se de donde lo saque pero no andaba :P
(ahora si anda)
Código
  1. Option Explicit
  2. 'Constantes para pasarle a la función Api SetWindowPos  
  3. Const SWP_NOMOVE = 2  
  4. Const SWP_NOSIZE = 1  
  5. Const HWND_TOPMOST = -1  
  6. Const HWND_NOTOPMOST = -2 '  
  7.  
  8. ' Función Api SetWindowPos  
  9. Private Declare Function SetWindowPos _  
  10.    Lib "user32" ( _  
  11.        ByVal hWnd As Long, _  
  12.        ByVal hWndInsertAfter As Long, _  
  13.        ByVal X As Long, ByVal Y As Long, _  
  14.        ByVal cX As Long, _  
  15.        ByVal cY As Long, _  
  16.        ByVal wFlags As Long) As Long  
  17.  
  18. Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
  19. Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  20. Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  21. Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  22.  
  23. Private Type POINTAPI
  24.   X As Long
  25.   Y As Long
  26. End Type
  27.  
  28. Dim Coor As POINTAPI
  29. Dim Buff As String * 255
  30. Dim Hwn As Long
  31. Dim Class As String * 255
  32.  
  33. Private Sub Form_Load()
  34.    Timer1.Interval = 1
  35.    Timer1.Enabled = True
  36.    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _  
  37.                            SWP_NOMOVE Or SWP_NOSIZE
  38. End Sub
  39.  
  40. Private Sub Timer1_Timer()
  41. 'Obtenemos las coordenadas del cursor
  42.   GetCursorPos Coor
  43. 'Obtenemos el handler de la ventana sobre la cual esta el cursor
  44.   Hwn = WindowFromPoint(Coor.X, Coor.Y)
  45. 'Obtenemos el caption de la ventana
  46.   Call GetWindowText(Hwn, Buff, 255)
  47. 'Obtenemos la clase de la ventana
  48.   Call GetClassName(Hwn, Class, 255)
  49.  
  50.   lblcoor.Caption = "Coordenadas: X: " & Coor.X & " Y: " & Coor.Y
  51.   lblcaption.Caption = "Texto: " & Trim$(Buff)
  52.   lblclass.Caption = "Clase: " & Trim$(Class)
  53.   lblhwnd.Caption = "hWnd: " & Hwn
  54. End Sub

Disfruten :D
44  Programación / Programación Visual Basic / API Sendmessage en una Shell en: 7 Enero 2011, 03:55 am
Holaaaa :D

Estaba haciendo una shell remota en VB6.0 para ver si entendia de que venia la mano con sockets y me di cuenta que si hago asi
Código:
shell ("cmd.exe /c " & strComandoaca)
me es imposible encadenar comandos, por ejemplo si quiero ir a un directorio con el comando "cd" y despues pedir un "dir" me es imposible.

asi que empeze a leer de que venia lo de sendmessage y los handles.

asi que tengo esto:
Código
  1. Option Explicit
  2. Private Declare Function SendMessage _
  3. Lib "user32" Alias "SendMessageA" _
  4. (ByVal Hwnd As Long, ByVal wMsg As Long, _
  5. ByVal wParam As Long, lParam As Any) As Long
  6. Private Const WM_SETTEXT = &HC
  7. Private Const WM_GETTEXT = &HD
  8. Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
  9. (ByVal lpClassName As String, _
  10. ByVal lpWindowName As String) As Long
  11. Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
  12. (ByVal hWnd1 As Long, _
  13. ByVal hWnd2 As Long, _
  14. ByVal lpsz1 As String, _
  15. ByVal lpsz2 As String) As Long
  16. Dim Hndl As Long
  17.  
  18. Private Sub Command1_Click()
  19. Hndl = FindWindow("ConsoleWindowClass", vbNullString)
  20. If Hndl <> 0 Then
  21. Call SendMessage(Hndl, WM_SETTEXT, 0, ByVal "echo pokemon")
  22. Else
  23. MsgBox "la shell no ta :P"
  24. End If
  25. End Sub
  26.  
  27. Private Sub Command2_Click()
  28. Shell ("cmd.exe /k title Prueba")
  29. End Sub


pero oh sorpresa, el texto que deberia escribir en la consola lo escribe en el titulo en lugar de en la parte adonde se escriben los comandos :S

alguna idea o constante para el sendmessage que yo no conozca?

Muchas gracias ^^
45  Programación / Programación Visual Basic / Ariadne's Thread 1.1 [Encontra tu pendrive Robado] en: 5 Enero 2011, 23:01 pm
Hola :D

Despues de muuuucha fiaca se me ocurrio terminar los ultimos ajustes y compilarlo.

Post Original aca: http://foro.elhacker.net/programacion_visual_basic/ariadnes_thread_encuentra_tu_pendrive_robado_d-t314894.0.html

Ariadne's Thread

La segunda version de mi super programa que te sirve para cagar a palos al gil que te choreo el pendrive! encontrar al ladron que hurto tu dispositivo USB

ChangeLog
[ + ] SSID a la que la PC esta conectada

[ + ] MAC Address de la PC (Gracias Karcrack :P)

[ + ] FOTO desde la Webcam (Gracias leandroA y BlackZero  ::) )

Imagen del Reporte  ;D



(Si, mi gmail es negro porque es re heavy te jodido)

Sin mas... La descarga:

http://infrangelux.sytes.net/FileX/index.php?dir=&file=Ariadne's%20Thread%201.1.zip

Mirror:

http://www.mediafire.com/?w9zefbjz5scq6ix


Disfruten   :rolleyes:
46  Seguridad Informática / Wireless en Linux / Videotutorial Backtrack 4 - Hackear Wifi Claves WEP en: 2 Enero 2011, 03:36 am
Choreale el Wi-Fi al Vecino!!!
 
ERA JODA CHICOS, No hay que robarle el wifi al vecino, es maaaaaaaaalo

En el videotutorial les muestro como hackear una clave WEP de Wi-Fi con BackTrack 4

Bajense el Backtrack4 desde aca:
http://www.backtrack-linux.org/downloads/

Lo instalan en su pc, Lo graban y lo usan como live CD, lo instalan en una maquina virual o lo usan de frisbee. me da igual

VIDEO TUTORIAL
(Muuuuucho humor   )

Miralo en HD para ver que ***** escribo en la pantalla:
http://www.youtube.com/watch?v=mfKAL8edkEI

Una ultima cosa que no dice el video.

Cuando arranquen backtrack 4 van a tener una pantalla negra que les va a perdir primero usuario y contraceña

Por defecto es

Usuario: root

Contraseña toor

y despues para que inicie la interfaz grafica escriben

StartX

y listo. siguen el video.

REPITO: ESTE TUTORIAL NUNCA DEBE SER USADO PARA FINES ILEGALES (si chicos, robarle el wifi al vecino es ilegal)
ESTO ES MERAMENTE EDUCATIVO!
Si tienen algun problema… se joden

Algun dia si en un viaje astral se me canta hago uno de como hackear WPA2

Creo que la mayoria de ustedes ya debe saber como viene la mano, pero lo hice y a algun nwbie le va a servir.
47  Programación / Programación Visual Basic / mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address] en: 27 Diciembre 2010, 02:07 am
Tal cual lo leen.
la PEOR manera de obtener la MAC Address  :-[

Pero segun tengo entendido esta anda si o si  :-\

y lo hice yo  ;D

Código
  1. Option Explicit
  2. Function GetMyMAC() As String
  3.    Dim tmp As String
  4.    Shell "cmd.exe /c getmac >> " & Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt", vbHide
  5.    Open Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt" For Binary As #1
  6.    tmp = Space(LOF(1))
  7.    Get #1, , tmp
  8.    Close #1
  9.    GetMyMAC = tmp
  10.    Kill Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt"
  11. End Function
  12.  

SI, me gusta usar batch y que?

Editado para que raulito se ponga contento
48  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!
49  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
50  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 2 3 4 [5] 6 7 8 9
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines