#!/bin/csh
#
# scrypto
# some shell based crypto by Michael L. Love (GPL) 
# Wed Sep  5 14:42:02 EDT 2007
#


date --version  > /dev/null
if ( $? != 0 ) then
	echo this only works with GNU date
	exit
endif

setenv SEED `(echo scale=6 && date +%N | cut -b1-6 | sed s/'$'/'\/999999'/) | bc | sed s/'\\'//g | tr -d '\n'`
sleep ${SEED}
setenv SEED `(echo scale=6 && date +%N | cut -b1-6 | sed s/'$'/'\/999999'/) | bc | sed s/'\\'//g | tr -d '\n'``echo ${SEED} | sed s/'\.'// `
sleep ${SEED}
setenv SEED `(echo scale=6 && date +%N | cut -b1-6 | sed s/'$'/'\/999999'/) | bc | sed s/'\\'//g | tr -d '\n'``echo ${SEED} | sed s/'\.'// `

echo the seed is $SEED

#setenv ARRAY ${1}
setenv ARRAY 400
setenv WIDTH `(echo scale=22 && echo 'sqrt ('${ARRAY}')') | bc | sed s/'\\'//g | tr -d '\n' | cut -f1 -d'.'`
setenv SEEDARRAY `(echo scale=22 && echo ${SEED}'*'${ARRAY}) | bc | sed s/'\\'//g | tr -d '\n' | cut -f1 -d'.'`
setenv SEEDWIDTH `(echo scale=22 && echo 2+${SEED}'*'${WIDTH}) | bc | sed s/'\\'//g | tr -d '\n' | cut -f1 -d'.'`

echo the array size is $ARRAY
echo the width size is $WIDTH
echo the seed array size is $SEEDARRAY
echo the seed width size is $SEEDWIDTH


cat - | tr -s ' ' | tr -s '\t' |\
	     rs | rs    ${SEEDARRAY} | tac |\
	     rs | rs -t 213                 \
	     rs | rs -t ${WIDTH}     | tac |\
	     rs | rs    101                 \
	     rs | rs -t ${SEEDWIDTH} | tac |\
	     rs | rs    51           | tac |\
             rs | rs -t 6                   \
             rs | rs -t 9                   \
             rs | rs -t 8                   \
	     rs | rs -t 5                   \
	     rs | rs    4                   \
             rs | rs -t 7                   \
             rs | rs -t 5                   \
	     rs | rs -t 3                   \
	     rs | rs    2                   \
	     rs | rs -t 1                   \
             rs | rs -t 3                   \
             rs | rs -t 2                   \
             rs | rs -t 4                   \
             rs | rs -t 1                   \
	     rs