Hi!

I think most of you have noticed the current traveling email worm called homepage.HTML.vbs. As a user of a linux-machine I found it very funny to see how often the message popped into my mailbox. On the other hand I was interested in what the source would look like, and found that it does some replacements to a quite long string. So I tried to decode it in perl, and came up with the following solution: 

for (my $i = 0; $i < length($foo); $i++) {
   my $bar = substr($foo, $i, 1);
   if (ord($bar) == 15) {
      $bar = chr(10);
   } elsif (ord($bar) == 16) {
      $bar = chr(13);
   } elsif (ord($bar) == 17) {
      $bar = chr(32);
   } elsif (ord($bar) == 18) {
      $bar = chr(9);
   } else {
      $bar = chr(ord($bar)-2);
   }
   substr($foo, $i, 1) = $bar;
}

print $foo."\n";

[download]
I thought of using tr for that, but it seems to be quite tough to set up that lines.... So, any improvement are welcome - not for helping decoding (that was finished ;) but for improving personal abilities.

Like always, thanks in advance.
--
use signature; signature(" So long\nAlfie");

In reply to homepage.vbs decode by alfie

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.