user since
Mon Sep 17 2001 at 16:25:04 (16.2 years ago )
last seen
Thu Sep 19 2013 at 20:10:50 (4.2 years ago )
number of write-ups
20 - View dill's writeups (feed)
level / experience
0 (Initiate) / 173
most recent writeup
OSPF
Send private message to dill

"Wise men talk because they have something to say; fools talk because they have to say something." - Plato

I think I'm going to give writing semi-fictional (not homework) nodes a go. It seems more relaxing...

A few perl obfu's that I wrote a while ago

#!/usr/bin/perl -w
$monkey="japh";@monkee=(32..127);do{$monkie="";do{$monkies=chr$monkee
[rand@monkee];$monkie.=$monkies;$yeknom=length$monkie;}until($yeknom
eq"4");$eiknom++;}until($monkie eq $monkey);print"$monkie in $eiknom";

#!/usr/bin/perl -w

      @nums = ("5","1","2","1","1" ,"6","1","1","1","1"
      ,"2","1","1","2","1", "1","8","1","5","1","3","1"
      ,"1","8","1","6","2" ,"6","1","1","1","1","9","1"
      ,"1","2","1","1", "9","1","1","2","1","1","1","8"
      ,"1","6","1","7","1","1","2","1","1","2","1","1","7","1","1","3","1","1"
      ,"1","8","1","5","2","6","1","1","9","1","1","2",                "1","1",
      "1" ,"2","1","1","1","2","1","1","1","2","1","1",                  "1","8"
      ,"1","1","2","1","1","2","1","1","7","1","1","6",                    "1",
      "1", "1","6","1","1","5","1","3","1");@lets=(" ",                     "H"
      ," ", "H","\n"," ","\\"," ","/","\n"," ","H"," ",                     "-"
      ," ", "C", " ","O"," ","H"," ","H","\n"," ","\\",                     " "
      ,"\/"," ","\\"," ","\/","\n"," ","N"," ","-"," ",                     "C"
      ," ","C"," " ,"-"," ","H","\n"," ","\/"," ","\\",                     " "
      ,"\/","\n", " ", "O"," ","="," ","C"," ","C"," ",                      "-"
      ," ","N","\n"," ","\\"," ","\/"," ","\\","\n"," "                     ,"N"
      ," ","-", " ","C"," ","-"," ","N"," ","="," ","C"                    ," ",
      "-", " ","H", "\n"," ","\/","\n"," ","H"," ","-",                  " ","C"
      ," ","caffeine","\n"," ","\/"," ","\\"," ","(C8H10N4O2)","\n"," ","H"," ",
      "H","\n");while (@nums){$num = shift(@nums); $let
      = shift (@lets); print "$let"x$num; };print "\n";

User Bookmarks:

Sort by name Sort by date