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 ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD)  (Leído 1,597 veces)
**Aincrad**


Desconectado Desconectado

Mensajes: 517



Ver Perfil
[APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD)
« en: 2 Octubre 2017, 21:58 pm »

hola a todos los del foro.  :laugh:
hoy les traigo un convertidor de archivos vbs a .bat  . que encontre en internet, creo que el autor se llama Denis   (VBS2CMD)

code del convertidor (VBS2CMD.vbs)

Código
  1. Option Explicit
  2.  
  3. Const ForReading = 1
  4. Const ForWriting = 2
  5. Const ForAppending = 8
  6. Const TristateUseDefault = -2
  7.  
  8. Dim arrVBStext
  9. Dim blnQuiet
  10. Dim intOVRWT, intResult, intValidArgs
  11. Dim objDialog, objFile, objFSO, wshShell
  12. Dim strBaseFileName, strCMDout, strFileName, strFileNameIN, strFileNameOUT
  13. Dim strNewText, strOldText, strText, strVBSline
  14.  
  15. With WScript.Arguments
  16. If .Unnamed.Count > 1 Then Syntax
  17. intValidArgs = 0
  18. If .Unnamed.Count = 1 Then
  19. strFileNameIN = .Unnamed(0)
  20. intValidArgs = intValidArgs + 1
  21. End If
  22. If .Named.Exists( "Q" ) Then
  23. blnQuiet = True
  24. intValidArgs = intValidArgs + 1
  25. End If
  26. If intValidArgs <> .Count Then Syntax
  27. End With
  28.  
  29. Set WshShell = WScript.CreateObject( "WScript.Shell" )
  30. Set objFSO = CreateObject( "Scripting.FileSystemObject" )
  31.  
  32. If strFileNameIN = "" Then
  33. 'File browse dialog box (XP only) (NFG in 7/2008, Thank you MS!)
  34. On Error Resume Next
  35. Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
  36. If Err Then
  37. strFileNameIN = ""
  38. WScript.Echo "No file specified."
  39. Else
  40. objDialog.Filter = "All Files|*.*"
  41. objDialog.InitialDir = wshShell.CurrentDirectory
  42. intResult = objDialog.ShowOpen
  43. If intResult = 0 Then
  44. strFileNameIN = ""
  45. wshShell.Popup "No file selected.", 1, " ", 64
  46. Else
  47. strFileNameIN = objDialog.FileName
  48. End If
  49. Set objDialog = Nothing
  50. End If
  51.  
  52. Set objDialog = Nothing
  53. On Error Goto 0
  54. End If
  55.  
  56. If strFileNameIN = "" Then Syntax
  57.  
  58. strFileNameOUT = objFSO.GetParentFolderName( strFileNameIN ) & objFSO.GetBaseName( strFileNameIN ) & "_CONVERTED.CMD"
  59.  
  60. 'Check if strFileNameOUT exists already
  61. If objFSO.FileExists( strFileNameOUT ) Then  'does the file EXIST?
  62. If blnQuiet Then
  63. WScript.Echo "Deleting existing file."
  64. objFSO.DeleteFile( strFileNameOUT )
  65. Else
  66. intOVRWT = MsgBox( strFileNameOUT & " exists already" & vbCrLf & "Overwrite?", vbYesNoCancel, "Overwrite?" )
  67. If intOVRWT = 6 Then
  68. 'proceed
  69. objFSO.DeleteFile( strFileNameOUT )
  70. Else
  71. wshShell.Popup "Exiting as requested.", 1, " ", 64
  72. WScript.Quit
  73. End If
  74. End If
  75. End If
  76.  
  77.  
  78. 'open strFileNameANSI file, and put entire file into a variable
  79. Set objFile = objFSO.OpenTextFile( strFileNameIN, ForReading )
  80. strText = objFile.ReadAll
  81. objFile.Close
  82.  
  83. '************ Start converting *************
  84. '^  Escape character.
  85. ' Adding the escape character before a command symbol
  86. ' allows it to be treated as ordinary text.
  87. 'When piping or redirecting any of these charcters you should
  88. 'prefix with the escape ^ character: \ & | > < ^
  89. 'e.g.  ^\  ^&  ^|  ^>  ^<  ^^
  90.  
  91. '# Escape out ^ symbols (Must be 1st !!!)
  92. strOldText = "^"
  93. strNewText = "^^"
  94. strText = Replace( strText, strOldText, strNewText )
  95.  
  96. '# Escape out \ symbols
  97. 'strOldText = "\"
  98. 'strNewText = "^\"
  99. 'strText = Replace( strText, strOldText, strNewText )
  100.  
  101. '# Escape out & symbols
  102. strOldText = "&"
  103. strNewText = "^&"
  104. strText = Replace( strText, strOldText, strNewText )
  105.  
  106. '# Escape out | symbols
  107. strOldText = "|"
  108. strNewText = "^|"
  109. strText = Replace( strText, strOldText, strNewText )
  110.  
  111. '# Escape out > symbols
  112. strOldText = ">"
  113. strNewText = "^>"
  114. strText = Replace(strText, strOldText, strNewText)
  115.  
  116. '# Escape out < symbols
  117. strOldText = "<"
  118. strNewText = "^<"
  119. strText = Replace( strText, strOldText, strNewText )
  120.  
  121. 'Converting into array
  122. 'Dim arrVBStext()
  123. arrVBStext = Split( strText, vbCrLf ) 'create one-dimensional array
  124.  
  125. strFileName = objFSO.GetFileName( strFileNameIN )
  126. strBaseFileName = objFSO.GetBaseName( strFileNameIN )
  127. strCMDout = ""
  128. strCMDout = strCMDout & "@ECHO OFF" & vbCrLf
  129. strCMDout = strCMDout & "Call :" & strBaseFileName & vbCrLf
  130. strCMDout = strCMDout & vbCrLf
  131. strCMDout = strCMDout & vbCrLf
  132. strCMDout = strCMDout & "REM Prevent running the " & strFileName & " twice" & vbCrLf
  133. strCMDout = strCMDout & "Exit /b 0" & vbCrLf
  134.  
  135. strCMDout = strCMDout & ":" & strBaseFileName & vbCrLf
  136.  
  137. strCMDout = strCMDout & "REM  This will create a file called " & strFileName & " in %TEMP%" & vbCrLf
  138. strCMDout = strCMDout & "REM" & vbCrLf
  139. strCMDout = strCMDout & "REM  The following will overwite any pre-existing file called %TEMP%\" & strFileName & vbCrLf
  140. strCMDout = strCMDout & "echo.> %TEMP%\" & strFileName & vbCrLf
  141. 'Add  Echo  in front and  >> %TEMP%\<VBSNAME>.VBS at the end of every line
  142. For Each strVBSline in arrVBStext
  143. If Trim( strVBSline ) = "" Then
  144. strCMDout = strCMDout & "echo. >> %TEMP%\" & strFileName & vbCrLf
  145. Else
  146. strCMDout = strCMDout & "echo " & strVBSline & " >> %TEMP%\" & strFileName & vbCrLf
  147. End If
  148. Next
  149. strCMDout = strCMDout & "Cscript.exe //NoLogo ""%TEMP%\" & strFileName & """" & vbCrLf
  150. strCMDout = strCMDout & "Exit /b 0" & vbCrLf
  151. 'Converting done
  152.  
  153. 'Write to file
  154. Set objFile = objFSO.OpenTextFile( strFileNameOUT, ForAppending, True )
  155. objFile.WriteLine strCMDout
  156.  
  157. objFile.Close
  158.  
  159. If blnQuiet Then
  160. WScript.Echo "created " & strFileNameOUT
  161. Else
  162. wshShell.Popup "created " & strFileNameOUT, 3, "Completed", 64
  163. End If
  164.  
  165. Set objFile = Nothing
  166. Set wshShell = Nothing
  167. Set objFSO = Nothing
  168.  
  169.  
  170. Sub Syntax
  171. Dim strMsg
  172. strMsg = vbCrLf _
  173.       & "Como usarlo:  VBS2CMD.VBS  archivo-vbscript.vbs  [ /Q ]" & vbCrLf & vbCrLf _
  174.       & "Donde:  archivo-vbscript.vbs  es el archivo a ser ""convertido""" & vbCrLf _
  175.       & "                           (necesario en todas las versiones excepto en XP XP)" & vbCrLf _
  176.       & "        /Q                 Evita los dialogos"
  177. WScript.Echo strMsg
  178. WScript.Quit 1
  179. End Sub


Como usar :

code batch para usar.

Código
  1. @echo off
  2. VBS2CMD.vbs nombre-de-tu-vbs.vbs
  3. pause

                                          COMENTEN



« Última modificación: 3 Octubre 2017, 18:59 pm por **Aincrad** » En línea


MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 4.906


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD)
« Respuesta #1 en: 3 Octubre 2017, 06:03 am »

Hubiera sido mejor que le dejaras los comentarios (incluyendo el nombre del autor):

http://www.robvanderwoude.com/sourcecode.php?src=vbs2cmd_vbs

Saludos!


En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

**Aincrad**


Desconectado Desconectado

Mensajes: 517



Ver Perfil
Re: [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD)
« Respuesta #2 en: 3 Octubre 2017, 19:16 pm »

Hubiera sido mejor que le dejaras los comentarios (incluyendo el nombre del autor):

http://www.robvanderwoude.com/sourcecode.php?src=vbs2cmd_vbs

La verdad, si hubiera sabido cual era el autor lo hubiera puesto, pero como no lo sabia no lo puse . ya que este script me lo pasaron. solo estoy compartiendo lo que tengo.  :D

ahhh , y gracias por la pagina que pusiste hay buenas tols.  ;-)
En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD)
« Respuesta #3 en: 3 Octubre 2017, 20:39 pm »

La verdad, si hubiera sabido cual era el autor lo hubiera puesto, pero como no lo sabia no lo puse . ya que este script me lo pasaron.

Hace poco más de una hora has modificado el post original para añadir esto:
Citar
(...) que encontre en internet, creo que el autor se llama Denis  

Evidentemente en el post original no decías nada de haberlo encontrado por internet (por cierto, ¿lo encontraste por Internet, o te lo pasaron, en qué quedamos?), ni tampoco mencionabas a un tal "Denis"... que ya de por si suena absurdo que hace una hora hayas modificado el post para incluir lo del tal "Denis" cuando varias horas antes de que modificases el post ya te habian dicho el nombre del autor (aunque por supuesto tú ya conocías el nombre de Rob Vanderwoude antes de que te lo dijeran).

No cuela el intento, ¿pero que te crees, que somos tontos?. Has intentado apropiarte del trabajo de otra persona, algo muy poco honrado, y lo peor de todo es que no es la primera vez que publicas un aporte/script en el foro diciendo que es de tu autoridad pero en realidad solo es un copy&paste ligeramente modificado del trabajo de otra persona... pero bueno, para que voy a hablar yo de lo mio, no merece la pena.

En fin, mejor habría sido no seguir intentando engañarnos modificando el texto del post original... y no haber respondido nada al compañero @MCKSys, o haber respondido con honestidad.

PD: Cierro el tema para evitar más modificaciones "raras" al post principal... y por que este tipo de aportes del modo en el que se ha hecho sin ética no merece ningún tipo de recompensa.

Saludos.
« Última modificación: 3 Octubre 2017, 20:51 pm por Eleкtro » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
convertidor de wav a mp3
Multimedia
flameboy 4 1,356 Último mensaje 28 Marzo 2004, 14:33 pm
por Songoku
Convertidor mp3 a aac
Multimedia
Makabron 6 6,838 Último mensaje 2 Noviembre 2005, 00:52 am
por Makabron
pequeño aporte(proxy),pero aporte al fin.:D
Programación Visual Basic
Tengu 0 1,560 Último mensaje 22 Julio 2007, 17:33 pm
por Tengu
[Aporte]Convertidor de números decimales a romanos
Programación C/C++
0xFer 0 1,680 Último mensaje 24 Mayo 2015, 19:00 pm
por 0xFer
[APORTE] [BATCH] Convertidor de Temperatura
Scripting
.:Xx4NG3LxX:. 1 484 Último mensaje 18 Febrero 2020, 03:34 am
por tincopasan
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines