· 5 years ago · Sep 20, 2020, 07:44 AM
1@echo off
2color 0a
3
4:pingerstart
5
6title ::Weed Pinger::
7echo off & cls
8color 0a
9echo Welcome To Weed Pinger
10echo _________________0
11echo ________________00
12echo _______________0000
13echo ___0__________000000___________0
14echo ___00_________000000___________0
15echo ____0000______000000__________00
16echo ____000000____0000000_____00000
17echo _0_____0000000_000000_00000000_____0
18echo _00______000000_00000_0000000_____00
19echo _0000_____000000_000_000000_____0000
20echo __000000000__0000_0_000_0_000000000
21echo ____000000000__0_0_0_00000000000
22echo ________000000000000000000000
23echo ______________000_0_0000
24echo ____________00000_0__00000
25echo __________00_______0_______00
26echo ____________________0
27echo ======================================
28echo Weed Pinger v420 Remastered
29echo ======================================
30echo IPTOOLS For Tools And Ctrl + C To Stop
31echo ======================================
32echo Nickname: WeebGang Insta: vl_accurxte
33echo ======================================
34:hub
35set /p var=Targets Ip:
36if %var%==IPTOOLS goto iplook
37title Preparing To Smoke %var%
38echo =======================================
39echo Pinging Target IP "%var%"
40:d
41echo =======================================
42echo Follow vl_accurxte On Instagram
43echo =======================================
44:x
45PING -n 1 %var% | FIND "TTL="
46IF ERRORLEVEL 1 goto f
47color 0a
48PING -n 1 %var% | FIND "TTL="
49IF ERRORLEVEL 1 goto f
50color 0a
51PING -n 1 %var% | FIND "TTL="
52IF ERRORLEVEL 1 goto f
53color 0a
54PING -n 1 %var% | FIND "TTL="
55IF ERRORLEVEL 1 goto f
56color 0a
57PING -n 1 %var% | FIND "TTL="
58IF ERRORLEVEL 1 goto f
59color 0a
60PING -n 1 %var% | FIND "TTL="
61IF ERRORLEVEL 1 goto f
62color 0a
63PING -n 1 %var% | FIND "TTL="
64IF ERRORLEVEL 1 goto f
65color 0a
66PING -n 1 %var% | FIND "TTL="
67IF ERRORLEVEL 1 goto f
68color 0a
69PING -n 1 %var% | FIND "TTL="
70IF ERRORLEVEL 1 goto f
71color 0a
72PING -n 1 %var% | FIND "TTL="
73IF ERRORLEVEL 1 goto f
74color 0a
75PING -n 1 %var% | FIND "TTL="
76IF ERRORLEVEL 1 goto f
77color 0a
78PING -n 1 %var% | FIND "TTL="
79IF ERRORLEVEL 1 goto f
80color 0a
81PING -n 1 %var% | FIND "TTL="
82IF ERRORLEVEL 1 goto f
83color 0a
84PING -n 1 %var% | FIND "TTL="
85IF ERRORLEVEL 1 goto f
86color 0a
87PING -n 1 %var% | FIND "TTL="
88IF ERRORLEVEL 1 goto f
89color 0a
90PING -n 1 %var% | FIND "TTL="
91IF ERRORLEVEL 1 goto f
92color 0a
93PING -n 1 %var% | FIND "TTL="
94IF ERRORLEVEL 1 goto f
95color 0a
96PING -n 1 %var% | FIND "TTL="
97IF ERRORLEVEL 1 goto f
98color 0a
99PING -n 1 %var% | FIND "TTL="
100IF ERRORLEVEL 1 goto f
101color 0a
102PING -n 1 %var% | FIND "TTL="
103IF ERRORLEVEL 1 goto f
104color 0a
105PING -n 1 %var% | FIND "TTL="
106IF ERRORLEVEL 1 goto f
107color 0a
108PING -n 1 %var% | FIND "TTL="
109IF ERRORLEVEL 1 goto f
110color 0a
111PING -n 1 %var% | FIND "TTL="
112IF ERRORLEVEL 1 goto f
113color 0a
114PING -n 1 %var% | FIND "TTL="
115IF ERRORLEVEL 1 goto f
116color 0a
117PING -n 1 %var% | FIND "TTL="
118IF ERRORLEVEL 1 goto f
119color 0a
120PING -n 1 %var% | FIND "TTL="
121IF ERRORLEVEL 1 goto f
122color 0a
123cls
124GoTo d
125echo Target Got Smoked
126goto x
127:iplook
128@echo off
129title Weed Pinger Lookup
130color 0a
131setlocal ENABLEDELAYEDEXPANSION
132set webclient=webclient
133if exist "%temp%\%webclient%.vbs" del "%temp%\%webclient%.vbs" /f /q /s >nul
134if exist "%temp%\response.txt" del "%temp%\response.txt" /f /q /s >nul
135:menu
136cls
137echo [1] Check Your IP
138echo [2] Search up an IP
139echo [3] Return To Pinger
140goto action
141:input
142echo.
143echo Please enter a valid input option.
144echo.
145:action
146echo.
147set /p action=Weed Ip Tools:
148if '%action%'=='1' echo sUrl = "http://ipinfo.io/json" > %temp%\%webclient%.vbs & goto localip
149if '%action%'=='2' goto iplookup
150if '%action%'=='3' cls
151if '%action%'=='3' goto pingerstart
152goto input
153:iplookup
154cls
155echo.
156echo Type An IP To Lookup
157echo.
158set ip=127.0.0.1
159set /p ip=IP:
160echo sUrl = "http://ipinfo.io/%ip%/json" > %temp%\%webclient%.vbs
161:localip
162cls
163echo set oHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0") >> %temp%\%webclient%.vbs
164echo oHTTP.open "GET", sUrl,false >> %temp%\%webclient%.vbs
165echo oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" >> %temp%\%webclient%.vbs
166echo oHTTP.setRequestHeader "Content-Length", Len(sRequest) >> %temp%\%webclient%.vbs
167echo oHTTP.send sRequest >> %temp%\%webclient%.vbs
168echo HTTPGET = oHTTP.responseText >> %temp%\%webclient%.vbs
169echo strDirectory = "%temp%\response.txt" >> %temp%\%webclient%.vbs
170echo set objFSO = CreateObject("Scripting.FileSystemObject") >> %temp%\%webclient%.vbs
171echo set objFile = objFSO.CreateTextFile(strDirectory) >> %temp%\%webclient%.vbs
172echo objFile.Write(HTTPGET) >> %temp%\%webclient%.vbs
173echo objFile.Close >> %temp%\%webclient%.vbs
174echo Wscript.Quit >> %temp%\%webclient%.vbs
175start %temp%\%webclient%.vbs
176set /a requests=0
177echo.
178rem echo Waiting for API response. . .
179echo Looking up IP Address. . .
180:checkresponseexists
181set /a requests=%requests% + 1
182if %requests% gtr 7 goto failed
183IF EXIST "%temp%\response.txt" (
184goto response_exist
185) ELSE (
186ping 127.0.0.1 -n 2 -w 1000 >nul
187goto checkresponseexists
188)
189:failed
190taskkill /f /im wscript.exe >nul
191del "%temp%\%webclient%.vbs" /f /q /s >nul
192echo.
193echo Did not receive a response from the API.
194echo.
195pause
196goto menu
197:response_exist
198cls
199echo.
200echo Information for "%IP%"
201for /f "delims= " %%i in ('findstr /i "," %temp%\response.txt') do (
202 set data=%%i
203 set data=!data:,=!
204 set data=!data:""=Not Listed!
205 set data=!data:"=!
206 set data=!data:hostname:=Hostname: !
207 set data=!data:country:=Country: !
208 set data=!data:region:=State or Provinence: !
209 set data=!data:city:=City or Town: !
210 set data=!data:org:=Internet Service Provider: !
211 set data=!data:postal:=Postal Code: !
212 set data=!data:timezone:=Timezone: !
213 echo !data!
214)
215echo.
216del "%temp%\%webclient%.vbs" /f /q /s >nul
217del "%temp%\response.txt" /f /q /s >nul
218set /p erf=Press Any Key To Continue.
219goto hub
220if '%ip%'=='' goto menu
221goto iplookup
222
223Copy all the code listed above here and open up notepad then save it as whatever name you want and .bat
224it's important you save it as a .bat file then open it up and your all set
225