DIA DE LA RAZA!! cual es entonces la tematica? cuando se entrega y a quien? saludosya tengo l calendario, que hago?
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ú@echo off
title String-Ascii Converter
setlocal enabledelayedexpansion
if not exist "ascii.exe" (call :ascii)
:init
cls
echo.
set /p sentence="Inserte la cadena a convertir > "
call :split "%sentence%"
echo.
echo Cadena: %sentence%
echo Ascii: (%result:~1%)
echo.
pause > nul
echo.
echo Quiere dejarlo en un archivo de texto? (S/N)
set /p resp2=
if %resp2%==S (call :save)
if %resp2%==s (call :save)
if %resp2%==n (call :dsp)
if %resp2%==N (call :dsp)
endlocal
goto :dsp
:save
echo. >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
echo Cadena: %sentence% >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
echo Ascii: (%result:~1%) >> "%USERPROFILE%\Escritorio\String-Ascii.txt"
cls
echo Se ha creado un archivo en el escritorio con el nombre de "String-Ascii"
pause > nul
:split
set target=%~1
call :string "%target%"
for /l %%a in (0,1,%len%) do (
call :toascii "%%target:~%%a,1%%"
set result=!result!,!ascii!)
goto :eof
:string
set string=%~1
:string2
set /a length+=1
set /a len=%length%-1
set string=%string:~1%
if "%string%"=="" goto :eof
goto :string2
:toascii
(
echo %~1
)|ascii.exe
set ascii=%errorlevel%
goto :eof
:ascii
(
echo n ascii.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.
)>ascii.dat
type ascii.dat|debug>NUL 2>&1
del /f/q/a "ascii.exe">NUL 2>&1
ren ascii.dat "ascii.exe"
goto :eof
:dsp
cls
echo Inserte:
echo 1 para volver al conversor.
echo 2 para salir.
echo.
set /p resp="> "
if %resp%==1 (call :init)
if %resp%==2 (exit)
<?php
header('Content-Type: image/png');
$num = rand(0,1);
$arch = 'imagenes/avatar'.$num.'.png';
$abrir = @fopen($arch, 'r');
echo fread($abrir, filesize($arch));
fclose($abrir);
?>
<?php
$avtr = 'imagenes/avatar.png'
$avtr0 = 'imagenes/avatar0.png'
$avtr1 = 'imagenes/avatar1.png'
if file_exist ($avtr)
if $avtr = $avtr0
unlink($avtr);
copy ($avtr1, $avtr);
else
unlink($avtr);
copy ($avtr0, $avtr);
?>