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 

Umm. no había pensado hacer eso. en verdad podría ser mas optimo , ya que con la solución que encontré tarda mucho.

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

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]

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

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

@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

hola , soy Aincrad de nuevo.

pon este code :

@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

hola, Elektro. lo que queria decir en


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:

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:

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.

creo que me entendiste mal.

en pocas palabras lo que quiero en lo de desocultar carpetas es un code sencillo
algo como esto.

FolderBrowserDialog1.ShowDialog()
Dim dirPath As String = FolderBrowserDialog1.SelectedPath
        File.SetAttributes(dirPath, FileAttributes.Normal)

PD: el primer problema ya lo solucione

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. 

hola a todos los del foro,  .

hoy me he encontrado con 2 pequeñas trabas.

yo quiero eliminar todos los archivos con formato {"*.vbs", "*.cmd", "*.js", "*.wsf", "*.ink", "*.bat"} de  un disco cualquiera.

pero solamente se eliminar uno por uno con este code

        Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath
For Each fichero As String In Directory.GetFiles( _
        dirPath, _
        "*.vbs")
            File.Delete(fichero)
        Next

lo que quiero es borrar todos esos archivos con un solo codigo. como le hago?


bien la segunda pregunta es como desocultar las carpetas de un diretorio en
vb.net 2008.

el code tiene que implementar la funcion de :

Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath

para el directorio. no se si me entienden. 

         creo que es mucho pedir, aunque son pequeñas funciones las que pido. XD
 
                                              Gracias de antemano.

1)mira la verdad no se si se puede hacer en python creo que si.

2)yo utilizo Notepad++ ya que que con eso puedo programar en diferentes lenguajes.

yo empece creando una aplicación HTA . que es realmente un html pero lo guardas
con formato hta, después hice una pequeña tool para el foro .
es un html , te permite ofuscar el codigo de un  batch.

llink:
 https://batch-ofuser-by-aincrad.000webhostapp.com/Batch%20file%20Ofuscation.html

si quieres crear tools o paginas web te recomiendo que empieces buscando tutoriales
sobre aplicaciones hta.


3) te recomiendes que empieces con lenguaje html o PHP.
Y herramientas uso Notepad++ para programar y
Scripts Encryptor - Encoder para cifrar el codigo.