=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-45- # use the 'file' command to check the cfgfile libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm:46: my $res = `file $cfgfile`; libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-47- if($res !~ /GPG encrypted data/is) { ############################################## libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-51- print("You'll have to type the name of the key you want to use\n"); libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm:52: system('gpg -e '.$cfgfile); libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-53- # checking exit status ############################################## libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-66- # decrypt file in memory libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm:67: my @res = `gpg -d $cfgfile`; libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-68- ############################################## libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-555- } else { libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm:556: system("gnuplot $gnu_print"); libfinance-bank-ie-permanenttsb-perl-0.4/lib/ptsb_util.pm-557- print "done.\n";