[9fans] pipeto for mydoom virus

[steve-simon@ntlworld.nospam.com]

[-- Attachment #1: Type: text/plain, Size: 277 bytes --]

Hi,

A pipeto clause to strip the mydoom virus.

Add rot13 to /386/bin (attached) and the below to your pipeto

if ( test -f $D/2/body && ! ~ `{unzip -sc < $D/2/body | rot13 | grep 'Version\\Explorer'} '' ){
	log virus $RECIP From `{cat $D/replyto}
	exit 0
}

-Steve

[-- Attachment #2: rot13.c --]
[-- Type: text/plain, Size: 431 bytes --]

#include <u.h>
#include <ctype.h>
#include <libc.h>
#include <bio.h>

Biobuf bin, bout;

int main()
{
	long got;
	char buf[1024], *p;

	Binit(&bin, 0, OREAD);
	Binit(&bout, 1, OWRITE);

	while((got = Bread(&bin, buf, sizeof(buf))) > 0){
		for (p = buf; p < buf + got; p++)
			if (isalpha(*p))
				if (tolower(*p) <= 'm')
					*p += 13;
				else
					*p -= 13;
		Bwrite(&bout, buf, got);
	}
	Bterm(&bout);
}