API tools faq
paste
Advertisement
Nathansswell

Folder Concealer (Batch File)

Nathansswell
Aug 5th, 2013
225
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 33.86 KB | None | 0 0
raw download clone embed print report
  1. @echo off
  2. mode con cols=32 lines=4
  3. setlocal enabledelayedexpansion
  4. color 0b
  5. title Folder Concealer
  6. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /V "ShowSuperHidden" /F /T REG_DWORD /D 0
  7. goto passexist
  8. :title
  9. cls
  10. echo [1] Create Hidden Folder
  11. echo [2] Unlock Hidden Folder
  12. echo [3] Delete Hidden Folder
  13. choice /c:123 /n
  14. if errorlevel 3 goto delete
  15. if errorlevel 2 goto unlock
  16. if errorlevel 1 goto create
  17. :delete
  18. cls
  19. if not exist "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" (echo Folder does not exist!&ping localhost -n 2 >nul&goto title) else (set action=3&goto password)
  20. :unlock
  21. cls
  22. if not exist "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" (echo Folder does not exist!&ping localhost -n 2 >nul&goto title) else (set action=2&goto password)
  23. :create
  24. cls
  25. if exist "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" (echo Folder already exists!&ping localhost -n 2 >nul&goto title) else (set action=1&goto action)
  26. :password
  27. if %entered%==1 goto action
  28. set counter=-1
  29. call :variable
  30. cls
  31. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  32. if errorlevel 36 set letter=36&goto password2
  33. if errorlevel 35 set letter=35&goto password2
  34. if errorlevel 34 set letter=34&goto password2
  35. if errorlevel 33 set letter=33&goto password2
  36. if errorlevel 32 set letter=32&goto password2
  37. if errorlevel 31 set letter=31&goto password2
  38. if errorlevel 30 set letter=30&goto password2
  39. if errorlevel 29 set letter=29&goto password2
  40. if errorlevel 28 set letter=28&goto password2
  41. if errorlevel 27 set letter=27&goto password2
  42. if errorlevel 26 set letter=26&goto password2
  43. if errorlevel 25 set letter=25&goto password2
  44. if errorlevel 24 set letter=24&goto password2
  45. if errorlevel 23 set letter=23&goto password2
  46. if errorlevel 22 set letter=22&goto password2
  47. if errorlevel 21 set letter=21&goto password2
  48. if errorlevel 20 set letter=20&goto password2
  49. if errorlevel 19 set letter=19&goto password2
  50. if errorlevel 18 set letter=18&goto password2
  51. if errorlevel 17 set letter=17&goto password2
  52. if errorlevel 16 set letter=16&goto password2
  53. if errorlevel 15 set letter=15&goto password2
  54. if errorlevel 14 set letter=14&goto password2
  55. if errorlevel 13 set letter=13&goto password2
  56. if errorlevel 12 set letter=12&goto password2
  57. if errorlevel 11 set letter=11&goto password2
  58. if errorlevel 10 set letter=10&goto password2
  59. if errorlevel 9 set letter=9&goto password2
  60. if errorlevel 8 set letter=8&goto password2
  61. if errorlevel 7 set letter=7&goto password2
  62. if errorlevel 6 set letter=6&goto password2
  63. if errorlevel 5 set letter=5&goto password2
  64. if errorlevel 4 set letter=4&goto password2
  65. if errorlevel 3 set letter=3&goto password2
  66. if errorlevel 2 set letter=2&goto password2
  67. if errorlevel 1 set letter=1&goto password2
  68. :password2
  69. call :variable
  70. cls
  71. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  72. if errorlevel 36 set letter2=36&goto password3
  73. if errorlevel 35 set letter2=35&goto password3
  74. if errorlevel 34 set letter2=34&goto password3
  75. if errorlevel 33 set letter2=33&goto password3
  76. if errorlevel 32 set letter2=32&goto password3
  77. if errorlevel 31 set letter2=31&goto password3
  78. if errorlevel 30 set letter2=30&goto password3
  79. if errorlevel 29 set letter2=29&goto password3
  80. if errorlevel 28 set letter2=28&goto password3
  81. if errorlevel 27 set letter2=27&goto password3
  82. if errorlevel 26 set letter2=26&goto password3
  83. if errorlevel 25 set letter2=25&goto password3
  84. if errorlevel 24 set letter2=24&goto password3
  85. if errorlevel 23 set letter2=23&goto password3
  86. if errorlevel 22 set letter2=22&goto password3
  87. if errorlevel 21 set letter2=21&goto password3
  88. if errorlevel 20 set letter2=20&goto password3
  89. if errorlevel 19 set letter2=19&goto password3
  90. if errorlevel 18 set letter2=18&goto password3
  91. if errorlevel 17 set letter2=17&goto password3
  92. if errorlevel 16 set letter2=16&goto password3
  93. if errorlevel 15 set letter2=15&goto password3
  94. if errorlevel 14 set letter2=14&goto password3
  95. if errorlevel 13 set letter2=13&goto password3
  96. if errorlevel 12 set letter2=12&goto password3
  97. if errorlevel 11 set letter2=11&goto password3
  98. if errorlevel 10 set letter2=10&goto password3
  99. if errorlevel 9 set letter2=9&goto password3
  100. if errorlevel 8 set letter2=8&goto password3
  101. if errorlevel 7 set letter2=7&goto password3
  102. if errorlevel 6 set letter2=6&goto password3
  103. if errorlevel 5 set letter2=5&goto password3
  104. if errorlevel 4 set letter2=4&goto password3
  105. if errorlevel 3 set letter2=3&goto password3
  106. if errorlevel 2 set letter2=2&goto password3
  107. if errorlevel 1 set letter2=1&goto password3
  108. goto password3
  109. :password3
  110. call :variable
  111. cls
  112. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  113. if errorlevel 36 set letter3=36&goto password4
  114. if errorlevel 35 set letter3=35&goto password4
  115. if errorlevel 34 set letter3=34&goto password4
  116. if errorlevel 33 set letter3=33&goto password4
  117. if errorlevel 32 set letter3=32&goto password4
  118. if errorlevel 31 set letter3=31&goto password4
  119. if errorlevel 30 set letter3=30&goto password4
  120. if errorlevel 29 set letter3=29&goto password4
  121. if errorlevel 28 set letter3=28&goto password4
  122. if errorlevel 27 set letter3=27&goto password4
  123. if errorlevel 26 set letter3=26&goto password4
  124. if errorlevel 25 set letter3=25&goto password4
  125. if errorlevel 24 set letter3=24&goto password4
  126. if errorlevel 23 set letter3=23&goto password4
  127. if errorlevel 22 set letter3=22&goto password4
  128. if errorlevel 21 set letter3=21&goto password4
  129. if errorlevel 20 set letter3=20&goto password4
  130. if errorlevel 19 set letter3=19&goto password4
  131. if errorlevel 18 set letter3=18&goto password4
  132. if errorlevel 17 set letter3=17&goto password4
  133. if errorlevel 16 set letter3=16&goto password4
  134. if errorlevel 15 set letter3=15&goto password4
  135. if errorlevel 14 set letter3=14&goto password4
  136. if errorlevel 13 set letter3=13&goto password4
  137. if errorlevel 12 set letter3=12&goto password4
  138. if errorlevel 11 set letter3=11&goto password4
  139. if errorlevel 10 set letter3=10&goto password4
  140. if errorlevel 9 set letter3=9&goto password4
  141. if errorlevel 8 set letter3=8&goto password4
  142. if errorlevel 7 set letter3=7&goto password4
  143. if errorlevel 6 set letter3=6&goto password4
  144. if errorlevel 5 set letter3=5&goto password4
  145. if errorlevel 4 set letter3=4&goto password4
  146. if errorlevel 3 set letter3=3&goto password4
  147. if errorlevel 2 set letter3=2&goto password4
  148. if errorlevel 1 set letter3=1&goto password4
  149. goto password4
  150. :password4
  151. call :variable
  152. cls
  153. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  154. if errorlevel 36 set letter4=36&goto password5
  155. if errorlevel 35 set letter4=35&goto password5
  156. if errorlevel 34 set letter4=34&goto password5
  157. if errorlevel 33 set letter4=33&goto password5
  158. if errorlevel 32 set letter4=32&goto password5
  159. if errorlevel 31 set letter4=31&goto password5
  160. if errorlevel 30 set letter4=30&goto password5
  161. if errorlevel 29 set letter4=29&goto password5
  162. if errorlevel 28 set letter4=28&goto password5
  163. if errorlevel 27 set letter4=27&goto password5
  164. if errorlevel 26 set letter4=26&goto password5
  165. if errorlevel 25 set letter4=25&goto password5
  166. if errorlevel 24 set letter4=24&goto password5
  167. if errorlevel 23 set letter4=23&goto password5
  168. if errorlevel 22 set letter4=22&goto password5
  169. if errorlevel 21 set letter4=21&goto password5
  170. if errorlevel 20 set letter4=20&goto password5
  171. if errorlevel 19 set letter4=19&goto password5
  172. if errorlevel 18 set letter4=18&goto password5
  173. if errorlevel 17 set letter4=17&goto password5
  174. if errorlevel 16 set letter4=16&goto password5
  175. if errorlevel 15 set letter4=15&goto password5
  176. if errorlevel 14 set letter4=14&goto password5
  177. if errorlevel 13 set letter4=13&goto password5
  178. if errorlevel 12 set letter4=12&goto password5
  179. if errorlevel 11 set letter4=11&goto password5
  180. if errorlevel 10 set letter4=10&goto password5
  181. if errorlevel 9 set letter4=9&goto password5
  182. if errorlevel 8 set letter4=8&goto password5
  183. if errorlevel 7 set letter4=7&goto password5
  184. if errorlevel 6 set letter4=6&goto password5
  185. if errorlevel 5 set letter4=5&goto password5
  186. if errorlevel 4 set letter4=4&goto password5
  187. if errorlevel 3 set letter4=3&goto password5
  188. if errorlevel 2 set letter4=2&goto password5
  189. if errorlevel 1 set letter4=1&goto password5
  190. goto password5
  191. :password5
  192. call :variable
  193. cls
  194. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  195. if errorlevel 36 set letter5=36&goto password6
  196. if errorlevel 35 set letter5=35&goto password6
  197. if errorlevel 34 set letter5=34&goto password6
  198. if errorlevel 33 set letter5=33&goto password6
  199. if errorlevel 32 set letter5=32&goto password6
  200. if errorlevel 31 set letter5=31&goto password6
  201. if errorlevel 30 set letter5=30&goto password6
  202. if errorlevel 29 set letter5=29&goto password6
  203. if errorlevel 28 set letter5=28&goto password6
  204. if errorlevel 27 set letter5=27&goto password6
  205. if errorlevel 26 set letter5=26&goto password6
  206. if errorlevel 25 set letter5=25&goto password6
  207. if errorlevel 24 set letter5=24&goto password6
  208. if errorlevel 23 set letter5=23&goto password6
  209. if errorlevel 22 set letter5=22&goto password6
  210. if errorlevel 21 set letter5=21&goto password6
  211. if errorlevel 20 set letter5=20&goto password6
  212. if errorlevel 19 set letter5=19&goto password6
  213. if errorlevel 18 set letter5=18&goto password6
  214. if errorlevel 17 set letter5=17&goto password6
  215. if errorlevel 16 set letter5=16&goto password6
  216. if errorlevel 15 set letter5=15&goto password6
  217. if errorlevel 14 set letter5=14&goto password6
  218. if errorlevel 13 set letter5=13&goto password6
  219. if errorlevel 12 set letter5=12&goto password6
  220. if errorlevel 11 set letter5=11&goto password6
  221. if errorlevel 10 set letter5=10&goto password6
  222. if errorlevel 9 set letter5=9&goto password6
  223. if errorlevel 8 set letter5=8&goto password6
  224. if errorlevel 7 set letter5=7&goto password6
  225. if errorlevel 6 set letter5=6&goto password6
  226. if errorlevel 5 set letter5=5&goto password6
  227. if errorlevel 4 set letter5=4&goto password6
  228. if errorlevel 3 set letter5=3&goto password6
  229. if errorlevel 2 set letter5=2&goto password6
  230. if errorlevel 1 set letter5=1&goto password6
  231. goto password6
  232. :password6
  233. call :variable
  234. cls
  235. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  236. if errorlevel 36 set letter6=36&goto password7
  237. if errorlevel 35 set letter6=35&goto password7
  238. if errorlevel 34 set letter6=34&goto password7
  239. if errorlevel 33 set letter6=33&goto password7
  240. if errorlevel 32 set letter6=32&goto password7
  241. if errorlevel 31 set letter6=31&goto password7
  242. if errorlevel 30 set letter6=30&goto password7
  243. if errorlevel 29 set letter6=29&goto password7
  244. if errorlevel 28 set letter6=28&goto password7
  245. if errorlevel 27 set letter6=27&goto password7
  246. if errorlevel 26 set letter6=26&goto password7
  247. if errorlevel 25 set letter6=25&goto password7
  248. if errorlevel 24 set letter6=24&goto password7
  249. if errorlevel 23 set letter6=23&goto password7
  250. if errorlevel 22 set letter6=22&goto password7
  251. if errorlevel 21 set letter6=21&goto password7
  252. if errorlevel 20 set letter6=20&goto password7
  253. if errorlevel 19 set letter6=19&goto password7
  254. if errorlevel 18 set letter6=18&goto password7
  255. if errorlevel 17 set letter6=17&goto password7
  256. if errorlevel 16 set letter6=16&goto password7
  257. if errorlevel 15 set letter6=15&goto password7
  258. if errorlevel 14 set letter6=14&goto password7
  259. if errorlevel 13 set letter6=13&goto password7
  260. if errorlevel 12 set letter6=12&goto password7
  261. if errorlevel 11 set letter6=11&goto password7
  262. if errorlevel 10 set letter6=10&goto password7
  263. if errorlevel 9 set letter6=9&goto password7
  264. if errorlevel 8 set letter6=8&goto password7
  265. if errorlevel 7 set letter6=7&goto password7
  266. if errorlevel 6 set letter6=6&goto password7
  267. if errorlevel 5 set letter6=5&goto password7
  268. if errorlevel 4 set letter6=4&goto password7
  269. if errorlevel 3 set letter6=3&goto password7
  270. if errorlevel 2 set letter6=2&goto password7
  271. if errorlevel 1 set letter6=1&goto password7
  272. goto password7
  273. :password7
  274. call :variable
  275. cls
  276. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  277. if errorlevel 36 set letter7=36&goto password8
  278. if errorlevel 35 set letter7=35&goto password8
  279. if errorlevel 34 set letter7=34&goto password8
  280. if errorlevel 33 set letter7=33&goto password8
  281. if errorlevel 32 set letter7=32&goto password8
  282. if errorlevel 31 set letter7=31&goto password8
  283. if errorlevel 30 set letter7=30&goto password8
  284. if errorlevel 29 set letter7=29&goto password8
  285. if errorlevel 28 set letter7=28&goto password8
  286. if errorlevel 27 set letter7=27&goto password8
  287. if errorlevel 26 set letter7=26&goto password8
  288. if errorlevel 25 set letter7=25&goto password8
  289. if errorlevel 24 set letter7=24&goto password8
  290. if errorlevel 23 set letter7=23&goto password8
  291. if errorlevel 22 set letter7=22&goto password8
  292. if errorlevel 21 set letter7=21&goto password8
  293. if errorlevel 20 set letter7=20&goto password8
  294. if errorlevel 19 set letter7=19&goto password8
  295. if errorlevel 18 set letter7=18&goto password8
  296. if errorlevel 17 set letter7=17&goto password8
  297. if errorlevel 16 set letter7=16&goto password8
  298. if errorlevel 15 set letter7=15&goto password8
  299. if errorlevel 14 set letter7=14&goto password8
  300. if errorlevel 13 set letter7=13&goto password8
  301. if errorlevel 12 set letter7=12&goto password8
  302. if errorlevel 11 set letter7=11&goto password8
  303. if errorlevel 10 set letter7=10&goto password8
  304. if errorlevel 9 set letter7=9&goto password8
  305. if errorlevel 8 set letter7=8&goto password8
  306. if errorlevel 7 set letter7=7&goto password8
  307. if errorlevel 6 set letter7=6&goto password8
  308. if errorlevel 5 set letter7=5&goto password8
  309. if errorlevel 4 set letter7=4&goto password8
  310. if errorlevel 3 set letter7=3&goto password8
  311. if errorlevel 2 set letter7=2&goto password8
  312. if errorlevel 1 set letter7=1&goto password8
  313. goto password8
  314. :password8
  315. call :variable
  316. cls
  317. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Type password please: %variable%"
  318. if errorlevel 36 set letter8=36&goto variable
  319. if errorlevel 35 set letter8=35&goto variable
  320. if errorlevel 34 set letter8=34&goto variable
  321. if errorlevel 33 set letter8=33&goto variable
  322. if errorlevel 32 set letter8=32&goto variable
  323. if errorlevel 31 set letter8=31&goto variable
  324. if errorlevel 30 set letter8=30&goto variable
  325. if errorlevel 29 set letter8=29&goto variable
  326. if errorlevel 28 set letter8=28&goto variable
  327. if errorlevel 27 set letter8=27&goto variable
  328. if errorlevel 26 set letter8=26&goto variable
  329. if errorlevel 25 set letter8=25&goto variable
  330. if errorlevel 24 set letter8=24&goto variable
  331. if errorlevel 23 set letter8=23&goto variable
  332. if errorlevel 22 set letter8=22&goto variable
  333. if errorlevel 21 set letter8=21&goto variable
  334. if errorlevel 20 set letter8=20&goto variable
  335. if errorlevel 19 set letter8=19&goto variable
  336. if errorlevel 18 set letter8=18&goto variable
  337. if errorlevel 17 set letter8=17&goto variable
  338. if errorlevel 16 set letter8=16&goto variable
  339. if errorlevel 15 set letter8=15&goto variable
  340. if errorlevel 14 set letter8=14&goto variable
  341. if errorlevel 13 set letter8=13&goto variable
  342. if errorlevel 12 set letter8=12&goto variable
  343. if errorlevel 11 set letter8=11&goto variable
  344. if errorlevel 10 set letter8=10&goto variable
  345. if errorlevel 9 set letter8=9&goto variable
  346. if errorlevel 8 set letter8=8&goto variable
  347. if errorlevel 7 set letter8=7&goto variable
  348. if errorlevel 6 set letter8=6&goto variable
  349. if errorlevel 5 set letter8=5&goto variable
  350. if errorlevel 4 set letter8=4&goto variable
  351. if errorlevel 3 set letter8=3&goto variable
  352. if errorlevel 2 set letter8=2&goto variable
  353. if errorlevel 1 set letter8=1&goto variable
  354. goto variable
  355. :variable
  356. set /a counter=%counter%+1
  357. if %counter%==0 set variable=
  358. if %counter%==1 set variable=*
  359. if %counter%==2 set variable=**
  360. if %counter%==3 set variable=***
  361. if %counter%==4 set variable=****
  362. if %counter%==5 set variable=*****
  363. if %counter%==6 set variable=******
  364. if %counter%==7 set variable=*******
  365. if %counter%==8 goto passcheck
  366. goto :eof
  367. :passcheck
  368. set pass=%letter%%letter2%%letter3%%letter4%%letter5%%letter6%%letter7%%letter8%
  369. if %pass%==2727272727272727 set entered=1&goto action
  370. cls
  371. echo Password incorrect.
  372. ping localhost -n 2 >nul
  373. goto title
  374. :action
  375. cls
  376. if %action%==1 md "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"&attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"&echo Folder created.&ping localhost -n 2 >nul&goto title
  377. if %action%==2 explorer "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"&goto title
  378. if %action%==3 rd "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}">nul&echo Folder deleted.&ping localhost -n 2 >nul& goto title
  379. :setpass
  380. set countera=-1
  381. call :variablea
  382. echo PASSWORD MUST BE EIGHT LETTERS
  383. echo      AND/OR NUMBERS LONG.
  384. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  385. if errorlevel 36 set lettera=36&goto password2a
  386. if errorlevel 35 set lettera=35&goto password2a
  387. if errorlevel 34 set lettera=34&goto password2a
  388. if errorlevel 33 set lettera=33&goto password2a
  389. if errorlevel 32 set lettera=32&goto password2a
  390. if errorlevel 31 set lettera=31&goto password2a
  391. if errorlevel 30 set lettera=30&goto password2a
  392. if errorlevel 29 set lettera=29&goto password2a
  393. if errorlevel 28 set lettera=28&goto password2a
  394. if errorlevel 27 set lettera=27&goto password2a
  395. if errorlevel 26 set lettera=26&goto password2a
  396. if errorlevel 25 set lettera=25&goto password2a
  397. if errorlevel 24 set lettera=24&goto password2a
  398. if errorlevel 23 set lettera=23&goto password2a
  399. if errorlevel 22 set lettera=22&goto password2a
  400. if errorlevel 21 set lettera=21&goto password2a
  401. if errorlevel 20 set lettera=20&goto password2a
  402. if errorlevel 19 set lettera=19&goto password2a
  403. if errorlevel 18 set lettera=18&goto password2a
  404. if errorlevel 17 set lettera=17&goto password2a
  405. if errorlevel 16 set lettera=16&goto password2a
  406. if errorlevel 15 set lettera=15&goto password2a
  407. if errorlevel 14 set lettera=14&goto password2a
  408. if errorlevel 13 set lettera=13&goto password2a
  409. if errorlevel 12 set lettera=12&goto password2a
  410. if errorlevel 11 set lettera=11&goto password2a
  411. if errorlevel 10 set lettera=10&goto password2a
  412. if errorlevel 9 set lettera=9&goto password2a
  413. if errorlevel 8 set lettera=8&goto password2a
  414. if errorlevel 7 set lettera=7&goto password2a
  415. if errorlevel 6 set lettera=6&goto password2a
  416. if errorlevel 5 set lettera=5&goto password2a
  417. if errorlevel 4 set lettera=4&goto password2a
  418. if errorlevel 3 set lettera=3&goto password2a
  419. if errorlevel 2 set lettera=2&goto password2a
  420. if errorlevel 1 set lettera=1&goto password2a
  421. :password2a
  422. call :variablea
  423. cls
  424. echo PASSWORD MUST BE EIGHT LETTERS
  425. echo      AND/OR NUMBERS LONG.
  426. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  427. if errorlevel 36 set letter2a=36&goto password3a
  428. if errorlevel 35 set letter2a=35&goto password3a
  429. if errorlevel 34 set letter2a=34&goto password3a
  430. if errorlevel 33 set letter2a=33&goto password3a
  431. if errorlevel 32 set letter2a=32&goto password3a
  432. if errorlevel 31 set letter2a=31&goto password3a
  433. if errorlevel 30 set letter2a=30&goto password3a
  434. if errorlevel 29 set letter2a=29&goto password3a
  435. if errorlevel 28 set letter2a=28&goto password3a
  436. if errorlevel 27 set letter2a=27&goto password3a
  437. if errorlevel 26 set letter2a=26&goto password3a
  438. if errorlevel 25 set letter2a=25&goto password3a
  439. if errorlevel 24 set letter2a=24&goto password3a
  440. if errorlevel 23 set letter2a=23&goto password3a
  441. if errorlevel 22 set letter2a=22&goto password3a
  442. if errorlevel 21 set letter2a=21&goto password3a
  443. if errorlevel 20 set letter2a=20&goto password3a
  444. if errorlevel 19 set letter2a=19&goto password3a
  445. if errorlevel 18 set letter2a=18&goto password3a
  446. if errorlevel 17 set letter2a=17&goto password3a
  447. if errorlevel 16 set letter2a=16&goto password3a
  448. if errorlevel 15 set letter2a=15&goto password3a
  449. if errorlevel 14 set letter2a=14&goto password3a
  450. if errorlevel 13 set letter2a=13&goto password3a
  451. if errorlevel 12 set letter2a=12&goto password3a
  452. if errorlevel 11 set letter2a=11&goto password3a
  453. if errorlevel 10 set letter2=10&goto password3a
  454. if errorlevel 9 set letter2a=9&goto password3a
  455. if errorlevel 8 set letter2a=8&goto password3a
  456. if errorlevel 7 set letter2a=7&goto password3a
  457. if errorlevel 6 set letter2a=6&goto password3a
  458. if errorlevel 5 set letter2a=5&goto password3a
  459. if errorlevel 4 set letter2a=4&goto password3a
  460. if errorlevel 3 set letter2a=3&goto password3a
  461. if errorlevel 2 set letter2a=2&goto password3a
  462. if errorlevel 1 set letter2a=1&goto password3a
  463. goto password3a
  464. :password3a
  465. call :variablea
  466. cls
  467. echo PASSWORD MUST BE EIGHT LETTERS
  468. echo      AND/OR NUMBERS LONG.
  469. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  470. if errorlevel 36 set letter3a=36&goto password4a
  471. if errorlevel 35 set letter3a=35&goto password4a
  472. if errorlevel 34 set letter3a=34&goto password4a
  473. if errorlevel 33 set letter3a=33&goto password4a
  474. if errorlevel 32 set letter3a=32&goto password4a
  475. if errorlevel 31 set letter3a=31&goto password4a
  476. if errorlevel 30 set letter3a=30&goto password4a
  477. if errorlevel 29 set letter3a=29&goto password4a
  478. if errorlevel 28 set letter3a=28&goto password4a
  479. if errorlevel 27 set letter3a=27&goto password4a
  480. if errorlevel 26 set letter3a=26&goto password4a
  481. if errorlevel 25 set letter3a=25&goto password4a
  482. if errorlevel 24 set letter3a=24&goto password4a
  483. if errorlevel 23 set letter3a=23&goto password4a
  484. if errorlevel 22 set letter3a=22&goto password4a
  485. if errorlevel 21 set letter3a=21&goto password4a
  486. if errorlevel 20 set letter3a=20&goto password4a
  487. if errorlevel 19 set letter3a=19&goto password4a
  488. if errorlevel 18 set letter3a=18&goto password4a
  489. if errorlevel 17 set letter3a=17&goto password4a
  490. if errorlevel 16 set letter3a=16&goto password4a
  491. if errorlevel 15 set letter3a=15&goto password4a
  492. if errorlevel 14 set letter3a=14&goto password4a
  493. if errorlevel 13 set letter3a=13&goto password4a
  494. if errorlevel 12 set letter3a=12&goto password4a
  495. if errorlevel 11 set letter3a=11&goto password4a
  496. if errorlevel 10 set letter3a=10&goto password4a
  497. if errorlevel 9 set letter3a=9&goto password4a
  498. if errorlevel 8 set letter3a=8&goto password4a
  499. if errorlevel 7 set letter3a=7&goto password4a
  500. if errorlevel 6 set letter3a=6&goto password4a
  501. if errorlevel 5 set letter3a=5&goto password4a
  502. if errorlevel 4 set letter3a=4&goto password4a
  503. if errorlevel 3 set letter3a=3&goto password4a
  504. if errorlevel 2 set letter3a=2&goto password4a
  505. if errorlevel 1 set letter3a=1&goto password4a
  506. goto password4a
  507. :password4a
  508. call :variablea
  509. cls
  510. echo PASSWORD MUST BE EIGHT LETTERS
  511. echo      AND/OR NUMBERS LONG.
  512. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  513. if errorlevel 36 set letter4a=36&goto password5a
  514. if errorlevel 35 set letter4a=35&goto password5a
  515. if errorlevel 34 set letter4a=34&goto password5a
  516. if errorlevel 33 set letter4a=33&goto password5a
  517. if errorlevel 32 set letter4a=32&goto password5a
  518. if errorlevel 31 set letter4a=31&goto password5a
  519. if errorlevel 30 set letter4a=30&goto password5a
  520. if errorlevel 29 set letter4a=29&goto password5a
  521. if errorlevel 28 set letter4a=28&goto password5a
  522. if errorlevel 27 set letter4a=27&goto password5a
  523. if errorlevel 26 set letter4a=26&goto password5a
  524. if errorlevel 25 set letter4a=25&goto password5a
  525. if errorlevel 24 set letter4a=24&goto password5a
  526. if errorlevel 23 set letter4a=23&goto password5a
  527. if errorlevel 22 set letter4a=22&goto password5a
  528. if errorlevel 21 set letter4a=21&goto password5a
  529. if errorlevel 20 set letter4a=20&goto password5a
  530. if errorlevel 19 set letter4a=19&goto password5a
  531. if errorlevel 18 set letter4a=18&goto password5a
  532. if errorlevel 17 set letter4a=17&goto password5a
  533. if errorlevel 16 set letter4a=16&goto password5a
  534. if errorlevel 15 set letter4a=15&goto password5a
  535. if errorlevel 14 set letter4a=14&goto password5a
  536. if errorlevel 13 set letter4a=13&goto password5a
  537. if errorlevel 12 set letter4a=12&goto password5a
  538. if errorlevel 11 set letter4a=11&goto password5a
  539. if errorlevel 10 set letter4a=10&goto password5a
  540. if errorlevel 9 set letter4a=9&goto password5a
  541. if errorlevel 8 set letter4a=8&goto password5a
  542. if errorlevel 7 set letter4a=7&goto password5a
  543. if errorlevel 6 set letter4a=6&goto password5a
  544. if errorlevel 5 set letter4a=5&goto password5a
  545. if errorlevel 4 set letter4a=4&goto password5a
  546. if errorlevel 3 set letter4a=3&goto password5a
  547. if errorlevel 2 set letter4a=2&goto password5a
  548. if errorlevel 1 set letter4a=1&goto password5a
  549. goto password5a
  550. :password5a
  551. call :variablea
  552. cls
  553. echo PASSWORD MUST BE EIGHT LETTERS
  554. echo      AND/OR NUMBERS LONG.
  555. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  556. if errorlevel 36 set letter5a=36&goto password6a
  557. if errorlevel 35 set letter5a=35&goto password6a
  558. if errorlevel 34 set letter5a=34&goto password6a
  559. if errorlevel 33 set letter5a=33&goto password6a
  560. if errorlevel 32 set letter5a=32&goto password6a
  561. if errorlevel 31 set letter5a=31&goto password6a
  562. if errorlevel 30 set letter5a=30&goto password6a
  563. if errorlevel 29 set letter5a=29&goto password6a
  564. if errorlevel 28 set letter5a=28&goto password6a
  565. if errorlevel 27 set letter5a=27&goto password6a
  566. if errorlevel 26 set letter5a=26&goto password6a
  567. if errorlevel 25 set letter5a=25&goto password6a
  568. if errorlevel 24 set letter5a=24&goto password6a
  569. if errorlevel 23 set letter5a=23&goto password6a
  570. if errorlevel 22 set letter5a=22&goto password6a
  571. if errorlevel 21 set letter5a=21&goto password6a
  572. if errorlevel 20 set letter5a=20&goto password6a
  573. if errorlevel 19 set letter5a=19&goto password6a
  574. if errorlevel 18 set letter5a=18&goto password6a
  575. if errorlevel 17 set letter5a=17&goto password6a
  576. if errorlevel 16 set letter5a=16&goto password6a
  577. if errorlevel 15 set letter5a=15&goto password6a
  578. if errorlevel 14 set letter5a=14&goto password6a
  579. if errorlevel 13 set letter5a=13&goto password6a
  580. if errorlevel 12 set letter5a=12&goto password6a
  581. if errorlevel 11 set letter5a=11&goto password6a
  582. if errorlevel 10 set letter5a=10&goto password6a
  583. if errorlevel 9 set letter5a=9&goto password6a
  584. if errorlevel 8 set letter5a=8&goto password6a
  585. if errorlevel 7 set letter5a=7&goto password6a
  586. if errorlevel 6 set letter5a=6&goto password6a
  587. if errorlevel 5 set letter5a=5&goto password6a
  588. if errorlevel 4 set letter5a=4&goto password6a
  589. if errorlevel 3 set letter5a=3&goto password6a
  590. if errorlevel 2 set letter5a=2&goto password6a
  591. if errorlevel 1 set letter5a=1&goto password6a
  592. goto password6a
  593. :password6a
  594. call :variablea
  595. cls
  596. echo PASSWORD MUST BE EIGHT LETTERS
  597. echo      AND/OR NUMBERS LONG.
  598. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  599. if errorlevel 36 set letter6a=36&goto password7a
  600. if errorlevel 35 set letter6a=35&goto password7a
  601. if errorlevel 34 set letter6a=34&goto password7a
  602. if errorlevel 33 set letter6a=33&goto password7a
  603. if errorlevel 32 set letter6a=32&goto password7a
  604. if errorlevel 31 set letter6a=31&goto password7a
  605. if errorlevel 30 set letter6a=30&goto password7a
  606. if errorlevel 29 set letter6a=29&goto password7a
  607. if errorlevel 28 set letter6a=28&goto password7a
  608. if errorlevel 27 set letter6a=27&goto password7a
  609. if errorlevel 26 set letter6a=26&goto password7a
  610. if errorlevel 25 set letter6a=25&goto password7a
  611. if errorlevel 24 set letter6a=24&goto password7a
  612. if errorlevel 23 set letter6a=23&goto password7a
  613. if errorlevel 22 set letter6a=22&goto password7a
  614. if errorlevel 21 set letter6a=21&goto password7a
  615. if errorlevel 20 set letter6a=20&goto password7a
  616. if errorlevel 19 set letter6a=19&goto password7a
  617. if errorlevel 18 set letter6a=18&goto password7a
  618. if errorlevel 17 set letter6a=17&goto password7a
  619. if errorlevel 16 set letter6a=16&goto password7a
  620. if errorlevel 15 set letter6a=15&goto password7a
  621. if errorlevel 14 set letter6a=14&goto password7a
  622. if errorlevel 13 set letter6a=13&goto password7a
  623. if errorlevel 12 set letter6a=12&goto password7a
  624. if errorlevel 11 set letter6a=11&goto password7a
  625. if errorlevel 10 set letter6a=10&goto password7a
  626. if errorlevel 9 set letter6a=9&goto password7a
  627. if errorlevel 8 set letter6a=8&goto password7a
  628. if errorlevel 7 set letter6a=7&goto password7a
  629. if errorlevel 6 set letter6a=6&goto password7a
  630. if errorlevel 5 set letter6a=5&goto password7a
  631. if errorlevel 4 set letter6a=4&goto password7a
  632. if errorlevel 3 set letter6a=3&goto password7a
  633. if errorlevel 2 set letter6a=2&goto password7a
  634. if errorlevel 1 set letter6a=1&goto password7a
  635. goto password7a
  636. :password7a
  637. call :variablea
  638. cls
  639. echo PASSWORD MUST BE EIGHT LETTERS
  640. echo      AND/OR NUMBERS LONG.
  641. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  642. if errorlevel 36 set letter7a=36&goto password8a
  643. if errorlevel 35 set letter7a=35&goto password8a
  644. if errorlevel 34 set letter7a=34&goto password8a
  645. if errorlevel 33 set letter7a=33&goto password8a
  646. if errorlevel 32 set letter7a=32&goto password8a
  647. if errorlevel 31 set letter7a=31&goto password8a
  648. if errorlevel 30 set letter7a=30&goto password8a
  649. if errorlevel 29 set letter7a=29&goto password8a
  650. if errorlevel 28 set letter7a=28&goto password8a
  651. if errorlevel 27 set letter7a=27&goto password8a
  652. if errorlevel 26 set letter7a=26&goto password8a
  653. if errorlevel 25 set letter7a=25&goto password8a
  654. if errorlevel 24 set letter7a=24&goto password8a
  655. if errorlevel 23 set letter7a=23&goto password8a
  656. if errorlevel 22 set letter7a=22&goto password8a
  657. if errorlevel 21 set letter7a=21&goto password8a
  658. if errorlevel 20 set letter7a=20&goto password8a
  659. if errorlevel 19 set letter7a=19&goto password8a
  660. if errorlevel 18 set letter7a=18&goto password8a
  661. if errorlevel 17 set letter7a=17&goto password8a
  662. if errorlevel 16 set letter7a=16&goto password8a
  663. if errorlevel 15 set letter7a=15&goto password8a
  664. if errorlevel 14 set letter7a=14&goto password8a
  665. if errorlevel 13 set letter7a=13&goto password8a
  666. if errorlevel 12 set letter7a=12&goto password8a
  667. if errorlevel 11 set letter7a=11&goto password8a
  668. if errorlevel 10 set letter7a=10&goto password8a
  669. if errorlevel 9 set letter7a=9&goto password8a
  670. if errorlevel 8 set letter7a=8&goto password8a
  671. if errorlevel 7 set letter7a=7&goto password8a
  672. if errorlevel 6 set letter7a=6&goto password8a
  673. if errorlevel 5 set letter7a=5&goto password8a
  674. if errorlevel 4 set letter7a=4&goto password8a
  675. if errorlevel 3 set letter7a=3&goto password8a
  676. if errorlevel 2 set letter7a=2&goto password8a
  677. if errorlevel 1 set letter7a=1&goto password8a
  678. goto password8a
  679. :password8a
  680. call :variablea
  681. cls
  682. echo PASSWORD MUST BE EIGHT LETTERS
  683. echo      AND/OR NUMBERS LONG.
  684. choice /c:abcdefghijklmnopqrstuvwxyz0123456789 /n /m "Make password please: %variablea%"
  685. if errorlevel 36 set letter8a=36&goto variablea
  686. if errorlevel 35 set letter8a=35&goto variablea
  687. if errorlevel 34 set letter8a=34&goto variablea
  688. if errorlevel 33 set letter8a=33&goto variablea
  689. if errorlevel 32 set letter8a=32&goto variablea
  690. if errorlevel 31 set letter8a=31&goto variablea
  691. if errorlevel 30 set letter8a=30&goto variablea
  692. if errorlevel 29 set letter8a=29&goto variablea
  693. if errorlevel 28 set letter8a=28&goto variablea
  694. if errorlevel 27 set letter8a=27&goto variablea
  695. if errorlevel 26 set letter8a=26&goto variablea
  696. if errorlevel 25 set letter8a=25&goto variablea
  697. if errorlevel 24 set letter8a=24&goto variablea
  698. if errorlevel 23 set letter8a=23&goto variablea
  699. if errorlevel 22 set letter8a=22&goto variablea
  700. if errorlevel 21 set letter8a=21&goto variablea
  701. if errorlevel 20 set letter8a=20&goto variablea
  702. if errorlevel 19 set letter8a=19&goto variablea
  703. if errorlevel 18 set letter8a=18&goto variablea
  704. if errorlevel 17 set letter8a=17&goto variablea
  705. if errorlevel 16 set letter8a=16&goto variablea
  706. if errorlevel 15 set letter8a=15&goto variablea
  707. if errorlevel 14 set letter8a=14&goto variablea
  708. if errorlevel 13 set letter8a=13&goto variablea
  709. if errorlevel 12 set letter8a=12&goto variablea
  710. if errorlevel 11 set letter8a=11&goto variablea
  711. if errorlevel 10 set letter8a=10&goto variablea
  712. if errorlevel 9 set letter8a=9&goto variablea
  713. if errorlevel 8 set letter8a=8&goto variablea
  714. if errorlevel 7 set letter8a=7&goto variablea
  715. if errorlevel 6 set letter8a=6&goto variablea
  716. if errorlevel 5 set letter8a=5&goto variablea
  717. if errorlevel 4 set letter8a=4&goto variablea
  718. if errorlevel 3 set letter8a=3&goto variablea
  719. if errorlevel 2 set letter8a=2&goto variablea
  720. if errorlevel 1 set letter8a=1&goto variablea
  721. goto variablea
  722. :variablea
  723. set /a countera=%countera%+1
  724. if %countera%==0 set variablea=
  725. if %countera%==1 set variablea=*
  726. if %countera%==2 set variablea=**
  727. if %countera%==3 set variablea=***
  728. if %countera%==4 set variablea=****
  729. if %countera%==5 set variablea=*****
  730. if %countera%==6 set variablea=******
  731. if %countera%==7 set variablea=*******
  732. if %countera%==8 set variablea=********&goto createpass
  733. goto :eof
  734. :passexist
  735. set var=1
  736. set entered=0
  737. set passexist=0
  738. findstr /c:"set passexist=%var%" %0>nul
  739. if errorlevel 1 goto setpass
  740. if errorlevel 0 goto title
  741. :createpass
  742. set qwe=%lettera%
  743. set asd=%letter2a%
  744. set zxc=%letter3a%
  745. set rty=%letter4a%
  746. set fgh=%letter5a%
  747. set vbn=%letter6a%
  748. set uio=%letter7a%
  749. set jkl=%letter8a%
  750. set userpass=%qwe%%asd%%zxc%%rty%%fgh%%vbn%%uio%%jkl%
  751. echo Set objFS = CreateObject("Scripting.FileSystemObject")>tmp.vbs
  752. echo strFile = %0>>tmp.vbs
  753. echo Set objFile = objFS.OpenTextFile(strFile)>>tmp.vbs
  754. echo Do Until objFile.AtEndOfStream>>tmp.vbs
  755. echo strLine = objFile.ReadLine>>tmp.vbs
  756. echo If InStr(strLine,"passexist=0")^> 0 Then>>tmp.vbs
  757. echo strLine = Replace(strLine,"passexist=0","passexist=%var%")>>tmp.vbs
  758. echo End If>>tmp.vbs
  759. echo WScript.Echo strLine>>tmp.vbs
  760. echo Loop>>tmp.vbs
  761. md tmp
  762. cscript /nologo tmp.vbs > tmp\tmp.bat
  763. cd tmp
  764. ren "tmp.bat" "Folder Concealer.bat"
  765. cd..
  766. del tmp.vbs
  767. move /y "%cd%\tmp\Folder Concealer.bat" "%cd%" >nul
  768. echo Set objFS = CreateObject("Scripting.FileSystemObject")>tmp2.vbs
  769. echo strFile = %0>>tmp2.vbs
  770. echo Set objFile = objFS.OpenTextFile(strFile)>>tmp2.vbs
  771. echo Do Until objFile.AtEndOfStream>>tmp2.vbs
  772. echo strLine = objFile.ReadLine>>tmp2.vbs
  773. echo If InStr(strLine,"2727272727272727")^> 0 Then>>tmp2.vbs
  774. echo strLine = Replace(strLine,"2727272727272727","%userpass%")>>tmp2.vbs
  775. echo End If>>tmp2.vbs
  776. echo WScript.Echo strLine>>tmp2.vbs
  777. echo Loop>>tmp2.vbs
  778. cscript /nologo tmp2.vbs > tmp\tmp2.bat
  779. cd tmp
  780. ren "tmp2.bat" "Folder Concealer.bat"
  781. cd..
  782. del tmp2.vbs
  783. move /y "%cd%\tmp\Folder Concealer.bat" "%cd%" >nul
  784. ping localhost -n 1 >nul
  785. rd tmp
  786. goto title
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!