elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [batch] [aporte] Batch to vbs Converter v0.2
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [batch] [aporte] Batch to vbs Converter v0.2  (Leído 2,486 veces)
**Aincrad**


Desconectado Desconectado

Mensajes: 682



Ver Perfil WWW
[batch] [aporte] Batch to vbs Converter v0.2
« en: 1 Febrero 2018, 03:00 am »

Bueno ya había posteado la primera versión pero tenia bug al convertir Batch que tuvieran el signo % y " .

bueno sin mas que decir, Esos bug Fueron totalmente corregidos .

Batch to VBS Converter 0.2

Código
  1. @echo off
  2. Title Batch to VBS Converter 0.2
  3. set cd=%cd%
  4. set t=%temp%
  5. goto eleminar
  6. :vbs
  7. color b
  8. set codevbs1=ar.writeline "
  9. set codevbs2="
  10. echo.
  11. echo  Escribe el nombre del bat a cambiar a vbs + el formato ".bat o .cmd"
  12. echo.
  13. set /p batavbs= ^>^>^>
  14. if not exist %batavbs% (goto:err)
  15. type %batavbs% > %t%\bat.txt
  16.  
  17. call :remplace
  18.  
  19. :r
  20. if not exist %t%\batavbs.txt (goto r)
  21.  
  22. (
  23. echo Const TemporaryFolder ^= 2
  24. echo.
  25. echo Dim fso^: Set fso ^= CreateObject^("Scripting.FileSystemObject"^)
  26. echo.
  27. echo Dim tempFolder^: tempFolder ^= fso^.GetSpecialFolder^(TemporaryFolder^)
  28. echo.
  29. echo set b^=createobject^("wscript.shell"^)
  30. echo Set objfso ^= createobject^("scripting.filesystemobject"^)
  31. echo Set ar^= objfso^.createtextfile^(tempFolder ^& "archivo.bat"^,true^)
  32. echo.
  33. ) >> %t%\temp.vbs
  34.  
  35. for /f "tokens=*" %%x in ('type %t%\batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> %t%\temp.vbs
  36. type "%t%\temp.vbs
  37.  
  38. (
  39. echo ar^.close
  40. echo b^.run tempFolder ^& "archivo.bat"^, ^1, true
  41. echo ^'Create By Salvador F. Krilewski.
  42. ) >> %t%\temp.vbs
  43. copy "%t%\temp.vbs" "%cd%\%batavbs%Converted.vbs"
  44. del "%t%\batavbs.txt"
  45. cls
  46. color a
  47. echo.
  48. echo Proceso terminado .  yyy y  PUT0 EL QUE LO LEA  jajaja
  49. echo.
  50. if exist "%t%\bat.txt" del "%t%\bat.txt"
  51. if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
  52. if exist "%t%\archivo.bat" del "%t%\archivo.bat"
  53. if exist "%t%\temp.vbs" del "%t%\temp.vbs"
  54. if exist "%t%\bat2.txt" del "%t%\bat2.txt"
  55. pause & exit
  56.  
  57. :eleminar
  58. if exist "%t%\bat2.txt" del "%t%\bat2.txt"
  59. if exist "%t%\bat.txt" del "%t%\bat.txt"
  60. if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
  61. if exist "%t%\archivo.bat" del "%t%\archivo.bat"
  62. if exist "%t%\temp.vbs" del "%t%\temp.vbs"
  63. goto vbs
  64.  
  65. :err
  66. cls
  67. color c
  68. echo.
  69. echo EL ARCHIVO QUE ESCRIBISTE NO EXISTE PERRO
  70. ECHO.
  71. pause & exit
  72.  
  73. :remplace
  74. setlocal enabledelayedexpansion
  75. for /f "tokens=* delims=" %%x in ('type %t%\bat.txt') do (
  76. set linea=%%x
  77. set linea=!linea:%%=%%%%!
  78. set linea=!linea:"=""!
  79. call :show !linea!
  80. )
  81. goto:eof
  82. :show
  83. echo %* >> %t%\batavbs.txt
  84. goto:eof

                                    Porfavor comenten cualquier cosa asi me siento menos ignorado  :-\





En línea



Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines