Customizing Reliable
Graphical Stats (Capture info from Reliable)

Why....
Reliable only provides info on the weekly load.
That might be insufficient if you were used to Mixmaster's hourly reports.
You might want an early detection of attacks (DoS / Loops / direct Flood) or just watch your remailer's popularity.
Which Result ?
The result is you get data which can be compiled at whichever level you choose, using external programs.
Only MAILIN and MAILOUT are being intercepted now, PROCESS and NNTP were thought of.
The final result looks like:
        the various Excel-generated predefined Graphs you can see at Browse into Frog Remailer Load Graphs
        preview as seen on that ScreenShot from Gra_WLog
Where to peep ?
There are only 2*4 lines of code to add inside Reliable.
(That coding is far for optimal performance-wise, but it is safe).
(Of course, you might want to modify the constants according to your own naming conventions.
        It *might* not be a good idea if you plan to use my additional proggie with mimimum modifications....
        Following code *requires* to manually add a "\Logs" subfolder inside Reliable folder)
You will just have to modify the following files:
   Retrieve.bas    (manages MAILIN)
   Send.bas         (manages MAILOUT)


Retrieve.bas
I intercept just after the status bar saying retrieval is in progress.
(Search for characteristic "frmMain!barStat.SimpleText = "Retrieving message" + ")

'Retrieve
frmMain!PopClient1.MultiLine = False
frmMain!PopClient1.GetMessage POPMsg
MsgSize = frmMain!PopClient1.MessageSize
frmMain!barStat.SimpleText = "Retrieving message" + str(POPMsg) + " of" + str(TotalMsgCount) + " (" + Trim(str(Int(MsgSize / 1024))) + "k)": frmMain!barStat.Refresh
frmMain!barProgress.Value = 0
If MsgSize > 0 Then frmMain!barProgress.Max = MsgSize
Do

You insert the following 4 lines of code immediately after, just before the progress bar instructions:

LOG__Mailin = FreeFile
Open App.Path & "\Logs\~Mailin.log" For Append As #LOG__Mailin
Write #LOG__Mailin, Now, Format(MsgSize, "0000000")
Close #LOG__Mailin

Which gives:

Retrieve
frmMain!PopClient1.MultiLine = False
frmMain!PopClient1.GetMessage POPMsg
MsgSize = frmMain!PopClient1.MessageSize
frmMain!barStat.SimpleText = "Retrieving message" + str(POPMsg) + " of" + str(TotalMsgCount) + " (" + Trim(str(Int(MsgSize / 1024))) + "k)": frmMain!barStat.Refresh
LOG__Mailin = FreeFile
Open App.Path & "\Logs\~Mailin.log" For Append As #LOG__Mailin
Write #LOG__Mailin, Now, Format(MsgSize, "0000000")
Close #LOG__Mailin

frmMain!barProgress.Value = 0
If MsgSize > 0 Then frmMain!barProgress.Max = MsgSize
Do

Send.bas
I intercept just after status bar saying Sending is in progress.
(Search for characteristic "frmMain!barStat.SimpleText = LMsg(229) + str(mcount) +")

'Send Body
If Job = 0 Then
    n = FreeFile
    Open QFile(1) For Binary As n
    flen = LOF(n)
    frmMain!barStat.SimpleText = LMsg(229) + str(mcount) + " of" + str(SendCount) + " [" + Trim(str(fc)) + "]" + " " + Trim(str(Int(flen / 1024))) + "k": frmMain!barStat.Refresh
    If flen > 0 Then frmMain!barProgress.Max = flen
    slen = flen - Loc(n)

You insert the following 4 lines of code immediately after, just before the progress bar instructions:

    LOG__Mailout = FreeFile
    Open App.Path & "\Logs\~Mailout.log" For Append As #LOG__Mailout
    Write #LOG__Mailout, Now, Format(flen, "0000000")
    Close #LOG__Mailout

Which gives:

'Send Body
If Job = 0 Then
    n = FreeFile
    Open QFile(1) For Binary As n
    flen = LOF(n)
    frmMain!barStat.SimpleText = LMsg(229) + str(mcount) + " of" + str(SendCount) + " [" + Trim(str(fc)) + "]" + " " + Trim(str(Int(flen / 1024))) + "k": frmMain!barStat.Refresh
    LOG__Mailout = FreeFile
    Open App.Path & "\Logs\~Mailout.log" For Append As #LOG__Mailout
    Write #LOG__Mailout, Now, Format(flen, "0000000")
    Close #LOG__Mailout

    If flen > 0 Then frmMain!barProgress.Max = flen
    slen = flen - Loc(n)

My External Applications
You might want to use the application I developed in VB5 + Excel.
It is provided "as is", and holds two simultaneous remailers
     "Frog" located on "P:\Reliable"
    "Azerty" located on  "P:\Reliabl2"
You would have to modify *only* those global constants in VB to reflect your own Reliable location.
.... if you did not mind my naming conventions
            .log .dat .xls file go to a \Logs subfolder under Reliable directory
            Gra_WLog.exe can be stored anywhere
Automatic save of .gif from barcharts is not supported yet (unavailable under Office95)

DownLoad VB Application (Sources + .exe)
DownLoad Excel Worsheets for 12 standard charts



Back to Root Index or Root Main Pages