Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - The Shadow

#11
Scripting / Re: [virus-batch|vbs] OBVI
22 Febrero 2008, 20:06 PM
xD .... si lo entiendo .... como ya dije ... sin rencores..jeje

Saludos!
#12
Scripting / Re: Mensajeria para elhacquer.net
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
17 ...... casi 14 ... pero 17 ...
#14
Ingeniería Inversa / Re: Ayuda
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!
#15
@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

#16
@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

#17
@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
#18
@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
Scripting / Re: [-virus-batch] NUREX
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.
#20
@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