'Hub Protection Script made by Satyricon =)
'made by Satyricon onAugust 13,2002
'v1.0 
Dim sBotName
Dim oSearchCount
Dim iSearchCount
Dim sLastUser
Dim sYNChatFlood
Dim lMaxRepeat
Dim oUserMsgs
Dim oMsgCount
Dim lstIP
Dim oMyInfo
Dim sTheText
Dim sUsrName
Dim lPos
'--------------------------------------------------
Sub Main 
Set oSearchCount = CreateObject("Scripting.Dictionary")
Set oUserMsgs = CreateObject("Scripting.Dictionary")
Set oMsgCount = CreateObject("Scripting.Dictionary") 
Set oMyInfo = CreateObject("Scripting.Dictionary")
tmrScriptTimer.interval=60000 
tmrScriptTimer.enabled=TRUE
lMaxRepeat = 5
sBotName = "Uñtøücháblè-Security" 
End Sub 
'--------------------------------------------------
Sub tmrScriptTimer_Timer() 
oSearchCount.RemoveAll
oUserMsgs.RemoveAll
oMsgCount.RemoveAll
oMyInfo.RemoveAll
lstIP = ""
End sub
'--------------------------------------------------
Sub DataArival (curUser, sCurData) 
' Search Flood and Search Spam Protection
If Left(sCurData, 7) = "$Search" Then
If InStr(sCurData, "F?F?0?1?.") Then
KickAndNotify curUser.sName, "Flooder"
Exit Sub
End If 
If oSearchCount.Exists (curUser.sName) then 
iSearchCount = oSearchCount.Item (curUser.sName) 
iSearchCount = iSearchCount +1 
If iSearchCount = 7 then 
KickAndNotify curUser.sName, "SpamSearch"
Exit Sub 
End If 
oSearchCount.Item (curUser.sName) = iSearchCount 
Else 
oSearchCount.Add curUser.sName, 1 
End If 
End If
'$MyInfo Flood Protection
If Left(sCurData, 7) = "$MyINFO" Then
If oMyInfo.Exists(CStr(curUser.sName)) Then
oMyInfo(CStr(curUser.sName)) = oMyInfo(CStr(curUser.sName)) + 1
If oMyInfo(CStr(curUser.sName)) >8 and colUsers.Online(CStr(curUser.sName)) Then
KickAndNotify curUser.sName, "MyInfoFlood"
oMyInfo.Remove (CStr(curUser.sName))
Exit Sub 
End If
Else
oMyInfo(CStr(curUser.sName)) = 1
End If
End If
' Chat Flood Protection
If Left(sCurdata, 1) = "<" Then
lPos = InStr(1, sCurData, "> ")
sTheText = Mid(sCurData, lPos + 2)
sUsrName = curUser.sName
If Not curUser.bOperator Then
CheckChatFlood sUsrName, sTheText
End If
End If
End Sub 
'--------------------------------------------------
Sub KickAndNotify(User, Reason)
Dim sbanIP
Dim sMessage
If colUsers.Online(CStr(User)) And Not sLastUser = User Then
sLastUser = User
End If
If Reason = "Flooder" or Reason = "MyInfoFlood" Then
frmHub.lstPermBan.AddItem CStr(colUsers.ItemByName(CStr(User)).ip)
sbanIP = CStr(colUsers.ItemByName(CStr(User)).ip)
colUsers.SendChatToAll CStr(sBotName), "" + CStr(User) + " was banned because he/she tried to hack the hub program!"
colUsers.SendChatToAll CStr(sBotName), "" + CStr(User) + "´s IP is: " + CStr(sbanIP) +"."
colUsers.ItemByName(CStr(User)).Disconnect
lookForIP (sbanIP)
Else
sbanIP = CStr(colUsers.ItemByName(CStr(User)).ip)
frmHub.DoEventsForMe
colUsers.ItemByName(CStr(User)).Kick
Select Case Reason
Case "SpamSearch"
sMessage = "" + CStr(User) + " was kicked because search spamming!"
colUsers.SendChatToAll CStr(sBotName), cstr(sMessage)
colUsers.SendChatToAll CStr(sBotName), "" + CStr(User) + "´s IP is: " + CStr(sbanIP) +"."
Case "LameSearch"
sMessage = "" + CStr(User) + " was kicked because submitting Lame-search."
colUsers.SendChatToAll CStr(sBotName), cstr(sMessage)
colUsers.SendChatToAll CStr(sBotName), "" + CStr(User) + "´s IP is: " + CStr(sbanIP) +"."
End Select
End If
End Sub
'--------------------------------------------------
Sub lookForIP(ip)
Dim userIP
Dim messageIP
Dim c
c=0
messageIP="Other users connected from this IP"
For each userIP in colUsers
If userIP.IP()=ip then
messageIP=messageIP+":"+userIP.sName
userIP.Kick()
c=c+1 
End If
Next
If Not(c=0) then
colUsers.SendChatToAll cstr(sBotName),cstr(messageIP)+" . Their IP numbers got banned too..."
End If
End Sub
'--------------------------------------------------
Sub CheckChatFlood(User, Message)
Dim sChatIP
sChatIP = CStr(colUsers.ItemByName(CStr(User)).ip)
If oUserMsgs.Exists(sChatIP) Then
If CStr(Message) = CStr(oUserMsgs(sChatIP)) Then
oMsgCount(sChatIP) = oMsgCount(sChatIP) + 1
Else
oMsgCount(sChatIP) = 1
End If
Else
oMsgCount(sChatIP) = 1
End If
oUserMsgs(sChatIP) = CStr(Message)
If oMsgCount(sChatIP) = lMaxRepeat - 1 Then
colUsers.SendChatToAll CStr(sBotName), User + ", only lamers flood the chat with the same stupid message!"
ElseIf oMsgCount(sChatIP) = lMaxRepeat Then
If lstIP <> sChatIP Then
lstIP = sChatIP
frmHub.lstTempBan.AddItem CStr(sChatIP)
colUsers.SendChatToAll CStr(sBotName), User + "... You better stop that if you are smart!"
colUsers.SendChatToAll CStr(sBotName), "" + User + " was kicked because he/she was flooding the main-chat."
colUsers.SendChatToAll CStr(sBotName), "" + User + "´s IP is: " + CStr(sChatIP) +"."
frmHub.DoEventsForMe
oMsgCount.Remove (CStr(sChatIP))
oUserMsgs.Remove (CStr(sChatIP))
lookForIP (CStr(sChatIP))
End If 
End If
End Sub
'--------------------------------------------------
sub Error()
'This sub goes off when there is an error.
msgbox "Error: " & err.description
end sub
<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','late421',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "late421";
var tripod_member_page = "late421/scripts/Hub-Protection.script";
var tripod_ratings_hash = "1745841942:e647e8383b1f10a121f2f81c1dba383b";

var lycos_ad_category = {"dmoz":"computers\/programming","ontarget":"&CAT=technology&L2CAT=computing&L3CAT=programming","find_what":"spam bot"};

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}



form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>