últimos mensajes de: **Aincrad**

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

81	Programación / Programación General / Encuesta- Cual lenguaje es el mas usado en el foro? del 21/9/2017 al 28/09/2017	en: 21 Septiembre 2017, 22:23
hola a todos los de el foro , en esta encuesta se mostrara cual lenguaje de programacion es el mas usado por los de el foro . Instrucciones : La duración de esta encuesta es de 1 semana. se pondrá una lista de lenguajes a elegir. Para votar , comente su/sus lenguajes preferidos . Si su lenguaje no se encuentra en esta lista, comentelo en color rojo. Al finalizar la duración de esta encuesta se mostrara la una gráfica con los resultados. ------------------------------------------------------------------------------------------- lenguajes Código: Ada ActionScript Afnix ALGOL APL ASP ASP.NET AWK Batch • 1 votos(s) Bash BASIC BCPL Befunge Boo C C++ • 1 votos(s) C# Delphi DIV Dylan Eiffel Erlang Ensamblador Extended ML Euphoria GML GRAFCET FP Haskell Java javascript Joy KWC Lisp Lua MAGIC Mainsail Mesa NetREXX Oberon Pascal Parlog Perl PHP PL/1 Plankalkül PostScript PowerBuilder Prolog Python •• 2 votos(s) Rapid REXX Ruby Sail Sather Scriptol Sh Simula Smalltalk TI-Basic TCL VBA Visual Basic Script Visual Basic Visual Basic .NET • 1 votos(s) Visual C++ Visual DialogScript Visual Foxpro Yurix *ZPL PD: la encuesta finaliza dentro de una semana , con mi voto.

Programación / Scripting / Re: Crear un sistema de numeración

en: 21 Septiembre 2017, 21:36

el problema es que estas repitiendo los valores .

ejemplo:

Código

:descifrar
cls
echo [+]______________________________________________________________[+]
echo [+]                   *1.Descifrar                               [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo/
echo/
echo/
set /p palabra=Escriba los numeros que quieras descifrar:
set "var23=%palabra%"
set "resultado=%var23:7=a%"
set "resultado=%resultado:009=b%"
set "resultado=%resultado:004=c%"
set "resultado=%resultado:2=d%"
set "resultado=%resultado:007=e%"
set "resultado=%resultado:03=f%"
set "resultado=%resultado:001=g%"
set "resultado=%resultado:3=h%"
set "resultado=%resultado:01=i%"
set "resultado=%resultado:05=j%"
set "resultado=%resultado:5=k%"
set "resultado=%resultado:002=l%"
set "resultado=%resultado:6=m%"
set "resultado=%resultado:9=n%"
set "resultado=%resultado:008=ñ%"
set "resultado=%resultado:06=o%"
set "resultado=%resultado:003=p%"
set "resultado=%resultado:04=q%"
set "resultado=%resultado:08=r%"
set "resultado=%resultado:02=s%"
set "resultado=%resultado:09=t%"
set "resultado=%resultado:07=u%"
set "resultado=%resultado:8=v%"
set "resultado=%resultado:006=w%"
set "resultado=%resultado:1=x%"
set "resultado=%resultado:4=y%"
set "resultado=%resultado:005=z%"

006 y 06 es igual al 6 , ya que el 0 a la izquierda es nulo.

tu pones 006 o 06 pero la cmd lo lee como 6 osea repites los valoras.

ejuemplo:

06=o | 006=w | 6=m | en verdad estas diciendo a la cmd que las letras

o , w , m son 6 . ese es el error .

como lo corrigo?

solo cambia las cifras y asegúrate que no sean iguales numeros. ya que 006 , 06 es lo mismo que 6.

83	Programación / Scripting / Re: Crear un sistema de numeración	en: 21 Septiembre 2017, 20:50
me lo agradecerías si te pusieras a estudiar mas. para que tu mismo crees tus codes. no me tomes a mal, solo es un consejo, descargate unas guias pdf y listo. recuerda solo es un consejo que me dio Angel lex hace 6 meses cuando no sabia casi nada. seguí su consejo y me ha ido muy bien hasta ahora. no me tomes a mal

84	Programación / .NET / Re: ayuda con manejo de archivos en vb.net 2008	en: 21 Septiembre 2017, 20:39
Cita de: NEBIRE en 21 Septiembre 2017, 20:09 Más óptimo a base de algo más de código, es todavía, obtener una lista de todos los ficheros de esa carpeta y luego en un bucle interno: Código: lista = getAllFiles(DeLaCarpetaX) Por cada fichero en la lista Seleccionar casos para fichero.getExtension ' Tomar la extension del fichero actual en el bucle Caso: ".vbs", ".cmd", ".js", ".wsf", ".ink", ".bat" lo que quieras hacer Fin seleccion Repetir en bucle Umm. no había pensado hacer eso. en verdad podría ser mas optimo , ya que con la solución que encontré tarda mucho.

85	Foros Generales / Noticias / Re: Bill Gates confiesa que se arrepiente de haber creado el CTRL+ALT+SUPR	en: 21 Septiembre 2017, 19:25
yo utilizo el CTRL+ALT+SUPR en cyber para joder. jajaja la verdad es muy util. (CTRL+ALT+SUPR) = administrador de tareas (administrador de tareas) + (cyber control hack) = horas de cyber gratis y mas. Modifico después de leer la noticia de la pagina que puso wolfbcn Citar Bill Gates • hace una hora OJO, no me arrepiento de haber creado esa función, es vital cuando el PC se congela por error, me arrepiento de que fueran varias teclas que presionar. También habría querido integrar esta tecla:[/quote]

Programación / Scripting / Re: Crear un sistema de numeración

en: 21 Septiembre 2017, 19:14

listo, aquí te dejo un bach que hace lo que quieres.

convierte palabras en numeros y los numeros los convierte en palabras.

Código

@echo off
color a
:menu
cls
echo  __________________________________________________________________
echo [+]______________Crypter and Decrypter v1.0 by sal  _____________[+]
echo [+]                   *1. cifrar texto                           [+]
echo [+]                   *2. descifrar texto                        [+]
echo [+]                   *3. salir                                  [+]
echo [+]                   *4. Creditos                               [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2017____________________________[+]
echo.&set "var="
set/p "var=>> "
if not defined var (goto :menu)
If ["%var%"]==["1"] goto cifrar
If ["%var%"]==["2"] goto descifrar
If ["%var%"]==["3"] exit
If ["%var%"]==["4"] goto cre
 
:cifrar
cls
echo [+]______________________________________________________________[+]
echo [+]                   *1.Cifrar                                  [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo/
echo/
echo/
set/p "palabra=Escriba las palabras que quieras cifrar:  "
if not defined palabra (goto:cifrar)
set "var=%palabra%"
set "resultado=%var:a=61%"
set "resultado=%resultado:b=62%"
set "resultado=%resultado:c=63%"
set "resultado=%resultado:d=64%"
set "resultado=%resultado:e=65%"
set "resultado=%resultado:f=66%"
set "resultado=%resultado:g=67%"
set "resultado=%resultado:h=68%"
set "resultado=%resultado:i=69%"
set "resultado=%resultado:j=70%"
set "resultado=%resultado:k=72%"
set "resultado=%resultado:l=73%"
set "resultado=%resultado:m=74%"
set "resultado=%resultado:n=75%"
set "resultado=%resultado:ñ=76%"
set "resultado=%resultado:o=77%"
set "resultado=%resultado:p=78%"
set "resultado=%resultado:q=79%"
set "resultado=%resultado:r=100%"
set "resultado=%resultado:s=101%"
set "resultado=%resultado:t=102%"
set "resultado=%resultado:u=103%"
set "resultado=%resultado:v=104%"
set "resultado=%resultado:w=105%"
set "resultado=%resultado:x=30%"
set "resultado=%resultado:y=638%"
set "resultado=%resultado:z=666%"
:finenc
cls
echo.
echo Las palabras encriptadas son: %resultado%
echo %resultado% >> cifrado.txt
pause
goto menu
:descifrar
cls
echo [+]______________________________________________________________[+]
echo [+]                   *1.Descifrar                               [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo/
echo/
echo/
set /p palabra=Escriba los numeros que quieras descifrar:
set "var23=%palabra%"
set "resultado=%var23:61=a%"
set "resultado=%resultado:62=b%"
set "resultado=%resultado:63=c%"
set "resultado=%resultado:64=d%"
set "resultado=%resultado:65=e%"
set "resultado=%resultado:66=f%"
set "resultado=%resultado:67=g%"
set "resultado=%resultado:68=h%"
set "resultado=%resultado:69=i%"
set "resultado=%resultado:70=j%"
set "resultado=%resultado:72=k%"
set "resultado=%resultado:73=l%"
set "resultado=%resultado:74=m%"
set "resultado=%resultado:75=n%"
set "resultado=%resultado:76=ñ%"
set "resultado=%resultado:77=o%"
set "resultado=%resultado:78=p%"
set "resultado=%resultado:79=q%"
set "resultado=%resultado:100=r%"
set "resultado=%resultado:101=s%"
set "resultado=%resultado:102=t%"
set "resultado=%resultado:103=u%"
set "resultado=%resultado:104=v%"
set "resultado=%resultado:105=w%"
set "resultado=%resultado:30=x%"
set "resultado=%resultado:638=y%"
set "resultado=%resultado:666=z%"
:fin
cls
echo.
echo Las palabras desencriptadas son: %resultado%
echo/
echo/
echo/
pause & goto menu
 
:cre
               (
              echo/ & echo/
                     echo :::::::::::::::::::::::::::::::::::::::::::::::::::
                     echo :::::::             By **Aincrad**          :::::::
                     echo :::::::::::::::::::::::::::::::::::::::::::::::::::
                echo/ & echo/ & pause & goto menu
                                       )

Comenta si te funciono

Programación / Scripting / Re: SET /P sin valor declarado

en: 21 Septiembre 2017, 18:37

hola , soy Aincrad de nuevo.

pon este code :

Código

@ECHO OFF
color a
goto pass1
:passno
          (  cls
                 echo/
                 echo/
                 echo ===================================
                 echo =     ATENCION                    =
                 echo ===================================
                 echo = Por favor Escriba la contraseña.=
                 echo ===================================
                 echo/
                 echo/
                     pause
                       goto pass1
                                        )
 
:pass1
                  ( cls
                      echo/
      set /p "Pass=^> Enter the value for the password in all rar files:  "
                if not defined pass (goto:passno)
                                             goto continue
             )
 
:continue
cls
echo tu contraseña es %pass%
pause

Listo es lo que querias . es en caso de que no escribas nada.

PD: porfavor colocar codigos dentro de las etiquetas correspondiente.

Comenta si te funciono

88	Programación / .NET / Re: ayuda con manejo de archivos en vb.net 2008	en: 21 Septiembre 2017, 17:47
hola, Elektro. lo que queria decir en Citar el code tiene que implementar la funcion de : Código Código Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath para el directorio. no se si me entienden. solamente queria decir , que utilizaria el FolderBrowserDialog para seleccionar el directorio donde se encontraban las carpetas ocultas. no queria visualizarlas eso como tu dijiste es imposible. un ejemplo de lo que queria era algo asi: Código FolderBrowserDialog1 Dim dirPath As String = FolderBrowserDialog1.SelectedPath Dim filePath As String = dirPath Dim attribs As FileAttributes = File.GetAttributes(filePath) File.SetAttributes(filePath, attribs And Not FileAttributes.Hidden) era con FolderBrowserDialog1 seleccionar un disco extraible o una carpeta, y después el code desoculta todo lo que esta dentro de la carpeta que seleccione. en fin logre hacerlo de la siguiente manera: Código FolderBrowserDialog1 Dim dirPath As String = FolderBrowserDialog1.SelectedPath Dim Pr As New Process Dim Psi As New ProcessStartInfo("Cmd.Exe") Psi.Arguments = "/C attrib -r -a -s -h " & dirPath & ". /S /D " Pr.StartInfo = Psi Pr.StartInfo.WindowStyle = ProcessWindowStyle.Hidden Pr.Start() ejecuta la cmd oculto y con el argumento attrib . eso era lo que queria desocultar todas las carpetas y archivos de un directotio seleccionado.

89	Programación / .NET / Re: ayuda con manejo de archivos en vb.net 2008	en: 20 Septiembre 2017, 22:05
creo que me entendiste mal. en pocas palabras lo que quiero en lo de desocultar carpetas es un code sencillo algo como esto. Código FolderBrowserDialog1.ShowDialog() Dim dirPath As String = FolderBrowserDialog1.SelectedPath File.SetAttributes(dirPath, FileAttributes.Normal) PD: el primer problema ya lo solucione

90	Programación / .NET / Re: ayuda con manejo de archivos en vb.net 2008	en: 20 Septiembre 2017, 20:54
gracias por la respuesta, pero no me funciono. no se si me explique bien, lo que quiero es : 1) que borre todos los archivos con formato {".vbs", ".cmd", ".js", ".wsf", ".ink", ".bat"} en por ejemplo el disco extraible I y todos sus subdirectorios. 2) y lo otro de atributos sobre archivos ya lo había visto pero . lo que necesito es un code para desocultar todas las carpetas y subcarpetas de un disco extrible I. gracias por comentar.

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