Welcome to sammy.net.

This server was a Sun 3/60, running Linux/m68k 2.6.7, with 24mb of memory, and 1.3gb of disk, provided by what appears to be a full-height, jet powered space heater made by Seagate several years ago. Unfortunately, the old beast just wasn't economical for rack space, and has since been replaced by an UltraSparc.

Visit the SammyNET online store!

Local Linux/sun3 information/resources

Click here for more information on Linux/sun3

And, as a final note...

$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d8^($f=$t&($d12^$d4^
$d^$d/8))<<17,$e=$e8^($t&($g=($q=$e14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^
(($h=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

Enjoy the perl. And the hex:

09-f9-11-02-9d-74-e3-5b-d8-41-56-c5-63-56-88-c0
45-5F-E1-04-22-CA-29-C4-93-3F-95-05-2B-79-2A-B2

Sam Creasey http://sammy.net/~sammy/
Last modified: Thu Jun 14 07:26:04 EDT 2007