main/crypt.c

   1 /* $Id: crypt.c,v 1.3 2003-03-14 21:24:03 btb Exp $ */
   2 /*
   3 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
   4 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
   5 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
   6 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
   7 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
   8 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
   9 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
  10 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
  11 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
  12 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
  13 */
  14
  15 #ifdef HAVE_CONFIG_H
  16 #include <conf.h>
  17 #endif
  18
  19 #ifdef RCS
  20 char crypt_rcsid[] = "$Id: crypt.c,v 1.3 2003-03-14 21:24:03 btb Exp $";
  21 #endif
  22
  23 //#include <time.h>
  24 //#include <stdlib.h>
  25 #include <string.h>
  26
  27 //#include "inferno.h"
  28
  29 char *jcrypt (char *plainstring)
  30 {
  31         int i,t,len;
  32         static char cryptstring[20];
  33
  34         len=strlen (plainstring);
  35         if (len>8)
  36                 len=8;
  37
  38         for (i=0;i<len;i++)
  39         {
  40                 cryptstring[i]=0;
  41
  42                 for (t=0;t<8;t++)
  43                 {
  44                         cryptstring[i]^=(plainstring[t] ^ plainstring[i%(t+1)]);
  45                         cryptstring[i]%=90;
  46                         cryptstring[i]+=33;
  47                 }
  48         }
  49         cryptstring[i]=0;
  50         return ((char *)cryptstring);
  51 }