.NET Simple Cloudflare Resolver [+Project]

[.NET] Simple Cloudflare Resolver [+Project] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] Simple Cloudflare Resolver [+Project] (/showthread.php?tid=3283049)

Simple Cloudflare Resolver [+Project] - PhunKTecH - Feb 24, 2013

Hey guys today I'm going to give out a simple cloudflare resolver I made. You will need:
1 Button(Resolve)
1 Textbox(Type Site)
1 Label(CF Link:)
1 ListBox(Shows IP's)
When you have finished you should get somthing similar to this:
[Image: X1VCoM5.gif]

Heres Code:
Imports System.Net
Public Class Form1
Dim Domains(9)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Domains(0) = "blog."
Domains(1) = "cpanel."
Domains(2) = "dev."
Domains(3) = "direct."
Domains(4) = "direct-connect."
Domains(5) = "ftp."
Domains(6) = "forum."
Domains(7) = "mail."
Domains(8) = "m."
Domains(9) = "webmail."
TextBox1.Text = TextBox1.Text.Replace("http://", "")
TextBox1.Text = TextBox1.Text.Replace("Http://", "")
TextBox1.Text = TextBox1.Text.Replace("www.", "")
TextBox1.Text = TextBox1.Text.Replace("/", "")
If TextBox1.Text = "" Then
MessageBox.Show("Please enter a domain! Remember: Leave out 'http://' and 'www.'")
Else
For Each Str As String In Domains
Try
Dim hostname As IPHostEntry = Dns.GetHostByName(Str + TextBox1.Text)
Dim ip As IPAddress() = hostname.AddressList
ListBox1.Items.Add(Str + TextBox1.Text + ": " + ip(0).ToString())
Catch ex As Exception
ListBox1.Items.Add(Str + TextBox1.Text + ": Not Found")
End Try
Next
End If
'Made by PhunKTecH'
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ListBox1.ClearSelected()
End Sub
End Class

Download the source Project Here: http://www.mediafire.com/?i6sbjy2b6q5oee4
Virus Scan Here: https://www.virustotal.com/en/file/2b81068f5dc56d1a14c4a546077a3a4dacacfa6f51db3ad54269f61781944cee/analysis/1361740358/
Enjoy! 👍

* - H3x0S - Feb 24, 2013

If you want to release your code, it's better to release it as a class/function so people can use it in their projects easily.

* - C3ol - Feb 24, 2013

i download it for the theme and delete it u know why

* - PhunKTecH - Feb 24, 2013

(Feb 24, 2013 02:19 PM)C3ol Wrote: i download it for the theme and delete it u know why

The theme wasnt built in it xD It shows that theme because of the theme on my pc.

* - C3ol - Feb 24, 2013

i know but i hope maybe alittle chance but

* - Yui Asuna - Feb 24, 2013

Can you use the CODE balise, please ? Thanks.
let me point out some things:

Code 
Dim Domains(9)

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

End Sub

First, please specify the type of your Array. In this case, it's a String.
And why is this empty sub here ? It's a little mistake, but you should be aware of these little things ;)

* - netrosly - Feb 24, 2013

thanks mate, I might add this too my project, and if i do i'll add credit to you

* - fathurion - Jun 29, 2016

Thans Bro :D , I Ask Your Permission To Download Sources Code :D