API tools faq
paste
3x5w4rup

Mass Scripts Grabber v 0.1

3x5w4rup
Jun 1st, 2014
753
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 11.35 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. # M-A_labz
  3. # Modules
  4. use HTTP::Request;
  5. use Win32::Console::ANSI;
  6. use warnings;
  7. use LWP::Simple;
  8. use Term::ANSIColor;
  9. if($^O =~ /Win/){
  10.  
  11.    system("cls");
  12.    system("title Mass Scripts Grabber 0.1");
  13. }else{
  14.    system("clear");
  15. }
  16. $|=1;
  17. print color("red"), '
  18. ____________________________________________________________________
  19. |                                                                    |
  20. |               Mass Scripts Grabber (bing supported)                |
  21. |                        
  22.                           By Saha95                                 |
  23. |                                                 |
  24. |                                                      v 0.1         |
  25. |____________________________________________________________________|
  26. ';
  27. print color 'reset';
  28.  
  29.         print color("yellow"), "\n\n[+] Enter Single Ip or Ips List  : ";
  30.                                 print color 'reset';
  31.         my $host=<STDIN>;
  32.         chomp($host);
  33.         if ($host =~ /.txt/)
  34.         {
  35.         open (SITE, "<$host") || die "[-] Can't open the List of site file !";
  36.         @SITE = <SITE>;
  37.         close SITE;
  38.         }else {
  39.         @SITE = ($host);
  40.         }
  41.         foreach my $xp (@SITE) {
  42.         chomp $xp;
  43.         my $ip = $xp;
  44.         chomp ($ip);
  45.         my %group;
  46.  
  47.  
  48.         if ( $ip !~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ ) {
  49.                 print color("bold white"), "# Skiping $ip\n";
  50.                                 print color 'reset';
  51.  
  52.         }
  53.  
  54.         my $page = 0;
  55.         print color("green"), "Working on $ip\n";
  56.         print color 'reset';
  57.         print color("bold white"), "[#] Begin Reserving !";
  58.         print color 'reset';
  59.         while (1) {
  60.  
  61.                 my $content = get("http://www.bing.com/search?q=ip::$ip&first=$page&FORM=PERE") or
  62.  
  63. die("Error getting output\n");
  64.                 my $status = keys %group;
  65.                 while ( $content =~ /<cite>[:\/\/]*([\w\.\-]+)[\w+\/\.\-_:\?=]*<\/cite>/g) {
  66.                         $group{$1} = undef;
  67.                 }
  68.                 last if ($status == keys %group);
  69.                 $page = $page + 10;
  70.         }
  71.  
  72.         print color("bold white"),  "\n# OUTPUT for $ip\n";
  73.                 print color 'reset';
  74.         open (IN,">reverse-$ip.txt");
  75.         foreach my $host (keys %group) {
  76.         print IN "$host\n";
  77.         }
  78.         close(IN);
  79. print "[+] Start Checking ...\n";
  80. open (F, "<reverse-$ip.txt") || die "[-] Can't open the List Of Domains Names!";
  81. my @DOMAINS = <F>;
  82. close F;
  83. foreach my $D (@DOMAINS) {
  84. chomp $D;
  85.  
  86. # Wordpress Grabbing !!
  87.  
  88. my $wp = "http://".$D."/wp-login.php/";
  89. my $reqwp=HTTP::Request->new(GET=>$wp);
  90. my $uawp=LWP::UserAgent->new();
  91. $uawp->timeout(0);
  92. my $responsewp=$uawp->request($reqwp);
  93.  
  94. my $wp2 = "http://".$D."/wp/wp-login.php/";
  95. my $sitewp2 = "http://".$D."/wp/";
  96. my $reqwp2=HTTP::Request->new(GET=>$wp2);
  97. my $uawp2=LWP::UserAgent->new();
  98. $uawp2->timeout(0);
  99. my $responsewp2=$uawp2->request($reqwp2);
  100.  
  101. my $wp1 = "http://".$D."/cms/wp-login.php/";
  102. my $sitewp1 = "http://".$D."/cms/";
  103. my $reqwp1=HTTP::Request->new(GET=>$wp1);
  104. my $uawp1=LWP::UserAgent->new();
  105. $uawp1->timeout(0);
  106. my $responsewp1=$uawp1->request($reqwp1);
  107.  
  108. my $wp3 = "http://".$D."/portal/wp-login.php/";
  109. my $sitewp3 = "http://".$D."/portal/";
  110. my $reqwp3=HTTP::Request->new(GET=>$wp3);
  111. my $uawp3=LWP::UserAgent->new();
  112. $uawp3->timeout(0);
  113. my $responsewp3=$uawp3->request($reqwp3);
  114.  
  115. # Joomla Grabbing !!
  116.  
  117. my $joom = "http://".$D."/administrator/";
  118. my $reqjoom=HTTP::Request->new(GET=>$joom);
  119. my $uajoom=LWP::UserAgent->new();
  120. $uajoom->timeout(0);
  121. my $responsejoom=$uajoom->request($reqjoom);
  122.  
  123. my $joom2 = "http://".$D."/joomla/administrator/";
  124. my $site2 = "http://".$D."/jooma/";
  125. my $reqjoom2=HTTP::Request->new(GET=>$joom2);
  126. my $uajoom2=LWP::UserAgent->new();
  127. $uajoom2->timeout(0);
  128. my $responsejoom2=$uajoom2->request($reqjoom2);
  129.  
  130. my $joom1 = "http://".$D."/cms/administrator/";
  131. my $site1 = "http://".$D."/cms/";
  132. my $reqjoom1=HTTP::Request->new(GET=>$joom1);
  133. my $uajoom1=LWP::UserAgent->new();
  134. $uajoom1->timeout(0);
  135. my $responsejoom1=$uajoom1->request($reqjoom1);
  136.  
  137. my $joom3 = "http://".$D."/portal/administrator/";
  138. my $site3 = "http://".$D."/portal/";
  139. my $reqjoom3=HTTP::Request->new(GET=>$joom3);
  140. my $uajoom3=LWP::UserAgent->new();
  141. $uajoom3->timeout(0);
  142. my $responsejoom3=$uajoom3->request($reqjoom3);
  143.  
  144. # Vbulletin Grabbing !!
  145.  
  146. my $vb1 = "http://".$D."/vb/clientscript/vbulletin_global.js";
  147. my $sitevb1 = "http://".$D."/core/";
  148. my $reqvb1=HTTP::Request->new(GET=>$vb1);
  149. my $uavb1=LWP::UserAgent->new();
  150. $uavb1->timeout(0);
  151. my $responsevb1=$uavb1->request($reqvb1);
  152.  
  153. my $vb2 = "http://".$D."/clientscript/vbulletin_global.js";
  154. my $sitevb2 = "http://".$D."/";
  155. my $reqvb2=HTTP::Request->new(GET=>$vb2);
  156. my $uavb2=LWP::UserAgent->new();
  157. $uavb2->timeout(0);
  158. my $responsevb2=$uavb2->request($reqvb2);
  159.  
  160. my $vb3 = "http://".$D."/cc/clientscript/vbulletin_global.js";
  161. my $sitevb3 = "http://".$D."/";
  162. my $reqvb3=HTTP::Request->new(GET=>$vb3);
  163. my $uavb3=LWP::UserAgent->new();
  164. $uavb3->timeout(0);
  165. my $responsevb3=$uavb3->request($reqvb3);
  166.  
  167. # whmcs grabbing !!
  168.  
  169. my $whm = "http://".$D."/clients/includes/jscript/jquery.js";
  170. my $sitewhm = "http://".$D."/clients/";
  171. my $reqwhm=HTTP::Request->new(GET=>$whm);
  172. my $uawhm=LWP::UserAgent->new();
  173. $uawhm->timeout(0);
  174. my $responsewhm=$uawhm->request($reqwhm);
  175.  
  176. my $whm2 = "http://".$D."/whmcs/includes/jscript/jquery.js";
  177. my $sitewhm2 = "http://".$D."/whmcs/";
  178. my $reqwhm2=HTTP::Request->new(GET=>$whm2);
  179. my $uawhm2=LWP::UserAgent->new();
  180. $uawhm2->timeout(0);
  181. my $responsewhm2=$uawhm2->request($reqwhm2);
  182.  
  183. my $whm3 = "http://".$D."/billing/includes/jscript/jquery.js";
  184. my $sitewhm3 = "http://".$D."/billing";
  185. my $reqwhm3=HTTP::Request->new(GET=>$whm3);
  186. my $uawhm3=LWP::UserAgent->new();
  187. $uawhm3->timeout(0);
  188. my $responsewhm3=$uawhm3->request($reqwhm3);
  189.  
  190. my $whm4 = "http://".$D."/support/includes/jscript/jquery.js";
  191. my $sitewhm4 = "http://".$D."/support/";
  192. my $reqwhm4=HTTP::Request->new(GET=>$whm4);
  193. my $uawhm4=LWP::UserAgent->new();
  194. $uawhm4->timeout(0);
  195. my $responsewhm4=$uawhm4->request($reqwhm4);
  196.  
  197. # Zen Cart grabbing !!
  198.  
  199. my $zen = "http://".$D."/store/admin/login.php?zenAdminID";
  200. my $sitezen = "http://".$D."/";
  201. my $reqzen=HTTP::Request->new(GET=>$zen);
  202. my $uazen=LWP::UserAgent->new();
  203. $uazen->timeout(0);
  204. my $responsezen=$uazen->request($reqzen);
  205.  
  206. my $zen2 = "http://".$D."/admin/login.php?zenAdminID";
  207. my $sitezen2 = "http://".$D."/";
  208. my $reqzen2=HTTP::Request->new(GET=>$zen2);
  209. my $uazen2=LWP::UserAgent->new();
  210. $uazen2->timeout(0);
  211. my $responsezen2=$uazen2->request($reqzen2);
  212.  
  213. my $zen3 = "http://".$D."/products/admin/login.php?zenAdminID";
  214. my $sitezen3  = "http://".$D."/";
  215. my $reqzen3 =HTTP::Request->new(GET=>$zen3);
  216. my $uazen3 =LWP::UserAgent->new();
  217. $uazen3 ->timeout(0);
  218. my $responsezen3 =$uazen3 ->request($reqzen3 );
  219.  
  220. my $zen4 = "http://".$D."/shop/admin/login.php?zenAdminID";
  221. my $sitezen4  = "http://".$D."/";
  222. my $reqzen4 =HTTP::Request->new(GET=>$zen4 );
  223. my $uazen4 =LWP::UserAgent->new();
  224. $uazen4 ->timeout(0);
  225. my $responsezen4 =$uazen4 ->request($reqzen4 );
  226. ###############################################################################################
  227. # Checking Wordpress Websites !!
  228. if ($responsewp->content=~ /<body class="login">/){print color("green"), "[+] $D :[WordPress]\n";
  229. print color 'reset';
  230. open(TN,">>$ip-scripts.txt");
  231. print TN "$D is wordpress\n";
  232. close(TN);
  233. }
  234. else {if ($responsewp1->content=~ /<body class="login">/){print color("green"), "[+] $D :[WordPress]\n";
  235. print color 'reset';
  236. open(TN,">>$ip-scripts.txt");
  237. print TN "$site1 is wordpress\n";
  238. close(TN);
  239. }
  240. else{ if ($responsewp2->content=~ /<body class="login">/){print color("green"), "[+] $D :[WordPress]\n";
  241. print color 'reset';
  242. open(TN,">>$ip-scripts.txt");
  243. print TN "$site2 is wordpress\n";
  244. close(TN);
  245. }
  246. else{ if ($responsewp3->content=~ /<body class="login">/){print color("green"), "[+] $D :[WordPress]\n";
  247. print color 'reset';
  248. open(TN,">>$ip-scripts.txt");
  249. print TN "$site3 is wordpress\n";
  250. close(TN);
  251. }
  252.  
  253. # Checking Joomla Websites !!
  254.  
  255. if ($responsejoom->content=~ /Joomla!/){print color("green"), "[+] $D :[Joomla]\n";
  256. print color 'reset';
  257. open(TN,">>$ip-scripts.txt");
  258. print TN "$D is joomla\n";
  259. close(TN);
  260. }
  261. else {if ($responsejoom1->content=~ /Joomla!/){print color("green"), "[+] $D :[Joomla]\n";
  262. print color 'reset';
  263. open(TN,">>$ip-scripts.txt");
  264. print TN "$site1 is joomla\n";
  265. close(TN);
  266. }
  267. else{ if ($responsejoom2->content=~ /Joomla!/){print color("green"), "[+] $D :[Joomla]\n";
  268. print color 'reset';
  269. open(TN,">>$ip-scripts.txt");
  270. print TN "$site2 is joomla\n";
  271. close(TN);
  272. }
  273. else{ if ($responsejoom3->content=~ /Joomla!/){print color("green"), "[+] $D :[Joomla]\n";
  274. print color 'reset';
  275. open(TN,">>$ip-scripts.txt");
  276. print TN "$site3 is joomla\n";
  277. close(TN);
  278. }
  279.  
  280. # Vbulletin Checking Websites !!
  281.  
  282. else{ if ($responsevb1->is_success && $responsevb1->content=~/!window.console/){print color("green"), "[+] $D :[Vbulttein]\n";
  283. print color 'reset';
  284. open(TN,">>$ip-scripts.txt");
  285. print TN "$site3 is vb\n";
  286. close(TN);
  287. }
  288. else{ if ($responsevb2->is_success && $responsevb1->content=~/!window.console/){print color("green"), "[+] $D :[Vbulttein]\n";
  289. print color 'reset';
  290. open(TN,">>$ip-scripts.txt");
  291. print TN "$site3 is vb\n";
  292. close(TN);
  293. }
  294. else{ if ($responsevb3->is_success && $responsevb1->content=~/!window.console/){print color("green"), "[+] $D :[Vbulttein]\n";
  295. print color 'reset';
  296. open(TN,">>$ip-scripts.txt");
  297. print TN "$site3 is vb\n";
  298. close(TN);
  299. }
  300.  
  301. # Checking Whmcs Websites !!
  302.  
  303. else{ if ($responsewhm->is_success && $responsewhm->content=~/jQuery/){print color("green"), "[+] $D:[Whmcs]\n";
  304. print color 'reset';
  305. open(TN,">>$ip-scripts.txt");
  306. print TN "$sitewhm is whmcs\n";
  307. close(TN);
  308. }
  309. else{ if ($responsewhm2->is_success && $responsewhm2->content=~/jQuery/){print color("green"), "[+] $D :[Whmcs]\n";
  310. print color 'reset';
  311. open(TN,">>$ip-scripts.txt");
  312. print TN "$sitewhm2 is whmcs\n";
  313. close(TN);
  314. }
  315. else{ if ($responsewhm3->is_success && $responsewhm3->content=~/jQuery/){print color("green"), "[+] $D :[Whmcs]\n";
  316. print color 'reset';
  317. open(TN,">>$ip-scripts.txt");
  318. print TN "$sitewhm3 is whmcs\n";
  319. close(TN);
  320. }
  321. else{ if ($responsewhm4->is_success && $responsewhm4->content=~/jQuery/){print color("green"), "[+] $D :[Whmcs]\n";
  322. print color 'reset';
  323. open(TN,">>$ip-scripts.txt");
  324. print TN "$sitewhm4 is whmcs\n";
  325. close(TN);
  326. }
  327.  
  328. # Checking Zen Cart Websites
  329.  
  330. else{ if ($responsezen->is_success && $responsezen->content=~/zenAdminID/){print color("green"), "[+] $D :[Zen Cart]\n";
  331. print color 'reset';
  332. open(TN,">>$ip-scripts.txt");
  333. print TN "$sitezen is Zen Cart\n";
  334. close(TN);
  335. }
  336. else{ if ($responsezen2->is_success && $responsezen2->content=~/zenAdminID/){print color("green"), "[+] $D :[Zen Cart]\n";
  337. print color 'reset';
  338. open(TN,">>$ip-scripts.txt");
  339. print TN "$sitezen2 is Zen Cart\n";
  340. close(TN);
  341. }
  342. else{ if ($responsezen3->is_success && $responsezen3->content=~/zenAdminID/){print color("green"), "[+] $D :[Zen Cart]\n";
  343. print color 'reset';
  344. open(TN,">>$ip-scripts.txt");
  345. print TN "$sitezen3 is Zen Cart\n";
  346. close(TN);
  347. }
  348. else{ if ($responsezen4->is_success && $responsezen4->content=~/zenAdminID/){print color("green"), "[+] $D :[Zen Cart]\n";
  349. print color 'reset';
  350. open(TN,">>$ip-scripts.txt");
  351. print TN "$sitezen4 is Zen Cart\n";
  352. close(TN);
  353. }
  354. else {
  355. print color("bold white"), "[-] $D :[Unknown] \n";
  356. print color 'reset';
  357. }}}}}}}}}}}}}}}}}}}}
Advertisement
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!