3. Crackeador MD5 [Recomendado]
Páginas: [1]   Ir Abajo
« anterior próximo »

Crackeador MD5 [Recomendado]

  • 0 Respuestas
  • 1569 Vistas

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

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email

Crackeador MD5 [Recomendado]

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