What the, its still sending spam :| i really dont get it i moved the mail.php file from his public to /home/user
and still there is spam being send?
web1:/home/user/public_html# cat /var/log/exim/mainlog | grep "domaincustomer" | grep "yahoo"
2010-03-03 19:54:07 1Nmthv-0007z7-Ag <=
[email protected] H=localhost (
www.domainuser.nl) [127.0.0.1] P=smtp S=760
[email protected] T="__(MEN'S HEALTH!)__" from <
[email protected]> for
[email protected]
?!?! how is is this possible... any idea how to trace the file?
that was not the only mail there allot of more.
Edit:
In his cg-bin folder i found some "strange" files to? i really dont know what it is, but it seems to connect to an smtp?
web1:/home/rest.../public_html/cgi-bin# ls
0149473177.pl 1369850438.pl 2223308405.pl 3278074576.pl 4096587683.pl 5118987555.pl 6983394532.pl 8043065090.pl 9376862427.pl
0198072822.pl 1598032145.pl 2372452954.pl 3414560372.pl 4378476837.pl 5164604612.pl 7093457570.pl 8099539420.pl 9400638440.pl
0712109293.pl 1628968207.pl 2484882274.pl 3460315616.pl 4481344873.pl 5514103331.pl 7566262008.pl 8318404272.pl 9414179644.pl
0752440773.pl 2037553322.pl 2538309976.pl 3832245847.pl 4495114980.pl 5661746056.pl 7715645337.pl 8375376788.pl 9550412823.pl
0996696766.pl 2060332563.pl 2558700647.pl 3840434450.pl 4897731522.pl 5987494921.pl 7806735242.pl 8731057684.pl 9719337400.pl
1138020095.pl 2137633408.pl 3216565113.pl 3878928943.pl 5101979718.pl 6476800741.pl 7866169826.pl 9023566219.pl
1170755314.pl 2180295571.pl 3220968952.pl 3941329732.pl 5111562660.pl 6861598451.pl 8013781734.pl 9284099353.pl
some text from one .pl file:
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"; }