mirror of
https://github.com/opsxcq/mirror-textfiles.com.git
synced 2025-09-09 05:20:52 +02:00
92 lines
2.8 KiB
Plaintext
92 lines
2.8 KiB
Plaintext
|
|
Conspiracy Nation -- Vol. 8 Num. 11
|
|
======================================
|
|
("Quid coniuratio est?")
|
|
|
|
|
|
-----------------------------------------------------------------
|
|
|
|
666 SEARCHER -- C LANGUAGE VERSION
|
|
==================================
|
|
[Thanks to a CN reader for the following]
|
|
|
|
/*
|
|
| srchr.c
|
|
|
|
|
| This is a C implementation of Brian Redman's QuickBasic 666 Searcher.
|
|
| You can do whatever you want with it. If one of the things you want
|
|
| to do is compile it, then "cc -s -O srchr.c -o srchr" should work on
|
|
| both unix and dos. Enjoy!
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
main(ac, av)
|
|
int ac;
|
|
char **av;
|
|
{
|
|
int c,
|
|
x;
|
|
char *p,
|
|
*fgets(),
|
|
buf[BUFSIZ];
|
|
|
|
c = ~EOF;
|
|
|
|
do {
|
|
printf("Enter name: ");
|
|
|
|
if (fgets(buf, sizeof(buf), stdin) == (char *)NULL) break;
|
|
|
|
for (c = 0, p = buf; *p; p++) {
|
|
if (*p == '\n') {
|
|
*p = '\0'; break;
|
|
}
|
|
|
|
if ((x = *p) > 90) x -= 32;
|
|
x -= 64; x *= 6; c += x;
|
|
}
|
|
|
|
printf("%s = %d\n", buf, c);
|
|
|
|
do{
|
|
printf("Again? ");
|
|
|
|
if ((c = getchar()) != EOF)
|
|
switch (c) {
|
|
case '\n': continue;
|
|
case 'y':
|
|
case 'Y': break;
|
|
default: c = EOF;
|
|
}
|
|
|
|
while ((x = getchar()) != EOF && x != '\n');
|
|
} while (c != 'y' && c != 'Y' && c != EOF);
|
|
} while (c != EOF);
|
|
|
|
printf("Thank you for using 666 Searcher.\n");
|
|
exit(0);
|
|
}
|
|
|
|
-----------------------------------------------------------------
|
|
I encourage distribution of "Conspiracy Nation."
|
|
-----------------------------------------------------------------
|
|
If you would like "Conspiracy Nation" sent to your e-mail
|
|
address, send a message in the form "subscribe cn-l My Name" to
|
|
listproc@cornell.edu (Note: that is "CN-L" *not* "CN-1")
|
|
-----------------------------------------------------------------
|
|
For information on how to receive the improved Conspiracy
|
|
Nation Newsletter, send an e-mail message to bigred@shout.net
|
|
-----------------------------------------------------------------
|
|
Want to know more about Whitewater, Oklahoma City bombing, etc?
|
|
(1) telnet prairienet.org (2) logon as "visitor" (3) go citcom
|
|
-----------------------------------------------------------------
|
|
See also: http://www.europa.com/~johnlf/cn.html
|
|
-----------------------------------------------------------------
|
|
See also: ftp.shout.net pub/users/bigred
|
|
-----------------------------------------------------------------
|
|
Aperi os tuum muto, et causis omnium filiorum qui pertranseunt.
|
|
Aperi os tuum, decerne quod justum est, et judica inopem et
|
|
pauperem. -- Liber Proverbiorum XXXI: 8-9
|
|
|