últimos mensajes de: 0x0309

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17

81	Programación / Scripting / Re: Juego Telnet: Sokod	en: 25 Abril 2009, 19:12 pm
tienes razón, por ahora solo se ve bien usando el telnet.exe de windows (ni siquiera putty). Veré si puedo solucionarlo.

82	Programación / Scripting / Juegos Telnet: Sokoban , Serp2 , Tic-Tac-Toe	en: 25 Abril 2009, 11:35 am
Hace tiempo que quería jugar con telnet, y por fin. En inicio:ejecutar: se escribe: ~~telnet dosgames.homeip.net~~ Ya me di el gusto de jugar mediante telnet, si a alguien le interesa aquí están los ejecutables: Código: http://sites.google.com/site/mytelnetgames/Home/dosgames.zip?attredirects=0 ~~Nota: solo se ve correctamente usando el telnet.exe de windows.~~ y se puede jugar los juegos, serp2 , tic-tac-toe

Programación / Scripting / RDAP_XP

en: 20 Abril 2009, 00:53 am

Bueno, republico este script que había posteado en la sección de seguridad, la versión más segura, para windows xp, que crea una carpeta autorun.inf en la raíz de las unidades removibles prácticamente imborrable. Me recordé de este script debido a que últimamente lo he estado utilizando para "securizar" "memory sticks" y con excelentes resultados (hasta el día de hoy mi pendrive está limpio), así es que se los dejo y los animo a usarlo. Sólo funciona desde XP, ya que el resultado no será el mismo en un windows vista, es decir, no es por un asunto de sintaxis, sino porque el resultado de los comandos no es igual.

Código:

@ECHO OFF
:: RDAP.CMD
:: REMOVABLE DRIVE AUTORUN PROTECTOR Version 12:44 14-03-2009
::
:: ONLY FOR RUN UNDER WINDOWS XP AND REMOVABLE DRIVE WITH FAT OR FAT32 FILESYSTEM.
::
:: AUTHOR: 0X0309
::
TITLE REMOVABLE DRIVE AUTORUN PROTECTOR
SETLOCAL ENABLEEXTENSIONS

VER | FIND /i " XP"  >NUL
IF ERRORLEVEL -1 IF ERRORLEVEL 1 (
ECHO. SCRIPT ONLY FOR WINDOWS XP.
GOTO END
)

ECHO\Detecting removable drives . . .
SET "TXT=530054004F00520041"
FOR /F "DELIMS=\: TOKENS=0X3" %%^^ IN ('REG QUERY HKLM\SYSTEM\MOUNTEDDEVICES ^| FIND "%TXT%"') DO (
VOL %%^^: 8>NUL 1>&8 2>&1 && (
ECHO\Found removable drive %%^^:
CHKDSK %%^^: 0>NUL 2>&0 | FIND " FAT" >NUL
IF ERRORLEVEL 0 IF NOT ERRORLEVEL 1 (
IF EXIST %%^^:\AUTORUN.INF (DEL /F /Q /A %%^^:\AUTORUN.INF 7>NUL 1>&7 2>&1)
IF EXIST %%^^:\AUTORUN.INF (RD /Q /S \\?\%%^^:\AUTORUN.INF 6>NUL 1>&6 2>&1)
(MD \\?\%%^^:\AUTORUN.INF\...\) 5>NUL 1>&5 2>&1
(RD /Q /S \\?\%%^^:\AUTORUN.INF\...) 4>NUL 1>&4 2>&1
(CD.>\\?\%%^^:\AUTORUN.INF\NUL) 3>NUL 1>&3 2>&1
(MD \\?\%%^^:\AUTORUN.INF\...\%RANDOM%\...\ 9>NUL 1>&9 2>&1)
IF EXIST %%^^:\AUTORUN.INF (ECHO\The removable drive %%^^: was protected.)
) ELSE (ECHO. %%^^: IS NOT WITH FILESYSTEM FAT OR FAT32.)
)
)

:END
(0>NUL SET /P %%=Press a key to quit . . . )
PAUSE >NUL
GOTO :EOF

84	Programación / Scripting / Re: Juegos MS-DOS	en: 18 Abril 2009, 00:42 am
Una duda, en el snake original ¿ la serpiente al comienzo tiene cuerpo y cabeza, o solo cabeza ? No me costaría implementarlo, si alguien lo quiere lo hago, sino no. Mejor cancelo esto, y haré un juego más completo para ms-dos con gráficos y todo, ya me aburrí de andar haciendo códigos cortos. Así es que estaré leyendo mucho por lo que tal vez les creo un nuevo post en un par de meses.

85	Programación / Scripting / Re: Juegos MS-DOS	en: 17 Abril 2009, 10:30 am
Smart, un snake + sokoban sería algo como un snibbly. He estado mirando ese juego, y aquí está lo que llevo, aunque no tengo intenciones de finalizarlo, pero si alguien lo quiere lo finalizo cuando tenga tiempo. http://wikisend.com/download/565266/SNIBBLY.EXE

86	Programación / Scripting / Re: Juegos MS-DOS	en: 16 Abril 2009, 12:03 pm
He añadido Sokod.

87	Programación / Scripting / Re: Descubrimiento en comando for	en: 16 Abril 2009, 11:43 am
gracias por compartir la información.

88	Programación / Scripting / Juegos MS-DOS	en: 15 Abril 2009, 07:12 am
Dejo los ultra básicos juegos para ms-dos que programé, y que me han permitido poner en práctica mis limitados conocimientos del lenguaje c. SOKOD http://sites.google.com/site/sokobw/Home/SOKOD.zip SOKOBW http://sites.google.com/site/sokobw/Home/SOKOBW.zip SERP http://sites.google.com/site/wormbatchgame/Home/SERP.zip Los ejecutables, pueden correrlos tanto en windows como en linux con dosbox, o solo en linux con dosemu.

89	Programación / Scripting / Re: [Batch] Batch Designer - by SmartGenius	en: 14 Abril 2009, 23:26 pm
muy bien smart, solo falta pulirlo un poco. Falta la ayuda. El fondo predeterminado debería ser negro. , o debería preguntarse al comienzo, y una vez dibujando asignar una tecla que te permita cambiar el fondo. Coloco: tamaño ancho:30 alto:60, lo cual es muy grande, por lo que debería tenerse un limite para prevenir este tipo de cosas. Si quiero pintar con el "color" de fondo, no puedo. Sugiero asignar la tabla de caracteres con letras, así puedes usar un conjunto más grande. Felicitaciones smart, buen trabajo, eso si prefiero la versión 2.

Programación / Scripting / Re: Sucesión Fibonacci [Batch]

en: 14 Abril 2009, 09:50 am

aqui una versión con la funcion suma:

Código:

@echo off




setlocal

:fibonacci
set n1=0
set n2=1

echo.%n1%
echo.%n2%

:hola

call :suma %n1% %n2%
set n1=%n2%
set n2=%suma%

echo.%suma%

goto hola

endlocal
goto :eof

::suma dos numeros positivos.
::Recibe dos numeros en formato de cadena de caracteres.
::util para sumar numeros mayores a 2147483647 (limite positivo. el rango de 32 bits en cmd solo permite numeros entre -2147483648 y 2147483647 )
::En windows nt y 2000 las cadenas de variables tiene un largo de maximo de 2047 caracteres, y en xp y superior: 8191.
::programado a la rapida por 0x0309
:suma
setlocal enableextensions enabledelayedexpansion
set primerNumero=%~1
set segundoNumero=%~2
call :len %primerNumero%
set /a lenPrimerNumero=%tam%
call :len %segundoNumero%
set /a lenSegundoNumero=%tam%
if %lenPrimerNumero% gtr %lenSegundoNumero% (
set mayor=primerNumero
set /a len=%lenPrimerNumero%-1
set menor=segundoNumero
) else (
set /a len=%lenSegundoNumero%-1
set mayor=segundoNumero
set menor=primerNumero
)
set /a diferencia=!len%mayor%!-!len%menor%!
set "loQueFalta="
for /l %%a in (1,1,%diferencia%) do (set loQueFalta=!loQueFalta!0)
set %menor%=%loQueFalta%!%menor%!
set /a reserva=0
set "suma="
:ciclo
for /F %%a in ("primerNumero:~!len!,1") do set digitoUno=!%%a!
for /F %%a in ("segundoNumero:~!len!,1") do set digitoDos=!%%a!
set /a sumaDigitos=!digitoUno!+!digitoDos!+!reserva!
set /a digitoResultante=!sumaDigitos!%%10
set /a reserva=!sumaDigitos!-!digitoResultante!
set /a reserva /=10
set suma=!digitoResultante!!suma!
set /a len -=1
if !len! geq 0 goto ciclo
if !reserva! gtr 0 (set suma=!reserva!!suma!)
(
endlocal
set suma=%suma%
)
goto :eof

:len
setlocal
set /a contl=0
set wordl=%~1
:loopl
if not defined wordl (goto endl)
set wordl=%wordl:~1%
set /a contl +=1
goto loopl
:endl
endlocal & set /a tam=%contl%
goto :eof

lista generada:

Código:

0
1
1
2
3
5
8
13
21
34
55
89
144
233
377
610
987
1597
2584
4181
6765
10946
17711
28657
46368
75025
121393
196418
317811
514229
832040
1346269
2178309
3524578
5702887
9227465
14930352
24157817
39088169
63245986
102334155
165580141
267914296
433494437
701408733
1134903170
1836311903
2971215073
4807526976
7778742049
12586269025
20365011074
32951280099
53316291173
86267571272
139583862445
225851433717
365435296162
591286729879
956722026041
1548008755920
2504730781961
4052739537881
6557470319842
10610209857723
17167680177565
27777890035288
44945570212853
72723460248141
117669030460994
190392490709135
308061521170129
498454011879264
806515533049393
1304969544928657
2111485077978050
3416454622906707
5527939700884757
8944394323791464
14472334024676221
23416728348467685
37889062373143906
61305790721611591
99194853094755497
160500643816367088
259695496911122585
420196140727489673
679891637638612258
1100087778366101931
1779979416004714189
2880067194370816120
4660046610375530309
7540113804746346429
12200160415121876738
19740274219868223167
31940434634990099905
51680708854858323072
83621143489848422977
135301852344706746049
218922995834555169026
354224848179261915075
573147844013817084101
927372692193078999176
1500520536206896083277
2427893228399975082453
3928413764606871165730
6356306993006846248183
10284720757613717413913
16641027750620563662096
26925748508234281076009
43566776258854844738105
70492524767089125814114
114059301025943970552219
184551825793033096366333
298611126818977066918552
483162952612010163284885
781774079430987230203437
1264937032042997393488322
2046711111473984623691759
3311648143516982017180081
5358359254990966640871840
8670007398507948658051921
14028366653498915298923761
22698374052006863956975682
36726740705505779255899443
59425114757512643212875125
96151855463018422468774568
155576970220531065681649693
251728825683549488150424261
407305795904080553832073954
659034621587630041982498215
1066340417491710595814572169
1725375039079340637797070384
2791715456571051233611642553
4517090495650391871408712937
7308805952221443105020355490
11825896447871834976429068427
19134702400093278081449423917
30960598847965113057878492344
50095301248058391139327916261
81055900096023504197206408605
131151201344081895336534324866
212207101440105399533740733471
343358302784187294870275058337
555565404224292694404015791808
898923707008479989274290850145
1454489111232772683678306641953
2353412818241252672952597492098
3807901929474025356630904134051
6161314747715278029583501626149
9969216677189303386214405760200
16130531424904581415797907386349
...

Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17