Advertisement
Guest User

Untitled

a guest
Jul 17th, 2012
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. @ECHO OFF
  2. SETLOCAL enabledelayedexpansion
  3.  
  4. SET "CHARS=a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,w,w,x,y,z"
  5. SET "INI=0"
  6. SET /P LONGITUD=Inserte la longitud deseada:
  7.  
  8. CALL :GENERAR
  9.  
  10. PAUSE
  11. EXIT
  12.  
  13. :GENERAR
  14. IF %INI% neq %LONGITUD% (
  15. SET /a "INI+=1"
  16. FOR %%c IN (!CHARS!) DO CALL :GENERAR "%~1%%~c"
  17. SET /a "INI-=1"
  18. ) else (
  19. SET "CADENA=%~1"
  20. ECHO.!CADENA!
  21. )
  22. GOTO:EOF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement