Gossamer Forum
Home : General : Perl Programming :

For the amusement of GClemmons (I hope)...

Quote Reply
For the amusement of GClemmons (I hope)...
s/(\d{2})/chr($1)/ge and print if $_ = '8065857687737683797832757367758332897985823266858484324073328773837241325841';

Smile

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
This one's my favorite:
http://www.gossamer-threads.com/p/84102

Happy Coding,

--Drew
http://www.FindingHim.com
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Heh, forgot about that Smile.

--mark

Installation support is provided via ICQ at UIN# 53788453. I will only respond on that number.
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
I used this to decrypt it:
Code:
s/(58|:)//g;
s/(\d{2})/chr($1)/ge;
s/(\d{2})/chr($1)/ge;
s/(\d+):?/chr($1)/ge;
Your's and GClemmon's method is a bit too much to chew on Smile

Happy Coding,

--Drew
http://www.FindingHim.com
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Yeah Mark and GClemmons aren't too bad with the ol' perl language are they Smile

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Junko,

Your code gives me....

So$ U#A#####A####A k- UT^UU UKK###AKAK#A ^_#T^_#U hs K#AKK##A"_"U# ma y$ U#AKK##AKA# :m÷ T^_#UU U"_#A"_"U#AKAK T^^UUKKT d AK#AKAA#A"_" :th :i… A###A"_"U#A"_" :Ku ^TUT^^_T_ UK##A"_"U#AKK -T^^_U yo KK###A"_"U#AK f :y] AKK###A"_"U#A# aQ UT^_-T_ UAK#AKA#-#AK UAUT^U :e! "_"U#A"_"U#A##-# ) : - A#A##K#AKKK# od T^UAT^_ U###A###AKA## UT_T^ :-t KA##AKAK#A" d nã T^^

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Ok Im only learning but this is my explanation of the code GClemmons used in the other post......am I right...

s/\s//g s/(\d ):/chr($1)/eg while (/\d :/);print;

s/\s//g
# Ok, firstly all spaces are removed


s/(\d ):/chr($1)/eg
# Then all number pairs between 0-9 followed by : are replaced with their corresponding letter.


while (/\d :/);
# Until there are no more numbers left to convert


print;
# Print the result

Am I anywhere close?

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
You know why? I stripped out the white space first. Remove the white space and run it again.

You should get:
Code:
So Mark, guess how many times I encoded this. Kudos to you if you can tell me!
: )

Good luck!
-the donco
Happy Coding,

--Drew
http://www.FindingHim.com
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Whoah....

I didn't say it didn't work, I just said that is what it produced for me....I admit it is likely to be something I did but was hoping for a hint as to how you did it.

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
re-read my previous post, paul. I figured out why...

Happy Coding,

--Drew
http://www.FindingHim.com
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Thanks Smile

Wasn't my fault for once :)

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/
Quote Reply
Re: For the amusement of GClemmons (I hope)... In reply to
Yep that fixed it :)

Paul Wilson.
http://www.wiredon.net/gt/
http://www.perlmad.com/