API tools faq
paste
elektrohacker

Ice Crack 1.0

elektrohacker
Feb 1st, 2012
506
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 22.01 KB | None | 0 0
raw download clone embed print report
  1. @Echo OFF
  2.  
  3.  
  4.  
  5. REM Ice Crack 1.0
  6. REM
  7. REM Cracker y recuperador de claves
  8. REM
  9. REM Creado por EleKtro H@cker el 01/02/2012
  10. REM Visita Foro.ElHacker.Net
  11.  
  12.  
  13.  
  14. :####:
  15. :Menu:
  16. :####:
  17.  
  18. Title Ice Crack v1.0
  19. Mode con cols=90 lines=30
  20. Nircmd win center ititle "Ice Crack" >nul 2>&1
  21. Color 3f
  22. Set Num=0
  23. Set Tipo=
  24.  
  25. CLS
  26. Echo.
  27. Echo. Ice Crack v1.0 ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± © EleKtro H@cker ±±±±±±±±±±±±
  28. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  29. Echo.
  30. Echo. Bienvenido, ¨Que desea hacer?.
  31. Echo.
  32. Echo.
  33. Echo. (1)  Crackear contrase¤a de un archivo
  34. Echo.
  35. Echo. (2)  Recuperar contrase¤a de...
  36. Echo.
  37. Echo. (3)  Cambiar^\Eliminar la contrase¤a de un usuario
  38. Echo.
  39. Echo.
  40. echo.
  41. Echo.
  42. echo.
  43. Echo.
  44. Echo.
  45. Echo.
  46. Echo.
  47. Echo.
  48. Echo.
  49. Echo.
  50. Echo.
  51. Echo.                                   (S) Salir...
  52. Set /P Tipo=^>^>^>
  53.  
  54. If NOT Defined Tipo (Goto :Menu:)
  55. If "%Tipo%" EQU "1" (Goto :UNO:)
  56. If "%Tipo%" EQU "2" (Goto :DOS:)
  57. If "%Tipo%" EQU "3" (Goto :TRES:)
  58. If /I "%Tipo%" EQU "S" (Exit)
  59. Goto :Menu
  60.  
  61.  
  62.  
  63.  
  64.  
  65. :###:
  66. :UNO:
  67. :###:
  68. Set tipo=
  69.  
  70. CLS
  71. Echo.
  72. Echo. Ice Crack v1.0 ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± © EleKtro H@cker ±±±±±±±±±±±±
  73. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  74. Echo.
  75. Echo. Elija el tipo de archivo.
  76. Echo.
  77. Echo.
  78. Echo. (1) 7z    (6) Rar
  79. Echo.
  80. Echo. (2) Bzip2 (7) Tar
  81. Echo.
  82. Echo. (3) Gzip  (8) Wim
  83. Echo.
  84. Echo. (4) Pdf   (9) Xz
  85. Echo.
  86. Echo. (5) Pst   (10) Zip
  87. Echo.
  88. Echo.
  89. Echo.
  90. Echo.
  91. Echo.
  92. Echo.
  93. Echo.
  94. Echo. (0) Volver...
  95. Echo.
  96. Echo.
  97. Echo.
  98. Set /P Tipo=^>^>^>
  99.  
  100. If NOT Defined Tipo (Goto :UNO)
  101. If "%Tipo%" EQU "1" (Set "tipo=7z" & Goto :7za)
  102. If "%Tipo%" EQU "2" (Set "tipo=Bzip2" & Goto :7za)
  103. If "%Tipo%" EQU "3" (Set "tipo=Gzip" & Goto :7za)
  104. If "%Tipo%" EQU "4" (Set "tipo=Pdf" & Goto :qpdf)
  105. If "%Tipo%" EQU "5" (Set "tipo=Pst" & Goto :PstPassword)
  106. If "%Tipo%" EQU "6" (Set "tipo=Rar" & Goto :UnRar)
  107. If "%Tipo%" EQU "7" (Set "tipo=Tar" & Goto :7za)
  108. If "%Tipo%" EQU "8" (Set "tipo=Wim" & Goto :7za)
  109. If "%Tipo%" EQU "9" (Set "tipo=Xz" & Goto :7za)
  110. If "%Tipo%" EQU "10" (Set "tipo=Zip" & Goto :7za)
  111.  
  112. If "%Tipo%" EQU "0" (goto :Menu:)
  113. Goto :UNO:
  114.  
  115.  
  116.  
  117.  
  118.  
  119. ::::
  120. :7za
  121. ::::
  122.  
  123. Set Modo=
  124.  
  125. CLS
  126. Echo.
  127. Echo. Tipo:     %tipo%
  128. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  129. Echo.
  130. Echo. Elija el modo de fuerza bruta.
  131. Echo.
  132. Echo. (1) Secuencia
  133. Echo.
  134. Echo. (2) Usar diccionario
  135. Echo.
  136. Echo.
  137. Echo.
  138. Echo.
  139. Echo.
  140. Echo.
  141. Echo.
  142. Echo.
  143. Echo.
  144. Echo.
  145. Echo.
  146. Echo.
  147. Echo. (0) Volver.
  148. Echo.
  149. Echo.
  150. Echo.
  151. Set /P Modo=^>^>^>
  152. CLS
  153.  
  154. If NOT Defined Modo (Goto :7za)
  155. IF "%MODO%" EQU "0" (Goto :UNO:)
  156. Echo "%modo%"| Findstr /I [^12] >nul
  157. if NOT %errorlevel% EQU 0 (Goto :7za)
  158.  
  159. IF "%MODO%" EQU "1" (
  160.     call :Elegir_Archivo
  161.     Setlocal EnableDelayedExpansion
  162.     call :7za_secuencia 1
  163.     call :7za_secuencia 2
  164.     call :7za_secuencia 3
  165.     call :7za_secuencia 4
  166.     call :7za_secuencia 5
  167.     call :7za_secuencia 6
  168.     call :7za_secuencia 7
  169.     call :7za_secuencia 8
  170.     call :7za_secuencia 9
  171.     call :7za_secuencia 10
  172.     call :7za_secuencia 11
  173.     call :7za_secuencia 12
  174.     call :7za_secuencia 13
  175.     call :7za_secuencia 14
  176.     call :7za_secuencia 15
  177.     call :7za_secuencia 16
  178.     call :7za_secuencia 17
  179.     call :7za_secuencia 18
  180.     call :7za_secuencia 19
  181.     call :7za_secuencia 20
  182.     call :7za_secuencia 21
  183.     call :7za_secuencia 22
  184.     call :7za_secuencia 23
  185.     call :7za_secuencia 24
  186.     call :7za_secuencia 25
  187.     call :7za_secuencia 26
  188.     call :7za_secuencia 27
  189.     call :7za_secuencia 28
  190.     call :7za_secuencia 29
  191.     call :7za_secuencia 30
  192.     call :7za_secuencia 31
  193.     call :7za_secuencia 32
  194.     call :7za_secuencia 33
  195.     call :7za_secuencia 34
  196.     call :7za_secuencia 35
  197.     call :7za_secuencia 36
  198.     call :7za_secuencia 37
  199.     call :7za_secuencia 38
  200.     call :7za_secuencia 39
  201.     call :7za_secuencia 40
  202.     call :7za_secuencia 41
  203.     call :7za_secuencia 42
  204.     call :7za_secuencia 43
  205.     call :7za_secuencia 44
  206.     call :7za_secuencia 45
  207.     call :7za_secuencia 46
  208.     call :7za_secuencia 47
  209.     call :7za_secuencia 48
  210.     call :7za_secuencia 49
  211.     call :7za_secuencia 50
  212. )
  213.  
  214. IF "%MODO%" EQU "2" (
  215.     call :Elegir_Archivo
  216.     call :Elegir_Diccionario
  217.     Setlocal EnableDelayedExpansion
  218.     goto :7za_diccionario
  219.    
  220. )
  221. Goto :7za
  222.  
  223.  
  224.  
  225.  
  226.  
  227. ::::::::::::::::
  228. :7za_diccionario
  229. ::::::::::::::::
  230.  
  231. For /F %%# in ('type %wordlist%') do (
  232.     CLS
  233.     Echo.
  234.     Echo. Crackeando contrase¤a, porfavor, espere...
  235.     Echo.
  236.     Echo. Probando combinaci¢n: %%#
  237.     Echo.
  238.     Echo. !NUM! combinaci¢nes fallidas.
  239.     7za t %archivo% -p"%%#" | find /I "OK" >NUL
  240.     Call :Verify_7za "%%#"
  241. )
  242.  
  243.  
  244. Echo.
  245. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  246. echo.
  247. pause
  248. Goto :MENU:
  249.  
  250.  
  251.  
  252. :Verify_7za
  253. If %ErrorLevel% EQU 0 (
  254.     Echo.
  255.     Echo.
  256.     Echo.
  257.     Echo.
  258.     Echo.
  259.     Echo. La contrase¤a es: %*
  260.     Echo.
  261.     pause
  262.     Goto :MENU:
  263. ) ELSE (
  264.     Set /A NUM+=1
  265.     Goto :EOF
  266. )
  267.  
  268.  
  269.  
  270.  
  271.  
  272. ::::::::::::::
  273. :7za_secuencia
  274. ::::::::::::::
  275.  
  276. 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 . , : = @ # $"
  277. Set "init=0"
  278. Set "longitud=%1"
  279.  
  280. Call :Generar_7za
  281. Goto :EOF
  282.  
  283.  
  284. :Generar_7za
  285.  
  286. If %init% NEQ %Longitud% (
  287.     Set /a "init+=1"
  288.     For %%c in (!caracteres!) do call :Generar_7za "%~1%%~c"
  289.     Set /a "init-=1"
  290. ) ELSE (
  291.     Set "String=%~1"
  292.     CLS
  293.     Echo.
  294.     Echo. Crackeando contrase¤a, porfavor, espere...
  295.     Echo.
  296.     Echo. Probando combinaci¢n: !String!
  297.     Echo.
  298.     Echo. !NUM! combinaci¢nes fallidas.
  299.     7za t %archivo% -p"!String!" | find /I "OK" >NUL
  300.     Call :Verify_7za "!String!"
  301. )
  302. Goto :EOF
  303.  
  304. Echo.
  305. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  306. echo.
  307. pause
  308. Goto :MENU:
  309.  
  310.  
  311.  
  312.  
  313. :::::
  314. :QPDF
  315. :::::
  316.  
  317. Set Modo=
  318.  
  319. CLS
  320. Echo.
  321. Echo. Tipo:     %tipo%
  322. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  323. Echo.
  324. Echo. Elija el modo de fuerza bruta.
  325. Echo.
  326. Echo. (1) Secuencia
  327. Echo.
  328. Echo. (2) Usar diccionario
  329. Echo.
  330. Echo.
  331. Echo.
  332. Echo.
  333. Echo.
  334. Echo.
  335. Echo.
  336. Echo.
  337. Echo.
  338. Echo.
  339. Echo.
  340. Echo.
  341. Echo. (0) Volver.
  342. Echo.
  343. Echo.
  344. Echo.
  345. Set /P Modo=^>^>^>
  346. CLS
  347.  
  348. If NOT Defined Modo (Goto :QPDF)
  349. IF "%MODO%" EQU "0" (Goto :UNO:)
  350. Echo "%modo%"| Findstr /I [^12] >nul
  351. if NOT %errorlevel% EQU 0 (Goto :QPDF)
  352.  
  353. IF "%MODO%" EQU "1" (
  354.     call :Elegir_Archivo
  355.     Setlocal EnableDelayedExpansion
  356.     call :QPDF_secuencia 1
  357.     call :QPDF_secuencia 2
  358.     call :QPDF_secuencia 3
  359.     call :QPDF_secuencia 4
  360.     call :QPDF_secuencia 5
  361.     call :QPDF_secuencia 6
  362.     call :QPDF_secuencia 7
  363.     call :QPDF_secuencia 8
  364.     call :QPDF_secuencia 9
  365.     call :QPDF_secuencia 10
  366.     call :QPDF_secuencia 11
  367.     call :QPDF_secuencia 12
  368.     call :QPDF_secuencia 13
  369.     call :QPDF_secuencia 14
  370.     call :QPDF_secuencia 15
  371.     call :QPDF_secuencia 16
  372.     call :QPDF_secuencia 17
  373.     call :QPDF_secuencia 18
  374.     call :QPDF_secuencia 19
  375.     call :QPDF_secuencia 20
  376.     call :QPDF_secuencia 21
  377.     call :QPDF_secuencia 22
  378.     call :QPDF_secuencia 23
  379.     call :QPDF_secuencia 24
  380.     call :QPDF_secuencia 25
  381.     call :QPDF_secuencia 26
  382.     call :QPDF_secuencia 27
  383.     call :QPDF_secuencia 28
  384.     call :QPDF_secuencia 29
  385.     call :QPDF_secuencia 30
  386.     call :QPDF_secuencia 31
  387.     call :QPDF_secuencia 32
  388.     call :QPDF_secuencia 33
  389.     call :QPDF_secuencia 34
  390.     call :QPDF_secuencia 35
  391.     call :QPDF_secuencia 36
  392.     call :QPDF_secuencia 37
  393.     call :QPDF_secuencia 38
  394.     call :QPDF_secuencia 39
  395.     call :QPDF_secuencia 40
  396.     call :QPDF_secuencia 41
  397.     call :QPDF_secuencia 42
  398.     call :QPDF_secuencia 43
  399.     call :QPDF_secuencia 44
  400.     call :QPDF_secuencia 45
  401.     call :QPDF_secuencia 46
  402.     call :QPDF_secuencia 47
  403.     call :QPDF_secuencia 48
  404.     call :QPDF_secuencia 49
  405.     call :QPDF_secuencia 50
  406. )
  407.  
  408. IF "%MODO%" EQU "2" (
  409.     call :Elegir_Archivo
  410.     call :Elegir_Diccionario
  411.     Setlocal EnableDelayedExpansion
  412.     goto :QPDF_diccionario
  413.    
  414. )
  415. Goto :QPDF
  416.  
  417.  
  418.  
  419.  
  420.  
  421. :::::::::::::::::
  422. :QPDF_diccionario
  423. :::::::::::::::::
  424.  
  425. For /F %%# in ('type %wordlist%') do (
  426.     CLS
  427.     Echo.
  428.     Echo. Crackeando contrase¤a, porfavor, espere...
  429.     Echo.
  430.     Echo. Probando combinaci¢n: %%#
  431.     Echo.
  432.     Echo. !NUM! combinaci¢nes fallidas.
  433.     qpdf --decrypt --password="%%#" %archivo% "%Temp%\Ice Crack.pdf.tmp" >NUL 2>&1
  434.     Call :Verify_QPDF "%%#"
  435. )
  436.  
  437.  
  438. Echo.
  439. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  440. echo.
  441. pause
  442. Goto :MENU:
  443.  
  444.  
  445. :Verify_QPDF
  446. If %ErrorLevel% EQU 2 (
  447.     Set /A NUM+=1
  448.     Goto :EOF
  449. ) ELSE (
  450.     Echo.
  451.     Echo.
  452.     Echo.
  453.     Echo.
  454.     Echo.
  455.     Echo. La contrase¤a es: %*
  456.     Echo.
  457.     pause
  458.     Goto :MENU:
  459. )
  460.  
  461.  
  462.  
  463.  
  464.  
  465. :::::::::::::::
  466. :QPDF_secuencia
  467. :::::::::::::::
  468.  
  469. 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 . , : = @ # $"
  470. Set "init=0"
  471. Set "longitud=%1"
  472.  
  473. Call :Generar_QPDF
  474. Goto :EOF
  475.  
  476.  
  477. :Generar_QPDF
  478.  
  479. If %init% NEQ %Longitud% (
  480.     Set /a "init+=1"
  481.     For %%c in (!caracteres!) do call :Generar_QPDF "%~1%%~c"
  482.     Set /a "init-=1"
  483. ) ELSE (
  484.     Set "String=%~1"
  485.     CLS
  486.     Echo.
  487.     Echo. Crackeando contrase¤a, porfavor, espere...
  488.     Echo.
  489.     Echo. Probando combinaci¢n: !String!
  490.     Echo.
  491.     Echo. !NUM! combinaci¢nes fallidas.
  492.     qpdf --decrypt --password="!String!" %archivo% "%Temp%\Ice Crack.pdf.tmp" >NUL 2>&1
  493.     Call :Verify_QPDF "!String!"
  494. )
  495. Goto :EOF
  496.  
  497.  
  498. Echo.
  499. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  500. echo.
  501. pause
  502. Goto :MENU:
  503.  
  504.  
  505.  
  506.  
  507.  
  508. ::::::::::::
  509. :PstPassword
  510. ::::::::::::
  511.  
  512. CLS
  513. Echo.
  514. call :Elegir_Archivo
  515. PstPassword /stext "%temp%\Ice Crack PST.txt.tmp" /pstfiles %archivo%
  516. type "%temp%\Ice Crack PST.txt.tmp" | MORE /E /C
  517. del /Q "%temp%\Ice Crack PST.txt.tmp"
  518. Echo.
  519. pause
  520. Goto :MENU:
  521.  
  522.  
  523.  
  524.  
  525.  
  526. ::::::
  527. :unrar
  528. ::::::
  529.  
  530. Set Modo=
  531.  
  532. CLS
  533. Echo.
  534. Echo. Tipo:     %tipo%
  535. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  536. Echo.
  537. Echo. Elija el modo de fuerza bruta.
  538. Echo.
  539. Echo. (1) Secuencia
  540. Echo.
  541. Echo. (2) Usar diccionario
  542. Echo.
  543. Echo.
  544. Echo.
  545. Echo.
  546. Echo.
  547. Echo.
  548. Echo.
  549. Echo.
  550. Echo.
  551. Echo.
  552. Echo.
  553. Echo.
  554. Echo. (0) Volver.
  555. Echo.
  556. Echo.
  557. Echo.
  558. Set /P Modo=^>^>^>
  559. CLS
  560.  
  561. If NOT Defined Modo (Goto :unrar)
  562. IF "%MODO%" EQU "0" (Goto :UNO:)
  563. Echo "%modo%"| Findstr /I [^12] >nul
  564. if NOT %errorlevel% EQU 0 (Goto :unrar)
  565.  
  566. IF "%MODO%" EQU "1" (
  567.     call :Elegir_Archivo
  568.     Setlocal EnableDelayedExpansion
  569.     call :unrar_secuencia 1
  570.     call :unrar_secuencia 2
  571.     call :unrar_secuencia 3
  572.     call :unrar_secuencia 4
  573.     call :unrar_secuencia 5
  574.     call :unrar_secuencia 6
  575.     call :unrar_secuencia 7
  576.     call :unrar_secuencia 8
  577.     call :unrar_secuencia 9
  578.     call :unrar_secuencia 10
  579.     call :unrar_secuencia 11
  580.     call :unrar_secuencia 12
  581.     call :unrar_secuencia 13
  582.     call :unrar_secuencia 14
  583.     call :unrar_secuencia 15
  584.     call :unrar_secuencia 16
  585.     call :unrar_secuencia 17
  586.     call :unrar_secuencia 18
  587.     call :unrar_secuencia 19
  588.     call :unrar_secuencia 20
  589.     call :unrar_secuencia 21
  590.     call :unrar_secuencia 22
  591.     call :unrar_secuencia 23
  592.     call :unrar_secuencia 24
  593.     call :unrar_secuencia 25
  594.     call :unrar_secuencia 26
  595.     call :unrar_secuencia 27
  596.     call :unrar_secuencia 28
  597.     call :unrar_secuencia 29
  598.     call :unrar_secuencia 30
  599.     call :unrar_secuencia 31
  600.     call :unrar_secuencia 32
  601.     call :unrar_secuencia 33
  602.     call :unrar_secuencia 34
  603.     call :unrar_secuencia 35
  604.     call :unrar_secuencia 36
  605.     call :unrar_secuencia 37
  606.     call :unrar_secuencia 38
  607.     call :unrar_secuencia 39
  608.     call :unrar_secuencia 40
  609.     call :unrar_secuencia 41
  610.     call :unrar_secuencia 42
  611.     call :unrar_secuencia 43
  612.     call :unrar_secuencia 44
  613.     call :unrar_secuencia 45
  614.     call :unrar_secuencia 46
  615.     call :unrar_secuencia 47
  616.     call :unrar_secuencia 48
  617.     call :unrar_secuencia 49
  618.     call :unrar_secuencia 50
  619. )
  620.  
  621. IF "%MODO%" EQU "2" (
  622.     call :Elegir_Archivo
  623.     call :Elegir_Diccionario
  624.     Setlocal EnableDelayedExpansion
  625.     goto :unrar_diccionario
  626.    
  627. )
  628. Goto :unrar
  629.  
  630.  
  631.  
  632.  
  633.  
  634. ::::::::::::::::
  635. :unrar_diccionario
  636. ::::::::::::::::
  637.  
  638. For /F %%# in ('type %wordlist%') do (
  639.     CLS
  640.     Echo.
  641.     Echo. Crackeando contrase¤a, porfavor, espere...
  642.     Echo.
  643.     Echo. Probando combinaci¢n: %%#
  644.     Echo.
  645.     Echo. !NUM! combinaci¢nes fallidas.
  646.     unrar t %archivo% -p"%%#" | find /I "OK" >NUL
  647.     Call :Verify_7za "%%#"
  648. )
  649.  
  650.  
  651. Echo.
  652. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  653. echo.
  654. pause
  655. Goto :MENU:
  656.  
  657.  
  658.  
  659.  
  660.  
  661. ::::::::::::::
  662. :unrar_secuencia
  663. ::::::::::::::
  664.  
  665. 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 . , : = @ # $"
  666. Set "init=0"
  667. Set "longitud=%1"
  668.  
  669. Call :Generar_RAR
  670. Goto :EOF
  671.  
  672.  
  673. :Generar_RAR
  674.  
  675. If %init% NEQ %Longitud% (
  676.     Set /a "init+=1"
  677.     For %%c in (!caracteres!) do call :Generar_RAR "%~1%%~c"
  678.     Set /a "init-=1"
  679. ) ELSE (
  680.     Set "String=%~1"
  681.     CLS
  682.     Echo.
  683.     Echo. Crackeando contrase¤a, porfavor, espere...
  684.     Echo.
  685.     Echo. Probando combinaci¢n: !String!
  686.     Echo.
  687.     Echo. !NUM! combinaci¢nes fallidas.
  688.     unrar t %archivo% -p"!String!" | find /I "OK" >NUL
  689.     Call :Verify_7za "!String!"
  690. )
  691. Goto :EOF
  692.  
  693.  
  694. Echo.
  695. Echo. No se ha encontrado ninguna combinaci¢n correcta.
  696. echo.
  697. pause
  698. Goto :MENU:
  699.  
  700.  
  701.  
  702.  
  703.  
  704. :###:
  705. :DOS:
  706. :###:
  707. Set tipo=
  708.  
  709. CLS
  710. Echo.
  711. Echo. Ice Crack v1.0 ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± © EleKtro H@cker ±±±±±±±±±±±±
  712. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  713. Echo.
  714. Echo. Elija el tipo de contrase¤a.
  715. Echo.
  716. Echo.
  717. Echo. (1) Navegador
  718. Echo.
  719. Echo. (2) Messenger
  720. Echo.
  721. Echo. (3) Cliente de correo
  722. Echo.
  723. Echo. (4) Cliente FTP
  724. Echo.
  725. Echo. (5) Wifi
  726. Echo.
  727. Echo. (6) Serial de Office
  728. Echo.
  729. Echo. (7) Serial de Windows
  730. Echo.
  731. Echo. (8) Recuperar todas las contrase¤as posibles de "%Username%"
  732. Echo.
  733. Echo. (0) Volver...
  734. Echo.
  735. Echo.
  736. Echo.
  737. Set /P Tipo=^>^>^>
  738.  
  739. If NOT Defined Tipo (Goto :DOS:)
  740. If "%Tipo%" EQU "1" (Goto :BrowserPasswordDecryptor)
  741. If "%Tipo%" EQU "2" (Goto :MessengerPasswordDecryptor)
  742. If "%Tipo%" EQU "3" (Goto :MailPasswordDecryptor)
  743. If "%Tipo%" EQU "4" (Goto :FtpPasswordDecryptor)
  744. If "%Tipo%" EQU "5" (Goto :WirelessKeyView_x86)
  745. If "%Tipo%" EQU "6" (Goto :ProduKey_OFFICE)
  746. If "%Tipo%" EQU "7" (Goto :ProduKey_WINDOWS)
  747. If "%Tipo%" EQU "8" (Goto :TODO)
  748. If "%Tipo%" EQU "0" (goto :Menu:)
  749. Goto :DOS:
  750.  
  751.  
  752. :BrowserPasswordDecryptor
  753. Title Ice Crack v1.0     ( Contrase¤as del navegador ^)
  754. BrowserPasswordDecryptor.exe  "%TEMP%\Ice crack navegadores.txt"
  755. 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
  756. pause
  757. Goto :MENU:
  758.  
  759.  
  760. :MessengerPasswordDecryptor
  761. Title Ice Crack v1.0     ( Contrase¤as del Messenger ^)
  762. MessengerPasswordDecryptor.exe  "%TEMP%\Ice crack MSN.txt"
  763. 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
  764. pause
  765. Goto :MENU:
  766.  
  767.  
  768. :FtpPasswordDecryptor
  769. Title Ice Crack v1.0     ( Contrase¤as del cliente FTP ^)
  770. FtpPasswordDecryptor.exe  "%TEMP%\Ice crack FTP.txt"
  771. 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
  772. pause
  773. Goto :MENU:
  774.  
  775.  
  776. :MailPasswordDecryptor
  777. Title Ice Crack v1.0     ( Contrase¤as del cliente de correo ^)
  778. MailPasswordDecryptor.exe  "%TEMP%\Ice crack CORREO.txt"
  779. 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
  780. pause
  781. Goto :MENU:
  782.  
  783.  
  784. :WirelessKeyView_x86
  785. Title Ice Crack v1.0     ( Contrase¤as del Wifi ^)
  786. WirelessKeyView_x86 /stext "%TEMP%\Ice crack WIFI.txt"
  787. type "%TEMP%\Ice crack WIFI.txt" | MORE /E /C
  788. pause
  789. Goto :MENU:
  790.  
  791.  
  792. :ProduKey_OFFICE
  793. Title Ice Crack v1.0     ( Serial de Microsoft Office ^)
  794. ProduKey /windowsKeys 0 /IEKeys 0 /SQLKeys 0 /ExchangeKeys 0 /stext "%TEMP%\Ice crack OFFICE.txt"
  795. type "%TEMP%\Ice crack OFFICE.txt" | MORE /E /C
  796. pause
  797. Goto :MENU:
  798.  
  799.  
  800. :ProduKey_WINDOWS
  801. Title Ice Crack v1.0     ( Serial de Windows ^)
  802. ProduKey /OfficeKeys 0 /IEKeys 0 /SQLKeys 0 /ExchangeKeys 0 /stext "%TEMP%\Ice crack WINDOWS.txt"
  803. type "%TEMP%\Ice crack WINDOWS.txt" | MORE /E /C
  804. pause
  805. Goto :MENU:
  806.  
  807.  
  808. :TODO:
  809. ::::::
  810.  
  811. Cls
  812. Echo.
  813. Echo. Recuperando todas las contrase¤as posibles de %computername% - %Username%...
  814.  
  815. MKdir "%username%\desktop\%Computername%\%Username%\%Date:/=-%" >NUL 2>&1
  816.  
  817. BrowserPasswordDecryptor.exe    "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Contrase¤as de navegadores.txt"
  818. FtpPasswordDecryptor.exe        "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Contrase¤as de clientes FTP.txt"
  819. MailPasswordDecryptor.exe       "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Contrase¤as de clientes de correo electronico.txt"
  820. MessengerPasswordDecryptor.exe  "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Contrase¤as de clientes de mensajeria instantanea.txt"
  821. PstPassword /stext              "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Contrase¤as de archivos PST de Outlook.txt"
  822. ProduKey /stext                 "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Seriales de productos instalados de Microsoft.txt"
  823. WirelessKeyView_x86 /stext      "%username%\desktop\%Computername%\%Username%\%Date:/=-%\Contrase¤as de dispositivos WIFI.txt"
  824.  
  825. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Contrase¤as de navegadores.txt"
  826. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Contrase¤as de clientes FTP.txt"
  827. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Contrase¤as de clientes de correo electronico.txt"
  828. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Contrase¤as de clientes de mensajeria instantanea.txt"
  829. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Contrase¤as de archivos PST de Outlook.txt"
  830. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Seriales de productos instalados de Microsoft.txt"
  831. Call :CERO_BYTE "%~dp0\%Computername%\%Username%\%Date:/=-%\Contrase¤as de dispositivos WIFI.txt"
  832.  
  833. Echo.
  834. Echo. Se ha guardado una copia en la carpeta:
  835. Echo. "%~dp0\%Computername%\%Username%\%Date:/=-%"
  836. Echo.
  837. Pause
  838. Goto :MENU:
  839.  
  840. :CERO_Byte
  841. If "%~z1" EQU "0" (Del /Q %1)
  842. If "%~z1" EQU "538" (Del /Q %1)
  843. If "%~z1" EQU "542" (Del /Q %1)
  844. If "%~z1" EQU "449" (Del /Q %1)
  845. Goto :EOF
  846.  
  847.  
  848.  
  849.  
  850.  
  851. :####:
  852. :TRES:
  853. :####:
  854. Set tipo=
  855.  
  856. CLS
  857. Echo.
  858. Echo. Ice Crack v1.0 ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± © EleKtro H@cker ±±±±±±±±±±±±
  859. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  860. Echo.
  861. Echo. Escriba el nombre del usuario.
  862. Echo.
  863. Echo. Usuario actual: %USERNAME%
  864. Echo.
  865. Echo.
  866. Echo.
  867. Echo.
  868. Echo.
  869. Echo.
  870. Echo.
  871. Echo.
  872. Echo.
  873. Echo.
  874. Echo.
  875. Echo.
  876. Echo.
  877. Echo.
  878. Echo.
  879. Echo.
  880. Echo. (0) Volver...
  881. Echo.
  882. Echo.
  883. Echo.
  884. Set /P usuario=^>^>^>
  885.  
  886. If NOT Defined usuario (Goto :TRES:)
  887. If "%Tipo%" EQU "0" (goto :Menu:)
  888. Net user "%Usuario%" >NUL 2>&1
  889. If %errorlevel% EQU 2 (Goto :TRES:)
  890.  
  891. CLS
  892. Echo.
  893. Echo. Ice Crack v1.0 ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± © EleKtro H@cker ±±±±±±±±±±±±
  894. Echo. ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
  895. Echo.
  896. Echo. Escriba la nueva contrase¤a para "%usuario%"
  897. Echo.
  898. Echo. O pulse "Enter" para eliminar la contrase¤a actual.
  899. Echo.
  900. Echo.
  901. Echo.
  902. Echo.
  903. Echo.
  904. Echo.
  905. Echo.
  906. Echo.
  907. Echo.
  908. Echo.
  909. Echo.
  910. Echo.
  911. Echo.
  912. Echo.
  913. Echo.
  914. Echo.
  915. Echo. (0) Volver...
  916. Echo.
  917. Echo.
  918. Echo.
  919. Set /P pass=^>^>^>
  920.  
  921. If NOT Defined pass (Net user "%usuario%" "")
  922. If "%Tipo%" EQU "0" (goto :Menu:)
  923. If Defined pass (Net user "%usuario%" "%pass%")
  924.  
  925. Cls
  926. Echo.
  927. Echo. La nueva contrase¤a para "%usuario%" es "%Pass%"
  928. Echo.
  929. Set usuario=
  930. Set Pass=
  931. Pause
  932. Goto :MENU:
  933.  
  934.  
  935.  
  936.  
  937.  
  938. :::::::::::::::
  939. :Elegir_Archivo
  940. :::::::::::::::
  941. Cls
  942. Echo.
  943. Echo. Arrastre a esta ventana el archivo %tipo%.
  944. Echo.
  945. Echo. O escriba la ruta manualmente (Con comillas dobles).
  946. Echo. Ejemplo: "C:\Archivo.%tipo%"
  947. Echo.
  948. Echo.
  949. Set /p Archivo=^>^>^>
  950. If not defined Archivo (goto :Elegir_Archivo)
  951. If not exist %Archivo% (goto :Elegir_Archivo)
  952. Call :TITLEIT "%archivo%"
  953. Goto :EOF
  954.  
  955. :::::::::::::::::::
  956. :Elegir_diccionario
  957. :::::::::::::::::::
  958. Cls
  959. Echo.
  960. Echo. Arrastre a esta ventana el archivo de diccionario.
  961. Echo.
  962. Echo. O escriba la ruta manualmente (Con comillas dobles).
  963. Echo. Ejemplo: "C:\Wordlist.txt"
  964. Echo.
  965. Echo.
  966. Set /p Wordlist=^>^>^>
  967. If not defined Wordlist (goto :Elegir_diccionario)
  968. If not exist %wordlist% (goto :Elegir_diccionario)
  969. Call :TITLEIT "%archivo%" "%Wordlist%"
  970. GOTO :EOF
  971.  
  972.  
  973. ::::::::
  974. :TITLEIT
  975. ::::::::
  976. If defined wordlist (Title Ice Crack v1.0     ^( Crackeando: %~nx1 con diccionario: %~nx2 ^)) ELSE (Title Ice Crack v1.0     ^( Crackeando: %~nx1 al vuelo ^))
  977. Set Wordlist=
  978. Goto :EOF
  979.  
  980.  
  981.  
  982.  
  983.  
  984. :###:
  985. :Fin:
  986. :###:
  987. Del /Q "%TEMP%\Ice crack*" >NUL 2>&1
  988. Echo.
  989. Echo.
  990. Echo.
  991. Echo. Pulse una tecla para salir...
  992. Pause >nul
  993. 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!