function startscr()
  { 
  Gratiscounter();
/*  Cfd(); */ 
/*  Zaestand(); */
  checkFrameset(); 
  }

function email1(name)
{
var domain = "institutum-canarium"
var tld = "or&#103"
var link = "<a href='&#109;&#97;&#105;&#108;&#116;&#111;&#58; "+name+"&#64;"+domain+"&#46;"+tld+"'>"+name+"&#64;"+domain+"&#46;"+tld+"</a>";
document.write(link);
random_emails();
}

function random_emails()
{

// Und die Emailsammler die auch die den Schutz knacken bekommen wenigstens noch ein paar falsche Adressen dazu!
// Erzeuge 10 Email-Adressen [fakeMail() in JavaScript]: Kai Wulfert hat fakeMail() nach JavaScript portiert 

var anzahl=10
do
   {
   // Setze Namensvariablen zurueck
   var receiver=""

   // Länge des Empfaengernamens 3 bis 11 Zeichen
   var lnam=3 + Math.round (8 * Math.random ());

   // Länge des Organisationsnamens 3 bis 11 Zeichen
   var lorg=3 + Math.round (8 * Math.random ());

   // 38 erlaubte Zeichen im Empfaengernamen und Organisationsnamen (0 bis 37)
   var zch = new Array ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ".", "-");

   // 12 erlaubte Top Level Domains (0 bis 11)
   var tld = new Array (".de", ".com", ".co.uk", ".net", ".org", ".biz", ".info", ".eur", ".gov", ".tv", ".kr", ".tw");

   // Erzeugen des Empfaengernamens
   var i=lnam;
   do
      {
      var zg = Math.round (37 * Math.random ());
      receiver = receiver + zch[zg];
      i--;
      }
   while (i>0);

   // Erzeugen des @-Zeichens
   receiver = receiver + "\@";

   // Erzeugen des Organisationsnamens
   var i=lorg;
   do
      {
      var zg = Math.round (37 * Math.random ());
      receiver = receiver + zch[zg];
      i--;
      }
   while (i>0);

   // Erzeugen der Top Level Domain
   var zg = Math.round (11 * Math.random ());
   receiver = receiver + tld[zg];

   // Ausgabe des kompletten Links
   document.write ("<a href=\"");
   document.write ("mailto:");
   document.write (receiver);
   //document.write ("\">");
   //document.write (receiver);
   //document.write ("</a>, ");
   document.write ("\">");
   document.write ("</a>");
   anzahl--;
   }
while (anzahl>0);
//ENDE

}



function Gratiscounter() 
  {
  ctdatei = new Image(); 
  ctdatei.src = "http://217.111.12.25/log.cgi?df=76724&von="+escape(document.referrer);
  }

function checkFrameset() 
  {
  if(!parent.links) 
  location.href="fstart_d.html?" + location.pathname;
  }

function Wohe()
{
   if(document.referrer.toLowerCase().indexOf('institutum-canarium')<0)
   { 
      var Adres = document.referrer;
   }
   else
   {
       var Adres = "-refic";
   }
return Adres;
}

function Cfd()
  {
  kdatei = new Image(); 
  kdatei.src = "http://home.germany.net/100-496851/stic-j.gif?"+GcocHol()+Wohe();
  }

function GcocHol()
    {
     var Gcoc = "";
     if(document.cookie) 
     {
      Gcoc = document.cookie;
     }
     return Gcoc;
    }

function WertHol()
    {
     var WerA = "";
     if(document.cookie) 
     {
      Wertst = document.cookie.indexOf("=") + 1;
      Werten = document.cookie.indexOf("d");
      if(Werten == -1) Werten = document.cookie.length;
      WerA = document.cookie.substring(Wertst,Werten);
     }
     return WerA;
    }

function WertSet(BezA,WerA,Verfall)
    {
     var jetzt = new Date();
     var Auszeit = new Date(jetzt.getTime() + Verfall);
     var Dtag = jetzt.getDate();
     var Dmon = jetzt.getMonth() + 1;
     var Dst = jetzt.getHours();
     document.cookie=BezA+"="+WerA+"d"+Dtag+"mn"+Dmon+"st"+Dst+"; expires="+Auszeit.toGMTString()+";";
    }

function Zaestand() 
    {
     var Verfallszeit = 1000*60*60*24*365;
     var Anzahl = WertHol();
     var Zae = 0;
     if(Anzahl != "") Zae = parseInt(Anzahl);
     if(document.cookie)
     {
      Zae = Zae + 1;
     WertSet("Zae",Zae,Verfallszeit);
     } 
     else 
     {
      Zae = 1;
      WertSet("Zae",Zae,Verfallszeit);
     } 
    return Zae;
    }