IP Tools este un script scris in AutoIT cu ajutorul caruia poti folosi diverse instrumente pentru IP-uri. Ideea a pornit de la vechiul topic al lui Nytro si baietii care cereau un nou link de descarcare, insa poate va evolua spre ceva mai amplu in viitor. Scriptul foloseste un api pentru a se conecta la un site cu scopul localizarii IP-ului. Nu ma deranjeaza daca modificati sursa, insa aveti grija ca la prea multe query-uri catre site, api-ul este blocat. Pentru a-l descarca, apasati aici. Exista o probabilitate ca .exe-ul sa fie detectat de antivirus deoarece este packuit cu UPX. Aveti mai jos sursa. #include <GUIConstantsEx.au3> #include <INet.au3> #include <String.au3> Opt('MustDeclareVars', 1) Opt('TrayIconHide',1) Local $msg,$upd,$ip,$api,$link,$ss Local $city, $lat,$long,$country, $code, $regcode Local $tabs, $label,$status,$label2,$label3, $input1, $button1, $l1, $response $ip = _GetIP() $api = "409f44a12b8bccd245b898f11300a54abfb709ca89f4ce8905d12e21f4bbe982" $link = "http://api.ipinfodb.com/v2/ip_query.php?key=" & $api & "&ip=" & $ip $ss = _INetGetSource($link) $city = _StringBetween($ss,"<City>","</City>") $lat = _StringBetween($ss,"<Latitude>","</Latitude>") $long = _StringBetween($ss,"<Longitude>","</Longitude>") $country = _StringBetween($ss,"<CountryName>","</CountryName>") $code = _StringBetween($ss,"<CountryCode>","</CountryCode>") $regcode = _StringBetween($ss,"<RegionCode>","</RegionCode>") GUICreate("[RST] IP Tools BETA by Synthesis", 320, 330) $upd = GuiCtrlCreateLabel("Status: Ready", 10,311,340,100) $tabs = GuiCtrlCreateTab(10, 10, 300, 300) GuiCtrlCreateTabItem("Your IP") $label = GuiCtrlCreateLabel("Your IP is " & $ip & @CRLF & @CRLF & "LOCATION " & @CRLF & "City: " & $city[0] & @CRLF & "Country: " & $country[0] & @CRLF & @CRLF & "COORDINATES" & @CRLF & "Latitude: " & $lat[0] & @CRLF & "Longitude: " & $long[0] & @CRLF & @CRLF & "MISCELLANEOUS" & @CRLF & "Country code: " & $code[0] & @CRLF & "Region code: " & $regcode[0], 15,60,280,250,0x1) GuiCtrlCreateTabItem("Locate an IP") $input1 = GuiCtrlCreateInput($ip,50,50,150,23,0x1) $button1 = GuiCtrlCreateButton("Locate",210,49,60,25,0x1) $label2 = GuiCtrlCreateLabel("", 15,90,280,230,0x1) GuiCtrlSetFont ($upd, 9,400,2) GuiCtrlSetFont($tabs, 10) GuiCtrlSetFont($label, 10) GuiCtrlSetFont($label2, 10) GuiCtrlSetFont($input1, 10) GuiCtrlSetFont($button1, 10) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $button1 $l1 = GuiCtrlRead($input1) $response = StringRegExp($l1,'((25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[1-9])\.(25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[1-9])\.(25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[1-9])\.(25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[1-9]))') If ($response == 0) Then GuiCtrlSetData($upd, "Error: Invalid IP provided") Else GuiCtrlSetData($upd, "Status: Locating") $link = "http://api.ipinfodb.com/v2/ip_query.php?key=" & $api & "&ip=" & $l1 $ss = _INetGetSource($link) $city = _StringBetween($ss,"<City>","</City>") $lat = _StringBetween($ss,"<Latitude>","</Latitude>") $long = _StringBetween($ss,"<Longitude>","</Longitude>") $country = _StringBetween($ss,"<CountryName>","</CountryName>") $code = _StringBetween($ss,"<CountryCode>","</CountryCode>") $regcode = _StringBetween($ss,"<RegionCode>","</RegionCode>") GuiCtrlSetData($label2, "LOCATION " & @CRLF & "City: " & $city[0] & @CRLF & "Country: " & $country[0] & @CRLF & @CRLF & "COORDINATES" & @CRLF & "Latitude: " & $lat[0] & @CRLF & "Longitude: " & $long[0] & @CRLF & @CRLF & "MISCELLANEOUS" & @CRLF & "Country code: " & $code[0] & @CRLF & "Region code: " & $regcode[0]) GuiCtrlSetData($upd, "Status: The IP has been located in " & $country[0] & ".") EndIf EndSelect WEnd GUIDelete() Exit