Skip to content

Commit 6f9c083

Browse files
AlisamTechnologyAlisamTechnology
authored
Add files via upload
1 parent 8b23307 commit 6f9c083

File tree

4 files changed

+32
-9
lines changed

4 files changed

+32
-9
lines changed

‎README.md

+2-2
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22
<body>
33
<h1 align="center">ATSCAN SCANNER</h1>
44
<p align="center">
5-
<a title="Version 15.0.7" href="https://github.com/AlisamTechnology/ATSCAN/releases">
6-
<img src="https://img.shields.io/badge/V15.0.9-Release-green.svg">
5+
<a title="Version 16.0.0" href="https://github.com/AlisamTechnology/ATSCAN/releases">
6+
<img src="https://img.shields.io/badge/V16.0.0-Release-green.svg">
77
</a>
88
<a title="No issue known"href="https://github.com/AlisamTechnology/ATSCAN/issues">
99
<img src="https://img.shields.io/badge/Issues-None-brightgreen.svg">

‎inc/conf/configure.pl

+1-1
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@
1212
our ($Version, $logoVersion, $scriptUrl, $logUrl, $ipUrl, $conectUrl, $script, $scriptInstall, $script_bac, $scriptbash, $scriptv,
1313
$scriptCompletion, $scriptComplInstall, $readme, $uplog, $replace, $replaceFROM, $server, $geoServer);
1414

15-
$Version="15.0.9";
15+
$Version="16.0.0";
1616
$logoVersion="V $Version";
1717
$scriptUrl="https://raw.githubusercontent.com/AlisamTechnology/ATSCAN/master/atscan.pl";
1818
$logUrl="https://raw.githubusercontent.com/AlisamTechnology/ATSCAN/master/inc/conf/version.log";

‎inc/conf/version.log

+3-2
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
1-
ATSCAN SCANNER VERSION 15.0.9 RELEASE
1+
ATSCAN SCANNER VERSION 16.0.0 RELEASE
22
=====================================================
3-
CHANGES: v15.0.9 10/02/2019
3+
CHANGES: v16.0.0 10/02/2019
44
- Optimize shoran process.
5+
- Add shodan ports.
56
- Enjoy!
67
=================

‎inc/functions/shodan.pl

+26-4
Original file line numberDiff line numberDiff line change
@@ -12,13 +12,13 @@
1212
## SHODAN
1313

1414
our($ua, $limit, $shoapikey, $shoip, $shocount, $shosearch, $shoquery, $shoquerySearch, $shoqueryTags, $shoservices, $shoresolve,
15-
$shoreverse, $shomyip, $shoapiInfo, $shofilters, $facets, $pages, $output, $V_IP, $V_RANG, @c);
15+
$shoreverse, $shomyip, $shoapiInfo, $shofilters, $shoports, $facets, $pages, $output, $V_IP, $V_RANG, @c);
1616

1717
my $nn=0;
1818
my $noshodanres="No results found|Invalid IP";
1919
my $base="https://api.shodan.io";
2020
my @sho_scans=($shoip, $shocount, $shosearch, $shoquery, $shoquerySearch, $shoqueryTags, $shoservices, $shoresolve, $shoreverse,
21-
$shomyip, $shoapiInfo);
21+
$shomyip, $shoapiInfo, $shoports);
2222
$facets="" if !$facets;
2323
$pages=1 if !$pages;
2424

@@ -50,6 +50,7 @@ sub check_host_validation {
5050
sho_ip($f, $nn) if $sub eq 1;
5151
sho_dns_resolve($f, $nn) if $sub eq 2;
5252
sho_dns_reverse($f, $nn) if $sub eq 3;
53+
sho_ports($f, $nn) if $sub eq 4;
5354
}else{
5455
invalid();
5556
}
@@ -149,7 +150,7 @@ sub build_sho_ip {
149150
###########################################################################################
150151
## JSON DECODE ######################################################################
151152
sub _json {
152-
my $shoRes =shift;
153+
my $shoRes =$_[0];
153154
my $json = JSON->new->allow_nonref;
154155
return $json->decode( $shoRes );
155156
}
@@ -285,6 +286,7 @@ sub sho_services {
285286
my $n=0;
286287
while ( $shoRes =~ /"(.*?)": "(.*?)"/migs ) {
287288
$n++;
289+
sleep 1;
288290
sho_print("", "Port", $1, "");
289291
sho_print("", "Name", $2, "");
290292
print $c[10]."..........................................\n";
@@ -320,10 +322,10 @@ sub shoapinfo {
320322
if ($shoRes) {
321323
$shoRes=_json($shoRes);
322324
end_hash_print($shoRes);
323-
ltak();
324325
}else{
325326
no_Result("your API Info");
326327
}
328+
ltak();
327329
}
328330

329331
###########################################################################################
@@ -364,6 +366,21 @@ sub sho_dns_reverse {
364366
ltak();
365367
}
366368

369+
###########################################################################################
370+
## SHODAN PORTS #########################################################################
371+
sub sho_ports {
372+
my ($port, $nn)=@_;
373+
sho_print("", "", "", "Getting all used shodan api Ports");
374+
sleep 1;
375+
my $shoRes=getShoResults("$base/shodan/ports?key=$shoapikey");
376+
if ( $shoRes ) {
377+
sho_print("", "Ports", $shoRes, "");
378+
}else{
379+
no_Result("ports");
380+
}
381+
ltak();
382+
}
383+
367384
###########################################################################################
368385
## SEARCH COUNT #########################################################################
369386
sub sho_count {
@@ -381,6 +398,7 @@ sub sho_count {
381398
no_Result($query);
382399
}
383400
}
401+
ltak();
384402
}
385403

386404
###########################################################################################
@@ -630,6 +648,10 @@ sub sho_ip {
630648
my @shoreverse=build_sho_ip($shoreverse);
631649
for my $f(@shoreverse) { $nn++; check_host_validation($f, $nn, "3"); }
632650
}
651+
if ( $shoports ) {
652+
my @shoports=build_sho_ip($shoports);
653+
for my $f(@shoports) { $nn++; check_host_validation($f, $nn, "4"); }
654+
}
633655
if ( $shoqueryTags ) { sho_query_tags(); }
634656
if ( $shoquery ) { sho_query(); }
635657
if ( $shoservices ) { sho_services(); }

0 commit comments

Comments
 (0)