Numerologie

Quelltext von numero1.html

Im folgenden Quelltext sind wichtige Bereiche rot markiert.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="content-language" content="de">
<title>Numerologie</title>
<script type="text/javascript">
<!--
var nummern=new Array();
var kette,i,j,ebene,nummer;

function quersum()
{
  nummer=0;
  j=0;
  for (i=0;i<nummern.length;i++)
  {
    if (nummern[i]!=0)
      nummer+=nummern[i];
    else
    {
      nummern[j]=nummer;
      nummer=0;
      j++;
    }
  }
  nummern[j]=nummer;
  j++;
  nummern.length=j;
}

function querquersum()
{
  for (i=0;i<nummern.length;i++)
  {
    nummer=0;
    while (nummern[i]>0)
    {
      nummer+=nummern[i]%10;
      nummern[i]=Math.floor(nummern[i]/10);
    }
    nummern[i]=nummer;
  }
}

function numer()
{
  kette=document.numerologie.zeichenkette.value;
  kette=kette.toUpperCase();
  for (i=0;i<kette.length;i++)
  {
    nummern[i]=kette.charCodeAt(i)-64;
    if (nummern[i]<0)
      nummern[i]=0;
    if (nummern[i]>26)
      nummern[i]=0;
  }
  nummern.length=kette.length;
  ebene="";
  for (i=0;i<nummern.length;i++)
  {
    if (nummern[i]!=0)
      ebene=ebene+nummern[i]+" ";
    else
      ebene=ebene+" ";
  }
  document.numerologie.ebene1.value=ebene;
  quersum();
  ebene="";
  for (i=0;i<nummern.length;i++)
    ebene=ebene+nummern[i]+" ";
  document.numerologie.ebene2.value=ebene;
  querquersum();
  ebene="";
  for (i=0;i<nummern.length;i++)
    ebene=ebene+nummern[i]+" ";
  document.numerologie.ebene3.value=ebene;
  querquersum();
  ebene="";
  for (i=0;i<nummern.length;i++)
    ebene=ebene+nummern[i]+" ";
  document.numerologie.ebene4.value=ebene;
}
//-->
</script>
</head>
<body style="background:#FFFFFF" text="#000000" link="#600080" vlink="#000080" alink="#FF0000" onLoad="numer();">
<table cellpadding="10" cellspacing="5" border="0" width="100%">
<tr><td>
<a name="a0"></a>
<h1 align="center">Numerologie (Faktor 1)</h1>
<p align="center">
basierend auf dem lateinischen Alphabet (ohne Sonderzeichen) und dem dezimalen Zahlensystem
</p>
</td></tr>
<tr><td style="background:#E0E0E0">
<a name="a1"></a>
<a href="index.html">Index</a>
</td></tr>
<tr><td align="center">
<form name="numerologie">
<table cellpadding="3" cellspacing="2" border="0" align="center">
<tr><th colspan="2" style="background:#D0F0D0">
Namen eintippen und dann auf "berechnen" klicken
</td></tr>
<tr><td align="right" style="background:#F0E0F0"> Name: </td><td style="background:#FFE0D0">
<input name="zeichenkette" size="30" value="Unwort">
</td></tr>
<tr><td align="right" style="background:#E0E0F0"> Nummern: </td><td style="background:#F0F0D0">
<input name="ebene1" size="30" readonly>
</td></tr>
<tr><td align="right" style="background:#E0E0F0"> Quersumme: </td><td style="background:#F0F0D0">
<input name="ebene2" size="30" readonly>
</td></tr>
<tr><td align="right" style="background:#E0E0F0"> Quersumme: </td><td style="background:#F0F0D0">
<input name="ebene3" size="30" readonly>
</td></tr>
<tr><td align="right" style="background:#E0E0F0"> Quersumme: </td><td style="background:#F0F0D0">
<input name="ebene4" size="30" readonly>
</td></tr>
<tr><td align="center" colspan="2" style="background:#D0F0D0">
<input type="button" value="berechnen" onClick="numer();">
</td></tr>
</table>
</form>
</td></tr>
<tr><td>
<table cellpadding="2" cellspacing="2" border="0" align="center">
<tr><td>A=1</td><td>B=2</td><td>C=3</td><td>D=4</td><td>E=5</td>
<td>F=6</td><td>G=7</td><td>H=8</td><td>I=9</td><td>J=10</td></tr>
<tr><td>K=11</td><td>L=12</td><td>M=13</td><td>N=14</td><td>O=15</td>
<td>P=16</td><td>Q=17</td><td>R=18</td><td>S=19</td><td>T=20</td></tr>
<tr><td>U=21</td><td>V=22</td><td>W=23</td><td>X=24</td><td>Y=25</td>
<td>Z=26</td><td></td><td></td><td></td><td></td></tr>
</table>
</td></tr>
</table>
</body>
</html>
Autor: Ulrich Kritzner