Return to Unfiction unforum
 a.r.g.b.b 
FAQ FAQ   Search Search 
 
Welcome!
New users, PLEASE read these forum guidelines. New posters, SEARCH before posting and read these rules before posting your killer new campaign. New players may also wish to peruse the ARG Player Tutorial.

All users must abide by the Terms of Service.
Website Restoration Project
This archiving project is a collaboration between Unfiction and Sean Stacey (SpaceBass), Brian Enigma (BrianEnigma), and Laura E. Hall (lehall) with
the Center for Immersive Arts.
Announcements
This is a static snapshot of the
Unfiction forums, as of
July 23, 2017.
This site is intended as an archive to chronicle the history of Alternate Reality Games.
  

The time now is Tue Nov 12, 2024 3:36 am
All times are UTC - 4 (DST in action)		 View posts in this forum since last visit
View unanswered posts in this forum
Calendar
 Forum index » Archive » Archive: The Haunted Apiary (Let Op!) » The Haunted Apiary (Let Op!): Puzzles
[META] Decoder wheel in Perl
View previous topicView next topic
Page 1 of 1 [5 Posts]  
Author Message
turbov21
Veteran

Joined: 20 Aug 2004
Posts: 108

 		[META] Decoder wheel in Perl
THIS DOES NOT WORK. Any Perl hackers out there are welcome to have a crack at it (or me).

Code:

#!/usr/bin/perl -w

use strict;

my $text = 'abcdefghijklmnopqrstuvwxyz';
my $cypher = 'cnrkmbsvwhoxdfipagzetquljy';

$ARGV[0] =~ tr/A-Z/a-z/;

my @word = split(//, $ARGV[0]);


for (1 ... 26)
{
   my $a = $text;
   my $b = $cypher;

   foreach my $let (@word)
   {
      my $cnt = 0;
      my %data = ();
      my @c = split(//, $a);
      my @d = split(//, $b);

      while ($c[$cnt])
      {
         $data{$d[$cnt]} = $c[$cnt];
         $cnt++;
      }

      print $data{$let};
      $b =~ s/^(.*)(.)$/$2$1/;
   }

   print "\n";

   $cypher =~ s/^(.*)(.)$/$2$1/;
}

exit;


EDIT -topic tag -SG

PostPosted: Fri Oct 08, 2004 1:40 pm
 View user's profile
 Back to top 
ABoxInABox
Decorated

Joined: 10 Aug 2004
Posts: 232
Location: The Future

 		Do you have Perl?

PostPosted: Fri Oct 08, 2004 1:54 pm
 View user's profile Visit poster's website AIM Address MSN Messenger
 Back to top 
turbov21
Veteran

Joined: 20 Aug 2004
Posts: 108

 		Oh, yes... I wrote this. It's just not working for me. There's a bug in it somewhere.

PostPosted: Fri Oct 08, 2004 1:57 pm
 View user's profile
 Back to top 
SpghEddy
Veteran


Joined: 24 Jul 2004
Posts: 88

 		What is this supposed to do? Decrypt something on the command line using $text -> $cipher as the decryption key?

PostPosted: Fri Oct 08, 2004 2:20 pm
 View user's profile
 Back to top 
turbov21
Veteran

Joined: 20 Aug 2004
Posts: 108

 		It was an attempt to bruteforce the cypher wheel, but that's been solved.

PostPosted: Fri Oct 08, 2004 2:33 pm
 View user's profile
 Back to top 
Display posts from previous:   Sort by:   
Page 1 of 1 [5 Posts]  
View previous topicView next topic
 Forum index » Archive » Archive: The Haunted Apiary (Let Op!) » The Haunted Apiary (Let Op!): Puzzles
Jump to:  


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
You cannot post calendar events in this forum



Powered by phpBB © 2001, 2005 phpBB Group