+- 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] IP Tracer VB.Net (/showthread.php?tid=3245194)
Pages: Pages
1
2
IP Tracer VB.Net - rfpd - Feb 9, 2013
Picture: [img]http://s3.postimage.org/x6d9rr369/Sem_T_tulo.png[/img]
Download Link: https://anonfiles[WARNING POSSIBLY INFECTED].com/file/20d79b2a704e1bdda5de2d1e16f969c7
Virus scan:https://www.virustotal.com/file/45813c28fa974046be2bcb226258102a81cf16c66ea1bfdc225361206afd0c09/analysis/1360437607/
There is one false positive :s
Please give me your's suggestions so I can upgrade this, hope you like it :)
EDIT: That IP it's not mine or anyone I know it's just some random ip I picked up to show you this!
SOURCE:
Code
Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions
Class tracer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create("http://www.geobytes.com/IpLocator.htm?GetLocation&IpAddress=" & TextBox1.Text), HttpWebRequest)
Dim Response As HttpWebResponse = Request.GetResponse()
Dim RespStream As Stream = Response.GetResponseStream()
Dim Reader As New StreamReader(RespStream)
sr = Reader.ReadToEnd()
GeoIP()
Catch ex As Exception
End Try
End Sub
Dim sr As String
Public Function GetInfoBetween(ByVal TheContents As String, ByVal Start As String, ByVal EndOfTheString As String)
Return New Regex(Start & "(.+?)" & EndOfTheString).Match(TheContents).Groups(1).Value.ToString()
End Function
Public Sub GeoIP()
Dim Latitude As String = GetInfoBetween(sr, "ro-no_bots_pls10" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
Dim Longitude As String = GetInfoBetween(sr, "ro-no_bots_pls19" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
Dim Country As String = GetInfoBetween(sr, "ro-no_bots_pls13" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
Dim Region As String = GetInfoBetween(sr, "ro-no_bots_pls15" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
Dim City As String = GetInfoBetween(sr, "ro-no_bots_pls17" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
Dim TimeZone As String = GetInfoBetween(sr, "ro-no_bots_pls9" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
TextBox2.Text = Country
TextBox3.Text = Region
TextBox4.Text = City
TextBox5.Text = TimeZone
WebBrowser1.Navigate("http://maps.google.com/maps?q=" + Latitude + " " + Longitude)
End Sub
End ClassPlease change thread name to source, if you want the source here it is, thanks a lot for being so "nice" lol..
* - tweety - Feb 9, 2013
This is horrible. It's using a web browser as well. I recommend you don't even bother downloading this. No source given either.
EDIT: This isn't even bloody multi threaded, and it's just.. Stop..
* - ʟᴇɢɪᴏɴ - Feb 9, 2013
I dont like this IP tracer. Sorry for that, it's terrible 🤮
* - rfpd - Feb 9, 2013
(Feb 9, 2013 02:26 PM)Tweety. Wrote: This is horrible. It's using a web browser as well. I recommend you don't even bother downloading this. No source given either.
EDIT: This isn't even bloody multi threaded, and it's just.. Stop..
The source is already there I'm sorry but can you tell me why it's terrible and how can I improve it? Thanks in advance!
* - SIM-590811 - Feb 9, 2013
(Feb 9, 2013 02:27 PM)Command Promt. Wrote: I dont like this IP tracer. Sorry for that, it's terrible 🤮
Are you just saying that because there's a uber that said it's bad? What proof do you have that makes it's "terrible"
I don't understand why people can't release something without people saying it's terrible or some rude comment..
Keep coding mate, look at some tutorials on some other programs that aren't being overly coded. I've seen like 100 of these things in the past month. :)
* - Yui Asuna - Feb 9, 2013
It's not "bad", because code's still code, but it's definitly not the best way to do something like this.
I agree that we should (Including me) be less rude when commenting.
* - rfpd - Feb 9, 2013
Thanks a lot guys I will do my best next time ;)
* - Yui Asuna - Feb 9, 2013
Check out WebRequest (It's about the seventh time I say it today) and RegEx/Split (RegEx is more efficient when it's come to HTML).
* - rfpd - Feb 9, 2013
(Feb 9, 2013 03:07 PM)PsyCh0TyK Wrote: Check out WebRequest (It's about the seventh time I say it today) and RegEx/Split (RegEx is more efficient when it's come to HTML).
I will do it and I will release the source code thanks a lot!
* - TrackPro+ - Feb 9, 2013
(Feb 9, 2013 02:26 PM)Tweety. Wrote: This is horrible. It's using a web browser as well. I recommend you don't even bother downloading this. No source given either.
EDIT: This isn't even bloody multi threaded, and it's just.. Stop..
Well help him out & give him some tips, like the people above me did? 🤝
* - lillix - Feb 9, 2013
Why did you use a browser? Yuch. Just use a web request to get the information from geobytes and output the IP's information, that is a lot more time efficient, and will require less memory than using a web browser.
* - Spadassin150 - Feb 9, 2013
Don't pay attention to those shitty (Negative) comments, i saw many of their post they are all the same, thinking they're to cool to help. Anyway you did a good job and as the other guys said you only need to use Web-Request instead of Web-browse, why? because its fast (really fast) and use RegEx or Split in order to extract the specific string that you need.
Good luck bro, pm if you need any help!
* - zombiehacker - Feb 9, 2013
Did you create a gui interface in visual basic, to track an ip address?
* - rfpd - Feb 10, 2013
(Feb 9, 2013 08:05 PM)zombiehacker Wrote: Did you create a gui interface in visual basic, to track an ip address?
Nop it's easy the iptracer gives me region, city, timezone, country, latitude and longitude then with the webbrowser I search for the latitude and longitude in google maps.
Q: With webrequest can I stil use google maps? Thanks in advance!
* - Yui Asuna - Feb 10, 2013
(Feb 9, 2013 08:05 PM)zombiehacker Wrote: Did you create a gui interface in visual basic, to track an ip address?Yeah, it can track down the killer's IP.