Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history
  • Loading branch information
AlisamTechnology authored Jan 24, 2019
1 parent 83f158f commit 72820c2
Show file tree
Hide file tree
Showing 9 changed files with 53 additions and 32 deletions.
4 changes: 2 additions & 2 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,8 @@
<body>
<h1 align="center">ATSCAN SCANNER</h1>
<p align="center">
<a title="Version 15.0.2" href="https://github.com/AlisamTechnology/ATSCAN/releases">
<img src="https://img.shields.io/badge/V15.0.2-Release-green.svg">
<a title="Version 15.0.3" href="https://github.com/AlisamTechnology/ATSCAN/releases">
<img src="https://img.shields.io/badge/V15.0.3-Release-green.svg">
</a>
<a title="MIT License" href="https://github.com/AlisamTechnology/ATSCAN/blob/master/License.txt">
<img src="https://img.shields.io/badge/License-MIT-blue.svg">
Expand Down
3 changes: 2 additions & 1 deletion inc/conf/configure.pl
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,7 @@
our ($Version, $logoVersion, $scriptUrl, $logUrl, $ipUrl, $conectUrl, $script, $scriptInstall, $script_bac, $scriptbash, $scriptv,
$scriptCompletion, $scriptComplInstall, $readme, $uplog, $replace, $replaceFROM, $server, $geoServer);

$Version="15.0.2";
$Version="15.0.3";
$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";
Expand Down Expand Up @@ -153,6 +153,7 @@ sub get_configuration {
our @V_LFI=get_validate_lfi();
our @V_TODO=get_validate_todo();
our @V_AFD=get_validate_afd();
our @V_INPUT=get_validate_input();
our @TODO=();
our $validText;
our @V_VALID=($validText) if defined $validText;
Expand Down
2 changes: 1 addition & 1 deletion inc/conf/menu.pl
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@
my $i;
for (@noresults) { $i="1" if defined $_; }
if ($i) {
makeSscan("3", "", "", \@TODO, \@V_TODO, $SCAN_TITLE[1], "", "1", "", "", "", "", "", "SUB");
makeSscan("3", "", "", \@TODO, \@V_TODO, $SCAN_TITLE[1], "", "1", "", "", "", "", "", "");
}else{
makeSscan("3", "", "", \@TODO, \@V_TODO, $SCAN_TITLE[1], "", "", "", "", "", "", "", "");
}
Expand Down
8 changes: 5 additions & 3 deletions inc/conf/version.log
Original file line number Diff line number Diff line change
@@ -1,6 +1,8 @@
ATSCAN SCANNER VERSION 15.0.2 RELEASE
ATSCAN SCANNER VERSION 15.0.3 RELEASE
=====================================================
CHANGES: 23/01/2019
- Add IP geolocalisation scan.
CHANGES: 25/01/2019
- Fix IP geolocalisation scan.
- Fix get target engine index.
- Add form inputs detection.
- Enjoy!
=================
2 changes: 1 addition & 1 deletion inc/funcs.pl
Original file line number Diff line number Diff line change
Expand Up @@ -344,7 +344,7 @@ sub UA {
}
}
}else{
push @dorks, "ip%3A".$Target;
push @dorks, $Target;
}
}
}else{
Expand Down
2 changes: 0 additions & 2 deletions inc/functions/makeScan.pl
Original file line number Diff line number Diff line change
Expand Up @@ -14,8 +14,6 @@ sub makeSscan {
checkHeaders($ct, $dt, $et);
if (!$no) {
print $c[11]."$title"; scanTitleEnd(); title($title);
}else{
print $c[11]."$no"; scanTitleEnd();
}
print $c[4]."$paylNote" if (defined $paylNote and !defined $payloads);
my @arr;
Expand Down
4 changes: 2 additions & 2 deletions inc/functions/validate.pl
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@
my @V_LFI=("root:x", "root:x:0:0:", "mysql:x:");
my @V_TODO=(".", "a", "e", "i", "o", "u", ",");
my @V_AFD=("DB_NAME", "DB_USER", "DB_PASSWORD");

my @V_INPUT=("email", "file", "password", "search", "text", "textarea", "url", "tel", "time");

## MENU
sub get_validate_wp { return @V_WP; }
Expand Down Expand Up @@ -66,5 +66,5 @@
sub get_validate_lfi { return @V_LFI; }
sub get_validate_todo { return @V_TODO; }
sub get_validate_afd { return @V_AFD; }

sub get_validate_input { return @V_INPUT; }
1;
6 changes: 3 additions & 3 deletions inc/search/print.pl
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ sub printValidated {
my @ins=@{$ins};
print $c[1]." $DS[12] ";
for my $in(@ins) {
print $c[4]."[$in]";
print $c[3]."[$in]";
}
print "\n";
}
Expand Down Expand Up @@ -94,7 +94,7 @@ sub titleSCAN {
}
}
if (defined $Hstatus and ($status=~m/$Hstatus/)) {
print $c[1]." $ZT[11] ".$c[4]."[$DS[13] $Hstatus] \n";
print $c[1]." $ZT[11] ".$c[3]."[$DS[13] $Hstatus] \n";
}
if (defined $notIn) {
for my $noin(@notIns) {
Expand All @@ -103,7 +103,7 @@ sub titleSCAN {
}
}
if (scalar(grep { defined $_} @noins) eq 0) {
print $c[1]." $ZT[12] $c[4]\[$notIn]\n";
print $c[1]." $ZT[12] $c[3]\[$notIn]\n";
}
}
print $c[1]." $DS[4] ";
Expand Down
54 changes: 37 additions & 17 deletions inc/search/process.pl
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
our ($browserLang, $mrand, $motorparam, $motor, $motor1, $motor2, $motor3, $motor4, $motor5, $motor6, $mrandom, $googleDomain, $prandom, $proxy, $psx, $mlevel, $ifinurl, $unique, $mdom,
$searchRegex, $Target, $dork, $ua, $Id, $MsId, $V_SEARCH,$nolisting, $mindex, $headers, $zone, $agent, $notIn, $expHost, $mupload,
$expIp, $popup, $JoomSites, $WpSites, $fullHeaders, $geoloc);
our (@motor, @TODO, @V_TODO, @c, @TT, @DS, @DT, @dorks, @SCAN_TITLE, @motors, @mrands, @aTsearch, @proxies, @commands);
our (@motor, @TODO, @V_TODO, @c, @TT, @DS, @DT, @dorks, @SCAN_TITLE, @motors, @mrands, @aTsearch, @proxies, @commands, @V_INPUT);
our ($limit, $post, $get, $replace, $output, $data, $noQuery, $V_IP, $replaceFROM, $eMails, $searchIps, $brandom, $validShell, $noinfo, $timeout, $method, $command, @defaultHeaders, @OTHERS, @ErrT);

## SET ENGINES
Expand Down Expand Up @@ -88,15 +88,14 @@ sub printMotor {
sub printDork {
my @dor=@_;
if (defined $mindex) {
print $c[1]."[::] SCAN $c[10] [Engine Index]";
}else{
print $c[1]."[::] $DS[0] $c[10]";
for my $dor(@dor) {
if (length $dor>0) {
$dor=~s/\s+$//;
$dor=~s/ip%3A//g;
print "[$dor] ";
}
print $c[1]."[::] SCAN $c[10] [Engine Index]\n";
}
print $c[1]."[::] $DS[0] $c[10]";
for my $dor(@dor) {
if (length $dor>0) {
$dor=~s/\s+$//;
$dor=~s/ip%3A//g;
print "[$dor] ";
}
}
print "\n";
Expand Down Expand Up @@ -124,12 +123,16 @@ sub msearch {
for my $motor(@motors) {
for my $dork(@dorks) {
if (defined $Target) {
if (defined $mindex) {
$dork=getHost($dork);
$dork=removeProtocol($dork);
$dork=cleanURL($dork);
$dork="site:".$dork;
}
if ($dork=~/$V_IP/) {
$dork="ip%3A$dork";
}else{
if (defined $mindex) {
$dork=getHost($dork);
$dork=removeProtocol($dork);
$dork=cleanURL($dork);
$dork="site:".$dork;
}
}
}
if ($zone) { $dork="site:$zone ".$dork; }
$dork=~s/\s+$//;
Expand Down Expand Up @@ -214,7 +217,9 @@ sub browseUrl {
print $c[1]." $DS[10] ";
if ($ips) { my $ad=inet_ntoa($ips); print $c[10]."$ad\n"; }
else{ print $c[10]."$DT[35]\n"; }
checkCms($html); checkErrors($html);
checkCms($html);
checkErrors($html);
checkInputs($html);
if (!defined $fullHeaders) {
print $c[1]." $DS[3] ". $c[10]."$DS[13] $status\n"; print $c[1]." $DS[2] ";
if (defined $serverheader) { print $c[10]."$serverheader\n"; }
Expand All @@ -226,6 +231,21 @@ sub browseUrl {
return ($response, $status, $html);
}

## FORM DETECTION
sub checkInputs {
my $html=$_[0];
my $ni=0;
for my $input(@V_INPUT) {
my $type="type=";
$type.=qq{$input};
if ($html=~/(<input\s.*?)$type/) {
$ni++;
print $c[1]." FORMS $c[4] Form inputs detected!\n";
last;
}
}
}

## GET HTML
sub getHtml {
my ($URL, $data)=@_;
Expand Down

0 comments on commit 72820c2

Please sign in to comment.