Mensajes

Mis respetos al creador del nRansomware. 

si yo tuviera los conocimientos requerido parara hacer un Ransomware , crearía lo mismo. jajaja. 

muy bueno tu code , srWhiteSkull 
pero no mestra los txt en pantalla. solo mustra el numero de ellos.

bueno , simplifique el code que puse arriba .

Enumera , muestra y cuenta los txt.

Código (bash) [Seleccionar] Expandir


@echo off & title Contador de Archivos & set a=0 & color a & :by **Aincrad**
      echo/ & dir /b *.txt | findstr /n ".txt$" & echo/
                                        (for %%x in (*.txt) do set /a a+=1)
      echo/ & echo/ & echo      Archivos txt encontrados %a% & echo/
pause 



                                       Comenten

si tu pregunta se refiere a cual es mas optimo?

la respuesta VB.NET. Ya que te permite programar en otros lenguajes también.
y tiene muchas posibilidades.

la única ventaja que le veo a VB6 es que el lenguaje es prácticamente lo mismo que
un vbs , solo le cambias algunas cositas y ya. y por eso aprender a programar en VB6 es realmente fácil .


te recomiendo definitivamente con VB.NET.

me alegro que te haya servido .  
         espero que no sea mucha molestia pero, podrías participar en la encuesta?

link:

http://foro.elhacker.net/programacion_general/encuesta_cual_lenguaje_es_el_mas_usado_en_el_foro_del_2192017_al_28092017-t474790.0.html

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 [Seleccionar] Expandir

    *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.

el problema es que estas repitiendo los valores .

ejemplo:

Código (bash) [Seleccionar] Expandir


: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.

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 

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 [Seleccionar] Expandir

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.

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.

Código (bash) [Seleccionar] Expandir


@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