![[tokkee]](http://tokkee.org/images/avatar.png){kind=avatar}
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 72e2033)
raw | patch | inline | side by side (parent: 72e2033)
| author | cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
| Thu, 11 Oct 2007 13:07:38 +0000 (13:07 +0000) | ||
| committer | cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
| Thu, 11 Oct 2007 13:07:38 +0000 (13:07 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@7517 594d385d-05f5-0310-b6e9-bd551577e9d8
| include/heimdal/asnencode.php | [deleted file] | patch | blob | history |
| include/heimdal/deslib.php | [deleted file] | patch | blob | history |
| include/heimdal/genkey.php | [deleted file] | patch | blob | history |
| include/heimdal/mkey.php | [deleted file] | patch | blob | history |
| include/heimdal/test.php | [deleted file] | patch | blob | history |
diff --git a/include/heimdal/asnencode.php b/include/heimdal/asnencode.php
+++ /dev/null
@@ -1,194 +0,0 @@
-<?php
-/*
- * asnencode.php,v 1.0 2006/08/25 21:00:00
- *
- * Copyright 2006 Alejandro Escanero Blanco <aescanero@chaosdimension.org>
- *
- * See the enclosed file COPYING for license information (GPL). If you
- * did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
- */
-
-
-class stream{
-
- var $stream;
- var $len;
-
- function stream(){
- $this->stream=array();
- $len=0;
- }
-
- function writeVal($val){
- $val=($val & 0xff); //Only one byte
- array_push($this->stream,$val);
- $this->len++;
- }
-
- function writeArray($arr){
- foreach ($arr as $val)
- array_push($this->stream,$val);
-
- $this->len+=count($arr);
- }
-
- function writeStream($stream){
- $str=$stream->getStream();
-// print_r($this->stream);
- foreach ($str as $val)
- array_push($this->stream,$val);
- $this->len+=count($str);
- }
-
- function writeOctetString($os){
- $len=strlen($os);
- $arr=array($len);
- for($i=0;$i<$len;$i++) $arr[$i]=ord(substr($os,$i,1));
- $this->writeArray($arr);
- }
-
- function getStream(){
- return($this->stream);
- }
-
- function getLen(){
- return($this->len);
- }
-
- function printOut($debug=false,$msg=""){
- if($debug) printf("%s len: %d\n",$msg,$this->len);
-// print_r($this->stream);
- $stringh="";
- for ($i=0;$i<$this->len;$i++) $stringh.=sprintf(" %d %02x\n",$i,$this->stream[$i]);
- printf("%s ASN: %s\n",$msg,$stringh);
- }
-
- function printString($debug=false,$msg=""){
- $stringh="";
- for ($i=0;$i<$this->len;$i++) $stringh.=chr($this->stream[$i]);
- return($stringh);
- }
-};
-
-
-class asnEncode{
-
- var $stream;
-
- function asnEncode(){
- $this->stream=new stream();
- }
-
- function encodeOctetString($os){
- $len=strlen($os);
- $this->encodeTag(UNIVERSAL,OCTET_STRING,false,&$this->stream);
- $this->encodeLen($len,&$this->stream);
- $this->stream->writeOctetString($os);
- }
-
- function encodeTag($clazz,$value,$constructed,$stream){
- if ($constructed)
- $clazz |= 0x20;
- if ($value < 0x1F){
- $stream->writeVal($clazz | $value);
- } else {
- $stream->writeVal($clazz | 0x1F);
- $clazz = $value;
- while ($clazz > 63) {
- $stream->writeVal(63);
- $clazz -= 63;
- }
- $stream->writeVal($clazz);
- }
- return($stream);
- }
-
- function encodeInteger($val){
-
- $dh=dechex($val);
- $ldh=strlen($dh);
- if($ldh%2 !=0){
- $ldh="0".$ldh;
- $ldh++;
- }
- $cero=0;
- if($i==0)
- if(hexdec(substr($dh,0,2))>127) $cero=1;
- $this->encodeTag(UNIVERSAL,INTEGER,false,&$this->stream);
- $this->encodeLen(($ldh/2)+$cero,&$this->stream);
- for($i=0;$i<($ldh/2);$i++){
- if($i==0 && $cero==1) $this->stream->writeVal(0);
- $this->stream->writeVal(hexdec(substr($dh,$i*2,2)));
- }
- }
-
-
- function encodeLen($val,$stream){
- if ($val < 128) { // short definite form
- $stream->writeVal($val);
- return;
- }
- if ($val < 256) { // long definite form
- //$this->stream->writeVal(-127);
- $stream->writeVal(0x81);
- $stream->writeVal($val);
- return;
- }
- if ($val < 65536) {
- //$this->stream->writeVal(-126);
- $stream->writeVal(0x80);
- $stream->writeVal($val >> 8);
- $stream->writeVal($val);
- return;
- }
- if ($val < 16777216) {
- //$this->stream->writeVal(-125);
- $stream->writeVal(0x79);
- $stream->writeVal($val >> 16);
- $stream->writeVal($val >> 8);
- $stream->writeVal($val);
- return;
- }
- //$this->stream->writeVal(-124);
- $stream->writeVal(0x78);
- $stream->writeVal($val >> 24);
- $stream->writeVal($val >> 16);
- $stream->writeVal($val >> 8);
- $stream->writeVal($val);
- return($stream);
- }
-
- function printOut(){
- $this->stream->printOut();
- }
-
- function printString(){
- return($this->stream->printString());
- }
-
- function getStream(){
- return($this->stream);
- }
-
- function encodeSequence($ix,$stream){
- $hix=0xa0+$ix;
- $len=$stream->getLen();
- $local=new stream();
- $local->writeVal($hix);
- $this->encodeLen($len,&$local);
- $local->writeStream($stream);
- $this->stream->writeStream($local);
- return($local);
- }
-
- function encodeObject($tag,$stream){
- $len=$stream->getLen();
- //$this->encodeTag(UNIVERSAL,$tag,false,&$this->stream);
- $this->stream->writeVal($tag);
- $this->encodeLen($len,&$this->stream);
- $this->stream->writeStream($stream);
- }
-
-};
-
-?>
diff --git a/include/heimdal/deslib.php b/include/heimdal/deslib.php
+++ /dev/null
@@ -1,1128 +0,0 @@
-<?php
-/*
- * deslib.php,v 1.0 2006/08/25 21:00:00
- *
- * Copyright 2006 Alejandro Escanero Blanco <aescanero@chaosdimension.org>
- *
- * See the enclosed file COPYING for license information (GPL). If you
- * did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
- */
-
-
-class Des{
-
- var $in;
- var $out;
- var $key;
- var $schedule1;
- var $schedule2;
- var $schedule3;
-
- function add1($a,$b,$len){
- $carry=0;
- for ($i=$len-1;$i>=0;$i--){
- $x=$a[$i]+$b[$i]+$carry;
- if($x > 0xff) $carry=1;else $carry=0;
- $a[$i] = $x & 0xff;
- }
- for($i = $len - 1; $carry!=0 && $i!=0; $i--){
- $x = $a[$i] + $carry;
- if($x > 0xff) $carry=1;else $carry=0;
- $a[$i] = $x & 0xff;
- }
- return ($a);
- }
-
- function _krb5_n_fold($str,$size){ //str=passREALMname
- $len=strlen($str);
- if($size>$len) $maxlen=2*$size;
- else $maxlen=2*$len;
- $l=0;
- $key=array($size);
- $tmp=array($maxlen);
- $tmpi=0;
- for ($i=0;$i<$maxlen;$i++) $tmp[$i]=0;
- for ($i=0;$i<$size;$i++) $key[$i]=0;
- $buf=$str;
- do{
- for ($i=0; $i<$len;$i++) $tmp[$tmpi+$l+$i]=ord(substr($buf,$i,1));
- $l+=$len;
- $buf=$this->srr13($buf,strlen($buf)*8);
- while($l>=$size){
- $key=$this->add1($key,$tmp,$size);
- $l-=$size;
- if($l==0) break;
- for ($i=0;$i<$l;$i++) $tmp[$i]=$tmp[$i+$size];
- }
- }while ($l!=0);
-/* $stringh="";
- for($i=0;$i<$size;$i++) $stringh.=sprintf("%02x",$key[$i]);
- print "EKEY: ".$stringh."\n";*/
- $skey="";
- for($i=0;$i<$size;$i++) $skey.=chr($key[$i]);
- return($skey);
- }
-
- function srr13($sbuf,$len){
-
- $buf=array(strlen($sbuf));
- for($i=0;$i<strlen($sbuf);$i++) $buf[$i]=ord(substr($sbuf,$i,1));
- $bytes = floor(($len + 7) / 8);
- $tmp=array($bytes);
- for($i=0;$i<$bytes;$i++) $tmp[$i]=0;
-
- $bits = 13 % $len;
- $lbit = $len % 8;
- for($i=0;$i<$bytes;$i++) $tmp[$i]=$buf[$i];
- if($lbit!=0){
- $tmp[$bytes - 1] &= (0xff << (8 - $lbit));
- for($i = $lbit; $i < 8; $i += $len)
- $tmp[$bytes - 1] |= $buf[0] >> $i;
- }
- for($i = 0; $i < $bytes; $i++) {
- $bb = 8 * $i - $bits;
- while($bb < 0)
- $bb += $len;
- $b1 = floor($bb / 8);
- $s1 = $bb % 8;
-
- if($bb + 8 > $bytes * 8)
- $s2 = ($len + 8 - $s1) % 8;
- else
- $s2 = 8 - $s1;
- $b2 = ($b1 + 1) % $bytes;
- $buf[$i] = (($tmp[$b1]) << $s1) | (($tmp[$b2]) >> $s2);
- }
- $slen=strlen($sbuf);
- $sbuf="";
- for($i=0;$i<$slen;$i++) $sbuf.=chr($buf[$i]);
- return($sbuf);
-
- }
-
- function load($achar,$aint){ //Array=char(8), Array=int32(2)
- $aint[0] = $achar[0] << 24;
- $aint[0] |= $achar[1] << 16;
- $aint[0] |= $achar[2] << 8;
- $aint[0] |= $achar[3] << 0;
- $aint[1] = $achar[4] << 24;
- $aint[1] |= $achar[5] << 16;
- $aint[1] |= $achar[6] << 8;
- $aint[1] |= $achar[7] << 0;
- }
-
- function store($aint,$achar){ //Array=int32(2),Array=char(8)
- $achar[0] = ($aint[0] >> 24) & 0xff;
- $achar[1] = ($aint[0] >> 16) & 0xff;
- $achar[2] = ($aint[0] >> 8) & 0xff;
- $achar[3] = ($aint[0] >> 0) & 0xff;
- $achar[4] = ($aint[1] >> 24) & 0xff;
- $achar[5] = ($aint[1] >> 16) & 0xff;
- $achar[6] = ($aint[1] >> 8) & 0xff;
- $achar[7] = ($aint[1] >> 0) & 0xff;
- }
-
- function IP($v){ //v=Array int(2)
- $work=0;
- $work = (($v[0] >> 4) ^ $v[1]) & 0x0f0f0f0f;
- $v[1] ^= $work;
- $v[0] ^= ($work << 4);
- $work = (($v[0] >> 16) ^ $v[1]) & 0x0000ffff;
- $v[1] ^= $work;
- $v[0] ^= ($work << 16);
- $work = (($v[1] >> 2) ^ $v[0]) & 0x33333333;
- $v[0] ^= $work;
- $v[1] ^= ($work << 2);
- $work = (($v[1] >> 8) ^ $v[0]) & 0x00ff00ff;
- $v[0] ^= $work;
- $v[1] ^= ($work << 8);
- $v[1] = (($v[1] << 1) | (($v[1] >> 31) & 1)) & 0xffffffff;
- $work = ($v[0] ^ $v[1]) & 0xaaaaaaaa;
- $v[0] ^= $work;
- $v[1] ^= $work;
- $v[0] = (($v[0] << 1) | (($v[0] >> 31) & 1)) & 0xffffffff;
- }
-
- function FP($v){ //v=Array int(2)
-
- $work=0;
-
- $v[0] = ($v[0] << 31) | (($v[0] >> 1) & 0x7fffffff);
- $work = ($v[1] ^ $v[0]) & 0xaaaaaaaa;
- $v[1] ^= $work;
- $v[0] ^= $work;
- $v[1] = ($v[1] << 31) | (($v[1] >> 1) & 0x7fffffff);
- $work = (($v[1] >> 8) ^ $v[0]) & 0x00ff00ff;
- $v[0] ^= $work;
- $v[1] ^= ($work << 8);
- $work = (($v[1] >> 2) ^ $v[0]) & 0x33333333;
- $v[0] ^= $work;
- $v[1] ^= ($work << 2);
- $work = (($v[0] >> 16) ^ $v[1]) & 0x0000ffff;
- $v[1] ^= $work;
- $v[0] ^= ($work << 16);
- $work = (($v[0] >> 4) ^ $v[1]) & 0x0f0f0f0f;
- $v[1] ^= $work;
- $v[0] ^= ($work << 4);
- }
-
- function desx($aint,$ks,$comp){
- $SP = array(
- array(
- 0x01010400, 0x00000000, 0x00010000, 0x01010404,
- 0x01010004, 0x00010404, 0x00000004, 0x00010000,
- 0x00000400, 0x01010400, 0x01010404, 0x00000400,
- 0x01000404, 0x01010004, 0x01000000, 0x00000004,
- 0x00000404, 0x01000400, 0x01000400, 0x00010400,
- 0x00010400, 0x01010000, 0x01010000, 0x01000404,
- 0x00010004, 0x01000004, 0x01000004, 0x00010004,
- 0x00000000, 0x00000404, 0x00010404, 0x01000000,
- 0x00010000, 0x01010404, 0x00000004, 0x01010000,
- 0x01010400, 0x01000000, 0x01000000, 0x00000400,
- 0x01010004, 0x00010000, 0x00010400, 0x01000004,
- 0x00000400, 0x00000004, 0x01000404, 0x00010404,
- 0x01010404, 0x00010004, 0x01010000, 0x01000404,
- 0x01000004, 0x00000404, 0x00010404, 0x01010400,
- 0x00000404, 0x01000400, 0x01000400, 0x00000000,
- 0x00010004, 0x00010400, 0x00000000, 0x01010004
- ),
- array(
- 0x80108020, 0x80008000, 0x00008000, 0x00108020,
- 0x00100000, 0x00000020, 0x80100020, 0x80008020,
- 0x80000020, 0x80108020, 0x80108000, 0x80000000,
- 0x80008000, 0x00100000, 0x00000020, 0x80100020,
- 0x00108000, 0x00100020, 0x80008020, 0x00000000,
- 0x80000000, 0x00008000, 0x00108020, 0x80100000,
- 0x00100020, 0x80000020, 0x00000000, 0x00108000,
- 0x00008020, 0x80108000, 0x80100000, 0x00008020,
- 0x00000000, 0x00108020, 0x80100020, 0x00100000,
- 0x80008020, 0x80100000, 0x80108000, 0x00008000,
- 0x80100000, 0x80008000, 0x00000020, 0x80108020,
- 0x00108020, 0x00000020, 0x00008000, 0x80000000,
- 0x00008020, 0x80108000, 0x00100000, 0x80000020,
- 0x00100020, 0x80008020, 0x80000020, 0x00100020,
- 0x00108000, 0x00000000, 0x80008000, 0x00008020,
- 0x80000000, 0x80100020, 0x80108020, 0x00108000
- ),
- array(
- 0x00000208, 0x08020200, 0x00000000, 0x08020008,
- 0x08000200, 0x00000000, 0x00020208, 0x08000200,
- 0x00020008, 0x08000008, 0x08000008, 0x00020000,
- 0x08020208, 0x00020008, 0x08020000, 0x00000208,
- 0x08000000, 0x00000008, 0x08020200, 0x00000200,
- 0x00020200, 0x08020000, 0x08020008, 0x00020208,
- 0x08000208, 0x00020200, 0x00020000, 0x08000208,
- 0x00000008, 0x08020208, 0x00000200, 0x08000000,
- 0x08020200, 0x08000000, 0x00020008, 0x00000208,
- 0x00020000, 0x08020200, 0x08000200, 0x00000000,
- 0x00000200, 0x00020008, 0x08020208, 0x08000200,
- 0x08000008, 0x00000200, 0x00000000, 0x08020008,
- 0x08000208, 0x00020000, 0x08000000, 0x08020208,
- 0x00000008, 0x00020208, 0x00020200, 0x08000008,
- 0x08020000, 0x08000208, 0x00000208, 0x08020000,
- 0x00020208, 0x00000008, 0x08020008, 0x00020200
- ),
- array(
- 0x00802001, 0x00002081, 0x00002081, 0x00000080,
- 0x00802080, 0x00800081, 0x00800001, 0x00002001,
- 0x00000000, 0x00802000, 0x00802000, 0x00802081,
- 0x00000081, 0x00000000, 0x00800080, 0x00800001,
- 0x00000001, 0x00002000, 0x00800000, 0x00802001,
- 0x00000080, 0x00800000, 0x00002001, 0x00002080,
- 0x00800081, 0x00000001, 0x00002080, 0x00800080,
- 0x00002000, 0x00802080, 0x00802081, 0x00000081,
- 0x00800080, 0x00800001, 0x00802000, 0x00802081,
- 0x00000081, 0x00000000, 0x00000000, 0x00802000,
- 0x00002080, 0x00800080, 0x00800081, 0x00000001,
- 0x00802001, 0x00002081, 0x00002081, 0x00000080,
- 0x00802081, 0x00000081, 0x00000001, 0x00002000,
- 0x00800001, 0x00002001, 0x00802080, 0x00800081,
- 0x00002001, 0x00002080, 0x00800000, 0x00802001,
- 0x00000080, 0x00800000, 0x00002000, 0x00802080
- ),
- array(
- 0x00000100, 0x02080100, 0x02080000, 0x42000100,
- 0x00080000, 0x00000100, 0x40000000, 0x02080000,
- 0x40080100, 0x00080000, 0x02000100, 0x40080100,
- 0x42000100, 0x42080000, 0x00080100, 0x40000000,
- 0x02000000, 0x40080000, 0x40080000, 0x00000000,
- 0x40000100, 0x42080100, 0x42080100, 0x02000100,
- 0x42080000, 0x40000100, 0x00000000, 0x42000000,
- 0x02080100, 0x02000000, 0x42000000, 0x00080100,
- 0x00080000, 0x42000100, 0x00000100, 0x02000000,
- 0x40000000, 0x02080000, 0x42000100, 0x40080100,
- 0x02000100, 0x40000000, 0x42080000, 0x02080100,
- 0x40080100, 0x00000100, 0x02000000, 0x42080000,
- 0x42080100, 0x00080100, 0x42000000, 0x42080100,
- 0x02080000, 0x00000000, 0x40080000, 0x42000000,
- 0x00080100, 0x02000100, 0x40000100, 0x00080000,
- 0x00000000, 0x40080000, 0x02080100, 0x40000100
- ),
- array(
- 0x20000010, 0x20400000, 0x00004000, 0x20404010,
- 0x20400000, 0x00000010, 0x20404010, 0x00400000,
- 0x20004000, 0x00404010, 0x00400000, 0x20000010,
- 0x00400010, 0x20004000, 0x20000000, 0x00004010,
- 0x00000000, 0x00400010, 0x20004010, 0x00004000,
- 0x00404000, 0x20004010, 0x00000010, 0x20400010,
- 0x20400010, 0x00000000, 0x00404010, 0x20404000,
- 0x00004010, 0x00404000, 0x20404000, 0x20000000,
- 0x20004000, 0x00000010, 0x20400010, 0x00404000,
- 0x20404010, 0x00400000, 0x00004010, 0x20000010,
- 0x00400000, 0x20004000, 0x20000000, 0x00004010,
- 0x20000010, 0x20404010, 0x00404000, 0x20400000,
- 0x00404010, 0x20404000, 0x00000000, 0x20400010,
- 0x00000010, 0x00004000, 0x20400000, 0x00404010,
- 0x00004000, 0x00400010, 0x20004010, 0x00000000,
- 0x20404000, 0x20000000, 0x00400010, 0x20004010
- ),
- array(
- 0x00200000, 0x04200002, 0x04000802, 0x00000000,
- 0x00000800, 0x04000802, 0x00200802, 0x04200800,
- 0x04200802, 0x00200000, 0x00000000, 0x04000002,
- 0x00000002, 0x04000000, 0x04200002, 0x00000802,
- 0x04000800, 0x00200802, 0x00200002, 0x04000800,
- 0x04000002, 0x04200000, 0x04200800, 0x00200002,
- 0x04200000, 0x00000800, 0x00000802, 0x04200802,
- 0x00200800, 0x00000002, 0x04000000, 0x00200800,
- 0x04000000, 0x00200800, 0x00200000, 0x04000802,
- 0x04000802, 0x04200002, 0x04200002, 0x00000002,
- 0x00200002, 0x04000000, 0x04000800, 0x00200000,
- 0x04200800, 0x00000802, 0x00200802, 0x04200800,
- 0x00000802, 0x04000002, 0x04200802, 0x04200000,
- 0x00200800, 0x00000000, 0x00000002, 0x04200802,
- 0x00000000, 0x00200802, 0x04200000, 0x00000800,
- 0x04000002, 0x04000800, 0x00000800, 0x00200002
- ),
- array(
- 0x10001040, 0x00001000, 0x00040000, 0x10041040,
- 0x10000000, 0x10001040, 0x00000040, 0x10000000,
- 0x00040040, 0x10040000, 0x10041040, 0x00041000,
- 0x10041000, 0x00041040, 0x00001000, 0x00000040,
- 0x10040000, 0x10000040, 0x10001000, 0x00001040,
- 0x00041000, 0x00040040, 0x10040040, 0x10041000,
- 0x00001040, 0x00000000, 0x00000000, 0x10040040,
- 0x10000040, 0x10001000, 0x00041040, 0x00040000,
- 0x00041040, 0x00040000, 0x10041000, 0x00001000,
- 0x00000040, 0x10040040, 0x00001000, 0x00041040,
- 0x10001000, 0x00000040, 0x10000040, 0x10040000,
- 0x10040040, 0x10000000, 0x00040000, 0x10001040,
- 0x00000000, 0x10041040, 0x00040040, 0x10000040,
- 0x10040000, 0x10001000, 0x10001040, 0x00000000,
- 0x10041040, 0x00041000, 0x00041000, 0x00001040,
- 0x00001040, 0x00040040, 0x10000000, 0x10041000
- )
- );
-
- $left = $aint[0];
- $right = $aint[1];
- $fval=0;
- $work=0;
-
- if ($comp) {
- $keyix=0;
- $keys = $ks[$keyix];
-
- for( $i = 0; $i < 8; $i++ ) {
- $work = ($right << 28) | (($right >> 4) & 0x0fffffff);
- $work ^= $ks[$keyix];$keyix++;
-
- $fval = $SP[6][ $work & 0x3f];
- $fval |= $SP[4][($work >> 8) & 0x3f];
- $fval |= $SP[2][($work >> 16) & 0x3f];
- $fval |= $SP[0][($work >> 24) & 0x3f];
-
- $work = $right ^ $ks[$keyix];$keyix++;
- $fval |= $SP[7][ $work & 0x3f];
- $fval |= $SP[5][($work >> 8) & 0x3f];
- $fval |= $SP[3][($work >> 16) & 0x3f];
- $fval |= $SP[1][($work >> 24) & 0x3f];
-
- $left ^= $fval;
- $work = ($left << 28) | (($left >> 4) & 0x0fffffff);
- $work ^= $ks[$keyix];$keyix++;
- $fval = $SP[6][ $work & 0x3f];
- $fval |= $SP[4][($work >> 8) & 0x3f];
- $fval |= $SP[2][($work >> 16) & 0x3f];
- $fval |= $SP[0][($work >> 24) & 0x3f];
- $work = $left ^ $ks[$keyix];$keyix++;
- $fval |= $SP[7][ $work & 0x3f];
- $fval |= $SP[5][($work >> 8) & 0x3f];
- $fval |= $SP[3][($work >> 16) & 0x3f];
- $fval |= $SP[1][($work >> 24) & 0x3f];
- $right ^= $fval;
- }
- } else {
- $keyix=30;
- $keys = $ks[$keyix];
-
- for( $i = 0; $i < 8; $i++ ) {
- $work = ($right << 28) | (($right >> 4) & 0x0fffffff);
- $work ^= $ks[$keyix];$keyix++;
- $fval = $SP[6][ $work & 0x3f];
- $fval |= $SP[4][($work >> 8) & 0x3f];
- $fval |= $SP[2][($work >> 16) & 0x3f];
- $fval |= $SP[0][($work >> 24) & 0x3f];
- $work = $right ^ $ks[$keyix];$keyix++;
- $fval |= $SP[7][ $work & 0x3f];
- $fval |= $SP[5][($work >> 8) & 0x3f];
- $fval |= $SP[3][($work >> 16) & 0x3f];
- $fval |= $SP[1][($work >> 24) & 0x3f];
- $left ^= $fval;
- $work = ($left << 28) | (($left >> 4) & 0x0fffffff);
- $keyix -= 4;
- $work ^= $ks[$keyix];$keyix++;
- $fval = $SP[6][ $work & 0x3f];
- $fval |= $SP[4][($work >> 8) & 0x3f];
- $fval |= $SP[2][($work >> 16) & 0x3f];
- $fval |= $SP[0][($work >> 24) & 0x3f];
- $work = $left ^ $ks[$keyix];$keyix++;
- $fval |= $SP[7][ $work & 0x3f];
- $fval |= $SP[5][($work >> 8) & 0x3f];
- $fval |= $SP[3][($work >> 16) & 0x3f];
- $fval |= $SP[1][($work >> 24) & 0x3f];
- $right ^= $fval;
- $keyix -= 4;
- }
- }
- $aint[0] = $right;
- $aint[1] = $left;
- }
-
-
- function _des3_encrypt($aint,$ks1,$ks2,$ks3,$comp){
- $this->IP(&$aint);
- if($comp){
- $this->desx(&$aint,&$ks1,true);
- $this->desx(&$aint,&$ks2,false);
- $this->desx(&$aint,&$ks3,true);
- }else{
- $this->desx(&$aint,&$ks1,false);
- $this->desx(&$aint,&$ks2,true);
- $this->desx(&$aint,&$ks3,false);
- }
- $this->FP(&$aint);
- }
-
- function DES_ede3_cbc_encrypt($chain,$comp,$ks1,$ks2,$ks3,$ixlen){
-
- $n_fold_key=$ch_input;
- $size=$ixlen;
-
- $ivec=array(8);
- for ($i=0;$i<8;$i++) $ivec[$i]=chr(0);
- $uiv=array(2);$uiv[0]=0;$uiv[1]=0;
- $this->load($ivec,&$uiv);
-// $stringh="";
-// for($i=0;$i<$ixlen;$i++) $stringh.=sprintf("%02x",$chain[$i]);
-// print "PREINPUT: $ixlen ".$stringh."\n";
-
- $ix=0;
- $input=array(8); for($i=0;$i<8;$i++) $input[$i]=$chain[$i+$ix];
-
- $output=&$input;
- $u=array(2);$u[0]=0;$u[1]=0;
- if($comp){
- while($ixlen>=8){
- $this->load($input,&$u);
- $u[0] ^=$uiv[0];
- $u[1] ^=$uiv[1];
- $this->_des3_encrypt(&$u,$ks1,$ks2,$ks3, true);
- $uiv[0]=$u[0];$uiv[1]=$u[1];
- $this->store($u,&$output);
-
- $ixlen-=8;
- for($i=0;$i<8;$i++) $chain[$i+$ix]=$output[$i];
- $ix+=8;
- for($i=0;$i<8;$i++) $input[$i]=$chain[$i+$ix];
- }
- if($ixlen>0){
- $tmp=array(8);
- for($i=0;$i<$ixlen;$i++) $input[$i]=$chain[$i+$ix];
- for($i=$ixlen;$i<8;$i++) $input[$i]=0;
- $this->load($input,&$u);
- $u[0] ^= $uiv[0]; $u[1] ^= $uiv[1];
- $this->_des3_encrypt(&$u,$ks1,$ks2,$ks3, true);
- $this->store($u, &$output);
- for($i=0;$i<8;$i++) $chain[$i+$ix]=$output[$i];
- }
- }else{
- }
- $this->store($uiv, &$iv);
- $uiv[0] = 0; $u[0] = 0; $uiv[1] = 0; $u[1] = 0;
-// $stringh="";
-// for($i=0;$i<$size;$i++) $stringh.=sprintf("%02x",$chain[$i]);
-// print "CHAIN: $ixlen ".$stringh."\n";
- return($chain);
- }
-
- function get(){
- $stringh="";
- for($i=0;$i<strlen($this->out);$i++) $stringh.=sprintf("%02x",ord(substr($this->out,$i,1)));
- return($stringh);
- }
-
- function des_make_key_sched($key){
-
- $PC1_CL = array(
- 0x00000000, 0x00000010, 0x00001000, 0x00001010,
- 0x00100000, 0x00100010, 0x00101000, 0x00101010
- );
-
- $PC1_DL = array(
- 0x00000000, 0x00100000, 0x00001000, 0x00101000,
- 0x00000010, 0x00100010, 0x00001010, 0x00101010,
- 0x00000001, 0x00100001, 0x00001001, 0x00101001,
- 0x00000011, 0x00100011, 0x00001011, 0x00101011
- );
-
- $PC1_CR = array(
- 0x00000000, 0x00000001, 0x00000100, 0x00000101,
- 0x00010000, 0x00010001, 0x00010100, 0x00010101,
- 0x01000000, 0x01000001, 0x01000100, 0x01000101,
- 0x01010000, 0x01010001, 0x01010100, 0x01010101
- );
-
- $PC1_DR = array(
- 0x00000000, 0x01000000, 0x00010000, 0x01010000,
- 0x00000100, 0x01000100, 0x00010100, 0x01010100
- );
-
- $PC2_C = array(
- array(
- 0x00000000, 0x00004000, 0x00040000, 0x00044000,
- 0x00000100, 0x00004100, 0x00040100, 0x00044100,
- 0x00020000, 0x00024000, 0x00060000, 0x00064000,
- 0x00020100, 0x00024100, 0x00060100, 0x00064100,
- 0x00000001, 0x00004001, 0x00040001, 0x00044001,
- 0x00000101, 0x00004101, 0x00040101, 0x00044101,
- 0x00020001, 0x00024001, 0x00060001, 0x00064001,
- 0x00020101, 0x00024101, 0x00060101, 0x00064101,
- 0x00080000, 0x00084000, 0x000c0000, 0x000c4000,
- 0x00080100, 0x00084100, 0x000c0100, 0x000c4100,
- 0x000a0000, 0x000a4000, 0x000e0000, 0x000e4000,
- 0x000a0100, 0x000a4100, 0x000e0100, 0x000e4100,
- 0x00080001, 0x00084001, 0x000c0001, 0x000c4001,
- 0x00080101, 0x00084101, 0x000c0101, 0x000c4101,
- 0x000a0001, 0x000a4001, 0x000e0001, 0x000e4001,
- 0x000a0101, 0x000a4101, 0x000e0101, 0x000e4101
- ),
- array(
- 0x00000000, 0x00000002, 0x00000200, 0x00000202,
- 0x00200000, 0x00200002, 0x00200200, 0x00200202,
- 0x00001000, 0x00001002, 0x00001200, 0x00001202,
- 0x00201000, 0x00201002, 0x00201200, 0x00201202,
- 0x00000040, 0x00000042, 0x00000240, 0x00000242,
- 0x00200040, 0x00200042, 0x00200240, 0x00200242,
- 0x00001040, 0x00001042, 0x00001240, 0x00001242,
- 0x00201040, 0x00201042, 0x00201240, 0x00201242,
- 0x00000010, 0x00000012, 0x00000210, 0x00000212,
- 0x00200010, 0x00200012, 0x00200210, 0x00200212,
- 0x00001010, 0x00001012, 0x00001210, 0x00001212,
- 0x00201010, 0x00201012, 0x00201210, 0x00201212,
- 0x00000050, 0x00000052, 0x00000250, 0x00000252,
- 0x00200050, 0x00200052, 0x00200250, 0x00200252,
- 0x00001050, 0x00001052, 0x00001250, 0x00001252,
- 0x00201050, 0x00201052, 0x00201250, 0x00201252
- ),
- array(
- 0x00000000, 0x00000004, 0x00000400, 0x00000404,
- 0x00400000, 0x00400004, 0x00400400, 0x00400404,
- 0x00000020, 0x00000024, 0x00000420, 0x00000424,
- 0x00400020, 0x00400024, 0x00400420, 0x00400424,
- 0x00008000, 0x00008004, 0x00008400, 0x00008404,
- 0x00408000, 0x00408004, 0x00408400, 0x00408404,
- 0x00008020, 0x00008024, 0x00008420, 0x00008424,
- 0x00408020, 0x00408024, 0x00408420, 0x00408424,
- 0x00800000, 0x00800004, 0x00800400, 0x00800404,
- 0x00c00000, 0x00c00004, 0x00c00400, 0x00c00404,
- 0x00800020, 0x00800024, 0x00800420, 0x00800424,
- 0x00c00020, 0x00c00024, 0x00c00420, 0x00c00424,
- 0x00808000, 0x00808004, 0x00808400, 0x00808404,
- 0x00c08000, 0x00c08004, 0x00c08400, 0x00c08404,
- 0x00808020, 0x00808024, 0x00808420, 0x00808424,
- 0x00c08020, 0x00c08024, 0x00c08420, 0x00c08424
- ),
- array(
- 0x00000000, 0x00010000, 0x00000008, 0x00010008,
- 0x00000080, 0x00010080, 0x00000088, 0x00010088,
- 0x00100000, 0x00110000, 0x00100008, 0x00110008,
- 0x00100080, 0x00110080, 0x00100088, 0x00110088,
- 0x00000800, 0x00010800, 0x00000808, 0x00010808,
- 0x00000880, 0x00010880, 0x00000888, 0x00010888,
- 0x00100800, 0x00110800, 0x00100808, 0x00110808,
- 0x00100880, 0x00110880, 0x00100888, 0x00110888,
- 0x00002000, 0x00012000, 0x00002008, 0x00012008,
- 0x00002080, 0x00012080, 0x00002088, 0x00012088,
- 0x00102000, 0x00112000, 0x00102008, 0x00112008,
- 0x00102080, 0x00112080, 0x00102088, 0x00112088,
- 0x00002800, 0x00012800, 0x00002808, 0x00012808,
- 0x00002880, 0x00012880, 0x00002888, 0x00012888,
- 0x00102800, 0x00112800, 0x00102808, 0x00112808,
- 0x00102880, 0x00112880, 0x00102888, 0x00112888
- )
- );
-
- $PC2_D = array(
- array(
- 0x00000000, 0x00000080, 0x00002000, 0x00002080,
- 0x00000001, 0x00000081, 0x00002001, 0x00002081,
- 0x00200000, 0x00200080, 0x00202000, 0x00202080,
- 0x00200001, 0x00200081, 0x00202001, 0x00202081,
- 0x00020000, 0x00020080, 0x00022000, 0x00022080,
- 0x00020001, 0x00020081, 0x00022001, 0x00022081,
- 0x00220000, 0x00220080, 0x00222000, 0x00222080,
- 0x00220001, 0x00220081, 0x00222001, 0x00222081,
- 0x00000002, 0x00000082, 0x00002002, 0x00002082,
- 0x00000003, 0x00000083, 0x00002003, 0x00002083,
- 0x00200002, 0x00200082, 0x00202002, 0x00202082,
- 0x00200003, 0x00200083, 0x00202003, 0x00202083,
- 0x00020002, 0x00020082, 0x00022002, 0x00022082,
- 0x00020003, 0x00020083, 0x00022003, 0x00022083,
- 0x00220002, 0x00220082, 0x00222002, 0x00222082,
- 0x00220003, 0x00220083, 0x00222003, 0x00222083
- ),
- array(
- 0x00000000, 0x00000010, 0x00800000, 0x00800010,
- 0x00010000, 0x00010010, 0x00810000, 0x00810010,
- 0x00000200, 0x00000210, 0x00800200, 0x00800210,
- 0x00010200, 0x00010210, 0x00810200, 0x00810210,
- 0x00100000, 0x00100010, 0x00900000, 0x00900010,
- 0x00110000, 0x00110010, 0x00910000, 0x00910010,
- 0x00100200, 0x00100210, 0x00900200, 0x00900210,
- 0x00110200, 0x00110210, 0x00910200, 0x00910210,
- 0x00000004, 0x00000014, 0x00800004, 0x00800014,
- 0x00010004, 0x00010014, 0x00810004, 0x00810014,
- 0x00000204, 0x00000214, 0x00800204, 0x00800214,
- 0x00010204, 0x00010214, 0x00810204, 0x00810214,
- 0x00100004, 0x00100014, 0x00900004, 0x00900014,
- 0x00110004, 0x00110014, 0x00910004, 0x00910014,
- 0x00100204, 0x00100214, 0x00900204, 0x00900214,
- 0x00110204, 0x00110214, 0x00910204, 0x00910214
- ),
- array(
- 0x00000000, 0x00000400, 0x00001000, 0x00001400,
- 0x00080000, 0x00080400, 0x00081000, 0x00081400,
- 0x00000020, 0x00000420, 0x00001020, 0x00001420,
- 0x00080020, 0x00080420, 0x00081020, 0x00081420,
- 0x00004000, 0x00004400, 0x00005000, 0x00005400,
- 0x00084000, 0x00084400, 0x00085000, 0x00085400,
- 0x00004020, 0x00004420, 0x00005020, 0x00005420,
- 0x00084020, 0x00084420, 0x00085020, 0x00085420,
- 0x00000800, 0x00000c00, 0x00001800, 0x00001c00,
- 0x00080800, 0x00080c00, 0x00081800, 0x00081c00,
- 0x00000820, 0x00000c20, 0x00001820, 0x00001c20,
- 0x00080820, 0x00080c20, 0x00081820, 0x00081c20,
- 0x00004800, 0x00004c00, 0x00005800, 0x00005c00,
- 0x00084800, 0x00084c00, 0x00085800, 0x00085c00,
- 0x00004820, 0x00004c20, 0x00005820, 0x00005c20,
- 0x00084820, 0x00084c20, 0x00085820, 0x00085c20
- ),
- array(
- 0x00000000, 0x00000100, 0x00040000, 0x00040100,
- 0x00000040, 0x00000140, 0x00040040, 0x00040140,
- 0x00400000, 0x00400100, 0x00440000, 0x00440100,
- 0x00400040, 0x00400140, 0x00440040, 0x00440140,
- 0x00008000, 0x00008100, 0x00048000, 0x00048100,
- 0x00008040, 0x00008140, 0x00048040, 0x00048140,
- 0x00408000, 0x00408100, 0x00448000, 0x00448100,
- 0x00408040, 0x00408140, 0x00448040, 0x00448140,
- 0x00000008, 0x00000108, 0x00040008, 0x00040108,
- 0x00000048, 0x00000148, 0x00040048, 0x00040148,
- 0x00400008, 0x00400108, 0x00440008, 0x00440108,
- 0x00400048, 0x00400148, 0x00440048, 0x00440148,
- 0x00008008, 0x00008108, 0x00048008, 0x00048108,
- 0x00008048, 0x00008148, 0x00048048, 0x00048148,
- 0x00408008, 0x00408108, 0x00448008, 0x00448108,
- 0x00408048, 0x00408148, 0x00448048, 0x00448148
- )
- );
-
- $tmp=0;
- $kix=0;
-
- $tmp = ($key[$kix++]) <<24;
- $tmp |=($key[$kix++]) <<16;
- $tmp |=($key[$kix++]) <<8;
- $tmp |=($key[$kix++]);
-
-
- $c = $PC1_CL[($tmp >> 29) & 0x7]
- | ($PC1_CL[($tmp >> 21) & 0x7] << 1)
- | ($PC1_CL[($tmp >> 13) & 0x7] << 2)
- | ($PC1_CL[($tmp >> 5) & 0x7] << 3);
- $d = $PC1_DL[($tmp >> 25) & 0xf]
- | ($PC1_DL[($tmp >> 17) & 0xf] << 1)
- | ($PC1_DL[($tmp >> 9) & 0xf] << 2)
- | ($PC1_DL[($tmp >> 1) & 0xf] << 3);
-
-
- $tmp = ($key[$kix++]) <<24;
- $tmp |=($key[$kix++]) <<16;
- $tmp |=($key[$kix++]) <<8;
- $tmp |=($key[$kix++]);
-
- $c |= $PC1_CR[($tmp >> 28) & 0xf]
- | ($PC1_CR[($tmp >> 20) & 0xf] << 1)
- | ($PC1_CR[($tmp >> 12) & 0xf] << 2)
- | ($PC1_CR[($tmp >> 4) & 0xf] << 3);
- $d |= $PC1_DR[($tmp >> 25) & 0x7]
- | ($PC1_DR[($tmp >> 17) & 0x7] << 1)
- | ($PC1_DR[($tmp >> 9) & 0x7] << 2)
- | ($PC1_DR[($tmp >> 1) & 0x7] << 3);
-
- $two_bit_shifts = TWO_BIT_SHIFTS;
- $lix=0;
- for ($i = 16; $i > 0; $i--) {
-
- if ($two_bit_shifts & 0x1) {
- $c = (($c << 2) & 0xffffffc) | ($c >> 26);
- $d = (($d << 2) & 0xffffffc) | ($d >> 26);
- } else {
- $c = (($c << 1) & 0xffffffe) | ($c >> 27);
- $d = (($d << 1) & 0xffffffe) | ($d >> 27);
- }
- $two_bit_shifts >>= 1;
- $ltmp = $PC2_C[0][(($c >> 22) & 0x3f)]
- | $PC2_C[1][(($c >> 15) & 0xf) | (($c >> 16) & 0x30)]
- | $PC2_C[2][(($c >> 8) & 0x3) | (($c >> 9) & 0x3c)]
- | $PC2_C[3][(($c >> 2 ) & 0x20) | (($c >> 1) & 0x18) | ($c & 0x7)];
- $rtmp = $PC2_D[0][(($d >> 22) & 0x3f)]
- | $PC2_D[1][(($d >> 14) & 0xf) | (($d >> 15) & 0x30)]
- | $PC2_D[2][(($d >> 7) & 0x3f)]
- | $PC2_D[3][(($d ) & 0x3) | (($d >> 1) & 0x3c)];
-
- $sch[$lix] = ($ltmp & 0x00fc0000) << 6;
- $sch[$lix] |= ($ltmp & 0x00000fc0) << 10;
- $sch[$lix] |= ($rtmp & 0x00fc0000) >> 10;
- $sch[$lix] |= ($rtmp & 0x00000fc0) >> 6;
- $lix++;
-
- $sch[$lix] = ($ltmp & 0x0003f000) << 12;
- $sch[$lix] |= ($ltmp & 0x0000003f) << 16;
- $sch[$lix] |= ($rtmp & 0x0003f000) >> 4;
- $sch[$lix] |= ($rtmp & 0x0000003f);
- $lix++;
- }
-
- return($sch);
- }
-
- function DES_set_odd_parity($in){
-
- $odd_parity=array(
- 1, 1, 2, 2, 4, 4, 7, 7, 8, 8, 11, 11, 13, 13, 14, 14,
- 16, 16, 19, 19, 21, 21, 22, 22, 25, 25, 26, 26, 28, 28, 31, 31,
- 32, 32, 35, 35, 37, 37, 38, 38, 41, 41, 42, 42, 44, 44, 47, 47,
- 49, 49, 50, 50, 52, 52, 55, 55, 56, 56, 59, 59, 61, 61, 62, 62,
- 64, 64, 67, 67, 69, 69, 70, 70, 73, 73, 74, 74, 76, 76, 79, 79,
- 81, 81, 82, 82, 84, 84, 87, 87, 88, 88, 91, 91, 93, 93, 94, 94,
- 97, 97, 98, 98,100,100,103,103,104,104,107,107,109,109,110,110,
- 112,112,115,115,117,117,118,118,121,121,122,122,124,124,127,127,
- 128,128,131,131,133,133,134,134,137,137,138,138,140,140,143,143,
- 145,145,146,146,148,148,151,151,152,152,155,155,157,157,158,158,
- 161,161,162,162,164,164,167,167,168,168,171,171,173,173,174,174,
- 176,176,179,179,181,181,182,182,185,185,186,186,188,188,191,191,
- 193,193,194,194,196,196,199,199,200,200,203,203,205,205,206,206,
- 208,208,211,211,213,213,214,214,217,217,218,218,220,220,223,223,
- 224,224,227,227,229,229,230,230,233,233,234,234,236,236,239,239,
- 241,241,242,242,244,244,247,247,248,248,251,251,253,253,254,254,
- );
-
- for($j=0;$j<8;$j++){
- $in[$j]=$odd_parity[$in[$j]];
- }
- return $in;
- }
-
- function DES3_set_odd_parity($in){
-
- $odd_parity=array(
- 1, 1, 2, 2, 4, 4, 7, 7, 8, 8, 11, 11, 13, 13, 14, 14,
- 16, 16, 19, 19, 21, 21, 22, 22, 25, 25, 26, 26, 28, 28, 31, 31,
- 32, 32, 35, 35, 37, 37, 38, 38, 41, 41, 42, 42, 44, 44, 47, 47,
- 49, 49, 50, 50, 52, 52, 55, 55, 56, 56, 59, 59, 61, 61, 62, 62,
- 64, 64, 67, 67, 69, 69, 70, 70, 73, 73, 74, 74, 76, 76, 79, 79,
- 81, 81, 82, 82, 84, 84, 87, 87, 88, 88, 91, 91, 93, 93, 94, 94,
- 97, 97, 98, 98,100,100,103,103,104,104,107,107,109,109,110,110,
- 112,112,115,115,117,117,118,118,121,121,122,122,124,124,127,127,
- 128,128,131,131,133,133,134,134,137,137,138,138,140,140,143,143,
- 145,145,146,146,148,148,151,151,152,152,155,155,157,157,158,158,
- 161,161,162,162,164,164,167,167,168,168,171,171,173,173,174,174,
- 176,176,179,179,181,181,182,182,185,185,186,186,188,188,191,191,
- 193,193,194,194,196,196,199,199,200,200,203,203,205,205,206,206,
- 208,208,211,211,213,213,214,214,217,217,218,218,220,220,223,223,
- 224,224,227,227,229,229,230,230,233,233,234,234,236,236,239,239,
- 241,241,242,242,244,244,247,247,248,248,251,251,253,253,254,254,
- );
- for($i=0;$i<3;$i++){
- for($j=0;$j<8;$j++){
- $in[($i*8)+$j]=$odd_parity[$in[($i*8)+$j]];
- }
- }
- return $in;
- }
-
- function des_is_weak_key($in){
-
- $weak_keys=array(
- /* weak keys */
- array(0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01),
- array(0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE),
- array(0x1F,0x1F,0x1F,0x1F,0x0E,0x0E,0x0E,0x0E),
- array(0xE0,0xE0,0xE0,0xE0,0xF1,0xF1,0xF1,0xF1),
- /* semi-weak keys */
- array(0x01,0xFE,0x01,0xFE,0x01,0xFE,0x01,0xFE),
- array(0xFE,0x01,0xFE,0x01,0xFE,0x01,0xFE,0x01),
- array(0x1F,0xE0,0x1F,0xE0,0x0E,0xF1,0x0E,0xF1),
- array(0xE0,0x1F,0xE0,0x1F,0xF1,0x0E,0xF1,0x0E),
- array(0x01,0xE0,0x01,0xE0,0x01,0xF1,0x01,0xF1),
- array(0xE0,0x01,0xE0,0x01,0xF1,0x01,0xF1,0x01),
- array(0x1F,0xFE,0x1F,0xFE,0x0E,0xFE,0x0E,0xFE),
- array(0xFE,0x1F,0xFE,0x1F,0xFE,0x0E,0xFE,0x0E),
- array(0x01,0x1F,0x01,0x1F,0x01,0x0E,0x01,0x0E),
- array(0x1F,0x01,0x1F,0x01,0x0E,0x01,0x0E,0x01),
- array(0xE0,0xFE,0xE0,0xFE,0xF1,0xFE,0xF1,0xFE),
- array(0xFE,0xE0,0xFE,0xE0,0xFE,0xF1,0xFE,0xF1));
-
- for ($i=0; $i<16; $i++){
- if(count(array_diff($in,$weak_keys[$i]))==0) return(true);;
- }
- return(false);
- }
-
- function Des3StringToKey($pass,$realm,$username){
- $n_fold_key=$this->_krb5_n_fold($pass.$realm.$username,24);
-// $stringh="";
-// for($i=0;$i<strlen($n_fold_key);$i++) $stringh.=sprintf("%02x",ord(substr($n_fold_key,$i,1)));
-// print "IKEY: ".$stringh."\n";
- $chain=array(24); for($i=0;$i<24;$i++) $chain[$i]=ord(substr($n_fold_key,$i,1));
- $ix=0;
- $key1=array(8); for($i=0;$i<8;$i++) $key1[$i]=$chain[$i];
- $key2=array(8); for($i=0;$i<8;$i++) $key2[$i]=$chain[$i+8];
- $key3=array(8); for($i=0;$i<8;$i++) $key3[$i]=$chain[$i+16];
- $ks1=$this->des_make_key_sched($key1);
- $ks2=$this->des_make_key_sched($key2);
- $ks3=$this->des_make_key_sched($key3);
-
- $this->out=$this->DES_ede3_cbc_encrypt($chain,true,$ks1,$ks2,$ks3,24);
- $keys=array(3);
- $this->out=$this->DES3_set_odd_parity($this->out);
- for($i = 0;$i < 3; $i++){
- $keys[$i]=array(8);
- for($j = 0;$j < 8; $j++) $keys[$i][$j]=$this->out[($i*8)+$j];
- if($this->DES_is_weak_key($keys[$i])){
- $keys[$i][7]^=0xf0;
- $this->out[($i*8)+7]=$keys[$i][7];
- }
- }
-// $stringh="";
-// for($i=0;$i<24;$i++) $stringh.=sprintf("%02x",$this->out[$i]);
-// print "OUT KEY: ".$stringh."\n";
- }
-
- function des_cbc_cksum($key,$data,$sch){
- $pos=0;
- $u=array(0,0);
- $uiv=array(0,0);
- $this->load($key,&$uiv);
- $len=count($data);
- $input=array(8);for($i=0;$i<8;$i++) $input[$i]=$data[$i];
- $ix=0;
- while ($len >=8) {
- $this->load($input,&$u);
- $u[0] ^= $uiv[0]; $u[1] ^= $uiv[1];
- $this->IP(&$u);
- $this->desx(&$u, $sch, true);
- $this->FP(&$u);
- $uiv[0] = $u[0]; $uiv[1] = $u[1];
- $len -= 8;
- for($i=0;$i<8;$i++) $data[$i+$ix]=$input[$i];
- $ix+=8;$input=array(8);for($i=0;$i<8;$i++) $input[$i]=$data[$i+$ix];
- }
- if($len>0){
- $input=array(8);
- for($i=0;$i<$len;$i++) $input[$i]=$data[$i+$ix];
- for($i=$len;$i<8;$i++) $input[$i]=0;
- $this->load($input,&$u);
- $u[0] ^= $uiv[0]; $u[1] ^= $uiv[1];
- $this->IP(&$u);
- $this->desx(&$u, $sch, true);
- $this->FP(&$u);
- }
- $this->store($u,&$key);
- return($key);
- }
-
- function DesStringToKey($pass,$realm,$username){
- $data=$pass.$realm.$username;
- $len=strlen($data);
- $reverse = 0;
- $ix=0;
- $key=array(8); for($i=0;$i<8;$i++) $key[$i]=0;
- $tmp=array($len);for($i=0;$i<$len;$i++) $tmp[$i]=ord(substr($data,$i,1));
- $swap=array( 0x0, 0x8, 0x4, 0xc, 0x2, 0xa, 0x6, 0xe,
- 0x1, 0x9, 0x5, 0xd, 0x3, 0xb, 0x7, 0xf );
- for ($i = 0; $i < $len; $i++) {
- if ($reverse==0){
- $key[$ix]^=($tmp[$i] << 1);
- $ix++;
- }else{
- $ix--;
- $key[$ix]^=($swap[$tmp[$i] & 0xf] <<4)| $swap[(($tmp[$i] & 0xf0) >> 4) &0x0f];
- }
- if(($i % 8) == 7){
- if($reverse==0) $reverse=1;else $reverse=0;
- }
- }
- $key=$this->DES_set_odd_parity($key);
- if($this->DES_is_weak_key($key)){
- $key[7]^=0xf0;
- }
- $sch=$this->des_make_key_sched($key);
- $key=$this->des_cbc_cksum($key,$tmp,$sch);
- $key=$this->DES_set_odd_parity($key);
- if($this->DES_is_weak_key($key)){
- $key[7]^=0xf0;
- }
- $this->out=$key;
- }
-
- function DES3_random_to_key($data){
- $key=array(24); for ($i=0;$i<24;$i++) $key[$i]=0;
-
- for($i=0;$i<3;++$i){
- for ($j=0;$j<7;++$j){
- $key[(8*$i)+$j]=$data[7*$i+$j];
- }
-
- $foo = 0;
- for ($j = 6; $j >= 0; --$j) {
- $foo |= $data[7 *$i +$j] & 1;
- $foo <<= 1;
- }
- $key[(8*$i)+7]=$foo;
- }
- $keys=array(3);
- $out=$key;
- $out=$this->DES3_set_odd_parity($out);
- for($i = 0;$i < 3; $i++){
- $keys[$i]=array(8);
- for($j = 0;$j < 8; $j++) $keys[$i][$j]=$out[($i*8)+$j];
- if($this->DES_is_weak_key($keys[$i])){
- $keys[$i][7]^=0xf0;
- $out[($i*8)+7]=$keys[$i][7];
- }
- }
- return($out);
- }
-
- function Des3StringToKeyDerived($pass,$realm,$username){
- $n_fold_key=$this->_krb5_n_fold($pass.$realm.$username,21);
-// $stringh="";
-// for($i=0;$i<strlen($n_fold_key);$i++) $stringh.=sprintf("%02x",ord(substr($n_fold_key,$i,1)));
-// print "IKEY: ".$stringh."\n";
- $data=array(21); for($i=0;$i<strlen($n_fold_key);$i++) $data[$i]=ord(substr($n_fold_key,$i,1));
- $this->out=$this->DES3_random_to_key($data);
- $keys=array(3);
- for($i = 0;$i < 3; $i++){
- $keys[$i]=array(8);
- for($j = 0;$j < 8; $j++) $keys[$i][$j]=$this->out[($i*8)+$j];
- }
-
- $ks1=$this->des_make_key_sched($keys[0]);
- $ks2=$this->des_make_key_sched($keys[1]);
- $ks3=$this->des_make_key_sched($keys[2]);
-
- $derivekey=$this->derive_key("kerberos",$this->out,$ks1,$ks2,$ks3,24);
- $this->out=$this->DES3_random_to_key($derivekey);
-
- }
-
-
- function derive_key($constant, $data,$ks1,$ks2,$ks3,$ixlen){
- $len=strlen($constant);
- $n_fold_key=$this->_krb5_n_fold($constant,$len);
- $lk=array(8); for($i=0;$i<8;$i++) $lk[$i]=ord(substr($n_fold_key,$i,1));
- $keys=array(3);
- $keys[0]=$lk;
-
- $keys[0]=$this->DES_ede3_cbc_encrypt($keys[0],true,$ks1,$ks2,$ks3,8);
- $keys[1]=$this->DES_ede3_cbc_encrypt($keys[0],true,$ks1,$ks2,$ks3,8);
- $keys[2]=$this->DES_ede3_cbc_encrypt($keys[1],true,$ks1,$ks2,$ks3,8);
-
- $out=array(24);
- for ($i=0;$i<3;$i++){
- for ($j=0;$j<8;$j++)
- $out[($i*8)+$j]=$keys[$i][$j];
- }
- return($out);
- }
-
- function derive_key_integrity($masterkey){
- $keys=array(3);
- for($i = 0;$i < 3; $i++){
- $keys[$i]=array(8);
- for($j = 0;$j < 8; $j++) $keys[$i][$j]=$masterkey[($i*8)+$j];
- }
-
- $ks1=$this->des_make_key_sched($keys[0]);
- $ks2=$this->des_make_key_sched($keys[1]);
- $ks3=$this->des_make_key_sched($keys[2]);
-
- $usage=$this->getIntegrityUsage();
-
- $n_fold_key=$this->_krb5_n_fold($usage,8);
- $lk=array(8); for($i=0;$i<8;$i++) $lk[$i]=ord(substr($n_fold_key,$i,1));
-
- $keys=array(3);
- $keys[0]=$lk;
-
- $keys[0]=$this->DES_ede3_cbc_encrypt($keys[0],true,$ks1,$ks2,$ks3,8);
- $keys[1]=$this->DES_ede3_cbc_encrypt($keys[0],true,$ks1,$ks2,$ks3,8);
- $keys[2]=$this->DES_ede3_cbc_encrypt($keys[1],true,$ks1,$ks2,$ks3,8);
-
- $out=array(24);
- for ($i=0;$i<3;$i++){
- for ($j=0;$j<8;$j++)
- $out[($i*8)+$j]=$keys[$i][$j];
- }
-
- $out=$this->DES3_random_to_key($out);
-/* $stringh="";
- for($i=0;$i<24;$i++) $stringh.=sprintf("%02x",$out[$i]);
- print "DKEY: ".$stringh."\n";*/
- return($out);
- }
-
- function derive_key_encrypt($masterkey){
- $keys=array(3);
- for($i = 0;$i < 3; $i++){
- $keys[$i]=array(8);
- for($j = 0;$j < 8; $j++) $keys[$i][$j]=$masterkey[($i*8)+$j];
- }
-
- $ks1=$this->des_make_key_sched($keys[0]);
- $ks2=$this->des_make_key_sched($keys[1]);
- $ks3=$this->des_make_key_sched($keys[2]);
-
- $usage=$this->getEncryptionUsage();
-
- $n_fold_key=$this->_krb5_n_fold($usage,8);
- $lk=array(8); for($i=0;$i<8;$i++) $lk[$i]=ord(substr($n_fold_key,$i,1));
-
- $keys=array(3);
- $keys[0]=$lk;
-
- $keys[0]=$this->DES_ede3_cbc_encrypt($keys[0],true,$ks1,$ks2,$ks3,8);
- $keys[1]=$this->DES_ede3_cbc_encrypt($keys[0],true,$ks1,$ks2,$ks3,8);
- $keys[2]=$this->DES_ede3_cbc_encrypt($keys[1],true,$ks1,$ks2,$ks3,8);
-
- $out=array(24);
- for ($i=0;$i<3;$i++){
- for ($j=0;$j<8;$j++)
- $out[($i*8)+$j]=$keys[$i][$j];
- }
-
- $out=$this->DES3_random_to_key($out);
-/* $stringh="";
- for($i=0;$i<24;$i++) $stringh.=sprintf("%02x",$out[$i]);
- print "DKEY: ".$stringh."\n";*/
- return($out);
- }
-
- function krb5_generate_random_block($len=8){
- $key=$this->DES_new_random_key();
- $sched=$this->des_make_key_sched($key);
- $counter=$this->DES_new_random_key();
- $out=$counter;
- $this->DES_ecb_encrypt(&$out,$sched);
- }
-
- function DES_new_random_key($len=8){
- $seed=array($len);
- //inicializacion!!!!
- do{
- $seed=$this->DES_generate_random_block($len);
- $this->DES_set_odd_parity(&$seed);
- }while ($this->DES_is_weak_key($seed));
- $sequence_seed=$this->des_make_key_sched($seed);
- //DES_ecb_encrypt!!!!
- do{
- $this->DES_ecb_encrypt(&$seed,$sequence_seed);
- $this->DES_set_odd_parity(&$seed);
- }while ($this->DES_is_weak_key($seed));
- return($seed);
- }
-
- function DES_generate_random_block($len=8){
- $res=array($len);
- for ($i=0;$i<$len;$i++){
- $res[$i]=mt_rand(0,255);
- }
- return($res);
- }
-
- function DES_ecb_encrypt($key,$sch){
- $u=array(0,0);
- $this->load($key,&$u);
- //DES_encrypt
- $this->IP(&$u);
- $this->desx(&$u, $sch, true);
- $this->FP(&$u);
- $this->store($u,&$key);
- return($key);
- }
-
- function ENCRYPTION_USAGE($u){
- return(($u << 8) | 0xAA);
- }
-
- function INTEGRITY_USAGE($u){
- return(($u << 8) | 0x55);
- }
-
- function getIntegrityUsage(){
- $usage=$this->INTEGRITY_USAGE(HDB_KU_MKEY);
- $ausage=array(5);
- $ausage[4] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[3] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[2] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[1] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[0] = $usage & 0xff;
- $str="";
- for ($i=0;$i<5;$i++){
- $str.=chr($ausage[$i]);
- }
- return($str);
- }
-
- function getEncryptionUsage(){
- $usage=$this->ENCRYPTION_USAGE(HDB_KU_MKEY);
- $ausage=array(5);
- $ausage[4] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[3] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[2] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[1] = $usage & 0xff;
- $usage= $usage >> 8;
- $ausage[0] = $usage & 0xff;
- $str="";
- for ($i=0;$i<5;$i++){
- $str.=chr($ausage[$i]);
- }
- return($str);
- }
-
-
-};
-
-
-
-?>
diff --git a/include/heimdal/genkey.php b/include/heimdal/genkey.php
+++ /dev/null
@@ -1,170 +0,0 @@
-<?php
-/*
- * genkey.php,v 1.0 2006/08/25 21:00:00
- *
- * Copyright 2006 Alejandro Escanero Blanco <aescanero@chaosdimension.org>
- *
- * See the enclosed file COPYING for license information (GPL). If you
- * did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
- */
-
-require_once("deslib.php");
-require_once("mkey.php");
-require_once("asnencode.php");
-
-class genkey{
-
- var $masterkey;
- var $desclass;
- var $intg_dkey;
- var $crypt_dkey;
- var $rnd_key;
- var $stringtokey;
- var $ekey;
- var $keytype;
- var $salt;
- var $sha1_hmac;
- var $okey;
- var $keystr;
- var $b64;
-
- function genkey($mkey){
- if($mkey->getKeyType_Entry(0)!=DES3_CBC_SHA1) die ("only spported DES3_CBC_SHA1 m-key");
- $this->masterkey=$mkey->getKey_Entry_A(0);
- /* printf("mkey: ");
- for ($i=0;$i<count($this->masterkey);$i++) printf("%02x",$this->masterkey[$i]);
- printf("\n");*/
- $this->desclass=new Des();
- $this->intg_dkey=$this->desclass->derive_key_integrity($this->masterkey);
- $this->crypt_dkey=$this->desclass->derive_key_encrypt($this->masterkey);
- $this->rnd_key=$this->desclass->DES_new_random_key(8);
- $this->ekey=$this->rnd_key;
- }
-
- function generate($keytype,$name,$realm,$pass){
- $this->keytype=$keytype;
- $this->salt=$realm.$name;
- switch($keytype){
- case DES_CBC_CRC:
- case DES_CBC_MD4:
- case DES_CBC_MD5:
- $this->desclass->DesStringToKey($pass,$realm,$name);
- break;
- case DES3_CBC_MD5:
- $this->desclass->Des3StringToKey($pass,$realm,$name);
- break;
- case DES3_CBC_SHA1:
- $this->desclass->Des3StringToKeyDerived($pass,$realm,$name);
- break;
- default:
- die ("keytype not supported, supported keys are: des-cbc-crc,des-cbc-md4,des-cbc-md5,des3-cbc-md5,des3-cbc-sha1");
- }
- $this->stringtokey=$this->desclass->out;
- for ($i=0;$i<count($this->stringtokey);$i++){
- $this->ekey[8+$i]=$this->stringtokey[$i];
- }
- $hash_key="";
- for ($i=0;$i<count($this->rnd_key);$i++){
- $hash_key.=chr($this->rnd_key[$i]);
- }
- for ($i=0;$i<count($this->stringtokey);$i++){
- $hash_key.=chr($this->stringtokey[$i]);
- }
-
- $data="";
- for ($i=0;$i<count($this->intg_dkey);$i++){
- $data.=chr($this->intg_dkey[$i]);
- }
- $sha1_hmac_raw=$this->hmacsha1($data,$hash_key);
- $this->sha1hmac=array();
- for ($i=0;$i<strlen($sha1_hmac_raw);$i++){
- $this->sha1hmac[$i]=ord(substr($sha1_hmac_raw,$i,1));
- }
-
- //MUST CHANGE for derive_key_encrypt
-
- $keys=array(3);
- for($i = 0;$i < 3; $i++){
- $keys[$i]=array(8);
- for($j = 0;$j < 8; $j++) $keys[$i][$j]=$this->crypt_dkey[($i*8)+$j];
- }
- $ks1=$this->desclass->des_make_key_sched($keys[0]);
- $ks2=$this->desclass->des_make_key_sched($keys[1]);
- $ks3=$this->desclass->des_make_key_sched($keys[2]);
-
- $this->okey=$this->desclass->DES_ede3_cbc_encrypt($this->ekey,true,$ks1,$ks2,$ks3,16);
- for ($i=0;$i<count($this->sha1hmac);$i++) $this->okey[]=$this->sha1hmac[$i];
- $this->keystr="";
- for($i=0;$i<count($this->okey);$i++) $this->keystr.=chr($this->okey[$i]);
- return($this->keystr);
-/* $stringh="";
- for($i=0;$i<count($oekey);$i++) $stringh.=sprintf("%02x",$oekey[$i]);
- print "OUT EKEY: ".$stringh."\n";*/
- }
-
- function encode(){
- $asn_int_1=new asnEncode();
- $asn_int_1->encodeInteger($this->keytype);//tipo codificacion?
- $asn_int_2=new asnEncode();
- $asn_int_2->encodeInteger(3);
- $asn_int_3=new asnEncode();
- $asn_int_3->encodeInteger(3);
- $asn_int_4=new asnEncode();
- $asn_int_4->encodeInteger(1);
-
- $asn_salt=new asnEncode();
- $asn_salt->encodeOctetString($this->salt);
- $asn_key=new asnEncode();
- $asn_key->encodeOctetString($this->keystr);
-
- $asn_salt_seq=new asnEncode();
- $asn_salt_seq->encodeSequence(0,$asn_int_2->getStream());
- $asn_salt_seq->encodeSequence(1,$asn_salt->getStream());
-
- $asn_salt_obj=new asnEncode();
- $asn_salt_obj->encodeObject(0x30,$asn_salt_seq->getStream());
-
- $asn_seq3=new asnEncode();
- $asn_seq3->encodeSequence(0,$asn_int_1->getStream());
- $asn_seq3->encodeSequence(1,$asn_key->getStream());
- $asn_seq3->encodeSequence(2,$asn_salt_obj->getStream());
-
- $asn_key_obj=new asnEncode();
- $asn_key_obj->encodeObject(0x30,$asn_seq3->getStream());
-
- $asn_seq4=new asnEncode();
- $asn_seq4->encodeSequence(0,$asn_int_4->getStream());
- $asn_seq4->encodeSequence(1,$asn_key_obj->getStream());
-
- $asn_obj=new asnEncode();
- $asn_obj->encodeObject(0x30,$asn_seq4->getStream());
- $this->b64=base64_encode($asn_obj->printString());
- }
-
- function printKey(){
- printf("key(base64):\n".$this->b64."\n");
- }
-
- function hmacsha1($key,$data){
- $blocksize=64;
- $hashfunc='sha1';
- if (strlen($key)>$blocksize)
- $key=pack('H*', $hashfunc($key));
- $key=str_pad($key,$blocksize,chr(0x00));
- $ipad=str_repeat(chr(0x36),$blocksize);
- $opad=str_repeat(chr(0x5c),$blocksize);
- $hmac = pack(
- 'H*',$hashfunc(
- ($key^$opad).pack(
- 'H*',$hashfunc(
- ($key^$ipad).$data
- )
- )
- )
- );
- return($hmac);
- //return bin2hex($hmac);
- }
-
-};
-?>
diff --git a/include/heimdal/mkey.php b/include/heimdal/mkey.php
--- a/include/heimdal/mkey.php
+++ /dev/null
@@ -1,146 +0,0 @@
-<?php
-/*
- * mkey.php,v 1.0 2006/08/25 21:00:00
- *
- * Copyright 2006 Alejandro Escanero Blanco <aescanero@chaosdimension.org>
- *
- * See the enclosed file COPYING for license information (GPL). If you
- * did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
- */
-
-
-class entry{
- var $timestamp;
- var $vno;
- var $keytype;
- var $data;
-};
-
-class principal{
- var $len;
- var $realm;
- var $name_type;
- var $entry;
- var $vno;
-}
-
-
-class mkey{
-
- var $pvno; //version kerberos
- var $tag; //tag (id->version)
-
- var $buf;
- var $mknvo;
- var $realm;
- var $ix_i;
- var $ix;
- var $fsz;
- var $principals;
- var $principals_l;
-
- //function mkey(){};
-
- function mkey($file){
- $this->ix=0;
- $this->ix_i=0;
- $this->buf="";
- $this->principals=array();
- $this->principals_l=0;
- $this->fsz=filesize($file);
- $mk=fopen($file,"r");
- if(!$mk){
- echo "no puedo abrir mkey";
- exit(1);
- }
- while(!feof($mk)){
- $this->buf.=fgets($mk,100);
- }
-
- /*print "DECODE:: \n";
- for ($i=0;$i<strlen($this->buf);$i++){ printf("%d %02x (%d) ",$i,ord(substr($this->buf,$i,1)),ord(substr($this->buf,$i,1)));echo substr($this->buf,$i,1)."\n";}*/
-
-
- //Begin procedure
-
- $this->pvno=$this->getdec(1);//00 version
- $this->tag=$this->getdec(1);//01 tag
- while($this->ix_i<$this->fsz){
- $this->mkeyPrincipal();
- }
- }
-
- function mkeyPrincipal(){
- $this->principals[]=new principal();
- $this->principals[$this->principals_l]->len=$this->getdec(4); // len
- $tmp=$this->getdec(2);// tmp
- $sz=$this->getdec(2);// size
- $this->principals[$this->principals_l]->realm=$this->getstr($sz);//realm
- $sz=$this->getdec(2);//size
- $data=$this->getstr($sz); //Must be "K"
- $sz=$this->getdec(2);//size
- $data=$this->getstr($sz); //Must be "M"
- $this->principals[$this->principals_l]->name_type=$this->getdec(4);//name type
- $this->principals[$this->principals_l]->entry=$this->mkeyEntry();//entry
- $this->principals[$this->principals_l]->vno=$this->getdec(4);//vno
- $this->principals_l++;
- }
-
- function mkeyEntry(){
- $local_entry=new entry();
- $local_entry->timestamp=$this->getdec(4);
- $local_entry->vno=$this->getdec(1);
- $local_entry->keytype=$this->getdec(2);
- $len=$this->getdec(2);
- $local_entry->data=$this->getstr($len);
- return($local_entry);
- }
-
- function getKeyType_Entry($pos=0){
- if($pos>($this->principals_l-1)){ echo "mkey error"; exit(-1); }
- return($this->principals[$pos]->entry->keytype);
- }
-
- function getKey_Entry($pos=0){
- if($pos>($this->principals_l-1)){ echo "mkey error"; exit(-1); }
- return($this->principals[$pos]->entry->data);
- }
-
- function getKey_Entry_A($pos=0){
- if($pos>($this->principals_l-1)){ echo "mkey error"; exit(-1); }
- $masterkey=array(strlen($mkey1));
- for ($i=0;$i<(strlen($mkey1));$i++){
- $masterkey[$i]=ord(substr($this->principals[$pos]->entry->data,$i,1));
- }
- return($masterkey);
- }
-
- function getNumber_Entry(){
- return($this->principals_l);
- }
-
- function getdec($len){
- $res=0;
- while ($len>0){
- $res*=0xff;
- $res+=ord(substr($this->buf,$this->ix_i,1));
- $this->ix_i++;
- $len--;
- }
- return($res);
- }
-
- function getstr($len){
- $res="";
- while ($len>0){
- $res.=substr($this->buf,$this->ix_i,1);
- $this->ix_i++;
- $len--;
- }
- return($res);
- }
-
-
-};
-
-?>
diff --git a/include/heimdal/test.php b/include/heimdal/test.php
--- a/include/heimdal/test.php
+++ /dev/null
@@ -1,27 +0,0 @@
-<?php
-/*
- * testgenkey.php,v 1.0 2006/08/25 21:00:00
- *
- * Copyright 2006 Alejandro Escanero Blanco <aescanero@chaosdimension.org>
- *
- * See the enclosed file COPYING for license information (GPL). If you
- * did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
- */
-
-
-include("genkey.php");
-
-
-define(MKEYFILE,"/var/lib/heimdal-kdc/m-key");
-define(NAME,"alex");
-define(REALM,"CHAOSDIMENSION.ORG");
-define(PASSWORD,"prueba");
-
-
-$mkey = new mkey(MKEYFILE);
-$genkey= new genkey($mkey);
-$genkey->generate(DES_CBC_MD5,NAME,REALM,PASSWORD);
-$genkey->encode();
-$genkey->printKey();
-
-?>
\ No newline at end of file