| Server IP : 103.4.122.14 / Your IP : 216.73.216.103 Web Server : Apache/2.4.62 (Unix) OpenSSL/1.0.2k-fips System : Linux cwp2.slnet.com.au 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : statewid ( 1251) PHP Version : 8.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/maldetect.bk14505/internals/ |
Upload File : |
#!/usr/bin/perl
#
##
# Linux Malware Detect v1.6.6
# (C) 2002-2023, R-fx Networks <proj@r-fx.org>
# (C) 2023, Ryan MacDonald <ryan@r-fx.org>
# This program may be freely redistributed under the terms of the GNU GPL v2
##
#
use warnings;
if ($#ARGV < "1") {
print "usage: hexfile string\n";
exit;
}
$hexfile = $ARGV[0];
$instr = $ARGV[1];
$dat_hexstring = $hexfile;
open(DAT, $dat_hexstring) || die("Could not open $dat_hexstring");
@raw_data=<DAT>;
close(DAT);
foreach $hexptr (@raw_data) {
chomp($hexptr);
($ptr,$name)=split(/:/,$hexptr);
if ( grep(/$ptr/, $instr) ) {
print "$ptr $name \n";
exit;
}
}