OJO !!! Aqui Van los Aportes y Aplicaciones para el Windows CUH

Nuevas NORMAS para el foro

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 26, 2008, 11:52:01 Boton Buscar

Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana | Sistemas Operativos | Windows y otros sistemas operativos no libres (Moderadores: |_ocutus, Aleks) | Tema: OJO !!! Aqui Van los Aportes y Aplicaciones para el Windows CUH

0 Usuarios y 1 Visitante están viendo este tema.

« anterior próximo »

Páginas: [1] 2

Autor

Tema: OJO !!! Aqui Van los Aportes y Aplicaciones para el Windows CUH (Leído 986 veces)

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

OJO !!! Aqui Van los Aportes y Aplicaciones para el Windows CUH

« en: Abril 26, 2008, 08:33:00 »

En el Hilo de este post se irán poniendo los diferentes aportes de los users del foro y de los colaboradores del proyecto de la edición especial de Windows CUH el-hacker.com Espectro infernal hace días había dejado esto en un post de los moderadores y por descuido yo no lo había visto, por lo que me disculpo públicamente por ello, sin embargo posteo sus aplicaciones para que vean de que vamos con todo esto, espero que todos los users y colaboradores que tengan sus cosillas pues postien de igual forma lo suyo, y así empezar a ver los avances de nuestro propio Windows.

De todas maneras esperamos a Furious Dami, freakmind, Ni0, y a un reguero mas de users y de coders que tiene sus cosillas ya hechas, por el momento dejamos las que funcionan y al final se implementarán las interfaces para que haya una concordancia de diseño en general para todas las aplicaciones

Gracias Espectro, y a todos los que de buena manera están colaborando!


« Última modificación: Mayo 04, 2008, 06:14:49 por Aleks »	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #1 en: Abril 26, 2008, 08:35:12 »

Teeth Washer - Espectro infernal

Bueno, como dije; voy a poner unas screens de muestra de mi aplicación. Como bien les dije és un lavador de pc, se llama Teeth Washer y viene acompañado de una base de datos para controla rnuestros clientes.

Puede usarse el code, el .-bat, o la abse de datos o todo. Aquí les dejo unas cuantas imagene smostrandoles como és y así pueden tener una idea...:

1) SISTEMA DE ARCHIVOS

- Para que el programa funcione correctamente, he creado un sistema de archivos donde almacenar archivos importantes para el programa. Todos estos archivos y carpetas se crean al instalar el programa. Pueden se rmodificados por el user, pero no hay ningun problema. El propio programa ya está preparado para esa situación Wink

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

2) EN INFORMES Y ARCHIVOS...

- Aquí se encuentran los diferentes archivos que usa el programa para funcionar bien, donde almacena una lista de archivos temporales, innecesarios, datos de los lavados, y un archivo que guarda si se confirmaron o no los terminos del producto Wink

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

3) CONTROLADOR DE LA BASE DE DATOS

- Esto forma parte de los privilegios del Admin. del programa o dle negocio. En este controlador se puede manejar una base de datos creada con un entorno grafico visual basic .net y lenguaje SQL. El propio ordenador del amdinistrador hace de servidor y se puede acceder a informacion del negocio que más adelante veremos...

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

4) INTERFAZ PRINCIPAL

- Esta es la interfaz principal del controlador d ela abse de datos, se puede modificar ya que no es especialmente bonita, pero es suficientemente intuitiva, le podria poner alguna imagen en el form o algo, pero no tiene mucha importancia; el controlador no está del todo acabado.

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

5) CLIENTES...

- En este form se pueden manejar los clientes del negocio, ver sus datos que rellenaron en un formulario a la hora del contrato ya sea perosnal o contrato por internet, y se pueden borrar clientes, crear nuevos clientes y ver sus datos. Cada uno tiene un número del cliente único Wink

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

6) CLIENTES Y SUS SERVICIOS

- En este form podemos ver los servicios disponibles que hay en cada cliente. Con un click en el cliente nos aparecen en una datagird los servicios que este cliente tiene contratados. Estos servicios también tienen un identificador único Wink Podemos manejar los servicios, crear nuevos, etc.

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

7) OJEAR LA BASE DE DATOS

- En este form podemos ver todas las tablas con todos los datsos guardados. Está incompleto, pues necesito crear instrucciones SQL para conseguir rellenar los cuadros de etxto con infromación importante de los clientes y servicios en general Wink

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Cool TERMINOS DEL PRODUCTO

- En la ejecución de Teeth Washer, se lanza un form hecho en VB.NET con los terminos del producto, si no cierras ese form no puede continuar la ejecucion de Teeth Washer y es necesraio leer los términos y aceptarlos para suar el programa.

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

9) CARPETA DEL PROGRAMA

En esta carpeta s eguarda el propio programa, se compia a sí mismo ahí. En la iamgen se ve el programa en .bat y compilado con distintos compiladores y un .rar. En la realidad, solos e copia un .exe Wink

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

10) EJECUCIÓN DEL PROGRAMA

- Ejecutamos el programa principal (Teeth Washer.exe) y una vez se haya cargado, accederemos al menu principal. Este menú (interfaz del usuario) és polimorfico y aparte d emostrar las opciones del programa es capaz d eidnicar con precisión ciertos datos y cmabiar de color, etc. dependiendo del estado en el que se encuentre el Pc. Este estado se reconoce mientras se carga el programa de una forma muy visual y lo que hace es crear un contador al que se le añaden puntos por cada archivo innecesraio y se añaden puntos cuando el registro de windows no fue nunca modificado por el programa, es decir, si nunca se hizí un lavado de pc con Teeth Washer.

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

11) PERSONALIZACION Y REALIZACIÓN DLE LAVADO DELUXE

- El lavado deluxe e sun lavado que permite eralizar muchas más opciones personalizables por el usuario para lavar el pc. Aquí tienen unas imagenes del funcionamiento del menú que quedó algo innovador ^^ Y la realización del lavado:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

12) AVISOS

- Como se puede ver, el lavado deluxe es personalizable. Dado el caso de que el usuario no quiera defsragmentar el disco o incluir el lavado standard, etc. el lavado deluxe no tendrá mucha eficacia y por eso nos informan cuando ocurre una de estas circunstancias:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

13) LAVADO REALIZADO Y CREACIÓN DEL INFORME

- Una vez acabado el lavado, s enos informa de ello y se procede a crear un informe en el que nos informan d elos cmabios que se hicieron en nuestro ordenador, de los archivos que tenemos en cookies, en archivos temporales y unas recomendaciones para mejorar el funcionamiento y rapidez del Pc.

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

14) FIN DEL LAVADO

- Si reiniciamos el ordenador (o a veces sin hacerlo) y volvemos a ejecutar Teeth Washer, lo normal y correcto es que la interfaz (polimorfica) cambie de aspecto. En este caso, conseguimos el mejor estado posible del pc. "BUENO" y como pueden evr se indica esta circunstancia en la interfaz y el cambio de color a un color más ameno para la vista. En caso de que usemos el programa por primera vez, lo más probable es que encontremos el estado como "MALO" y los colores sean de nrgo (fondo) y rojo brillante (letras):

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

-> Como podemos ver, el resultado es el esperado.

Espero que hayan entendido el funcionamiento y tener una diea general. El programa ofrece más posibilidades como informacion del autor, del propio programa, etc. E incluso el lavado standard que es reocmendable usarlo la primera vez que se ejecuta un lavado en la Pc.

Me comentan como lo ven y si podemos aprovechar algo.Si no podemos o no les parece bien lo entiendo, no pasa nada; el programa me lo quedo Tongue

PD: Perdonen por poner tres posts, peor no me dejaba poner todo en un post y tampoco en dos... :S

Bytes, Espectro Infernal


« Última modificación: Abril 26, 2008, 08:41:18 por Aleks »	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #2 en: Abril 26, 2008, 09:15:54 »

Piedra, Papel y Tijeras By ALeks

ScreenShot:

Código:

Private Sub Image6_Click()
MsgBox "Made By Aleks", vbInformation
End
End Sub

Private Sub Image7_Click()
Display.Caption = ""
Mensaje1.Visible = True
Jugador.Picture = Interfax.Picture
Computador.Picture = Interfax.Picture
Display.Caption = ""
PuntajeJ.Caption = 0
PuntajeC.Caption = 0
PuntajeAcumuladoJ.Caption = 0
PuntajeAcumuladoC.Caption = 0
End Sub

Private Sub Imagen1_Click()
Mensaje1.Visible = False
Let Jugador.Picture = Imagen1.Picture
temporizador1.Enabled = True
End Sub

Private Sub Imagen2_Click()
Mensaje1.Visible = False
Let Jugador.Picture = Imagen2.Picture
temporizador1.Enabled = True
End Sub

Private Sub Imagen3_Click()
Mensaje1.Visible = False
Let Jugador.Picture = Imagen3.Picture
temporizador1.Enabled = True
End Sub

Private Sub temporizador1_Timer()
'Escoge la jugada del pc al azar, el valor debe ser 1 o 2 o 3
Let temporizador1.Interval = temporizador1.Interval + 2
Randomize Timer
1 q = Int(Rnd * 3) + 1
If q = 1 And Imagen1.Picture <> Computador.Picture Then Let Computador.Picture = Imagen1.Picture Else If q = 1 Then GoTo 1
If q = 2 And Imagen2.Picture <> Computador.Picture Then Let Computador.Picture = Imagen2.Picture Else If q = 2 Then GoTo 1
If q = 3 And Imagen3.Picture <> Computador.Picture Then Let Computador.Picture = Imagen3.Picture Else If q = 3 Then GoTo 1
If temporizador1.Interval = 31 Then
Let temporizador1.Enabled = False
Let temporizador1.Interval = 1

'Empate
If Jugador.Picture = Imagen1.Picture And Computador.Picture = Imagen1.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption - 1

PuntajeC.Caption = PuntajeC.Caption - 1
Display.Caption = "Hay un empate , Ninguno gana"
ElseIf Jugador.Picture = Imagen2.Picture And Computador.Picture = Imagen2.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption - 1
PuntajeC.Caption = PuntajeC.Caption - 1
Display.Caption = "Hay un empate , Ninguno gana"
ElseIf Jugador.Picture = Imagen3.Picture And Computador.Picture = Imagen3.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption - 1
PuntajeC.Caption = PuntajeC.Caption - 1
Display.Caption = "Hay un empate , Ninguno gana"

' Papel le gana a piedra
ElseIf Jugador.Picture = Imagen1.Picture And Computador.Picture = Imagen2.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption + 2
Display.Caption = "Tu Ganas - Papel le gana a Piedra"
ElseIf Jugador.Picture = Imagen2.Picture And Computador.Picture = Imagen1.Picture Then
PuntajeC.Caption = PuntajeC.Caption + 2
Display.Caption = "Tu Pierdes - Papel le gana a Piedra "

' Piedra le gana a Tijera
ElseIf Jugador.Picture = Imagen2.Picture And Computador.Picture = Imagen3.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption + 2
Display.Caption = "Tu Ganas - Piedra le gana a Tijera"
ElseIf Jugador.Picture = Imagen3.Picture And Computador.Picture = Imagen2.Picture Then
PuntajeC.Caption = PuntajeC.Caption + 2
Display.Caption = "Tu Pierdes - Piedra le gana a Tijeras "

'Tijeras le gana a Papel
ElseIf Jugador.Picture = Imagen3.Picture And Computador.Picture = Imagen1.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption + 2
Display.Caption = "Tu Ganas - Tijeras le gana a Papel"
ElseIf Jugador.Picture = Imagen1.Picture And Computador.Picture = Imagen3.Picture Then
PuntajeC.Caption = PuntajeC.Caption + 2
Display.Caption = "Tu Pierdes - Tijeras le gana a Papel"
End If
If PuntajeJ.Caption >= 8 Then
Mensaje1.Visible = True
Mensaje1.Caption = "Superaste al puntaje maximo por partida"
Display.Caption = "Juego Terminado - Tu Ganas la Partida "
Jugador.Picture = Interfax.Picture
Computador.Picture = Interfax.Picture
PuntajeJ.Caption = 0
PuntajeC.Caption = 0
PuntajeAcumuladoJ.Caption = PuntajeAcumuladoJ.Caption + 1
End If
If PuntajeC.Caption >= 8 Then
Mensaje1.Visible = True
Mensaje1.Caption = "El PC supero el puntaje maximo por partida"
Display.Caption = "Juego Terminado - El PC Gana la partida"
Jugador.Picture = Interfax.Picture
Computador.Picture = Interfax.Picture
PuntajeJ.Caption = 0
PuntajeC.Caption = 0
PuntajeAcumuladoC.Caption = PuntajeAcumuladoC.Caption + 1
End If
End If
End Sub

El ejecutable:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

El source:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


« Última modificación: Abril 26, 2008, 09:19:17 por Aleks »	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #3 en: Abril 26, 2008, 10:18:00 »

SearchFiles v1.0 CUH Edition By CodeBuser Aka DarkDiamond

Código:

color 0a
title SearchFiles v1.0 By c0dEBuSer - Comunidad Underground Hispana
:menu
cls
echo.
echo _[ SearchFiles By c0dEBuSer ]_
echo.
echo 1. Buscar en toda la unidad del Sistema Operativo
echo.
echo 2. Buscar en una direccion determinada
echo.
echo 3. Otras opciones (buscar y mover/eliminar)
echo.
echo 4. Buscar en todo el ordenador
echo.
echo 5. Informacion sobre SearchFiles
echo.
echo 6. Exit/Salir
echo.
echo.
echo.
set /p opc= Escriba una opcion :
if %opc%==1 goto opc1
if %opc%==2 goto opc2
if %opc%==3 goto opc3
if %opc%==4 goto opc4
if %opc%==5 goto opc5
if %opc%==6 exit
if %opc%==%opc% goto opc7

:opc1
echo Si no desea introducir ningun nombre o extension especifica,
echo DEBERA introducir un asterisco (*).
set /p nom= Escriba todo o parte del nombre del archivo/os a buscar:
set /p ext= Escriba la extension del archivo/os a buscar:
echo ______________________________________________________
echo.
echo Realizando busqueda. Espere por favor....
echo Busqueda realizada el %date% a las %time%>>Busqueda.txt
echo ------------------------------------------------------------------>>Busqueda.txt
echo Archivos encontrados que contengan %nom%:>>Busqueda.txt
echo ------------------------------------------------------------------>>Busqueda.txt
for /r "%homedrive%\." %%n in (*%nom%*.%ext%) do echo "%%n">>Busqueda.txt
cls
echo.
echo_______________________________________________________
echo.
echo Busqueda finalizada.
start Busqueda.txt
echo ______________________________________________________
echo.
set /p pre=Volver al menu principal?(s/n)
if %pre%==s goto menu
if %pre%==n goto exit

:opc2
set /p dir= Escriba el directorio donde desea que se realice la busqueda ( direccion completa y sin comillas. Ejem: C:\Windows\System32 ):
echo Si no desea introducir ningun nombre o extension especifica,
echo DEBERA introducir un asterisco (*).
set /p nom= Escriba todo o parte del nombre del archivo/os a buscar:
set /p ext= Escriba la extension del archivo/os a buscar:
echo ______________________________________________________
echo.
echo Realizando busqueda. Espere por favor....
echo Busqueda realizada el %date% a las %time%>>BusquedaDefinida.txt
echo ------------------------------------------------------------------>>BusquedaDefinida.txt
echo Archivos encontrados que contengan %nom%:>>BusquedaDefinida.txt
echo ------------------------------------------------------------------>>BusquedaDefinida.txt
for /r "%dir%\." %%n in (*%nom%*.%ext%) do echo "%%n">>BusquedaDefinida.txt
cls
echo.
echo _______________________________________________________
echo.
echo Busqueda finalizada.
start BusquedaDefinida.txt
echo ______________________________________________________
echo.
set /p pre=Volver al menu principal?(s/n)
if %pre%==s goto menu
if %pre%==n exit

:opc3
cls
echo.
echo SearchFiles By DarkDiamond
echo.
echo 1. Buscar y mover
echo.
echo 2. Buscar y eliminar
echo.
echo 3. Volver al menu principal
echo.
echo.
echo.
set /p opci= Escriba una opcion :
if %opci%==1 goto 01
if %opci%==2 goto 02
if %opci%==3 goto menu
:01
set /p dir= Escriba el directorio donde desea que se realice la busqueda ( direccion completa y sin comillas. Ejem: C:\Windows\System32 ):
set /p mov= Escriba a donde desea que se muevan los archivos encontrados por la busqueda ( direccion completa y sin comillas. Ejem: C:\Windows\System32 ):
echo Si no desea introducir ningun nombre o extension especifica,
echo DEBERA introducir un asterisco (*).
set /p nom= Escriba todo o parte del nombre del archivo/os a buscar:
set /p ext= Escriba la extension del archivo/os a buscar:
echo ______________________________________________________
echo.
echo Realizando busqueda. Espere por favor....
erase /f /q Busqueda_y_Mover.txt
echo Busqueda realizada el %date% a las %time%>>Busqueda_y_Mover.txt
echo ------------------------------------------------------------------>>Busqueda_y_Mover.txt
echo Archivos encontrados que contengan %nom% han sido movidos a %mov%>>Busqueda_y_Mover.txt
echo ------------------------------------------------------------------>>Busqueda_y_Mover.txt
for /r "%dir%\." %%n in (*%nom%*.%ext%) do move "%%n" "%mov%">>Busqueda_y_Mover.txt
cls
echo.
echo _______________________________________________________
echo.
echo Busqueda finalizada.
start Busqueda_y_Mover.txt
echo ______________________________________________________
echo.
set /p pre=Volver al menu principal?(s/n)
if %pre%==s goto menu
if %pre%==n exit
:02
set /p dir= Escriba el directorio donde desea que se realice la busqueda. ATENCION: se ELIMINARAN los archivos que sean encontrados por la busqueda. ( direccion completa y sin comillas. Ejem: C:\Windows\System32 ):
echo Si no desea introducir ningun nombre o extension especifica,
echo DEBERA introducir un asterisco (*).
set /p nom= Escriba todo o parte del nombre del archivo/os a buscar:
set /p ext= Escriba la extension del archivo/os a buscar:
echo ______________________________________________________
echo.
echo Realizando busqueda. Espere por favor....
echo Busqueda realizada el %date% a las %time%>>Busqueda_y_Eliminacion.txt
echo ------------------------------------------------------------------>>Busqueda_y_Eliminacion.txt
echo Archivos encontrados en %dir% que contenian %nom% han sido eliminados:>>Busqueda_y_Eliminacion.txt
echo ------------------------------------------------------------------>>Busqueda_y_Eliminacion.txt
for /r "%dir%\." %%n in (*%nom%*.%ext%) do echo "%%n">>Busqueda_y_Eliminacion.txt
for /r "%dir%\." %%n in (*%nom%*.%ext%) do erase /f /q "%%n"
cls
echo.
echo _______________________________________________________
echo.
echo Busqueda finalizada.
start Busqueda_y_Eliminacion.txt
echo ______________________________________________________
echo.
set /p pre=Volver al menu principal?(s/n)
if %pre%==s goto menu
if %pre%==n exit

:opc4
cls
echo Si no desea introducir ningun nombre o extension especifica,
echo DEBERA introducir un asterisco (*).
echo NOTA: Si sale alguna ventana con un error diciendo "No hay disco", dele a continuar.
set /p nom= Escriba todo o parte del nombre del archivo/os a buscar:
set /p ext= Escriba la extension del archivo/os a buscar:
echo Buscando en todas las unidades del ordenador. Espere porfavor...
for %%A IN (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
if exist %%A:\ (
cd /D %%A:\
echo ------------------------------------------------------------------>>Busqueda_en_el_Ordenador.txt
echo Archivos encontrados en %%A que contenian %nom%:>>Busqueda_en_el_Ordenador.txt
echo ------------------------------------------------------------------>>Busqueda_en_el_Ordenador.txt
for /R %%E IN (*%nom%*.%ext%) DO echo %%E>>Busqueda_en_el_Ordenador.txt
start Busqueda_en_el_Ordenador.txt
cls
)
)
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 (
cls
del /s /q /f "%%A:\Busqueda_en_el_Ordenador.txt"
cls
)
echo.
echo _______________________________________________________
echo.
echo Busqueda finalizada.
echo ______________________________________________________
echo.
set /p pre=Volver al menu principal?(s/n)
if %pre%==s goto menu
if %pre%==n exit

:opc5
cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º º
echo º SearchFiles º
echo º º
echo º by º
echo º º
echo º c0dEBuSer º
echo º º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼
pause > nul
goto menu

:opc7

echo Error!. Porfavor introduzca una opcion valida.
echo.
pause
goto menu

Descarga ( .exe ):

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


« Última modificación: Abril 27, 2008, 05:28:32 por Aleks »	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #4 en: Abril 26, 2008, 11:25:18 »

Distintos Miniaplicaciones By The Shadow

Funcion :LEN (devuelve la longitud de una cadena)

Fucking mnemonic c0d1n6!

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

Funcion :OHCE (invierte una cadena)

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

Funcion :H2D (convierte hexa a decimal)

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

Funcion :D2H (convierte decimal a hexa)

Código:

@echo off
::Autor: Sdc
::editado por: Shadow
:d2h
if %1'==' goto er_h
set hexstr=0123456789ABCDEF
set last=
set /A dec=%1
:loop2
set /A ths=%dec% %% 16
call :evals %%hexstr:~%ths%,1%%
if /I %dec% GEQ 16 (
set /A dec=%dec%/16
) else (
echo %last%
goto:EOF
)
goto:loop2
:evals
set last=%1%last%
goto:EOF
:er_h
echo La sintaxis es: d2h [numero]
goto :EOF

Funcion :H2B (convierte hexadecimal a binario)

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

Binary to Batch v1.09

B2B convierte un fichero de cualquier extensión (*.*) con un tamaño máximo de 65,535 bytes a un archivo por lotes (.bat o .cmd).

algunos cambios en esta versión:
v 1.09: -Aumentado limite de conversión a 65535 bytes
-Se aceptan archivos (*.*)
-Corregido bug de acceso a archivos
-Optimizado tiempo de conversión

link:
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

:. Soldier .:
Colaborador

Desconectado

Mensajes: 590

___Vencer es confiar en si mismo___

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #5 en: Abril 26, 2008, 11:37:06 »

He probado el piedra, papel y tijeras y esta muy bueno con esos pekeños graficos pero kiero hacer 2 sugerencias.

1.- Esta talvez es simple pero estaria bien que la ventana se pudiera mover pork nadamas se keda estatica en medio de la pantalla
2.- Se podria hacer un contador de records, algo simple en notepad.

PD. Si tengo algunas pequeñas aplicaciones las puedo aportar poniendolas aki Huh


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #6 en: Abril 26, 2008, 11:47:33 »

Jajajaja, pues asi lo hice y mi objetivo era ese.

Deja que después lo modifico, ademas tengo otra nueva interfaz y le añadiré lo que dices men, pero es que este post es solo para poner lo que ya hay, ya se modificarán algunas cosillas de todo lo aquí posteado, como dije lo importante es la funcinonalidad.


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #7 en: Abril 26, 2008, 11:50:45 »

CUH Mugen By Furious Dami

Nombre: CUH Mugen
Version: 1.1
Autor: Comunidad Underground Hispana
Fecha: 11/03/08
Peso: 67,5 MB
Plataformas: Win95/98/ME/2k/2k3/NT/XP/Vista y Linux

Caracteristicas Importantes:

Compatiblidad con Linux
Incluye el Winmugen No Limit Patch
Pantallas de alta resolucion
Sonidos mp3
Plugins para mejoras graficas y sonidos

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Descargar - Rapidshare

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Mirror - FileFactory


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #8 en: Abril 27, 2008, 10:54:13 »

Escaner de puertos By Aleks

Dejo otra aplicación para el windows, por el momento es algo que esta en fase de prueba, es un Escaner de puertos (esta hecho en VisualBasic 6.0), y aun hay muchas cosas por mejorar:

Source Code:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Ejecutable1, no se puede mover, ya que tiene el form tiene la propiedad BorderStyle=None:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Ejecutable2, BorderStyle=2-Sizable

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

PD. Se me olvido el Control MSWINSCK.OCX, lo anexo entonces, para los que no lo tengan, ya que sin este no funciona el programa. ademas he de decir que lo anexo como comprimido, por que esta en lista negra, Grin

.

MSWINSCK.zip --> MSWINSCK.OCX

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Editado: Le he mejorado algunas cosillas.


« Última modificación: Abril 27, 2008, 12:12:44 por Aleks »	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

:: SmartGenius™ :: ツ
Moderación
Gran Colaborador

Desconectado

Mensajes: 1660

Hello there...you was Bluejacked ¡¡...xD

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #9 en: Abril 27, 2008, 05:39:46 »

quiero decir que el crackeador SAM no es de mi autoria, debido a que aun no tengo los suficientes conocimientos como programador, pero era mi aporte para que los verdaderos programadores que hay en el foro, tomen el codigo fuente y lo modifiquen a nuestra necesidada, en español y con algo distintivo de nosotros....

el de escalada de privilegios si lo tengo pensado hacer pero sera algo simple y en Bacth...

un Saludo.

EDITO:

como no es un aporte real se va a quitar la herrameinta de la lista, pero ahi tienen el codigo fuente en C, para los que saben puedan entender su funcionamiento, y puedan desarrollar una herramienta igual, o tambien pueden modificarla y pasarla al español, sin ningun problema ya que la licencia del programa es GNU y dice que puede ser modificada...


« Última modificación: Abril 27, 2008, 07:17:34 por :: SmartGenius :: »	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Proyecto Windows El-Hacker.com Edition...Colabora¡¡

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Reglas del Area de Phreaking - Leetelas

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

TUTORIAL: Como Traducir Aplicaciones JAVA - Moviles

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Super Bluetooth Hack 1.08 en Español - by SmartGenius

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Aplicaciones que nunca deben faltar en tu Movil !!

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #10 en: Abril 28, 2008, 06:31:02 »

Bue, pues borre el post mientras nos traes entonces lo tuyo SmartGenius, se que lo puedes hace, si necesitas ayuda en la parte gráfica o en lo que sea, solo es que me digas, y de una men!


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

ManCuerTex (ViPeR)
Moderador Global
Gran Colaborador

Desconectado

Mensajes: 1653

Cuando el respeto se pierde... muere la magia

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #11 en: Abril 28, 2008, 09:22:21 »

Lo bueno sería poner las aplicaciones aunque tengan algunos bugs algunas y mas adelante pues ir retocandolas no importa quien las retoque, no?

Yo en breve le hago un repaso al Reto Hack y me gustaría meterlo aquí.

A ver si de una vez me pongo a terminar la versión 2 XD

Saludos,


	En línea

Y Es Que Estas Preciosa Hasta Cuando Estás Dormida Mujer...

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Reto HacK v.1 (Wargame)

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Hacking Empezando desde 0

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Haz Crecer Con Tu Visita La Mini Ciudad de El-Hacker.com!!

Próximamente Reto HacK v.2... (Finalizado!![Revisando code])
Si encuentras un tema dañado envíame un
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #12 en: Abril 28, 2008, 09:56:34 »

Eso Viper, tu si visualizaste el Quid de la cuestión, esa es la idea, poder poner nuestras cosas, todos los que crean que tiene algo que se pueda poner acá, lo hacen y simplemente entre todos los probamos y detectamos los bugs y errores y después le hacemos un diseño acorde con los themes que se escojan o se creen y de esta forma garantizar concordancia y armonia entre los distintos componentes de nuestro propio Windows CUH , seguro que sale algo genial (Eso no lo dudo), eso es lo que espero, y esperamos todos.

Entonces esperamos el reto Hacking por acá Compadre Viper, cuídate men!!!!


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

ManCuerTex (ViPeR)
Moderador Global
Gran Colaborador

Desconectado

Mensajes: 1653

Cuando el respeto se pierde... muere la magia

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #13 en: Abril 29, 2008, 09:30:48 »

Aquí va el RetoHack v.1 (antigua)

El code no se puede publicar porque sino todo el mundo sabría como pasar los niveles y perdería la gracia.. pero he dejado la posibilidad de poder desempaquetar el exe sin mucha dificultad..

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Saludos!


	En línea

Y Es Que Estas Preciosa Hasta Cuando Estás Dormida Mujer...

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Reto HacK v.1 (Wargame)

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Hacking Empezando desde 0

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Haz Crecer Con Tu Visita La Mini Ciudad de El-Hacker.com!!

Próximamente Reto HacK v.2... (Finalizado!![Revisando code])
Si encuentras un tema dañado envíame un
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

:. Soldier .:
Colaborador

Desconectado

Mensajes: 590

___Vencer es confiar en si mismo___

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #14 en: Abril 30, 2008, 12:24:27 »

Buen programa el tuyo Viper, apenas he llegado al nivel 3 no recuerdo cuanto tiempo me lleve creo que 1 hora y 15 min, o algo asi, me despiste mucho en el nivel 2 pero el nivel 4 ya le tengo k pensar mas

Salu2


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

ManCuerTex (ViPeR)
Moderador Global
Gran Colaborador

Desconectado

Mensajes: 1653

Cuando el respeto se pierde... muere la magia

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #15 en: Abril 30, 2008, 02:59:50 »

Aquí dejo mi Bat Creator XP
Crea bats con las instrucciones que eligas en el menú de la pantalla. Quizás tenga bugs, lo programé hace mucho y no lo he revisado. Este si que contiene el source, está hecho en C.

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Pass: viper190405

190405 era la fecha de creación xD 19/04/2005

Saludos!


	En línea

Y Es Que Estas Preciosa Hasta Cuando Estás Dormida Mujer...

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Reto HacK v.1 (Wargame)

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Hacking Empezando desde 0

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Haz Crecer Con Tu Visita La Mini Ciudad de El-Hacker.com!!

Próximamente Reto HacK v.2... (Finalizado!![Revisando code])
Si encuentras un tema dañado envíame un
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Aleks
Moderadores
Gran Colaborador

Desconectado

Mensajes: 2627

Mehr licht

Re: Aportes y Aplicaciones para el Windows CUH

« Respuesta #16 en: Abril 30, 2008, 05:45:56 »

Gracias por tus aportes Viper, esperamos que todos los que tengan algo, lo pongan acá, y a los que se han ofrecido de testers: ya hay programas por probar, esperamos que se reporten los errores y bugs, en el hilo de este post!

Vamos Bien!


	En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

I´ll see you in the other side, I know it!

:: SmartGenius™ :: ツ
Moderación
Gran Colaborador

Desconectado

Mensajes: 1660

Hello there...you was Bluejacked ¡¡...xD