D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
thread-self
/
root
/
usr
/
local
/
maldetect
/
internals
/
Filename :
hexfifo.pl
back
Copy
#!/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 ## # if ($#ARGV != "0") { print "usage: hexfile\n"; exit; } $hexfile = $ARGV[0]; $named_pipe_name = "/usr/local/maldetect/internals/hexfifo"; $timeout = "1"; if (-p $named_pipe_name) { eval { local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required alarm $timeout; if (sysopen(FIFO, $named_pipe_name, O_RDONLY)) { while(my $this_line = <FIFO>) { chomp($this_line); $return .= $this_line; } close(FIFO); } else { $errormsg = "ERROR: Failed to open named pipe $named_pipe_name for reading: $!"; } alarm 0; }; if ($@) { if ($@ eq "alarm\n") { # timed out $errormsg = "Timed out reading from named pipe $named_pipe_name"; } else { $errormsg = "Error reading from named pipe: $!"; } } else { # didn't time out $instr = $return; } } $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; } }
Name
Size
Last Modified
Owner
Permissions
Actions
VERSION.hash
0.063
KB
April 26 2025 9:49:36
root
0644
compat.conf
3.831
KB
September 07 2018 1:37:50
root
0644
functions
86.632
KB
February 26 2025 1:44:33
root
0644
hexfifo.pl
1.381
KB
April 10 2023 10:45:54
root
0644
hexstring.pl
0.627
KB
February 23 2025 3:21:25
root
0644
importconf
15.811
KB
February 24 2025 1:40:37
root
0644
internals.conf
4.393
KB
February 23 2025 3:09:39
root
0644
panel_alert.etpl
2.121
KB
March 27 2023 7:17:37
root
0644
scan.etpl
2.929
KB
February 19 2025 2:33:24
root
0644
tlog
2.438
KB
September 27 2015 7:38:49
root
0750
2017 © D7net | D704T team