Skip to content

Commit 633cc6b

Browse files
AlisamTechnologyAlisamTechnology
authored
Add files via upload
1 parent b60f397 commit 633cc6b

File tree

3 files changed

+65
-116
lines changed

3 files changed

+65
-116
lines changed

‎inc/functions/clientConf.pl

+21-21
Original file line numberDiff line numberDiff line change
@@ -24,27 +24,27 @@ sub ClientConfiguration {
2424
print "+==========================================================================+\n";
2525
print "| $c[11]OPTION $c[10] | $c[11]VALUE $c[10] | $c[11]DESCRIPTION $c[10] |\n";
2626
print "+==========================================================================+\n";
27-
print "| proxy | <proxy> | Proxy |\n";
28-
print "| proxy-random | <proxy_file> | Random proxy |\n";
29-
print "| motor | <motor> | Search engine |\n";
30-
print "| timeout | <timeout> | Browser time out |\n";
31-
print "| level | <level> | Number of Engine results |\n";
32-
print "| password | <password> | Set tool password |\n";
33-
print "| method | <get/post> | get/post method |\n";
34-
print "| freq | <in sec> | Random frequency |\n";
35-
print "| payload | <payload> | Payload |\n";
36-
print "| zone | <zone> | Engine zone |\n";
37-
print "| limit | <limit> | Results limit reach |\n";
38-
print "| update | <in days> | Check for updates frequency |\n";
39-
print "| command | <command> | Execute extern command |\n";
40-
print "| b-random | on | Random browser |\n";
41-
print "| m-random | on | Random engine |\n";
42-
print "| unique | on | Unique results |\n";
43-
print "| nobanner | on | Hide tool banner |\n";
44-
print "| noinfo | on | Hide extrat target info |\n";
45-
print "| beep | on | Beep sound when positive result |\n";
46-
print "| ifend | on | Beep when process finish |\n";
47-
print "| interactive | on | Boots in Interactive (intalled tool only) |\n";
27+
print "| $c[5]proxy $c[10] | <proxy> | Proxy |\n";
28+
print "| $c[5]proxy-random$c[10] | <proxy_file> | Random proxy |\n";
29+
print "| $c[5]motor $c[10] | <motor> | Search engine |\n";
30+
print "| $c[5]timeout $c[10] | <timeout> | Browser time out |\n";
31+
print "| $c[5]level $c[10] | <level> | Number of Engine results |\n";
32+
print "| $c[5]password $c[10] | <password> | Set tool password |\n";
33+
print "| $c[5]method $c[10] | <get/post> | get/post method |\n";
34+
print "| $c[5]freq $c[10] | <in sec> | Random frequency |\n";
35+
print "| $c[5]payload $c[10] | <payload> | Payload |\n";
36+
print "| $c[5]zone $c[10] | <zone> | Engine zone |\n";
37+
print "| $c[5]limit $c[10] | <limit> | Results limit reach |\n";
38+
print "| $c[5]update $c[10] | <in days> | Check for updates frequency |\n";
39+
print "| $c[5]command $c[10] | <command> | Execute extern command |\n";
40+
print "| $c[5]b-random $c[10] | on | Random browser |\n";
41+
print "| $c[5]m-random $c[10] | on | Random engine |\n";
42+
print "| $c[5]unique $c[10] | on | Unique results |\n";
43+
print "| $c[5]nobanner $c[10] | on | Hide tool banner |\n";
44+
print "| $c[5]noinfo $c[10] | on | Hide extrat target info |\n";
45+
print "| $c[5]beep $c[10] | on | Beep sound when positive result |\n";
46+
print "| $c[5]ifend $c[10] | on | Beep when process finish |\n";
47+
print "| $c[5]interactive $c[10] | on | Boots in Interactive (intalled tool only) |\n";
4848
print "+==========================================================================+\n";
4949
print "| $c[11]USAGE: $c[5]set$c[11] [$c[5]OPTION$c[11]][$c[5]VALUE$c[11]] | $c[5]reset$c[11] [$c[5]OPTION$c[11]|$c[5]all$c[11]] | $c[5]options$c[11] | $c[5]help$c[11] | $c[5]exit$c[10] |\n";
5050
print "+==========================================================================+\n";

‎inc/interactive/modules.pl

+35-86
Original file line numberDiff line numberDiff line change
@@ -35,9 +35,7 @@ sub main {
3535
for my $MODULE (@MODULES) {
3636
for my $key (keys %MODULES) {
3737
my $value = $MODULES{$key};
38-
if ($MODULE eq $key) {
39-
tableOpts($MODULE, "", $value, "ARGUMENT");
40-
}
38+
if ($MODULE eq $key) { tableOpts($MODULE, "", $value, "ARGUMENT"); }
4139
}
4240
}
4341
helpSeparator();
@@ -47,9 +45,7 @@ sub main {
4745
interHelpChek("1");
4846
#########################################################################################
4947
}else{
50-
if (!grep/^$module$/, @interExtraOpts) {
51-
print $c[4]."[!] $AUTH[14]\n";
52-
}
48+
if (!grep/^$module$/, @interExtraOpts) { print $c[4]."[!] $AUTH[14]\n"; }
5349
}
5450
}
5551
}
@@ -74,9 +70,7 @@ sub main2 {
7470
for my $SCAN(@SCANS3) {
7571
for my $key (keys %SCANS3) {
7672
my $value = $SCANS3{$key};
77-
if ($SCAN eq $key) {
78-
tableOpts($SCAN, "", $value, "ARGUMENT");
79-
}
73+
if ($SCAN eq $key) { tableOpts($SCAN, "", $value, "ARGUMENT"); }
8074
}
8175
}
8276
helpSeparator();
@@ -94,11 +88,8 @@ sub main2 {
9488
print $c[3]."Module => " ;
9589
for my $opt2(@OPT2) {
9690
push @INTERSCANS, "--$opt2";
97-
if (scalar(@OPT2) > 1) {
98-
$scn="multi";
99-
}else{
100-
$scn=$OPT2[0];
101-
}
91+
if (scalar(@OPT2) > 1) { $scn="multi"; }
92+
else{ $scn=$OPT2[0]; }
10293
print "[$opt2]";
10394
}
10495
print "\n";
@@ -110,9 +101,7 @@ sub main2 {
110101
print "[$OPT2[0]\]\n";
111102
}
112103
}
113-
for my $INT(@INTERSCANS) {
114-
getExtratArgs($INT);
115-
}
104+
for my $INT(@INTERSCANS) { getExtratArgs($INT); }
116105
}
117106
########################################################################################
118107
}else{
@@ -145,19 +134,14 @@ sub main3 {
145134
#########################################################################################
146135
}elsif ($first1 eq "run") {
147136
for my $eew(@INTERSCANS) {
148-
if ($eew !~ /(advanced|normal|multi|ports|commands|form|nomodule)/) {
149-
push @INTERCOMNDSFIN, $eew;
150-
}
137+
if ($eew !~ /(advanced|normal|multi|ports|commands|form|nomodule)/) { push @INTERCOMNDSFIN, $eew; }
151138
}
152139
push @INTERCOMNDS, @PREFONF;
153140
push @INTERCOMNDSFIN, @INTERCOMNDS;
154141
my $fullComnd = join(" ", @INTERCOMNDSFIN);
155142
(@INTERCOMNDSFIN, %INTEROPTION, @INTERCOMNDS, @PREFONF, %PREFONF, %PREFONF2, $first, $first1)=();
156-
if (-e $scriptbash) {
157-
system ("atscan $fullComnd");
158-
}else{
159-
system ("perl $Bin/atscan.pl $fullComnd");
160-
}
143+
if (-e $scriptbash) { system ("atscan $fullComnd"); }
144+
else{ system ("perl $Bin/atscan.pl $fullComnd"); }
161145
print "\n";
162146
processHeader("4");
163147
#########################################################################################
@@ -179,12 +163,9 @@ sub main3 {
179163
dorkOtarget($OPT1[0]);
180164
#########################################################################################
181165
}else{
182-
if ($first1 eq "back") {
183-
processHeader("3");
184-
}else{
185-
if (!grep/^$first1$/, @interExtraOpts) {
186-
print "$c[4]\[!] $AUTH[14]\n";
187-
}
166+
if ($first1 eq "back") { processHeader("3"); }
167+
else{
168+
if (!grep/^$first1$/, @interExtraOpts) { print "$c[4]\[!] $AUTH[14]\n"; }
188169
}
189170
}
190171
}
@@ -199,13 +180,9 @@ sub checkFirstParts {
199180
my ($validCntrl, @FirstParts)=();
200181
@FirstParts=split(" ", $first);
201182
for my $FirstParts(@FirstParts) {
202-
if (grep/^$FirstParts$/, @scansArray) {
203-
$cntrl++;
204-
}
205-
}
206-
if ($cntrl eq scalar(@FirstParts)) {
207-
$validCntrl="1";
183+
if (grep/^$FirstParts$/, @scansArray) { $cntrl++; }
208184
}
185+
if ($cntrl eq scalar(@FirstParts)) { $validCntrl="1"; }
209186
return $validCntrl;
210187
}
211188
##############################################################################################
@@ -247,15 +224,11 @@ sub dorkOtarget {
247224
my $checkDorkOtarget=$_[0];
248225
if ($checkDorkOtarget eq "dork") {
249226
for my $INTERtarget(@INTERtarget) {
250-
if (grep( /^$INTERtarget$/, @ARGUMENTS)) {
251-
updateARGUMENTS($INTERtarget);
252-
}
227+
if (grep( /^$INTERtarget$/, @ARGUMENTS)) { updateARGUMENTS($INTERtarget); }
253228
}
254229
}
255230
if ($checkDorkOtarget eq "target") {
256-
if (grep( /^dork$/, @ARGUMENTS)) {
257-
updateARGUMENTS("dork");
258-
}
231+
if (grep( /^dork$/, @ARGUMENTS)) { updateARGUMENTS("dork"); }
259232
}
260233
}
261234
##############################################################################################
@@ -271,11 +244,8 @@ sub updateARGUMENTS {
271244
sub getPreInter {
272245
my ($prefix, $interScn);
273246
$prefix=getPrefix();
274-
if (scalar (@INTERSCANS) < 1) {
275-
$interScn="mode";
276-
}else{
277-
$interScn="module";
278-
}
247+
if (scalar (@INTERSCANS) < 1) { $interScn="mode"; }
248+
else{ $interScn="module"; }
279249
return ($prefix, $interScn);
280250
}
281251
##############################################################################################
@@ -294,7 +264,7 @@ sub form {
294264
$ord=<STDIN>;
295265
chomp ($ord);
296266
if ($ord) {
297-
if ($ord eq "config") { ClientConfiguration(); ltak(); processHeader($process); }
267+
if ($ord eq "config") { ClientConfiguration(); processHeader($process); }
298268
elsif ($ord eq "update") { checkVersion(); processHeader($process); }
299269
elsif ($ord eq "usage") { interUsage(); processHeader($process); }
300270
elsif ($ord eq "back") { back($process); }
@@ -310,14 +280,9 @@ sub interHelpChek {
310280
my $process=$_[0];
311281
print $c[11]."[::] HELP\n";
312282
ltak();
313-
if ($process eq "1") {
314-
interHelp();
315-
scansArgs();
316-
}elsif ($process eq "2") {
317-
scansArgs();
318-
}elsif ($process eq "3") {
319-
interHelp();
320-
}
283+
if ($process eq "1") { interHelp(); scansArgs(); }
284+
elsif ($process eq "2") { scansArgs(); }
285+
elsif ($process eq "3") { interHelp(); }
321286
ltak();
322287
processHeader($process);
323288
}
@@ -326,24 +291,18 @@ sub interHelpChek {
326291
sub runArg {
327292
my $process=$_[0];
328293
print $c[2]."[!] $AUTH[21]!\n\n";
329-
if ($process eq "2") {
330-
(@ARGUMENTS, %ARGUMENTS, %INTEROPTION, @INTERSCANS)=(); main2($mod);
331-
}elsif ($process eq "4") {
332-
(%INTEROPTION)=(); main3($mod, $scn);
333-
}else{
334-
mainAll();
335-
}
294+
if ($process eq "2") { (@ARGUMENTS, %ARGUMENTS, %INTEROPTION, @INTERSCANS)=(); main2($mod); }
295+
elsif ($process eq "4") { (%INTEROPTION)=(); main3($mod, $scn); }
296+
else{ mainAll(); }
336297
}
337298
##############################################################################################
338299
## PREFIX
339300
sub getPrefix {
340301
my $prefix;
341302
if (scalar(@INTERSCANS) == 1) {
342303
$prefix=$INTERSCANS[0];
343-
$prefix=~s/--//ig;
344-
}elsif (scalar(@INTERSCANS) > 1) {
345-
$prefix="multi";
346-
}
304+
$prefix=~s/--//ig; }
305+
elsif (scalar(@INTERSCANS) > 1) { $prefix="multi"; }
347306
return $prefix;
348307
}
349308
##############################################################################################
@@ -374,12 +333,8 @@ sub tableOpts {
374333
else{ print "| Yes ";
375334
}
376335
print "| ";
377-
if ($aa=~/\*\*/) {
378-
$aa=~s/\*\*//g;
379-
print "$aa$c[4]\**";
380-
}else{
381-
print "$aa";
382-
}
336+
if ($aa=~/\*\*/) { $aa=~s/\*\*//g; print "$aa$c[4]\**"; }
337+
else{ print "$aa"; }
383338
}
384339
}
385340
print "\n";
@@ -442,13 +397,10 @@ sub InterHelpArgs {
442397
if (exists $PREFONF2{$ARGUMENT}) {
443398
for my $key (keys %PREFONF2) {
444399
my $value = $PREFONF2{$key};
445-
if ($ARGUMENT eq $key) {
446-
tableOpts($key, $value, $value3, $isArg);
447-
}
400+
if ($ARGUMENT eq $key) { tableOpts($key, $value, $value3, $isArg); }
448401
}
449-
}else{
450-
tableOpts($ARGUMENT, "", $value3, $isArg);
451402
}
403+
else{ tableOpts($ARGUMENT, "", $value3, $isArg); }
452404
}
453405
helpSeparator();
454406
print "\n";
@@ -470,13 +422,10 @@ sub getH {
470422
## PROCESS QUESTION
471423
sub processHeader {
472424
my $process=$_[0];
473-
if ($process eq "1") {
474-
print "$c[10]\[!] $AUTH[17] \n";
475-
}elsif ($process eq "2") {
476-
print "$c[10]\[!] $AUTH[18] \n";
477-
}elsif ($process eq "3" or $process eq "4") {
478-
print "$c[10]\[!] $AUTH[19] \n";
479-
}
425+
print "$c[10]\[!] ";
426+
if ($process eq "1") { print "$AUTH[17] \n"; }
427+
elsif ($process eq "2") { print "$AUTH[18] \n"; }
428+
elsif ($process eq "3" or $process eq "4") { print "$AUTH[19] \n"; }
480429
}
481430
##############################################################################################
482431
## ALL MAIN

‎inc/theme/dialog.pl

+9-9
Original file line numberDiff line numberDiff line change
@@ -181,16 +181,16 @@ sub scansArgs {
181181
sub interUsage {
182182
print ""
183183
."+===========================================================================+\n"
184-
."| EXPRESSION | USAGE | DESCRIPTION |\n"
184+
."| $c[11]EXPRESSION$c[10] | $c[11]USAGE $c[10] | $c[11]DESCRIPTION$c[10] |\n"
185185
."+============+========================+=====================================+\n"
186-
."| use | use [mode | module] | Normal and Advanced usage |\n"
187-
."| set | set [ARGUMENT] [VALUE] | Set arguments and values |\n"
188-
."| options | options | Show aviable & configured arguments |\n"
189-
."| help | help | Show help |\n"
190-
."| run | run | Execute |\n"
191-
."| config | config | User configuration |\n"
192-
."| update | update | Update tool |\n"
193-
."| exit | exit | Exit |\n"
186+
."| $c[5]use$c[10] | use [mode | module] | Normal and Advanced usage |\n"
187+
."| $c[5]set$c[10] | set [ARGUMENT] [VALUE] | Set arguments and values |\n"
188+
."| $c[5]options$c[10] | options | Show aviable & configured arguments |\n"
189+
."| $c[5]help$c[10] | help | Show help |\n"
190+
."| $c[5]run$c[10] | run | Execute |\n"
191+
."| $c[5]config$c[10] | config | User configuration |\n"
192+
."| $c[5]update$c[10] | update | Update tool |\n"
193+
."| $c[5]exit$c[10] | exit | Exit |\n"
194194
."+===========================================================================+\n\n";
195195
}
196196

0 commit comments

Comments
 (0)