help_outline
Ayudanos!
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Crackeador MD5 [Recomendado]

  • 0 Respuestas
  • 1138 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Enero 27, 2011, 08:56:16 pm »
Código: Perl
  1. #!usr/bin/perl
  2.  
  3. # NOTA:
  4. # NO ME HAGO RESPONSABLE POR EL USO
  5. # QUE LE DEN AL PROGRAMA, EL USUARIO
  6. # ES EL QUE SE HACE RESPONSABLE.
  7. # SaLuDos :) [by W4rL0cK] (Algunos derechos reservados) 2oo8 [C]
  8. #
  9. #      Ultima actualizacion: 17.Marzo.2008
  10.  
  11. use strict;
  12. use LWP::UserAgent;
  13. use HTTP::Request qw(post);
  14.  
  15. my $hash = shift || &banner();
  16. my $agent = "Mozilla/4.0 (compatible; Lotus-Notes/5.0; Windows-NT)";
  17.  
  18. sub banner {
  19. print "\n";
  20. print "MD5 CRACKER\n";
  21. print "\n";
  22. print "perl x.pl <hash>\n";
  23. print "perl x.pl eec4832f1db196790d523a4ab628a899\n";
  24. print "\n";
  25. }
  26.  
  27. sub banner2 {
  28. print "\n";
  29. print "MD5 CRACKER\n";
  30. print "\n";
  31. print "[+] Comprobando el hash: $hash\n";
  32. &comprobarhash($hash);
  33. print "[+] Buscando .. \n";
  34. }
  35.  
  36. sub comprobarhash {
  37. $hash=shift(@_);
  38. if (length($hash)==32) {
  39. print "[+] Hash correcto\n";
  40. } else {
  41. print "[-] Hash invalido\n";
  42. print "[x] Saliendo\n";
  43. }
  44. }
  45.  
  46. &banner2();
  47. &cracker0($hash,$agent);
  48. &cracker1($hash,$agent);
  49. &cracker2($hash,$agent);
  50. &cracker3($hash,$agent);
  51. &cracker4($hash,$agent);
  52. &cracker5($hash,$agent);
  53. &cracker6($hash,$agent);
  54. &cracker8($hash,$agent);
  55. &cracker9($hash,$agent);
  56. &cracker10($hash,$agent);
  57. &cracker11($hash,$agent);
  58. &cracker12($hash,$agent);
  59. &cracker13($hash,$agent);
  60. &cracker14($hash,$agent);
  61. &cracker15($hash,$agent);
  62. &cracker7($hash,$agent);
  63. &cracker16($hash,$agent);
  64. &cracker17($hash,$agent);
  65. &cracker18($hash,$agent);
  66.  
  67. #busca en md5.thekaine.de
  68. sub cracker1 {
  69. $hash=shift(@_);
  70. $agent=shift(@_);
  71. my $url = "http://md5.thekaine.de/?hash=$hash";
  72. my $conexion = LWP::UserAgent->new();
  73. $conexion->agent($agent);
  74. my $resultado = $conexion->get($url);
  75.  
  76. my $code1 = "<td colspan=\"2\"><br><br><b>";
  77. my $code2 = "</b></td><td></td>";
  78. print "md5.thekaine.de          |   ";
  79. if ($resultado->content =~ m/$code1(.*)$code2/) {
  80. if ($resultado->content =~ /not found/) {
  81. print "Not Found\n";
  82. } else {
  83. print "Cracked: $1\n";
  84. }
  85. } else {
  86. print "Not Found\n";
  87. }
  88. }
  89.  
  90. #busca en nz.md5.crysm.net
  91. sub cracker2 {
  92. $hash=shift(@_);
  93. $agent=shift(@_);
  94. my $url = "http://nz.md5.crysm.net/find?md5=$hash";
  95. my $conexion = LWP::UserAgent->new();
  96. $conexion->agent($agent);
  97. my $resultado = $conexion->get($url);
  98.  
  99. my $code1 = "<li>";
  100. my $code2 = "</li>";
  101. print "nz.md5.crysm.net         |   ";
  102. if ($resultado->content =~ m/$code1(.*)$code2/) {
  103. print "Cracked: $1\n";
  104. } else {
  105. print "Not Found\n";
  106. }
  107. }
  108.  
  109. #busca en www.tydal.nu/php/sakerhet/
  110. sub cracker3 {
  111. $hash=shift(@_);
  112. $agent=shift(@_);
  113. my $url = "http://www.tydal.nu/php/sakerhet/md5.php?q=$hash";
  114. my $conexion = LWP::UserAgent->new();
  115. $conexion->agent($agent);
  116. my $resultado = $conexion->get($url);
  117.  
  118. my $code1 = "";
  119. my $code2 = "</b></h5>";
  120. print "www.tydal.nu             |   ";
  121. if ($resultado->content =~ m/$code1(.*)$code2/) {
  122. if ($resultado->content =~ /Ingen/) {
  123. print "Not Found\n";
  124. } else {
  125. print "Cracked: $1\n";
  126. }
  127. } else {
  128. print "Not Found\n";
  129. }
  130. }
  131.  
  132. #busca en www.milw0rm.com/cracker
  133. sub cracker4 {
  134. $hash=shift(@_);
  135. $agent=shift(@_);
  136. my $url = "http://milw0rm.com/cracker/search.php";
  137. my $conexion = LWP::UserAgent->new();
  138. $conexion->agent($agent);
  139. my $resultado = $conexion->get($url);
  140.  
  141. my $request = $conexion->post($url, ["hash" => $hash, "Submit" => "Submit"]);
  142. my $content = $request->content;
  143.  
  144. my $code1 = "</TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>";
  145. my $code2 = "</TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked</TD></TR>";
  146. print "www.milw0rm.com          |   ";
  147. if ($request->content =~ m/$code1(.*)$code2/) {
  148. print "Cracked: $1\n";
  149. } else {
  150. print "Not Found\n";
  151. }
  152. }
  153.  
  154. #busca en gdataonline.com
  155. sub cracker5 {
  156. $hash=shift(@_);
  157. $agent=shift(@_);
  158. my $url = "http://gdataonline.com/qkhash.php?mode=txt&hash=$hash";
  159. my $conexion = LWP::UserAgent->new();
  160. $conexion->agent($agent);
  161. my $resultado = $conexion->get($url);
  162.  
  163. my $code1 = "</td><td width=\"35%\"><b>";
  164. my $code2 = "</b></td></tr>";
  165. print "gdataonline.com          |   ";
  166. if ($resultado->content =~ m/$code1(.*)$code2/) {
  167. print "Cracked: $1\n";
  168. } else {
  169. print "Not Found\n";
  170. }
  171. }
  172.  
  173. #busca en www.csthis.com
  174. sub cracker6 {
  175. $hash=shift(@_);
  176. $agent=shift(@_);
  177. my $url = "http://www.csthis.com/md5/index.php";
  178. my $conexion = LWP::UserAgent->new();
  179. $conexion->agent($agent);
  180. my $resultado = $conexion->get($url);
  181.  
  182. my $request = $conexion->post($url, ["h" => $hash]);
  183. my $content = $request->content;
  184.  
  185. my $code1 = "resolves to:<br /><b><font color=#00CC66 size=6>";
  186. my $code2 = "</b></font></font>  </p>";
  187. print "www.csthis.com           |   ";
  188. if ($request->content =~ m/$code1(.*)$code2/) {
  189. print "Cracked: $1\n";
  190. } else {
  191. print "Not Found\n";
  192. }
  193. }
  194.  
  195. #busca en md5decrypter.com
  196. sub cracker0 {
  197. $hash=shift(@_);
  198. $agent=shift(@_);
  199. my $url = "http://md5decrypter.com/index.php";
  200. my $conexion = LWP::UserAgent->new();
  201. $conexion->agent($agent);
  202. my $resultado = $conexion->get($url);
  203.  
  204. my $request = $conexion->post($url, ["hash" => $hash, "submit" => "Decrypt!"]);
  205. my $content = $request->content;
  206.  
  207. my $code1 = "<br/><b class='red'>Normal Text: </b>";
  208. my $code2 = "";
  209. print "md5decrypter.com         |   ";
  210. if ($request->content =~ m/$code1(.*)$code2/) {
  211. print "Cracked: $1\n";
  212. } else {
  213. print "Not Found\n";
  214. }
  215. }
  216.  
  217. #busca en plain-text.info
  218. sub cracker7 {
  219. $hash=shift(@_);
  220. $agent=shift(@_);
  221. my $url = "http://plain-text.info/search/";
  222. my $conexion = LWP::UserAgent->new();
  223. $conexion->agent($agent);
  224. $conexion->default_header('Host' => "plain-text.info", 'Connection' => "close", 'Accept-Encoding' => "base64", 'Accept' => "text/plain", 'Accept-Language' => "es", 'Referer' => "http://plain-text.info/search/", 'Content-type' => "application/x-www-form-urlencoded");
  225. my $resultado = $conexion->get($url);
  226.  
  227. my $request = $conexion->post($url, ["searchhash" => $hash]);
  228. my $content = $request->content;
  229.  
  230. my $code1 = "<td>$hash</td>";
  231. my $code2 = "<td>cracked</td>";
  232. print "plain-text.info          |   ";
  233. if ($request->content =~ m/$code1(.*)$code2/s) {
  234. my $cx1 = "<td>";
  235. my $cx2 = "</td>";
  236. if($1 =~ m/$cx1(.*)$cx1/s) {
  237. my $longstrx = index($1,$cx2);
  238. my $hashstrx = substr($1,0,$longstrx);
  239. print "Cracked: $hashstrx\n";
  240. }
  241. } else {
  242. print "Not Found\n";
  243. }
  244. }
  245.  
  246. #busca en md5pass.info
  247. sub cracker8 {
  248. $hash=shift(@_);
  249. $agent=shift(@_);
  250. my $url = "http://md5pass.info/index.php";
  251. my $conexion = LWP::UserAgent->new();
  252. $conexion->agent($agent);
  253. my $resultado = $conexion->get($url);
  254.  
  255. my $request = $conexion->post($url, ["hash" => $hash, "get_pass" => "Get Pass"]);
  256. my $content = $request->content;
  257.  
  258. my $code1 = "Password - <b>";
  259. my $code2 = "</b>";
  260. print "md5pass.info             |   ";
  261. if ($request->content =~ m/$code1(.*)$code2/) {
  262. print "Cracked: $1\n";
  263. } else {
  264. print "Not Found\n";
  265. }
  266. }
  267.  
  268. #busca en md5.hashcracking.com
  269. sub cracker9 {
  270. $hash=shift(@_);
  271. $agent=shift(@_);
  272. my $url = "http://md5.hashcracking.com/search.php?md5=$hash";
  273. my $conexion = LWP::UserAgent->new();
  274. $conexion->agent($agent);
  275. my $resultado = $conexion->get($url);
  276.  
  277. my $code1 = "Cleartext of $hash is ";
  278. my $code2 = "";
  279. print "md5.hashcracking.com     |   ";
  280. if ($resultado->content =~ m/$code1(.*)$code2/) {
  281. print "Cracked: $1\n";
  282. } else {
  283. print "Not Found\n";
  284. }
  285. }
  286.  
  287. #busca en md5decryption.com
  288. sub cracker10 {
  289. $hash=shift(@_);
  290. $agent=shift(@_);
  291. my $url = "http://md5decryption.com";
  292. my $conexion = LWP::UserAgent->new();
  293. $conexion->agent($agent);
  294. my $resultado = $conexion->get($url);
  295.  
  296. my $request = $conexion->post($url, ["hash" => $hash, "submit" => "Decrypt It!"]);
  297. my $content = $request->content;
  298.  
  299. my $code1 = "<h2>Results</h2><b>Md5 Hash:</b> $hash<br/><b class='red'>Normal Text: </b>";
  300. my $code2 = "<br/>";
  301. print "www.md5decryption.com    |   ";
  302. if ($request->content =~ m/$code1(.*)$code2/) {
  303. print "Cracked: $1\n";
  304. } else {
  305. print "Not Found\n";
  306. }
  307. }
  308.  
  309. #busca en md5.xpzone.de
  310. sub cracker11 {
  311. $hash=shift(@_);
  312. $agent=shift(@_);
  313. my $url = "http://md5.xpzone.de/?string=$hash&mode=decrypt";
  314. my $conexion = LWP::UserAgent->new();
  315. $conexion->agent($agent);
  316. my $resultado = $conexion->get($url);
  317.  
  318. my $code1 = "Code: <b>";
  319. my $code2 = "</b><br>";
  320. print "md5.xpzone.de            |   ";
  321. if ($resultado->content =~ m/$code1(.*)$code2/) {
  322. print "Cracked: $1\n";
  323. } else {
  324. print "Not Found\n";
  325. }
  326. }
  327.  
  328. #busca en us.md5.crysm.net
  329. sub cracker12 {
  330. $hash=shift(@_);
  331. $agent=shift(@_);
  332. my $url = "http://us.md5.crysm.net/find?md5=$hash";
  333. my $conexion = LWP::UserAgent->new();
  334. $conexion->agent($agent);
  335. my $resultado = $conexion->get($url);
  336.  
  337. my $code1 = "<li>";
  338. my $code2 = "</li>";
  339. print "us.md5.crysm.net         |   ";
  340. if ($resultado->content =~ m/$code1(.*)$code2/) {
  341. print "Cracked: $1\n";
  342. } else {
  343. print "Not Found\n";
  344. }
  345. }
  346.  
  347. #busca en www.hashreverse.com
  348. sub cracker13 {
  349. $hash=shift(@_);
  350. $agent=shift(@_);
  351. my $url = "http://www.hashreverse.com/index.php?action=view";
  352. my $conexion = LWP::UserAgent->new();
  353. $conexion->agent($agent);
  354. my $resultado = $conexion->get($url);
  355.  
  356. my $request = $conexion->post($url, ["hash" => $hash, "convert" => "false", "Submit2" => "Search for a SHA1 or MD5 hash"]);
  357. my $content = $request->content;
  358.  
  359. my $code1 = "Following results were found:<br><ul><li>";
  360. my $code2 = "</li></ul>";
  361. print "www.hashreverse.com      |   ";
  362. if ($request->content =~ m/$code1(.*)$code2/) {
  363. print "Cracked: $1\n";
  364. } else {
  365. print "Not Found\n";
  366. }
  367. }
  368.  
  369. #busca en www.neeao.com
  370. sub cracker14 {
  371. $hash=shift(@_);
  372. $agent=shift(@_);
  373. my $url = "http://www.neeao.com/md5/index.asp";
  374. my $conexion = LWP::UserAgent->new();
  375. $conexion->agent($agent);
  376. my $resultado = $conexion->get($url);
  377.  
  378. my $request = $conexion->post($url, ["q" => $hash, "b" => "MD5-Search"]);
  379. my $content = $request->content;
  380.  
  381. my $code1 = "</div>Result:";
  382. my $code2 = "    Good Luck!<br />";
  383. print "www.neeao.com            |   ";
  384. if ($request->content =~ m/$code1(.*)$code2/) {
  385. print "Cracked: $1\n";
  386. } else {
  387. print "Not Found\n";
  388. }
  389. }
  390.  
  391. #busca en www.hashchecker.com
  392. sub cracker15 {
  393. $hash=shift(@_);
  394. $agent=shift(@_);
  395. my $url = "http://www.hashchecker.com/index.php";
  396. my $conexion = LWP::UserAgent->new();
  397. $conexion->agent($agent);
  398. my $resultado = $conexion->get($url);
  399.  
  400. my $request = $conexion->post($url, ["search_field" => $hash, "Submit" => "search"]);
  401. my $content = $request->content;
  402.  
  403. my $code1 = "<td><li>Your md5 hash is :<br><li>$hash is <b>";
  404. my $code2 = "</b> used charlist :2</td>";
  405. print "www.hashchecker.com      |   ";
  406. if ($request->content =~ m/$code1(.*)$code2/) {
  407. print "Cracked: $1\n";
  408. } else {
  409. print "Not Found\n";
  410. }
  411. }
  412.  
  413. #busca en victorov.su/md5/
  414. sub cracker16 {
  415. $hash=shift(@_);
  416. $agent=shift(@_);
  417. my $url = "http://victorov.su/md5/?md5e=&md5d=$hash";
  418. my $conexion = LWP::UserAgent->new();
  419. $conexion->agent($agent);
  420. my $resultado = $conexion->get($url);
  421.  
  422. my $code1 = "MD5 i°i ñi¸i¨i´i°i®i¢i i­: <b>";
  423. my $code2 = "</b><br><form action=\"\">";
  424. print "victorov.su              |   ";
  425. if ($resultado->content =~ m/$code1(.*)$code2/) {
  426. print "Cracked: $1\n";
  427. } else {
  428. print "Not Found\n";
  429. }
  430. }
  431.  
  432. #busca en securitystats.com/tools
  433. sub cracker17 {
  434. $hash=shift(@_);
  435. $agent=shift(@_);
  436. my $url = "http://securitystats.com/tools/hashcrack.php";
  437. my $conexion = LWP::UserAgent->new();
  438. $conexion->agent($agent);
  439. my $resultado = $conexion->get($url);
  440.  
  441. my $request = $conexion->post($url, ["inputhash" => $hash, "type" => "MD5", "Submit" => "Submit"]);
  442. my $content = $request->content;
  443.  
  444. my $code1 = "<font color=\"#FF0000\"><B><BR><BR>MD5 Hash Found!!</font></b><BR>".uc($hash)." = ";
  445. my $code2 = "</td>";
  446. print "securitystats.com        |   ";
  447. if ($request->content =~ m/$code1(.*)$code2/) {
  448. print "Cracked: $1\n";
  449. } else {
  450. print "Not Found\n";
  451. }
  452. }
  453.  
  454. #busca en md5crack.it-helpnet.de
  455. sub cracker18 {
  456. $hash=shift(@_);
  457. $agent=shift(@_);
  458. my $url = "http://md5crack.it-helpnet.de/index.php?op=search";
  459. my $conexion = LWP::UserAgent->new();
  460. $conexion->agent($agent);
  461. my $resultado = $conexion->get($url);
  462.  
  463. my $request = $conexion->post($url, ["md5" => $hash, "submit" => "Search now"]);
  464. my $content = $request->content;
  465.  
  466. my $code1 = "</td><td>$hash</td><td>";
  467. my $code2 = "</td>";
  468. print "md5crack.it-helpnet.de   |   ";
  469. if ($request->content =~ m/$code1(.*)$code2/) {
  470. if (length($1)==23) {
  471. print "Not Found\n";
  472. } else {
  473. print "Cracked: $1\n";
  474. }
  475. } else {
  476. print "Not Found\n";
  477. }
  478. }
« Última modificación: Marzo 14, 2015, 09:56:33 am por Expermicid »
Me cambie de messenger ahora es: edeex@live.com

 

¿Te gustó el post? COMPARTILO!