Skype IP Resolver For Free [Visual Basic And .Net Framework
1. This is a filthy way of getting the IP and other info. I don't give a ---- about how s-it you find my coding so flame all you want.
2. This will only work so long as the PHP script hosted at remains active
3. I don't give a ---- about what you do with this

Ok, this is very bad code, but you get the idea. Hopefully, some of you will actually read it and try to understand it. I'll break down everything for you:

Firstly, we send a POST request to this PHP script "" to get our IP. The POST data we send is "skype=" & username & "&skypeSubmit=lookup" where username is obviously the skype user. This code is public, not idea who wrote it.

PHP Code:
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes("skype=" & username & "&skypeSubmit=lookup")

Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create(""), HttpWebRequest)
postReq.Method = "POST"
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.ContentLength = byteData.Length

Dim postreqstream As Stream = postReq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)

Dim postresponse As HttpWebResponse
postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)

Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim response As String = postreqreader.ReadToEnd 

Now we have the response stored in the response variable. We now need to extract the IP from this page. One way would be to use regex to get the IP. But if there's no IP found or multiple IPs you would need to adjust it. The method I used here (very dirty code) was to get the value between 2 strings using regex which contains the IP + some junk and then use regex to extract the IP.

PHP Code:
Dim tempstring1 As String = Regex.Split(response, "is offline.</td><br/>")(1)
Dim tempstring2 As String = Regex.Split(tempstring1, "<td width=""30%""")(0)
Dim ipregex As Regex = New Regex("\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b")
Dim ip As String = ipregex.Match(tempstring2).Value 

Now we have the IP we can get more info by doing running a geolocation script. I'm using the API from geojoe, there are loads of others too. Send a GET request to their API with the IP we have and you get an output like this:

Quote:ip= States&region=California&city=Mountain View&latitude=37.4192&longitude=-122.0574

PHP Code:
Dim webclient As New System.Net.WebClient
Dim ipapi As String = webclient.DownloadString("" & ip) 

Now we need to extract all the data. Again, using dirty code I split the response("=") and did a replace function to get the values.

PHP Code:
Dim country_code As String = ipapi.Split("&")(1).Replace("country_code=", "")
Dim country_name As String = ipapi.Split("&")(2).Replace("country_name=", "")
Dim region As String = ipapi.Split("&")(3).Replace("region=", "")
Dim city As String = ipapi.Split("&")(4).Replace("city=", "")
Dim latitude As String = ipapi.Split("&")(5).Replace("latitude=", "")
Dim longitude As String = ipapi.Split("&")(6).Replace("longitude=", "") 

Now for the flag, again using the geojoe API I loaded the flag into a byte array and convereted that into a memorystream which I could then convert into an image which would go into a picturebox.

PHP Code:
Dim flag As String = "" & ip
Dim img As New MemoryStream(webclient.DownloadData(flag))
PictureBox.Image = Image.FromStream(img) 

Same for the map, this time using the Google Maps API. You specify the location in the format {latitude,longitude}.

PHP Code:
Dim mapurl As String = "" & latitude & "," & longitude & "&zoom=14&size=210x210&sensor=false"
Dim img As New MemoryStream(webclient.DownloadData(mapurl))
PictureBox.Image = Image.FromStream(img) 

Interesting, I didn't know it was this easy to get into Skype's database of IP addresses for the P2P.
i will release Skype Resolver And if allowed me to release some botnet and booter source i will release if its allowed
No, no botnet and no booter source code/compiled application! They are illegal and therefore forbidden.

I'm not even sure if this resolver is legal.
Si enim fallor, sum. Nam qui non est, utique nec falli potest. Ac per hoc sum, si fallor. Quia ergo sum, si fallor, quomodo esse me fallor, quando certum est me esse, si fallor?
okey.. ill release some legal software here

Users browsing this thread: 1 Guest(s)

Switch to mobile version

Sponsors: FuzzyHosts - Ftpit - ZXPlay - GalaxyHostPlus - Verelox- HostUS - HostMada - Host4Fun - Evolution-Host - NodeBlade - HostDare

BitCoin donations: 1DQxbstaTb5SWk6QC2gFeQUTFR64JX4cEo