#include <io.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>

main(int argc,char **argv)
{
int read;
FILE *infile,*outfile;
unsigned char i,buffer[512],current;
fprintf(stderr,"KRAD - ASCII file shagger  V0.1  (c)Veghead 1995\n");
randomize();
if (argc>1)
   {if((infile=fopen(argv[1],"r"))==NULL) errhand(1);}
else infile=stdin;
if (argc>2)
   {if((outfile=fopen(argv[2],"w"))==NULL) errhand(2);}
else outfile=stdout;
fprintf(stderr,"Shagging it......\n");
while (!feof(infile)) {
    current=getc(infile);
    switch (current) {
       case'E':current='3';break;
       case'O':current='0';break;
       case'I':current='|';break;
       }
    if (isalpha(current)) {current&=223;current|=((unsigned char)random(255)&32);}
    putc(current,outfile);
    }
}

errhand(int number)
{
switch (number) {
   case(1):fprintf(stderr,"Can't open input file\n");usage();break;
   case(2):fprintf(stderr,"Can't open output file\n");usage();break;
   }
exit(number);
}

usage()
{
fprintf(stderr,"Usage:\n\r	KRAD [infile] [outfile]\n");
fprintf(stderr,"\neg	KRAD file.txt newfile.txt");
fprintf(stderr,"\n	type file.txt |krad\n");
fprintf(stderr,"\n\nTuRNS Y0ur AcSii FIlEs iNtO kEWL TypE. \nUseS StaNDaRd INpUT/OUPuT If No nAMeS r GiVEN\n");
}