· 5 years ago · Sep 20, 2020, 04:32 AM
1@echo off
2color 5
3title Waifu Pinger
4:password
5cls
6echo ******** **
7echo /**///// /**
8echo /** ******* ****** ***** ******
9echo /******* //**///**///**/ **///**//**//*
10echo /**//// /** /** /** /******* /** /
11echo /** /** /** /** /**//// /**
12echo/******** *** /** //** //******/***
13echo//////// /// // // ////// ///
14echo ******* **
15echo /**////** /**
16echo /** /** ****** ****** ****** *** ** ****** ****** /**
17echo /******* //////** **//// **//// //** * /** **////**//**//* ******
18echo /**//// ******* //***** //***** /** ***/**/** /** /** / **///**
19echo /** **////** /////** /////** /****/****/** /** /** /** /**
20echo /** //******** ****** ****** ***/ ///**//****** /*** //******
21echo // //////// ////// ////// /// /// ////// /// //////
22echo PASSWORD IS "ChooChoo"
23set /p "pass=>"
24if %pass%==ChooChoo goto IN
25:wrong
26cls
27echo Wrong Password, Would You Like To Try Again? [Y,N]
28set /p YN=
29if /i %YN%==y goto password
30if /i %YN%==n exit
31
32:IN
33cls
34color 5
35title Waifu Pinger
36
37:pingerstart
38echo __ __ ___
39echo /\ \ __/\ \ __ /'___\
40echo \ \ \/\ \ \ \ __ /\_\/\ \__/ __ __
41echo \ \ \ \ \ \ \ /'__`\ \/\ \ \ ,__\/\ \/\ \
42echo \ \ \_/ \_\ \/\ \L\.\_\ \ \ \ \_/\ \ \_\ \
43echo \ `\___x___/\ \__/.\_\\ \_\ \_\ \ \____/
44echo '\/__//__/ \/__/\/_/ \/_/\/_/ \/___/
45echo ____
46echo /\ _`\ __
47echo \ \ \L\ \/\_\ ___ __ __ _ __
48echo \ \ ,__/\/\ \ /' _ `\ /'_ `\ /'__`\/\`'__\
49echo \ \ \/ \ \ \/\ \/\ \/\ \L\ \/\ __/\ \ \/
50echo \ \_\ \ \_\ \_\ \_\ \____ \ \____\\ \_\
51echo \/_/ \/_/\/_/\/_/\/___L\ \/____/ \/_/
52echo /\____/
53echo \_/__/
54echo ================================================
55echo - Controls: Press Ctrl+C To Stop -
56echo ================================================
57echo - Credit: Made by WeebGang -
58echo ================================================
59echo - Misc: Type "ChooChoo" In Pinger For Ip Tools -
60echo ================================================
61:hub
62set /p IP=Enter Target to Ping:
63if %IP%==ChooChoo goto iplook
64:top
65PING -n 1 %IP% | FIND "TTL="
66title -- Currently Pinging %IP% --
67IF ERRORLEVEL 1 (echo Target Downed)
68set /a num=(%Random%%%9)+1
69color %num%
70ping -t 1 0 10 127.0.0.1 >nul
71Goto top
72
73title Waifu Pinger
74
75
76
77
78
79
80
81
82
83
84:iplook
85
86title Waifu Lookup
87color 05
88setlocal ENABLEDELAYEDEXPANSION
89set webclient=webclient
90if exist "%temp%\%webclient%.vbs" del "%temp%\%webclient%.vbs" /f /q /s >nul
91if exist "%temp%\response.txt" del "%temp%\response.txt" /f /q /s >nul
92
93
94
95
96
97
98
99
100:menu
101cls
102echo [Press 1 To Read Current Ip]
103echo [Press 2 To LookUp An Ip]
104echo [Press 3 To Return To Pinger]
105goto action
106
107
108
109
110
111
112
113
114:input
115echo.
116echo Please Select One
117echo.
118
119
120
121
122
123
124
125
126:action
127echo.
128set /p action=Pick A Tool:
129if '%action%'=='1' echo sUrl = "http://ipinfo.io/json" > %temp%\%webclient%.vbs & goto localip
130if '%action%'=='2' goto iplookup
131if '%action%'=='3' cls
132if '%action%'=='3' goto pingerstart
133goto input
134
135
136
137
138
139
140
141
142:iplookup
143cls
144echo.
145echo Enter The Ip You Want To LookUp
146echo.
147set ip=127.0.0.1
148set /p ip=IP:
149echo sUrl = "http://ipinfo.io/%ip%/json" > %temp%\%webclient%.vbs
150
151
152
153
154
155
156
157
158:localip
159cls
160echo set oHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0") >> %temp%\%webclient%.vbs
161echo oHTTP.open "GET", sUrl,false >> %temp%\%webclient%.vbs
162echo oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" >> %temp%\%webclient%.vbs
163echo oHTTP.setRequestHeader "Content-Length", Len(sRequest) >> %temp%\%webclient%.vbs
164echo oHTTP.send sRequest >> %temp%\%webclient%.vbs
165echo HTTPGET = oHTTP.responseText >> %temp%\%webclient%.vbs
166echo strDirectory = "%temp%\response.txt" >> %temp%\%webclient%.vbs
167echo set objFSO = CreateObject("Scripting.FileSystemObject") >> %temp%\%webclient%.vbs
168echo set objFile = objFSO.CreateTextFile(strDirectory) >> %temp%\%webclient%.vbs
169echo objFile.Write(HTTPGET) >> %temp%\%webclient%.vbs
170echo objFile.Close >> %temp%\%webclient%.vbs
171echo Wscript.Quit >> %temp%\%webclient%.vbs
172start %temp%\%webclient%.vbs
173set /a requests=0
174echo.
175rem echo Waiting for API response. . .
176echo Looking up IP Address. . .
177:checkresponseexists
178set /a requests=%requests% + 1
179if %requests% gtr 7 goto failed
180IF EXIST "%temp%\response.txt" (
181goto response_exist
182) ELSE (
183ping 127.0.0.1 -n 2 -w 1000 >nul
184goto checkresponseexists
185)
186set /p erf=[Press Any Key To Return To IP Tools]:
187cls
188goto menu
189
190
191
192:failed
193taskkill /f /im wscript.exe >nul
194del "%temp%\%webclient%.vbs" /f /q /s >nul
195echo.
196echo Did not receive a response from the API.
197echo.
198pause
199goto menu
200:response_exist
201cls
202echo.
203echo Information for "%IP%"
204for /f "delims= " %%i in ('findstr /i "," %temp%\response.txt') do (
205 set data=%%i
206 set data=!data:,=!
207 set data=!data:""=Not Listed!
208 set data=!data:"=!
209 set data=!data:hostname:=Hostname: !
210 set data=!data:country:=Country: !
211 set data=!data:region:=State or Provinence: !
212 set data=!data:city:=City or Town: !
213 set data=!data:org:=Internet Service Provider: !
214 set data=!data:postal:=Postal Code: !
215 set data=!data:timezone:=Timezone: !
216 echo !data!
217)
218echo.
219del "%temp%\%webclient%.vbs" /f /q /s >nul
220del "%temp%\response.txt" /f /q /s >nul
221set /p erf=[Press Any Key To Return To IP Tools]:
222cls
223goto menu
224if '%ip%'=='' goto menu
225goto iplookup