Perfected and available for use
Rhys Sage
The anti-spam program is now perfected and available for use at zero cost.
My only request is that additional features be suggested and/or added.
It's an open-source project. The program is in Delphi and works on the
theory that a good anti-spam program should read just the sender and the
subject line - as we do in order to judge whether something is spam or not.
In other words, it should mimic what we do ourselves while minimising
bandwidth. Mine also learns to differentiate good subjects from bad by
learning the kinds of subjects that people in the address book use. It's
ahead of the spammers because with no dictionary, v1agra etc will be deleted
automatically.
Join the project. Join the fight against spam.
--
Yours
Rhys
Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk
Uffe Kousgaard
your site. There are however lots of links to shareit.......
Could it be the "e-mail header viewer" you are referring to?
Check my version here: http://www.routeware.dk/antispam.html
It includes source code.
Regards
Uffe
"Rhys Sage" <ab...@127.0.0.1> wrote in message
news:3ff4...@newsgroups.borland.com...
Rhys Sage
:
http://groups.yahoo.com/group/Anti-Spam-Development/
--
Yours
Rhys
Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk
"Uffe Kousgaard" <look_at_www.routeware.dk> wrote in message
news:3ff46a8c$1...@newsgroups.borland.com...
Rhys Sage
I see my antispam is a little more advanced. Mine will read email account
details. My only puzzle is how to read the account password and where to
find it.
--
Yours
Rhys
Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk
"Uffe Kousgaard" <look_at_www.routeware.dk> wrote in message
news:3ff46a8c$1...@newsgroups.borland.com...
abraham
@newsgroups.borland.com:
> It's an open-source project.
Just tried it. It said "wap not found" and didn’t load.
By the way where is the source?
Cheers, Abraham
abraham
> It said "wap not found" and didn't load.
Oh, I'm using The Bat!
Abraham
Darren Davis
<3ff48693$1...@newsgroups.borland.com>...
>
Same here, no wap on my machine either...
--
The supplied email address is a spam trap. I'm a bit backwards but you can
contact me at eiDOTtenitATzad.
Rhys Sage
handsets.
if WhereIsWAB = '' then
begin
ShowMessage('WAB not found');
exit;
end;
Function TForm1.WhereIsWAB : String;
var RegKey :TRegistry;
WabLocation : String;
begin
RegKey := TRegistry.Create;
RegKey.RootKey := HKEY_CURRENT_USER;
WabLocation := '';
if RegKey.KeyExists('\SOFTWARE\Microsoft\WAB\WAB4\Wab File Name') Then
begin
RegKey.OpenKey('\SOFTWARE\Microsoft\WAB\WAB4\Wab File Name',False);
WabLocation := RegKey.ReadString('');
Result := WabLocation;
end
else Result := '';
end;
Rhys Sage
Address Book then it won't work for you.
--
Yours
Rhys
Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk
"abraham" <abr...@none.com> wrote in message
news:3ff4...@newsgroups.borland.com...
Darren Davis
Darren Davis
<3ff4...@newsgroups.borland.com>...
> It says WAB - not wap. Methinks too many people have been programming
Nokia
> handsets.
<g> yeah I realised my mistake after I'd posted :(
Colleyville Alan
news:3ff4...@newsgroups.borland.com...
>
> The anti-spam program is now perfected and available for use at zero cost.
> My only request is that additional features be suggested and/or added.
>
> It's an open-source project. The program is in Delphi and works on the
> theory that a good anti-spam program should read just the sender and the
> subject line - as we do in order to judge whether something is spam or
not.
> In other words, it should mimic what we do ourselves while minimising
> bandwidth. Mine also learns to differentiate good subjects from bad by
> learning the kinds of subjects that people in the address book use. It's
> ahead of the spammers because with no dictionary, v1agra etc will be
deleted
> automatically.
I get an error message :"Socket Error # 11004"
The server name as shown in the anti-spam dialog box is "smail.comcast.net"
whereas in my account setup, it is "mail.comcast.net" (no letter "s"
prefixing the word "mail"). I don't know if that is the problem or if
something else is.
Rhys Sage
"Colleyville Alan" <aechar...@nospam.comcast.net> wrote in message
news:3ff4ab5b$1...@newsgroups.borland.com...
>
> The server name as shown in the anti-spam dialog box is
"smail.comcast.net"
> whereas in my account setup, it is "mail.comcast.net" (no letter "s"
> prefixing the word "mail"). I don't know if that is the problem or if
> something else is.
That'll do it.
If you can spot where the error's coming from, the code for finding the
server address is here:
--
Yours
Rhys
Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk
function TForm1.GetRegistryValue;
var
Registry: TRegistry;
MyList: TStringList;
Kount : Integer;
MyString : string;
AccountHolder : String;
begin
AccountHolder := '\Software\Microsoft\Internet Account Manager\Accounts';
MyList := TStringList.Create;
Registry := TRegistry.Create(KEY_READ);
Registry.RootKey := HKEY_CURRENT_USER;
if Registry.OpenKey(AccountHolder, False) then
try
Registry.GetKeyNames(MyList);
// now go through the list, checking to see which are bona fide
for Kount := MyList.Count -1 downto 0 do
begin
if Registry.OpenKey(AccountHolder +'\' +MyList.Strings[Kount],
False) then
begin
MyString := Registry.ReadString('Pop3 Server');
if Length(MyString) = 0 then MyList.Delete(Kount)
else
begin
ComboBox1.Items.Add(Registry.ReadString('Account Name'));
end;
end;
end;
// email accounts
Finally
Registry.Free;
MyList.free;
end;
if ComboBox1.Items.Count > 0 then
begin
ComboBox1.ItemIndex := 0;
Result := True;
end
else Result := False;
end;
procedure TForm1.GetAccountDetails(AccountName : String);
var
Registry: TRegistry;
AccountHolder : String;
AccountList : TStringList;
Kount : Integer;
Buffer: array[1..200] of widechar;
MyCharString : string;
BufferSize : integer;
TempString : String;
TempNum : Integer;
begin
AccountList := TStringList.Create;
AccountHolder := '\Software\Microsoft\Internet Account Manager\Accounts';
Registry := TRegistry.Create(KEY_READ);
Registry.RootKey := HKEY_CURRENT_USER;
if Registry.OpenKey(AccountHolder, False) then
try
Registry.GetKeyNames(AccountList);
for Kount := 0 to AccountList.Count -1 do
begin
if Registry.OpenKey(AccountHolder +'\'+AccountList.Strings[Kount],
False) then
begin
if Registry.ReadString('Account Name') = AccountName then
begin
POP3Host.Caption := Registry.ReadString('Pop3 Server');
SMTPHost.Caption := Registry.ReadString('SMTP Server');
EmailAddress.Caption := Registry.ReadString('SMTP Email
Address');
UserID.Caption := Registry.ReadString('POP3 User Name');
//Label10.Caption :=
GetPassword(Registry.ReadString('Password2'));
Edit3.Text := GetPassword(Registry.ReadString('POP3 User
Name'));
BufferSize := 200;
TempNum := Registry.ReadBinaryData('POP3 Password2',
Buffer,BufferSize);
MyCharString := Buffer;
end;
end;
end;
Finally
Registry.Free;
end;
end;
Colleyville Alan
> news:3ff4ab5b$1...@newsgroups.borland.com...
> >
> > The server name as shown in the anti-spam dialog box is
> "smail.comcast.net"
> > whereas in my account setup, it is "mail.comcast.net" (no letter "s"
> > prefixing the word "mail"). I don't know if that is the problem or if
> > something else is.
>
> That'll do it.
>
> If you can spot where the error's coming from, the code for finding the
> server address is here:
>
> --
Well, I look in the registry and the POP3 server is listed as "smail" but in
the account setup dialog box, it is the word "mail". So your program is
reading the registry correctly, but the registry does not match my Outlook
settings. Yet Outlook receieves SPAM just fine :).
Q: How can this be?
Rhys Sage
> Well, I look in the registry and the POP3 server is listed as "smail" but
in
> the account setup dialog box, it is the word "mail". So your program is
> reading the registry correctly, but the registry does not match my Outlook
> settings. Yet Outlook receieves SPAM just fine :).
>
> Q: How can this be?
Dunno. I use Outlook Express. Maybe outlook's a bit funny?
Mike Williams (TeamB)
> works on the theory that a good anti-spam program should read just the
> sender and the subject line - as we do in order to judge whether
> something is spam or not.
I've found that it helps quite a bit to look at the cc line as well. Much
of the spam I get either blind copies me or cc's one of a number of former
co-workers (someone must have once added us all to some mailing list).
--
-Mike
Colleyville Alan
> news:3ff4b430$1...@newsgroups.borland.com...
> > Well, I look in the registry and the POP3 server is listed as "smail"
but
> in
> > the account setup dialog box, it is the word "mail". So your program is
> > reading the registry correctly, but the registry does not match my
Outlook
> > settings. Yet Outlook receieves SPAM just fine :).
> >
> > Q: How can this be?
>
> Dunno. I use Outlook Express. Maybe outlook's a bit funny?
I found the problem. While Outlook was set up correctly, Outlook Express
was not. I had changed the server to "smail" in Outlook Express
deliberately so that I would have all mail go only to Outlook. Every now
and then I open Outlook Express without having opened Outlook first and I
get emails that I can't file in Outlook 'cause it went to the wrong damned
place!
Anyhow, I fired up your app and the connection works fine. I'll let you
know how effective it is against spam as soon as I get a chance to use it.
Rhys Sage
> I found the problem. While Outlook was set up correctly, Outlook Express
> was not. I had changed the server to "smail" in Outlook Express
> deliberately so that I would have all mail go only to Outlook. Every now
> and then I open Outlook Express without having opened Outlook first and I
> get emails that I can't file in Outlook 'cause it went to the wrong damned
> place!
>
> Anyhow, I fired up your app and the connection works fine. I'll let you
> know how effective it is against spam as soon as I get a chance to use it.
Phew. You had me worried there!
It should get more accurate as time progresses - as it builds its dictionary
of the kinds of things you like to receive in email.
Jeff Overcash (TeamB)
email. It is not appropriate here. Thank you.
Colleyville Alan wrote:
--
Jeff Overcash (TeamB)
(Please do not email me directly unless asked. Thank You)
If there is somebody up there could they throw me down a line. Just a
little helping hand just a little understanding. Just some answers to the
questions that surround me now. If there's somebody up there could
they throw me down a line. (Fish)
Colleyville Alan
news:3ff6...@newsgroups.borland.com...
snip>
> > Anyhow, I fired up your app and the connection works fine. I'll let you
> > know how effective it is against spam as soon as I get a chance to use
it.
>
> Phew. You had me worried there!
>
> It should get more accurate as time progresses - as it builds its
dictionary
> of the kinds of things you like to receive in email.
Well I am not sure whether I am using it correctly. I assume that this is
designed to intercept mail before it gets to my Outlook inbox. Therefore,
it will not let Outlook accept mail while it is running. So I get a dialog
box in Outlook that shows email is coming in and it asks for my id/pw, etc.
At this point, your app does not show anything unless I disconnect and
reconnect. There is apparently no way to refresh the connection, is this
correct?
If it is something that I can have running all of the time to filter mail
before it gets to Outlook, that makes sense but it should be running all of
the time. When the only way to get the emails into the dialog box is to
disconnect and reconnect, it seems rather inconvenient. Or am I
misunderstanding or doing something wrong?
Rhys Sage
http://groups.yahoo.com/group/Anti-Spam-Development/
Which is where I'm trying to get people to post. Sadly people seem too keen
to get the free software and can't be bothered to contribute to the project.