Add files via upload

AlisamTechnology · Mar 1, 2019 · 383eb0f · 383eb0f
1 parent 98bc6f6
commit 383eb0f
Show file tree

Hide file tree

Showing 16 changed files with 163 additions and 161 deletions.
diff --git a/README.md b/README.md
@@ -3,7 +3,7 @@
 <h1 align="center">ATSCAN SCANNER</h1>
 <p align="center"> 
   <a title="Version 16.0.4" href="https://github.com/AlisamTechnology/ATSCAN/releases">
-     <img src="https://img.shields.io/badge/V%2016.0.5-Stable-green.svg">
+     <img src="hhttps://img.shields.io/badge/V%2016.0.6-Stable-green.svg">
   </a>
   <a title="No issue known"href="https://github.com/AlisamTechnology/ATSCAN/issues">
     <img src="https://img.shields.io/badge/Issues-None-brightgreen.svg">
@@ -177,7 +177,7 @@
       </tr>
       <tr>
         <td width="200px" class="main">--motor / -m</td>
-        <td class="main">[Bing:1][Google:2][Ask:3][Yandex:4][Sogou:5][Exalead:6][Googleapis:7][All: all]</td>
+        <td class="main">[bing][google][ask][yandex][sogou][exalead][googleapis][all]</td>
       </tr>
       <tr>
         <td width="200px" class="main">--apikey</td>
@@ -189,7 +189,7 @@
       </tr> 
       <tr>
         <td width="200px" class="main">--mrandom</td>
-        <td class="main">Random of all disponibles engines</td> 
+        <td class="main">Random of given engines</td> 
       </tr> 
       <tr>
         <td width="200px" class="main">--brandom</td>
@@ -595,7 +595,7 @@
         &#x25cf; <b>RANDOM: </b> <br/>
         Random proxy: --prandom [proxy  file] <br/>
         Random browser: --brandom <br/>
-        Random engine: --mrandom <br/>
+        Random engine: --mrandom [ENGINES]<br/>
         <hr>
        &#x25cf; <b>SET HEADERS:</b> <br>
        atscan --dork [dork / dorks.txt] --level [level] --header "Authorization => 'Basic YWRtaW46YWRtaW4', keep_alive => '1'" <br/>
@@ -605,8 +605,8 @@
        Search: atscan --dork [dork] --level [level]  <br/>
        Search: atscan -d [dork] -l [level] --index <br/>
 	   Search: atscan -d [dork] -l [level] --getlinks <br/>
-       Set engine: atscan --dork [dork] --level [level] -m [Bing: 1][Google: 2][Ask: 3][Yandex: 4][Sogou: 5][All: all] <br/>
-       Set selective engines: atscan -d [dork] -l [level] -m 1,2,3.. <br/>
+       Set engine: atscan --dork [dork] --level [level] -m [bing][google][ask][yandex][sogou][all] <br/>
+       Set selective engines: atscan -d [dork] -l [level] -m google,bing,.. <br/>
        Search with many dorks: atscan --dork dork1 [OTHER]dork2 [OTHER]dork3] --level [level]    <br/>
        Search and rand: atscan -d [dork] -l [level] --expHost "/index.php?id=rang(1-9)" --sql   <br/>
        Get target engine index: atscan -t [target] --level [value] --index <br/>
@@ -646,7 +646,7 @@
        atscan --dork [dork / dorks.txt] --level [level] --command "file" <br/>
        atscan --dork [dork / dorks.txt] --level [level] --command "curl -v --HOST"  <br/>
        atscan --dork [dork / dorks.txt] --level [level] --command "nmap -sV -p 21,22,80 --HOSTIP"  <br/>
-       atscan -d "index of /lib/scripts/dl-skin.php" -l 20 -m 2 --command "php WP-dl-skin.php-exploit.php --TARGET" <br/>
+       atscan -d "index of /lib/scripts/dl-skin.php" -l 2 -m bing --command "php WP-dl-skin.php-exploit.php --TARGET" <br/>
        atscan --shodan --search [string] --apikey [API KEY] -command [extern_command]<br/>
         <hr>
        &#x25cf; <b>MULTIPLE SCANS: </b><br/>

diff --git a/atscan.pl b/atscan.pl
@@ -51,7 +51,7 @@
 
 ## VARIABLES 
 our ($Version, $logoVersion, $scriptUrl, $logUrl, $ipUrl, $conectUrl, $script, $script_bac, $scriptbash, $paylNote, $psx, $V_EMAIL, $V_IP, $V_RANG, $V_SEARCH, $V_REGEX, $S_REGEX, $motor1, $motor2,
-     $motor3, $motor4, $motor5, $motor6, $motorparam, $mrand, $pat2, $nolisting, $Hstatus, $validText, $WpSites, $JoomSites, $xss, $lfi, $JoomRfi, $WpAfd, $adminPage, $subdomain, $mupload, $mzip,
+     $motor3, $motor4, $motor5, $motor6, $mrand, $pat2, $nolisting, $Hstatus, $validText, $WpSites, $JoomSites, $xss, $lfi, $JoomRfi, $WpAfd, $adminPage, $subdomain, $mupload, $mzip,
      $eMails, $command, $mmd5, $mencode64, $mdecode64, $port, $mindex, $mdom, $Target, $exploit, $p, $tcp, $udp, $proxy, $prandom, $help, $output, $replace, $replaceFROM, $dork, $mlevel, $unique,
      $shell, $nobanner, $beep, $ifinurl, $noverbose, $motor, $timeout, $limit, $checkVersion, $searchIps, $regex, $searchRegex, $noQuery, $ifend, $uninstall, $post, $get, $brandom, $data, $payloads,
      $mrandom, $content, $scriptComplInstall, $scriptCompletion, $scriptInstall, $toolInfo, $config, $freq, $headers, $msource, $ping, $exclude, $expHost, $expIp, $zone, $validShell, $interactive,
@@ -67,7 +67,7 @@
                          'proxy=s'=>\$proxy, 'prandom=s'=>\$prandom, 'help|h'=>\$help, 'save|s=s'=>\$output, 'replace=s'=>\$replace, 'replaceFROM=s'=>\$replaceFROM, 'dork|d=s'=>\$dork, 'level|l=s'=>\$mlevel,
                          'unique'=>\$unique, 'shell=s'=>\$shell, 'nobanner'=>\$nobanner, 'beep'=>\$beep, 'ifinurl=s'=>\$ifinurl, 'noverbose'=>\$noverbose, 'm|motor=s'=>\$motor, 'timeout=s'=>\$timeout,
                          'limit=s'=>\$limit, 'update'=>\$checkVersion, 'ips'=>\$searchIps, 'regex=s'=>\$regex, 'sregex=s'=> \$searchRegex, 'noquery'=> \$noQuery, 'ifend'=>\$ifend,
-                         'uninstall'=> \$uninstall, 'post'=>\$post, 'get'=>\$get, 'brandom'=>\$brandom, 'data=s'=>\$data, 'payload=s'=>\$payloads, 'mrandom'=>\$mrandom, 'content'=>\$content,
+                         'uninstall'=> \$uninstall, 'post'=>\$post, 'get'=>\$get, 'brandom'=>\$brandom, 'data=s'=>\$data, 'payload=s'=>\$payloads, 'mrandom=s'=>\$mrandom, 'content'=>\$content,
                          'tool|?'=>\$toolInfo, 'config'=>\$config, 'freq=s'=>\$freq, 'header=s'=>\$headers, 'source=s'=>\$msource, 'ping'=>\$ping, 'exclude=s'=>\$exclude, 'expHost=s'=>\$expHost,
                          'expIp=s'=>\$expIp, 'zone=s'=>\$zone, 'interactive|i'=>\$interactive, 'vshell=s'=>\$validShell, 'popup'=>\$popup, 'all'=>\$all, 'repair'=>\$repair, 'zoneH=s'=>\$zoneH,
                          'cookies=s'=>\$cokie, 'bugtraq'=>\$bugtraq, 'geoloc'=>\$geoloc, 'fullHeaders'=>\$fullHeaders, 'getlinks'=>\$getlinks, 'shodan'=>\$shodan, 'apikey=s'=>\$apikey, 
@@ -77,7 +77,7 @@
 
 ## CHOMP ARGS STRINGS
 our @toChomp=($Hstatus, $validText, $command, $mmd5, $mencode64, $mdecode64, $port, $Target, $exploit, $p, $proxy, $prandom, $output,
-              $replace, $replaceFROM, $dork, $mlevel, $shell, $ifinurl, $motor, $timeout, $limit, $regex, $searchRegex, $data,
+              $replace, $replaceFROM, $dork, $mlevel, $shell, $ifinurl, $motor, $timeout, $mrandom, $limit, $regex, $searchRegex, $data,
               $payloads, $freq, $headers, $msource, $exclude, $expHost, $expIp, $zone, $validShell, $zoneH, $bugtraq, $apikey, 
 			  $shocount, $shoquerySearch, $shoresolve, $shoreverse, $shofilters, $shotokens, $cx, $facets, $shohoneyscore);
 for (@toChomp) { chomp ($_) if defined $_; }

diff --git a/inc/conf/configure.pl b/inc/conf/configure.pl
@@ -21,7 +21,7 @@
 our ($Version, $logoVersion, $scriptUrl, $logUrl, $ipUrl, $conectUrl, $script, $scriptInstall, $script_bac, $scriptbash, $scriptv,
      $scriptCompletion, $scriptComplInstall, $readme, $uplog, $replace, $replaceFROM, $server, $geoServer, @configuration);
 
-$Version="16.0.5";
+$Version="16.0.6";
 $logoVersion="V $Version";
 $scriptUrl="https://raw.githubusercontent.com/AlisamTechnology/ATSCAN/master/atscan.pl";
 $logUrl="https://raw.githubusercontent.com/AlisamTechnology/ATSCAN/master/inc/conf/version.log";
@@ -54,12 +54,7 @@
 sub timer { my $time=strftime "%H:%M:%S", localtime; print "[$time]"; }
 
 ## DELETE CLEAR LISTS
-sub deleteLists {
-  our (@buildArrays, @dorks, @payloads, @exploits, @data, @proxies, @aTsearch, @aTscans, @aTtargets, @aTcopy, @ports, @motor, 
-  @motors, @systems)=();
-  unlink our $script_bac;
-}
-deleteLists();
+unlink $script_bac if -e $script_bac;
 
 ## USER CONFIGUATION
 sub get_configuration {
@@ -105,9 +100,7 @@ sub get_configuration {
 our $motor6="https://www.exalead.com/search/web/results/?q=MYDORK&elements_per_page=10&start_index=MYNPAGES";
 our $motor7="https://www.googleapis.com/customsearch/v1?key=MYAPIKEY&cx=MYCX&q=MYDORK&start=MYNPAGES";
 
-our $motorparam="1|2|3|4|5|6|7|all";
 our @mrands=($motor1, $motor2, $motor3, $motor4, $motor5, $motor6, $motor7);
-our $mrand=$mrands[rand @mrands];
 our @allMotors=($motor1, $motor2, $motor3, $motor4, $motor5, $motor6, $motor7);
 our $pat2='inurl:|intitle:|intext:|allinurl:|index of:|site:(.*)\+|\+site:(.*)';
 our $paylNote="[i] $DT[28]\n";

diff --git a/inc/conf/menu.pl b/inc/conf/menu.pl
@@ -58,7 +58,7 @@
     }
   }else{ 
     negative();
-    logoff();
+    exit();
   }
 }
 
@@ -82,7 +82,7 @@ sub Menu {
 }
 
 if (!defined $checkVersion && !defined $help && !defined $uninstall && !defined $toolInfo && !defined $config && !defined $repair) { 
-  subfin(); logoff();
+  subfin(); exit();
 }
 
 ## GET WORDPRESS SITES

diff --git a/inc/conf/version.log b/inc/conf/version.log
@@ -1,8 +1,7 @@
-ATSCAN SCANNER VERSION 16.0.5 RELEASE
+ATSCAN SCANNER VERSION 16.0.6 RELEASE
 =====================================================  
-  CHANGES: v16.0.5 01/03/2019
-  - Fix conflict user configuration setting.
-  - Removed header.pl index.pl colors.pl separators.pl
-  - PLEASE REPORT BUGS..!!
+  CHANGES: v16.0.6 01/03/2019
+  - Chnage all engines random to selected random.
+  - oooooOO PLEASE REPORT BUGS OOoooo
   - Enjoy it!
   =================
diff --git a/inc/errors/useErrors.pl b/inc/errors/useErrors.pl
@@ -17,7 +17,7 @@
   if (!defined $apikey) {
     print $c[4]."[!] USAGE: --shodan --apikey <key>\n"; 
 	print $c[4]."[!] You can get an apikey here https://www.shodan.io/\n";
-	logoff();
+	exit();
   }
 }
 
@@ -30,78 +30,77 @@
 if (defined $bugtraq) {
   if (!defined $dork) {
     print $c[4]."[!] USAGE: --bugtraq --dork <dork> --level <level>\n"; 
-	logoff();
+	exit();
   }
 }
 
 ## ARGUMENTS VERIFICATION (TARGET AND RANGIP)
 if (defined $Target) {
   my $Targ=Targs();
-  if ($Targ<1) { print $c[4]."[!] $OTHERS[7]\n"; logoff(); }
+  if ($Targ<1) { print $c[4]."[!] $OTHERS[7]\n"; exit(); }
 }
 
 ## CHECK POPUP ARGUMENT IS USED WITH EXTERN COMMANDS
 if (defined $popup and !defined $command) {
-  print $c[4]."[!] --$ZT[26]\n"; logoff();
+  print $c[4]."[!] --$ZT[26]\n"; exit();
 }
 
 if (defined $exploit or $exploit) {
   my $Targ=Targs();
-  if ($Targ<1) { print $c[4]."[!] $OTHERS[7]\n"; logoff(); }
+  if ($Targ<1) { print $c[4]."[!] $OTHERS[7]\n"; exit(); }
 }
 
 ## ZONE-H
 if (defined $zoneH) {
   if ($zoneH!~/(.*)=>(.*)/) {
-    print $c[4]."[!] zoneH must be \"Notifier => Url\" \n"; logoff();
+    print $c[4]."[!] zoneH must be \"Notifier => Url\" \n"; exit();
   }
 }
 
 ## CHECK TARGET PROTOCOL
 if (defined $Target) {   
   if ((!-e $Target) && ($Target!~/$V_IP/) && !defined $ping) {
-    if ($Target!~/https?:\/\//) { print $c[4]."[!] $DT[16]\n"; logoff(); }
+    if ($Target!~/https?:\/\//) { print $c[4]."[!] $DT[16]\n"; exit(); }
   }
 }
 
 ## CRAWLER
 if (defined $mindex) {
   if (!defined $mlevel && !$mlevel) {
-    print $c[4]."[!] $DT[20]\n"; logoff();
+    print $c[4]."[!] $DT[20]\n"; exit();
   }
 }
 
 ## REPLACE
 if (defined $replace || defined $replaceFROM) {
   for (@replace) {
     if (defined $_ and $_ !~ /=>/) {
-      print $c[4]."[!] $ZT[27] \"STRING => NEW_STRING\"\n"; logoff();
+      print $c[4]."[!] $ZT[27] \"STRING => NEW_STRING\"\n"; exit();
     }
   }
 }
 
 ## CHECK RANDOM PARAMS
-if (defined $mrandom && (!defined $mlevel && !$mlevel)) { print $c[4]."[!] $DT[38]\n"; logoff(); }
+if (defined $mrandom && (!defined $mlevel && !$mlevel)) { print $c[4]."[!] $DT[38]\n"; exit(); }
 
 ## ARGUMENTS VERIFICATION (LEVEL / PORTS)
-if ((defined $dork)&&(!defined $mlevel && !$mlevel && !defined $shodan)) { print $c[4]."[!] $DT[40]\n"; logoff(); }
-if ((defined $port) && (!defined $tcp and !defined $udp)) { print $c[4]."$DT[23]\n"; logoff(); }
+if ((defined $dork)&&(!defined $mlevel && !$mlevel && !defined $shodan)) { print $c[4]."[!] $DT[40]\n"; exit(); }
+if ((defined $port) && (!defined $tcp and !defined $udp)) { print $c[4]."$DT[23]\n"; exit(); }
 
 ## MORE ARGUMENTS PROCESS VERIFICATION
 if ((defined $dork) || (defined $Target)) { 
-  if ((defined $JoomRfi) and (!defined $shell)) { print $c[4]."[!] $DT[41]\n"; logoff(); }
+  if ((defined $JoomRfi) and (!defined $shell)) { print $c[4]."[!] $DT[41]\n"; exit(); }
 }
 
-if ((!defined $dork) && (defined $unique)) { print $c[4]."[!] $DT[21]\n"; logoff(); }
+if ((!defined $dork) && (defined $unique)) { print $c[4]."[!] $DT[21]\n"; exit(); }
 if (defined $regex or defined $eMails or defined $searchRegex or defined $searchIps) {
-  if (defined $Hstatus) { print $c[4]."[!] $SCAN_TITLE[2]"; logoff(); }
+  if (defined $Hstatus) { print $c[4]."[!] $SCAN_TITLE[2]"; exit(); }
 }
 
 ## CHECK MOTORS ARGUMENTS
-our ($motorparam);
 if (defined $motor || $motor) {
   if (defined $mrandom || $mrandom) {
-    print $c[4]."$TT[14]\n"; logoff();
+    print $c[4]."$TT[14]\n"; exit();
   }
   abcd($motor);
 }
@@ -112,39 +111,42 @@ sub abcd {
   if ($abcd=~/,/) { @abcd=split(", ", $abcd); }
   else{ push @abcd, $abcd; }
   for my $ad(@abcd) {
-    if ($ad!~/(1|2|3|4|5|6|7|all)/) { print $c[2]."[!] $DT[25]\n".$c[4]."   $DT[27] \n   $OTHERS[5] -m 1,2,...\n"; logoff(); }
+    if ($ad!~/(bing|ask|google|yandex|sogou|exalead|googleapis)/) { 
+	  print $c[2]."[!] $DT[25]\n".$c[4]."   $DT[27] \n   $OTHERS[5] -m google,bing,...\n"; exit();
+	}
   }
 }
 
 ## CHECK LEVEL
 if (defined $mlevel || $mlevel) {
-  if ($mlevel!~/^[0-9,.E]+$/) { print $c[4]."$TT[15]\n"; logoff(); }
+  if ($mlevel!~/^[0-9,.E]+$/) { print $c[4]."$TT[15]\n"; exit(); }
 }
 
 ## ADVISE DATA WITHOUT METHOD
-if (defined $data and (!defined $post && !defined $get && !defined $mupload && !$method)) { print $c[4]."[!] $TT[16]\n"; logoff(); }
+if (defined $data and (!defined $post && !defined $get && !defined $mupload && !$method)) { print $c[4]."[!] $TT[16]\n"; exit(); }
 
 ## CHECK PAUSE ARGUMENT
 if (defined $data) {
   if ($limit<500) {
-    if (!defined $Hstatus && !defined $validText) { print $c[4]."[!] $TT[17]\n"; logoff(); }
+    if (!defined $Hstatus && !defined $validText) { print $c[4]."[!] $TT[17]\n"; exit(); }
   }
 }
 
 ## WORDLIST IN DATA
 sub data_alert {
-  print $c[4]."[!] $ZT[28]\n"; logoff();
+  print $c[4]."[!] $ZT[28]\n"; exit();
 }
 
 ## IF DATA FILES > 1
 sub adviseDataFile {
-  print $c[2]."[!] $ZT[29]\n"; logoff();
+  print $c[2]."[!] $ZT[29]\n"; exit();
 }
 
 ## IF DATA FILE NOT EXISTS
 sub advise_no_file {
   my $no_file=$_[0];
-  print $c[2]."[!] $ZT[30] $no_file !\n"; logoff();
+  print $c[2]."[!] $ZT[30] $no_file !\n"; exit();
 }
 
+
 1;