Andrew Porter wrote:
> Ethan Albone wrote:
>
>
>> My suggestion :
>> Why don't you consider to write something to detect a DDOS email
>> dictionary attack ? Each time someone start to bomb the server with
>> [EMAIL PROTECTED] using always a new ip for an x time ,
>> assp deny the sender as possible . Is it realizable ?
>>
>
> Validate Recipient Addresses would stop this almost instantly with very
> little overhead. I really wouldn't live without it nowadays.
> I generate my recipient list automatically by analysing my qmail setup
> with a script.
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Assp-user mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/assp-user
>
>
I do the same thing with Merak.
Here's the script to parse Merak and pull out all the valid addresses
and save them to a text file. Then tell ASSP to use that file for
validation. I run this as a task and also run it manually when I make a
change to Merak.
I run an older version of Merak (6.X). So I don't know if it'll work
with others.
HTHs someone,
C
<--------------------Begin>
dim oFSO
set oFSO = CreateObject("Scripting.FileSystemObject")
'Path to Merak install
sPath="C:\Program Files\merak"
sLists = "\config"
sUsers = "\mail"
'path to file
sResultFile = "c:\ASSP\vlist.txt"
dim asDomains()
dim asLists()
dim asUsers()
dim sFile
addline "# BuildList email addy ASSP list Generated " & Now()
set ofDomRoot = oFSO.GetFolder(sPath&sLists)
for each ofolder in ofDomRoot.SubFolders
sCurDomain = ofolder.Name
addline "# *******************************************" & sCurDomain
if left(scurdomain,1) <> "." then
'domain we hope
'Get lists
addline "# Lists"
for each ofile in ofolder.files
'each .txt file is a merak mailing list
sFileOrFolder = oFile.Name
if ucase(right(sFileOrFolder ,3))="TXT" then
sEmail = left(sFileOrFolder,len(sFileOrFolder)-4) & "@"
& sCurDomain
addline sEmail
end if
next
'get users
addline "# users"
if oFSO.FolderExists(sPath & sUsers & "\" & sCurDomain) then
for each oFolder2 in oFSO.GetFolder(sPath & sUsers & "\" &
sCurDomain).SubFolders
sFileOrFolder = oFolder2.Name
sEmail = sFileOrFolder & "@" & sCurDomain
addline sEmail
next
end if
end if
next
if ofso.FileExists(sResultFile) then
oFSO.DeleteFile sResultFile
end if
set oSTRM = oFSO.CreateTextFile(sResultFile,true)
oStrm.Write(sFile)
oStrm.Close
function AddLine(stmp)
sFile = sFile & stmp & vbCrLf
end function
function spit(stmp)
wscript.echo stmp
end function
<.................................End>
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Assp-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-user
