lunes, 13 de noviembre de 2017

[Codigo] html code injection By Flamer


Hola aquí les dejo el código para editar paginas del Internet explorer, el código es muy sencillo esta hecho en vb.net, OJO con otros navegadores no funciona y tiene que estar abierto el navegador Internet explorer.

otra cosa solo les dejare el código, la versión compilada no




Agregar 3 textbox llamados txt_url, txt_remplace,txt_injection y txtcode

Agregar 2 botones llamados Button2 y Button1



...:::CODIGO:::...

Public Class Form1
    Dim shellWins As SHDocVw.ShellWindows
    Dim explorer As SHDocVw.InternetExplorer
    Dim code As String

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        shellWins = New SHDocVw.ShellWindows
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        If txt_injection.Text <> "" And txt_remplace.Text <> "" Then

            For Each Me.explorer In shellWins
                If InStr(explorer.LocationURL, txt_url.Text) Then
                    code = explorer.Document.body.innerHtml
                    code = Replace(code, txt_remplace.Text, txt_injection.Text)
                    Me.explorer.Document.body.innerHtml = code
                End If
            Next
        ElseIf txtcode.Text <> "" Then
            Me.explorer.Document.body.innerHtml = txtcode.Text
        Else
            MsgBox("Error Campos vacios", MsgBoxStyle.Information, "Error")
        End If
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If txt_url.Text <> "" Then
            txt_injection.Text = ""
            txt_remplace.Text = ""

            For Each Me.explorer In shellWins
                If InStr(explorer.LocationURL, txt_url.Text) Then
                    code = explorer.Document.body.innerHtml
                    txtcode.Text = code
                End If
            Next
        Else
            MsgBox("Error No Has Ingresado Una Url")
        End If
    End Sub
End Class



Bueno Saludos Flamer y espero les halla gustado



No hay comentarios.:

Publicar un comentario