'hack' statistieken

[Erwin1]

Kun je het stripje scriptje niet posten, ik wil hem hier ook wel eens op de log laten draaien

[Mod edit: komische typo]

[hansiedown]

Nu ik weet dat ik bepaald gedrag kan meten, ben ik gaan kijken wat ik tegen 'ongewenst' gedrag kan doen.
Conform: http://www.postfix.org/postconf.5.html en http://www.postfix.org/TUNING_README.html
In /volume1//@appstore/MailServer/etc/master.cf
De volgende regels expliciet toegevoegd onder regel: 25 inet n - n - - smtpd
 -o smtpd_error_sleep_time=30
 -o smtpd_soft_error_limit=10
 -o smtpd_hard_error_limit=20

Hierna een:
/volume1/@appstore/MailServer/sbin/postfix stop
/volume1/@appstore/MailServer/sbin/postfix start

Nu over een maandje opnieuw meten of er veranderingen zijn.

De functie postscreen (http://www.postfix.org/POSTSCREEN_README.html) heb ik nog niet geimplementeert.
In deze functie zit een mogelijkheid tot het blacklisten van ipnummers.
De mailserver = version 2.9.3
Dus dat zou tot de mogelijkheden moeten behoren.

Ben benieuwd.....

[hansiedown]

@Erwin1
Hierbij het vbscriptje wat ik gebruik om de statistieken te maken.
1. Maak een export van van je postfix logs (dus niet de HTML) vanuit Mail Log
2. Bewaar dit in bijvoorbeeld c:\temp
3. Copieer mijn scriptje en sla dit op als bijvoorbeeld statsMail.vbs (moet de extensie .vbs zijn)
4. Pas het scriptje aan dat deze verwijst naar de juiste folders (InputFolder= en OutputFolder = ) en naar de juiste bestandsnaam (LocPostFixFile = )
5. Scriptje uitvoeren
6. Output copieren naar excel en hiervan je grafiekjes maken.

Code: [Selecteer]

'*********************************
'* Autur: Hans
'* Script voor het uitlezen van postfix bestand en hieruit een analyze te maken.
'* Versie 0.1
'* Datum 29 jan 2016
'*********************************

Dim LocPostFixFile, DicIPNummers, DicloginNames, fso, postfixfile, EvaluateLine, Ipnr, loginname, MyArray
Dim Outputfile, OutputFolder, InputFolder
LocPostFixFile = "maillog" 'naam van het prostfixbestand.
InputFolder = "c:\temp\" 'Folder waar je postfixbestand is opgeslagen
OutputFolder = "c:\temp\" 'Folder waar je output moet worden opgeslagen

Set DicIPNummers = CreateObject("Scripting.Dictionary") 'lekker makkelijk hoef ik geen Array te gebruiken
Set DicloginNames = CreateObject("Scripting.Dictionary") 'lekker makkelijk hoef ik geen Array te gebruiken
Set fso = CreateObject("Scripting.FileSystemObject") 'voor het openen en wegschrijven van bestanden


'Open logfile
Set postfixfile = fso.OpenTextFile(InputFolder & LocPostFixFile, 1) 'open postfixfile for reading en geef het een logische naam

Do Until postfixfile.AtEndOfStream 'uitlezen tot het einde van het bestand
EvaluateLine = postfixfile.ReadLine 'lees de regel van het bestand.
'indien disconnect from unknown[ <-> ] dan registreer ip nr en tel de aantallen
If (InStr(1,EvaluateLine,"disconnect from unknown[",1)) > 0 Then 'zoek opdracht gevonden
MyArray = Split(EvaluateLine, "[", -1,1) 'opdelen in groepjes met als scheidingsteken [
'Ipnr = Replace(EvaluateLine,"disconnect from unknown[", "") 'Verwijderen tekst: van disconnect from unknown[
Ipnr = Replace(MyArray(2),"]", "") 'Verwijderen tekst: ] van het derde groepje
If DicIPNummers.Exists(Ipnr) Then 'controleren of IPnr al voorkomt
DicIPNummers.Item(Ipnr) = DicIPNummers.Item(Ipnr) + 1 'eentje erbij tellen
Else 'komt niet voor dus een nieuwe entery aanmaken
DicIPNummers.Add Ipnr,1 'nieuwe registratie toevoegen
End If
End If

'indien postfix: SLIBUserRealNameGet(user= <-> ) failed registreer naam + aantallen
If (InStr(1,EvaluateLine,"postfix: SLIBUserRealNameGet(user=",1)) > 0 Then 'zoek opdracht gevonden
MyArray = Split(EvaluateLine, "=", -1,1) 'opdelen in groepjes met als scheidingsteken =
'loginname = Replace(EvaluateLine,"postfix: SLIBUserRealNameGet(user=", "") 'Verwijderen tekst: van disconnect from unknown[
loginname = Replace(MyArray(1),") failed", "") 'Verwijderen tekst: ]
If DicloginNames.Exists(loginname) Then 'controleren of IPnr al voorkomt
DicloginNames.Item(loginname) = DicloginNames.Item(loginname) + 1 'eentje erbij tellen
Else 'komt niet voor dus een nieuwe entery aanmaken
DicloginNames.Add loginname,1 'nieuwe registratie toevoegen
End If
End If
Loop
'Schrijf bestand weg met geregistreerde ipnr's
colkeys = DicIPNummers.Keys
Set Outputfile = fso.CreateTextFile(OutputFolder & "IPnrStats.txt",True)
For Each strKey in colkeys
Outputfile.WriteLine strKey & vbTab & DicIPNummers.Item(strKey)
Next
Wscript.Echo "Ipnummers statistieken zijn opgeslagen in " & OutputFolder & "IPnrStats.txt"
'Schrijf bestand weg met geregistreerde login namen en aantallen
colkeys = DicloginNames.Keys
Set Outputfile = fso.CreateTextFile(OutputFolder & "LoginStats.txt",TRUE)
For Each strKey in colkeys
Outputfile.WriteLine strKey & vbTab & DicloginNames.Item(strKey)
Next
Wscript.Echo "gebruikte loginnamen statistieken zijn opgeslagen in " & OutputFolder & "IPnrStats.txt"
Wscript.Echo "script is klaar"



[Erwin1]

Thnx, maar ik zit met een mac.
Die kan dat dus niet aan 

[hansiedown]

Helaas het enige script taaltje waarin ik mij thuis voel en kennis van heb is vbscript.
Vandaar ook mijn oproep om hulp om dit om te zetten naar een 'Synology' script taaltje.

[Erwin1]

Ik heb m'n windows machine er nog maar even bij gepakt.
Ik krijg alleen een foutmelding als ik het scripje wil draaien. Hij kan het bestand niet vinden, in regel 20..?
Ik heb de maillog als .log opgeslagen op het bureaublad, en het scripje heb ik daar ook staan. Ik heb de input, en output aangepast naar de locatie waar ze nu staan..

Wat is dit?

[Birdy]

Zou niet het bureaublad gebruiken als directory maar een nieuwe map op C:\

[Erwin1]

Oké ga ik dat proberen. Maakt het script zelf een output file, of moet ik die aanmaken?

[Birdy]

Zo te zien wel

Code: [Selecteer]

Set Outputfile = fso.CreateTextFile(OutputFolder & "IPnrStats.txt",True)

[Erwin1]

Mmm, ik heb nu een map op c:// aangemaakt maar ik krijg dezelfde foutmelding ;)

[hansiedown]

Ik krijg alleen een foutmelding als ik het scripje wil draaien. Hij kan het bestand niet vinden, in regel 20..?
Ik heb de maillog als .log opgeslagen op het bureaublad, en het scripje heb ik daar ook staan. Ik heb de input, en output aangepast naar de locatie waar ze nu staan..

Edwin,
De regel: LocPostFixFile = "maillog" 'naam van het prostfixbestand.
Dien je de tekst tussen quotjes aan te passen met maillog.log of de naam van het input bestand aanpassen zonder de extensie .log
In regel 20 opent het script het bestand nl met de exacte naam zoals vermeld in LocPostFixFile

Er worden 2 bestanden aangemaakt: IPnrStats.txt en LoginStats.txt
Het eerste is een overzicht van welk IP nummer hoe vaak heeft proberen in te loggen.
Het tweede van welke inlog namen hoe vaak gebruikt zijn.

[hansiedown]

Na onderstaande aanpassingen zie ik andere meldingen in het postfix logbesdtand

In /volume1//@appstore/MailServer/etc/master.cf
De volgende regels expliciet toegevoegd onder regel: 25 inet n - n - - smtpd
 -o smtpd_error_sleep_time=30
 -o smtpd_soft_error_limit=10
 -o smtpd_hard_error_limit=20

Nieuwe meldingen in het postfix logbestand:
Jan 31 12:52:56 opa postfix/smtpd[4991]: fatal: watchdog timeout
Jan 31 12:52:57 opa postfix/master[6897]: warning: process /var/packages/MailServer/target/libexec/smtpd pid 4991 exit status 1
Jan 31 12:52:57 opa postfix/master[6897]: warning: /var/packages/MailServer/target/libexec/smtpd: bad command startup -- throttling

Dit kan uiteraard een toevalstreffer zijn of relatie te hebben met mijn aanpassing.

[Briolet]

In een half jaar aan log bestanden kom ik het woord "Watchdog" maar 1x tegen:

Code: [Selecteer]

Nov 16 07:26:45 GedeeldeData postfix/smtpd[16827]: fatal: watchdog timeout
Nov 16 07:26:46 GedeeldeData postfix/master[31686]: warning: process /var/packages/MailServer/target/libexec/smtpd pid 16827 exit status 1
Nov 16 07:26:46 GedeeldeData postfix/master[31686]: warning: /var/packages/MailServer/target/libexec/smtpd: bad command startup -- throttling

Gezien de tijdcode is er geen verband met eerdere of latere log regels.

[Erwin1]

Oké, volgens mij moet nu alles kloppen: maar ik krijg toch een foutmelding... 

[Basalt]

Je hebt geen backslash tussen folder en filenaam.

(en het is Auteur, niet Autur  )