Re: Superping Script

[nobody@rosebud.ee.uh.edu]

Anon asked for my "Superping Script". I was so embarassed by what I was
calling a script that I wrote a real one. The magic perl command turned
out to be 'system'. Duh? I am using the csh shell, if that matters.

-Xenon <na38138@anon.penet.fi>

#!/usr/bin/perl

# SuperPing: Ping Cyperpunk remailer connections.
# Brought to you by Xenon <na38138@anon.penet.fi>.
# Thanks to Alan Barrett for teaching me some perl.

# Replace $Rm[$First] below with YOUR address to test this!
# Warning: outputs ~40 e-mails at a time. May give "too
# many processes" error towards the end if you haven't killed
# all of your stopped jobs. Increase the sleep(sec) time if needed.

# Will also function as a convenient method to shut down all
# remailers at once by making .PingFile 500K instead of 1K.
# Not recommended if you value your life ;-).

# List of remailers (not complete).
# Make any line a comment to remove that line's remailer.

@Rm = (
"catalyst@netcom.com",
"hh@cicada.berkeley.edu",
"remailer@dis.org",
"ebrandt@jarthur.claremont.edu",
"remailer@merde.dis.org",
"hh@pmantis.berkeley.edu",
"elee7h5@rosebud.ee.uh.edu",
"hfinney@shell.portal.com",
"hh@soda.berkeley.edu",
);

#Nicknames for output and subject lines.

@Nick = (
"catalyst",
"cicada",
"dis.org",
"jarthur",
"merde",
"pmantis",
"rosebud",
"shell",
"soda",
);

#Strings, since lines got too long below.

  $A = "(echo \"::\" ; echo \"Request-Remailing-To: ";
  $B = "; echo \"\" ; echo \"::\" ; echo \"Request-Remailing-To: ";
  $C = "ndw1@columbia.edu\" ; echo \"\"";
  $D = " ; echo \"\" ; cat .PingFile) | mail -s \"P";

foreach $Sec (0..$#Rm) {
    foreach $First ($Sec+1..$#Rm) {
     $Num++;
     system "$A$Rm[$Sec]\"$B$C$D$Num < $Nick[$First]\" $Rm[$First]";
     print "P$Num $Nick[$First] > $Nick[$Sec]\n";
     sleep(1)
   }
}

# .PingFile contains this:
#::
#Request-Remailing-To: myadress
#
#Ping!
#-----Begin Test-----
#Test
#-----End Test-----


#Output (first few lines) looks like this:
#P1 cicada > catalyst
#P2 dis.org > catalyst
#P3 jarthur > catalyst
#P4 merde > catalyst
#P5 pmantis > catalyst
#P6 rosebud > catalyst
#P7 shell > catalyst
#P9 dis.org > cicada
#P10 jarthur > cicada

# Sample pings as received later:
# 1 catalyst-remailer@netcom.com Mon Jan 31 08:10   20/757   P7 < shell
# 2 catalyst-remailer@netcom.com Mon Jan 31 08:22   20/759   P6 < rosebud

# grep Subject: /usr/spool/mail/n/name | sort -tP +1 -n
# will give you a list of received mail, in order of Ping numbers,
# where /n/name is your system's mail folder.