comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VBS] ScreenShot Proof Of Concept.

  • 1 Respuestas
  • 1847 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 626
  • Actividad:
    15%
  • Reputación 10
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Febrero 25, 2016, 01:07:17 pm »
HOLA!!!

Antes que nada aclaro que esto es un proof of concept.

Ya que se ve en la pc cuando el programa captura la pantalla.

Código: Visual Basic
  1.     'HECHO POR 79137913
  2.    'FUNCIONA SOLO SI LA PC POSEE FIREFOX (CREO QUE TAMBIEN SE PODRIA HACER CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")
  3.    
  4.     Call ScreenShot("C:\Users\user\Desktop\web.html","C:\Users\user\Desktop\a.html")
  5.      
  6.     Function ScreenShot(WebUrl, Output)
  7.         With CreateObject("Word.Basic")
  8.             .SendKeys "{1068}"
  9.         End With
  10.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  11.         Set objFile = objFSO.CreateTextFile(WebUrl, True)
  12.         objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
  13.         objFile.Close
  14.         On Error Resume Next
  15.             CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
  16.         On Error GoTo 0
  17.         Set wshshell = wscript.CreateObject("WScript.Shell")
  18.         'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
  19.            wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tamaño 1x1
  20.                wscript.sleep 2000
  21.             wshshell.SendKeys ("{TAB}") 'entra a la web
  22.                wscript.sleep 300
  23.             wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
  24.                wscript.sleep 1000
  25.             wshshell.SendKeys ("^s") 'guarda la pagina
  26.                wscript.sleep 100
  27.             wshshell.SendKeys (Output) 'pone el path
  28.                wscript.sleep 500
  29.             wshshell.SendKeys ("{ENTER}") 'confirma el guardado
  30.            wshshell.SendKeys ("{ENTER}") 'confirma el guardado
  31.        'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
  32.    End Function

En los path de ScreenShot en caso que de acceso denegado pongan un path como Escritorio o mis documentos.

El screenshot sera guardado en a.html

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   You are not allowed to view links. Register or Login

Conectado blackdrake

  • *
  • Co Admin
  • Mensajes: 1893
  • Actividad:
    16.67%
  • Reputación 14
    • Ver Perfil
« Respuesta #1 en: Febrero 26, 2016, 04:06:39 pm »
Muy bueno!

Y con iexplore.exeserviría? Pues lo traen todos por defecto.

Saludos.



 

¿Te gustó el post? COMPARTILO!