A couple of snippets
perl -e'$_="074043072044-12077033078038066035079-47127-26140-32064008089010097004110-66076";do{print chr$_+$;;$;=$_}for/(...)/g'
Looks like an UID, so that's nice.Not too inspired for this one, just got the random idea to make this.
perl -e'$_="kJ/u,sGt: iABnWo%thhTe,r_ JPAeGrfl; KHGafcVkserr,";s/(.)(.)/$2/g;$|=1;do{print;sleep 1;$:=$_;print chr()x length$:for 8,32,8}for/\w+?\W/g'
Could've made it shorter, but I kind of liked using (.)(.) and a small bit of obfuscation, so sue me. :P.Anyway, this one's based on something I saw here a while ago, but I can't find the node. It used the same type of "clearing" I'm using :P.
It's tested on Linux with gnome-terminal, so I don't know if it'll work on Windows, I hope so.
Anyway, hope you like them, and can find ways to golf these, the second one should be very golfable, not too sure about the first one :)
Re: A couple of snippets
created: 2006-01-13 07:30:05
the second one is not actually that obfuscated, but i must say i really like the blinking idea.
=)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
grrr.... argh!
=)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
grrr.... argh!
Re: A couple of snippets
created: 2006-01-13 13:02:18
re OP's observation on operability under W32:
requoted:
perl -e"$_= qw(kJ/u,sGt: iABnWo%thhTe,r_ JPAeGrfl; KHGafcVkserr,);s/(.)(.)/$2/g;$|=1;do{+print;sleep 1;$:=$_;print chr()x length$:for 8,32,8}for/\w+?\W/g"
requoted:
perl -e"$_= qw(kJ/u,sGt: iABnWo%thhTe,r_ JPAeGrfl; KHGafcVkserr,);s/(.)(.)/$2/g;$|=1;do{+print;sleep 1;$:=$_;print chr()x length$:for 8,32,8}for/\w+?\W/g"
prints
Re: A couple of snippets
created: 2006-01-13 18:20:54
just as an FYI, the second one works just fine on a mac, perl 5.8.6.
i suppose reading obfuscations easier comes from writing them. without running it, i knew where the text was coming from, so i stopped reading after i assumed the sleep 1 put in a second delay between each character.
nice little surprise :)