code:2 things I'm no sure what done < work does and this is a script written in emacs how do I run it as a script?cat $1 | sort > work
while read l #reads each line of file
do
echo $l
p=$( awk '{print $1}' | cut -c-3 )
q=$( awk '{print $1}' | cut -c-3 )
old=$p$q
x=$old
while grep ''$x'' $2 >&/deu/null
do
cnt = $cnt + 1
x=$old$cnt
done
echo ''$x'' >> $2
done
done < work
code:K I added more to my code.cat clients | sort > work
grep -n '' words > NumDiction
Num=$(grep -c '' NumDiction)
while read l #reads each line of file
do
p=$( echo $l | awk '{print $1}' | cut -c-3 )
q=$( echo $l | awk '{print $1}' | cut -c-3 )
old=$p$q
x=$old
while grep ''$x'' sec >&/deu/null
do
cnt = $cnt + 1
x=$old$cnt
done
a=(perl randm.pl $Num)
b=(perl randm.pl $Num)
d=$(grep '^'$a':' NumDiction | sed 's/[0-9]*://')
e=$(grep '^'$a':' NumDiction | sed 's/[0-9]*://')
Password=$d$e
echo "$l $x $Password >> sec
done
done < work
code:cat clients | sort > work
grep -n '' words > NumDiction
Num=$(grep -c '' NumDiction)
while read l #reads each line of file
do
p=$( echo $l | awk '{print $1}' | cut -c-3 )
q=$( echo $l | awk '{print $1}' | cut -c-3 )
old=$p$q
x=$old
while grep "$x" sec >&/deu/null
do
c=$[c+1]
x=$old$c
done
a=$(perl randm.pl $Num)
b=$(perl randm.pl $Num)
d=$(grep '^'$a':' NumDiction | sed 's/[0-9]*://')
e=$(grep '^'$a':' NumDiction | sed 's/[0-9]*://')
Password=$d$e
echo "$l $x $Password >> sec
done