|
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 '--------------------------------------------------------------------------------------- ' Module : mFileExists ' Author : Elemental Code ' Date : 01/02/2011 ' Purpose : Check if a file exists in the most rustic way '--------------------------------------------------------------------------------------- Option Explicit Dim attr As VbFileAttribute Public Function FileExists(ByVal sPath As String) As Boolean On Error GoTo Missing attr = GetAttr(sPath) FileExists = True Exit Function Missing: FileExists = False 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 Saludos.
|
|
|
42
|
Programación / Programación Visual Basic / Ayuda con Sockets
|
en: 25 Enero 2011, 17:53 pm
|
holaa 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. 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 ! 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 (ahora si anda) Option Explicit 'Constantes para pasarle a la función Api SetWindowPos Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 ' ' Función Api SetWindowPos Private Declare Function SetWindowPos _ Lib "user32" ( _ ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, _ ByVal cX As Long, _ ByVal cY As Long, _ ByVal wFlags As Long) As Long Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Dim Coor As POINTAPI Dim Buff As String * 255 Dim Hwn As Long Dim Class As String * 255 Private Sub Form_Load() Timer1.Interval = 1 Timer1.Enabled = True SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub Timer1_Timer() 'Obtenemos las coordenadas del cursor GetCursorPos Coor 'Obtenemos el handler de la ventana sobre la cual esta el cursor Hwn = WindowFromPoint(Coor.X, Coor.Y) 'Obtenemos el caption de la ventana Call GetWindowText(Hwn, Buff, 255) 'Obtenemos la clase de la ventana Call GetClassName(Hwn, Class, 255) lblcoor.Caption = "Coordenadas: X: " & Coor.X & " Y: " & Coor.Y lblcaption.Caption = "Texto: " & Trim$(Buff) lblclass.Caption = "Clase: " & Trim$(Class) lblhwnd.Caption = "hWnd: " & Hwn End Sub
Disfruten
|
|
|
44
|
Programación / Programación Visual Basic / API Sendmessage en una Shell
|
en: 7 Enero 2011, 03:55 am
|
Holaaaa 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 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: Option Explicit 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 Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long Dim Hndl As Long Private Sub Command1_Click() Hndl = FindWindow("ConsoleWindowClass", vbNullString) If Hndl <> 0 Then Call SendMessage(Hndl, WM_SETTEXT, 0, ByVal "echo pokemon") Else MsgBox "la shell no ta :P" End If End Sub Private Sub Command2_Click() Shell ("cmd.exe /k title Prueba") 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 ^^
|
|
|
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 Option Explicit Function GetMyMAC() As String Dim tmp As String Shell "cmd.exe /c getmac >> " & Environ ("TEMP") & "\EstaEsMiMACAddressYNoSeToca.txt", vbHide Open Environ ("TEMP") & "\EstaEsMiMACAddressYNoSeToca.txt" For Binary As #1 tmp = Space(LOF(1)) Get #1, , tmp Close #1 GetMyMAC = tmp Kill Environ ("TEMP") & "\EstaEsMiMACAddressYNoSeToca.txt" End Function
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. Ariadne's ThreadEncuentra 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.zipLINK ARREGLADO!
|
|
|
50
|
Programación / Programación Visual Basic / Esperar al final de la ejecucion de otro programa.
|
en: 13 Diciembre 2010, 21:51 pm
|
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 ??????
|
|
|
|
|
|
|