:strip_icc():strip_exif()/u/97927/beer.jpg?f=community)
Na enige aanwijzigen van spam/virussen op mijn linux server kwam ik onderstaande code tegen.
Zelf ben ik niet zo thuis in PERL wat doet dit script met smtp.mail.ru?
Ik kan weinig vinden over dit virus, heeft iemand tips waar er nogmeer schadelijk bestanden kunnen zijn?
Ik heb alle password gewijzigd en alle cgi-bin mappen doorzocht (icm command find -name *.pl)
Zelf ben ik niet zo thuis in PERL wat doet dit script met smtp.mail.ru?
Ik kan weinig vinden over dit virus, heeft iemand tips waar er nogmeer schadelijk bestanden kunnen zijn?
Ik heb alle password gewijzigd en alle cgi-bin mappen doorzocht (icm command find -name *.pl)
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| #!/usr/bin/perl -w
$| = 1;
print "Content-type: text/plain; charset=windows-1251\n\n" if $ENV{HTTP_USER_AGENT};
print "System info\n";
print "-----------\n\n";
print "$^O";
print "\n", `uname -a` if $^O !~ /win/i;
print "\n\n";
print "Perl modules\n";
print "------------\n\n";
print "strict .......................... ";
unless (eval ("use strict; return 1;")) { print "Error"; } else { print "Ok"; }
print "\nSys::Hostname ................... ";
unless (eval ("use Sys::Hostname; return 1;")) { print "Error"; } else { print "Ok"; }
print "\nPOSIX ........................... ";
unless (eval ("use POSIX qw(setsid); return 1;")) { print "Error"; } else { print "Ok"; }
print "\nErrno ........................... ";
unless (eval ("use Errno qw(EINPROGRESS); return 1;")) { print "Error"; } else { print "Ok"; }
print "\nIO::Socket ...................... ";
unless (eval ("use IO::Socket qw(:DEFAULT :crlf); return 1;")) { print "Error"; } else { use IO::Socket qw(:DEFAULT :crlf); print "Ok"; }
print "\nIO::Select ...................... ";
unless (eval ("use IO::Select; return 1;")) { print "Error"; } else { print "Ok"; }
print "\n\n";
print "Server test\n";
print "-----------\n\n";
my $s = IO::Socket::INET->new(Proto => "tcp", LocalPort => 36000, Listen => SOMAXCONN, Reuse => 1);
unless ($s) { print "Error"; } else { close $s; print "Ok"; }
print "\n\n";
print "Client test\n";
print "-----------\n\n";
my $r = (gethostbyname "smtp.mail.ru")[4];
unless ($r) { print "Error > Can't resolve hostname"; exit; }
$s = IO::Socket::INET->new(Proto => "tcp", Type => SOCK_STREAM);
unless ($s) { print "Error > Can't create socket > $!"; exit; }
unless ($s->connect(pack ("Sna4x8", 2, 25, $r))) { close $s; print "Error > Can't connect > $!"; exit; }
$r = <$s>; close $s;
if (length $r) { print "Ok\n$r"; } else { print "Error > Can't read response"; } |
/u/61403/crop58bff192a74cb_cropped.png?f=community)
/u/37496/icon.png?f=community){kind=icon}
/u/8/oog3.png?f=community)
) Ik zou dan ook niet teveel focussen op het zoeken naar .pl bestanden. Grote kans dat dit bestandje een onderdeel is van een setje scripts en het script / programma dat spamt geeneens perl is.:strip_exif()/u/53157/thai4.gif?f=community)
:strip_exif()/u/26278/wapen60.gif?f=community)
:strip_icc():strip_exif()/u/91018/dgtw.jpg?f=community)
:strip_exif()/u/86638/crop66742fa02feea.webp?f=community)