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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Bromita en VBS		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Bromita en VBS  (Leído 3,889 veces)
Zaraki_lkenpachi

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Bromita en VBS
« en: 23 Julio 2008, 17:35 pm »
;D Hola pues aqui compartiendo con los Newbies como yo una bromilla muy simple haber q les parece .. Esta Hecha con VBS :-X

Código:
Option Explicit

Dim Obj_SH		' as Object
Dim Str_Nombre	' as String 
Dim Str_PC		' as String 
Dim Palabras(8)	' as String << Array
Dim x			' as Integer

'_________________________________________________________________________


Set Obj_SH = WScript.CreateObject("WScript.Shell")

'Si Queremos Molestar y Obligar a Que El Mismo Digite Su Nombre Podriamos Habilitar Esta Linea 
'y Comentar esta >> Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%") 
'
'Do
'	Str_Nombre = InputBox("Ingresa Tu Nombre Quieres ???","Entrada de Datos")	
'Loop Until Str_Nombre <> ""


Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%") 
Str_PC = Obj_SH.ExpandEnvironmentStrings("%UserDomain%") 

Obj_SH.Run("Notepad.exe")
Obj_SH.AppActivate("Sín Título - Bloc de Notas") 

Palabras (0) = "Hola Como Estas " & Str_Nombre
Palabras (1) = "" 
Palabras (2) = "Lamento Informarte" 
Palabras (3) = "Que La PC : " & Str_PC
Palabras (4) = "Se Encuentra Desprotegida ... " 
Palabras (5) = "SaLuDoss"
Palabras (6) = "" 
Palabras (7) = "Atte : ZaraKi ..."

For x = 0 To UBound(Palabras) - 1
	WScript.Sleep(1000)
	Obj_SH.SendKeys( Palabras(x) & "{ENTER}")	
Next


Ese Array Creo que se Puede Escribir en una Linea ?? ... me podrian dejar la forma .. Gracias
Saludos !  :rolleyes:
« Última modificación: 23 Julio 2008, 17:39 pm por Zaraki_lkenpachi » En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Bromita en VBS
« Respuesta #1 en: 23 Julio 2008, 18:02 pm »
Bueno, generalmente no le presto atención a las bromas... pero creo que esta no hace ningún daño   :rolleyes:

Código:
Dim Palabras(8)
En realidad son 7, no se toma en cuenta el 0  ;D

Para que el nombre de la pc sea correcto, te recomiendo utilizar %COMPUTERNAME%

Código:
Str_PC = Obj_SH.ExpandEnvironmentStrings("%computername%")

Citar
For x = 0 To UBound(Palabras) - 1
WScript.Sleep(1000)
Obj_SH.SendKeys( Palabras(x) & "{ENTER}")
Next

Con el dim Palabras(7)

Código:
For each palabra in Palabras
WScript.Sleep(1000)
Obj_SH.SendKeys( palabra & "{ENTER}") 
Next

Creo que con eso el code queda mejor  ;D

Saludos
« Última modificación: 23 Julio 2008, 18:03 pm por Novlucker » En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Zaraki_lkenpachi

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Re: Bromita en VBS
« Respuesta #2 en: 23 Julio 2008, 18:14 pm »
Muchas Gracias por tus correcciones Maestro Obi-Wan Kenobi  xD pero antes de ello ya habia creado este Script :P El otro era estatico este ya se mueve xD pues claro que no hace ningun daño ya si uno quiere le dice que apage la pc o la reinicie pero eso no lo pongo aca ... cosa de cada quien xD  :rolleyes:

Código:
Option Explicit

Dim Obj_SH ' as Object
Dim Str_Nombre ' as String 
Dim Str_PC ' as String 
Dim Str_Texto ' as String
Dim Palabras(7) ' as String << Array
Dim Int_Tam ' as Integer
Dim x ' as Integer
Dim i ' as Integer

'_________________________________________________________________________

Set Obj_SH = WScript.CreateObject("WScript.Shell")
Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%") 
Str_PC = Obj_SH.ExpandEnvironmentStrings("%ComputerName%") 

Obj_SH.Run("Notepad.exe")
Obj_SH.AppActivate("Sín Título - Bloc de Notas") 

Palabras (0) = "Hola Como Estas " & Str_Nombre
Palabras (1) = "" 
Palabras (2) = "Lamento Informarte" 
Palabras (3) = "Que La PC : " & Str_PC
Palabras (4) = "Se Encuentra Desprotegida ... " 
Palabras (5) = "SaLuDoss"
Palabras (6) = "" 
Palabras (7) = "Atte : ZaraKi ..."

For x = 0 To UBound(Palabras) 
   Str_Texto = Palabras(x)
   Int_Tam = Len(Palabras(x))

   For i = 1 To Int_Tam
       WScript.Sleep(100)
       Obj_SH.SendKeys( Mid(Str_Texto,i, 1))
   Next
   Obj_SH.SendKeys("{ENTER}")
Next
« Última modificación: 23 Julio 2008, 18:28 pm por Zaraki_lkenpachi » En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Bromita en VBS
« Respuesta #3 en: 23 Julio 2008, 18:24 pm »
Si, ya se ve el efecto de alguien escribiendo  :P

Código:
For i = 0 To Int_Tam - 1
WScript.Sleep(100)
Obj_SH.SendKeys( Mid(Str_Texto,i + 1, 1))

El code funciona sin problemas, es decir, no hay errores, pero...

Por que no comenzar con i=1  :rolleyes:?

Código:
For i = 1 To Int_Tam
WScript.Sleep(100)
Obj_SH.SendKeys( Mid(Str_Texto,i , 1))

Sigue así, que veo ya manejas muy bien las distintas funciones y condicionales ;)

Saludos
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Zaraki_lkenpachi

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Re: Bromita en VBS
« Respuesta #4 en: 23 Julio 2008, 18:27 pm »
Cierto Nop ¬¬  ... ya lo modifique ... y bueno pues use el UserDomain porq me confundi ese es el nomrbe de mi dominio de Red xD .. y no el nombre de mi pc =/
ahora estoy intentando abrir puertoscon un Script .. Creo que tengo una idea espero sirva ... si sabes algo acerca de ello o como saber que tipo de privilegios tengo algo como decir

Si "Soy Administrador" Entonces
   Haces Tal Cosa ??
Fin del Si

Sabes donde saco eso en un registro o donde ?? ...  :rolleyes: que me retorne un valor cualquiera para poder saber si soy Guest o Admin
« Última modificación: 23 Julio 2008, 18:35 pm por Zaraki_lkenpachi » En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Bromita en VBS
« Respuesta #5 en: 23 Julio 2008, 21:00 pm »
Abrir puertos  :huh:....... nunca lo intenté, pero a que te refieres exactamente con "abrir puertos" ? :P

Lo de administrador o usuario no lo recuerdo exactamente, pero en cuanto llegue a casa lo posteo.....

Ahora volviendo un poco más atrás....

Citar
Ese Array Creo que se Puede Escribir en una Linea ?? ... me podrian dejar la forma .. Gracias

La única que se me ocurre es la siguiente  :P

Código
  1. set objshell = createobject("wscript.shell")
  2. usuario = objshell.ExpandEnvironmentStrings("%UserName%") 
  3. pc = objshell.ExpandEnvironmentStrings("%computername%") 
  4.  
  5. palabras = "Hola Como Estas " & usuario & "; ;Lamento Informarte;Que La PC : " & pc & ";Se Encuentra Desprotegida ..;SaLuDoss; ;Atte : ZaraKi ..."
  6. lineas = split(palabras,";")
  7.  
  8. for each linea in lineas
  9. 	objshell.sendkeys( linea & "{ENTER}")
  10. next

Como ves, cada una de las frases queda separada por ;, y esto lo interpretamos por medio de split  ;), de este modo, convertimos Palabras en un array  ;)

Es necesaria una segunda línea para interpretarlo, pero al menos el contenido de "Palabras" esta en una sola línea  ;D

Saludos
« Última modificación: 23 Julio 2008, 21:21 pm por Novlucker » En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Zaraki_lkenpachi

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Re: Bromita en VBS
« Respuesta #6 en: 24 Julio 2008, 00:26 am »
Claro ...  ese codigo esta muy bueno como no se me ocurrio sabes explotar bien las funciones de los Strings xD :P ...  ::) muchisimas gracias pero yo me referia que al declarar un array vi que se podia hacer asi

Dim Palabras ("A","B","C")

Algo asi vi por hay ? ...

y lo de puertos es algo asi como por ejemplo quiero abrir el puerto de mi pc numero 21 del FTP o el 23 del Telnet ?  ... o abrir cualquier otro .. Creo que me entiendes :rolleyes:

Hoy probando archivos y kegens me cogi una especie de virus o no se que sea que no me deja enviar mensajes por mi msn ¬¬ asi que tuve que formatear ya me aburri de ello asi q al formatear borre unos archivos importantes mios en documentos y toy que intento recuperarlos =( ... asi q no creo que lo haga hoy lo de los puertos ya que toy ocupado restableciendo mi pc  :-\
« Última modificación: 24 Julio 2008, 00:34 am por Zaraki_lkenpachi » En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Bromita en VBS
« Respuesta #7 en: 24 Julio 2008, 01:21 am »
Citar
Dim Palabras ("A","B","C")
Algo asi vi por hay ? ...

No recuerdo una forma así, quizás lo que viste era un array de varias dimensiones  :-\

Lo de abrir puertos... los puertos se abren cuando se ejecutan determinadas aplicaciones, y además, son autorizadas por el firewall en caso de haberlo..

Si lo que quieres es dejar un puerto a la escucha... necesitaras utilizar algún programa externo, ya que si bien, vbs puede interactura con el MSWinsock de win, es necesario instalar esta librería para que funcione  :-\

Citar
como saber que tipo de privilegios tengo algo como decir

Recuerdo que había una forma de hacerlo en vbs por medio de wmi, pero no recuerdo exactamente como  :-\

Para esto, se podría probar realizar algún cambio en el sistema, que generalmente están deshabilitados para los usuarios limitados, como lo puede ser agregar una llave en el registro de windows en Local Machine...

Código
  1. set objshell = createobject("wscript.shell")
  2. on error resume next
  3. objshell.regwrite "HKLM\software\microsoft\windows\currentversion\run\mivbs",wscript.scriptfullname,"REG_SZ"
  4. 'Intenamos escribir en el registro, Local Machine
  5. if err.number = 0 then
  6. 	msgbox "Usuario Administrador"
  7. else
  8. 	msgbox "Usuario Limitado"
  9. 	err.clear
  10. end if
  11. 'Si nos da error, no temos privilegios, sino, somos admin

O también se me ocurre obtener los usuarios del grupo de Administradores por medio del ms-dos  :P

Código
  1. set objfso = createobject("scripting.filesystemobject")
  2. set objshell = createobject("wscript.shell")
  3. usuario = objshell.expandenvironmentstrings("%username%") 
  4. set temporal = objfso.getspecialfolder(2)
  5. 'Declaramos objectos y obtenemos algunas variables
  6.  
  7. objshell.run "cmd /c net localgroup administradores >> %temp%\usergroup.txt", vbhide
  8. wscript.sleep 500
  9. 'Ejecutamos el comando en ms-dos y una pequeña pausa
  10.  
  11. set registro = objfso.opentextfile(temporal & "\usergroup.txt",1)
  12. 'Leemos lo que nos ha devuelto el comando
  13.  
  14. if instr(1,registro.readall,usuario,1) <> 0 then
  15. 	msgbox "Usuario Administrador"
  16. else
  17. 	msgbox "Usuario Limitado"
  18. end if
  19. 'Buscamos a nuestro usuario para ver si esta en el grupo de administradores
  20.  
  21. registro.close
  22. objfso.deletefile temporal & "\usergroup.txt"

En definitiva... siempre hay alguna opción de salirnos con la nuestra  ;D

Citar
Hoy probando archivos y kegens me cogi una especie de virus o no se que sea que no me deja enviar mensajes por mi msn ¬¬ asi que tuve que formatear ya me aburri de ello asi q al formatear borre unos archivos importantes mios en documentos y toy que intento recuperarlos =( ... asi q no creo que lo haga hoy lo de los puertos ya que toy ocupado restableciendo mi pc

Que mal  :-\, ten cuidado con esos archivos, pruebalos antes en una maquina virtual o en algún cyber  :-X

Saludos
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Bromita en VBS
« Respuesta #8 en: 24 Julio 2008, 16:25 pm »
Citar
Dim Palabras ("A","B","C")
Algo asi vi por hay ? ...

Tenías razón... no recordaba la manera  :rolleyes:

Personas = array("Hola Como Estas " & Str_Nombre,"","Lamento Informarte","Que La PC : " & Str_PC,"Se Encuentra Desprotegida ... ","SaLuDoss","","Atte : ZaraKi ...")

 ;D
Saludos
En línea
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Zaraki_lkenpachi

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Re: Bromita en VBS
« Respuesta #9 en: 25 Julio 2008, 06:03 am »
 ::) Ves :D Yo tbm lo vi antes q lo postearas pero para no extender el post no lo puse ...  = se Agradece la Ayuda  :P
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