Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 03/30/11 in all areas

  1. 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
    1 point
  2. Cu ce domenii credeti ca ar fi bine sa incep nu neaparat pt a deveni un hacker ci pt a avea cunostinte in domeniile informaticii mai avansate Cand am zis cu ce ar fi bine sa incep ma refer cu ce tip de tutoriale , ce program s.a. Multumesc anticipat celor care veti raspunde.
    1 point
  3. Vplay.ro CODUL VIP: 8VPS
    -1 points
  4. La adresa Download iPIG VPN - iOpus Private Internet Gateway - Security in open WIFI, WLAN, LAN networks puteti gasi atat clientul cat si serverul de VPN. Ce face VPN-ul ? Va permite sa treceti tot pc-ul pe un alt ip decat cel dat de catre provider. In versiunea aceasta nu exista si suport de UDP connection dar pe tcp/ip merge foarte bine. Instalati serverul de VPN pe orice pc cu windows si puteti naviga linistiti cu ip-ul acelui pc (este valabil si pentru aplicatiile ce se conecteaza la internet nu numai pentru browsere). Daca aveti acces la pc-urile unor sali si le stiti parola de deepfreeze (majoritatea au deepfreeze) instalati acolo serverul. Aveti grija ca unele programe de contorizare va pot inchide aplicatia si VPN-ul nu va functiona.
    -1 points
×
×
  • Create New...