[VBS] ScreenShot Proof Of Concept.

  • 1 Respuestas
  • 4270 Vistas

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

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 708
  • Actividad:
    0%
  • Country: 00
  • Reputación 136
  • 4 Esquinas
  • Skype: [email protected]
    • Ver Perfil
    • Doors.Party
    • Email

[VBS] ScreenShot Proof Of Concept.

  • 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: (vb) [Seleccionar]
    'HECHO POR 79137913
    '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")
     
    Call ScreenShot("C:\Users\user\Desktop\web.html","C:\Users\user\Desktop\a.html")
     
    Function ScreenShot(WebUrl, Output)
        With CreateObject("Word.Basic")
            .SendKeys "{1068}"
        End With
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = objFSO.CreateTextFile(WebUrl, True)
        objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
        objFile.Close
        On Error Resume Next
            CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
        On Error GoTo 0
        Set wshshell = wscript.CreateObject("WScript.Shell")
        'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
            wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tamaño 1x1
                wscript.sleep 2000
            wshshell.SendKeys ("{TAB}") 'entra a la web
                wscript.sleep 300
            wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
                wscript.sleep 1000
            wshshell.SendKeys ("^s") 'guarda la pagina
                wscript.sleep 100
            wshshell.SendKeys (Output) 'pone el path
                wscript.sleep 500
            wshshell.SendKeys ("{ENTER}") 'confirma el guardado
            wshshell.SendKeys ("{ENTER}") 'confirma el guardado
        'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
    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 Scouts Team*                                                   DOORS.PARTY

Conectado blackdrake

  • *
  • Co Admin
  • Mensajes: 1984
  • Actividad:
    26.67%
  • Country: es
  • Reputación 20
    • Ver Perfil

Re:[VBS] ScreenShot Proof Of Concept.

  • en: Febrero 26, 2016, 04:06:39 pm
Muy bueno!

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

Saludos.