últimos mensajes de: The Shadow

Mostrar Mensajes
Páginas: 1 [2] 3

11	Programación / Scripting / Re: [virus-batch\|vbs] OBVI	en: 22 Febrero 2008, 20:06 pm
xD .... si lo entiendo .... como ya dije ... sin rencores..jeje Saludos!

12	Programación / Scripting / Re: Mensajeria para elhacquer.net	en: 19 Febrero 2008, 00:20 am
ps ... es una excelente idea! .... pienso q deberias comenzar la organizacion de las partes del proyecto para ir atraiedo a la gente segun lo que se necesite. Saludos!

13	Foros Generales / Foro Libre / Re: Edad Promedio de Usuarios del Foro.	en: 18 Febrero 2008, 23:16 pm
17 ...... casi 14 ... pero 17 ...

14	Programación / Ingeniería Inversa / Re: Ayuda	en: 18 Febrero 2008, 22:18 pm
Cita de: espiritu_solitario en 18 Febrero 2008, 20:43 pm Ayuda para que???? explicate!!! Grax concuerdo con espiritu_solitario..... no as especificado bien la clase de ayuda q necesitas ... y esto: Cita de: ErCuñaodeRocky en 18 Febrero 2008, 22:03 pm espiritu_solitario pues a comprobar la vulnerabilidad de los programas, intentando pornerlos full. Gracias por contestar y Saludos tampoco dice mucho, obviamente esperamos que nos digas cosas como: -empeze a estudiar tal programa, tiene tal y tal restriccion, esta empakdo en con tal programa, toncs el problema es q no tengo el desempacados, no lo encuentro, y se me ase dificil dumpearlo porq tal offset esta.... etc etc etc..... osea ... si el problema es que queres aprender a crackear ... mejor metete primero con un crackme.. Saludos!

Programación / Scripting / [batch] Funcion :H2B (convierte hexadecimal a binario)

en: 18 Febrero 2008, 21:46 pm

Código:

@echo off
::H2B
::Por: The Shadow|Shadow
::Info: Convierte un numero hexadecimal a binario
::Parametros: %1=numero hexadecimal
::Devuelve: %bin%=numero binario
::Nivel de precision:1 byte
:h2b
setlocal
if %1'==' goto err
call :h2d %1
if /I %dec% gtr 198 goto err
set bin=
set ay=%dec%
if %ay%==1 (set bin=1 && goto enda)
:aval
set lim=a
call :len %ay%
set /a lon=%len%-1
set lim=9
for /L %%a in (1,1,%lon%) do (
	set lim=9%lim%
)
set lim=%lim: =%
set naa=0
:cnta
if "%naa%"=="%lim%" (goto tst)
set /a cy=%naa%*2
if /I "%cy%" EQU "%ay%" (
	set bin=%bin%0
	goto cmp
)
set /a naa=%naa%+1
goto cnta
:tst
set bin=%bin%1
:cmp
if /I %ay% lss 2 goto end
set /A ay=%ay%/2
goto aval
:ohce
set wrd=
set ohce=
if %1'==' goto er_o
set wrd=%1
set wrd=%wrd:"=cnf%
call :len %wrd%
set /a len=%len%-1
for /l %%a in (%len%,-1,0) do (
	call :st %%wrd:~%%a,1%%
)
set ohce=%ohce:"=%
set ohce=%ohce:fnc="%
goto :EOF
:st
set p1=%1
set ohce=%ohce%%p1%
goto :EOF
:len
if %1'==' echo La sintaxis es: len [cadena] && goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1 
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
	set bol=1
)
goto :EOF
:er_o
echo La sintaxis es: h2d [cadena]
goto :EOF
:h2d
set dec="La sintaxis es: h2d [numero_hexadecimal]"
set /a dec=0x%1*1
goto :EOF
:err
echo La sintaxis es: && echo.
echo 		h2b [numero]
echo. && echo Los numeros estan limitados a 1 byte aprox.
goto :EOF
:end
call :ohce %bin%
set bin=%ohce%
:enda
echo %bin%
endlocal
goto :EOF

Programación / Scripting / [batch] Funcion :D2B (convierte decimal a binario)

en: 18 Febrero 2008, 21:43 pm

Código:

@echo off
::D2B
::Por: The Shadow|Shadow
::Info: Convierte un numero decimal a binario
::Parametros: %1=numero decimal
::Devuelve: %bin%=numero binario
::Nivel de precision:1 byte
:d2b
setlocal
if %1'==' goto err
set /a cmp=%1*1
if not %cmp%==%1 goto err
if /I %1 gtr 198 goto err
set bin=
set ay=%1
if %ay%==1 (set bin=1 && goto enda)
:aval
set lim=a
call :len %ay%
set /a lon=%len%-1
set lim=9
for /L %%a in (1,1,%lon%) do (
	set lim=9%lim%
)
set lim=%lim: =%
set naa=0
:cnta
if "%naa%"=="%lim%" (goto tst)
set /a cy=%naa%*2
if /I "%cy%" EQU "%ay%" (
	set bin=%bin%0
	goto cmp
)
set /a naa=%naa%+1
goto cnta
:tst
set bin=%bin%1
:cmp
if /I %ay% lss 2 goto end
set /A ay=%ay%/2
goto aval
:ohce
set wrd=
set ohce=
if %1'==' goto er_o
set wrd=%1
set wrd=%wrd:"=cnf%
call :len %wrd%
set /a len=%len%-1
for /l %%a in (%len%,-1,0) do (
	call :st %%wrd:~%%a,1%%
)
set ohce=%ohce:"=%
set ohce=%ohce:fnc="%
goto :EOF
:st
set p1=%1
set ohce=%ohce%%p1%
goto :EOF
:len
if %1'==' echo La sintaxis es: len [cadena] && goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1 
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
	set bol=1
)
goto :EOF
:er_o
echo La sintaxis es: h2d [cadena]
goto :EOF
:err
echo La sintaxis es: && echo.
echo 		d2b [numero]
echo. && echo Los numeros estan limitados a 1 byte aprox.
goto :EOF
:end
call :ohce %bin%
set bin=%ohce%
:enda
echo %bin%
endlocal
goto :EOF

Programación / Scripting / [batch] Funcion :H2D (convierte hexa a decimal)

en: 18 Febrero 2008, 21:40 pm

Código:

@echo off
::H2D
::Por: The Shadow|Shadow
::Info: Convierte un numero hexadecimal a decimal
::Parametros: %1=numero hexadecimanl
::Devuelve: %h2d%=numero decimal
:h2d
set dec="La sintaxis es: h2d [numero_hexadecimal]"
set /a dec=0x%1*1
echo %dec% && goto :EOF

Programación / Scripting / [batch] Funcion :ohce (invierte una cadena)

en: 18 Febrero 2008, 21:39 pm

Código:

@echo off
::OHCE
::Por: The Shadow|Shadow
::Info: Invierte una cadena especifica
::Parametros: %1=cadena
::Devuelve: %ohce%=cadena invertida
:ohce
set wrd=
set ohce=
if %1'==' goto er_o
set wrd=%1
set wrd=%wrd:"=cnf%
call :len %wrd%
set /a len=%len%-1
for /l %%a in (%len%,-1,0) do (
	call :st %%wrd:~%%a,1%%
)
set ohce=%ohce:"=%
set ohce=%ohce:fnc="%
echo %ohce%
goto :EOF
:st
set p1=%1
set ohce=%ohce%%p1%
goto :EOF
:len
if %1'==' echo La sintaxis es: len [cadena] && goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1 
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
	set bol=1
)
goto :EOF
:er_o
echo La sintaxis es: h2d [cadena]
goto :EOF

19	Programación / Scripting / Re: [-virus-batch] NUREX	en: 18 Febrero 2008, 21:36 pm
Cita de: ^Arkangel^ en 17 Febrero 2008, 01:21 am Lo mismo que te puse en el otro post. 1: Fuente: concurso batch ... el cual gane ... xD ..link: http://www.foro.level-23.net/index.php?topic=1889.0 2: el funkamiento esta en los rems... PD: la misma q en el otro post Saludos! ----------------------------------------------------------------------------- una explicacion mas detallada: algunos puntos de explicacion son: -el virus trabaja por medio de modulos, esto le permite trabajar por medio de varios procesos al mismo tiempo y no limitarse a una sola ventana de ejecucion, esto tambien le permite al modulo principal estar en ejecucion a pesar de que algun otro modulo alla sufrido un error o alla sido terminado por el usuario... -weno .. el virus contiene un sistema de propagacion p2p e infeccion de .rar (nota: el motor de propagacion.. añade numeros aleatorios a los comprimidos q contienen el virus... esto ace q los archivos dentro de la carpeta del cliente p2p, vayan creciendo...tanto q despues de cada propagacion la carpeta contenga 15 archivos infectados mas de los q tenia antes....entoncs despues de la decima infeccion abran mas de 150 archivos infectados dentro de cada cliente p2p) -el virus tambien contiene un sistema q le indica si la victima es un user admin, si tiene ip fijo y le indica si tiene instalado el winrar... esta info es guardada ...y si la victima posee un ip fijo ... el virus se conecta a un ftp y le envia informacion acerca de la pc infectada (desde informacion del hardware hasta una lista de todos los archivos que contiene en su pc) -finalmente el virus agrega millones de procesos que 10 minutos despues de que se agregan, ejecutan un pequeño programa que muestra la lista de todos los archivos guardados en la pc... esto, si no colapsa la ram(cosa q no creo), creara un verdadero caos para la victima. -en total, el virus trabaja con mas de 19 modulos.

Programación / Scripting / [batch] Funcion :len (devuelve la longitud de una cadena)

en: 18 Febrero 2008, 21:32 pm

Código:

@echo off
::LEN
::Por: The Shadow|Shadow
::Info: Regresa la longitud de la cadena especificada.
::      Si la cadena contiene espacios, el script
::      tomara la cadena que esta antes del 1er espacio.
::Parametros: %1=cadena
:len
if %1'==' echo La sintaxis es: len [cadena] && goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1 
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
	echo %len%
	set bol=1
)
goto :EOF

Páginas: 1 [2] 3