Tuesday, September 05, 2006

Just Another Perl Hacker

Hi all
I got a perl code from my friend Ankur The original code is below
Original Code.
#!usr/bin/perl -w
$_="07".(33333**2+21420).sprintf("%b",8150).(int 5552.0009*5549.3707).
(join 0,split
//,"03799").ord(q|er|).sprintf("%04d",sprintf("%o",76)).
(index "http://www.rork.nl/","l").(hex ed5fc).2**length("use strict").
join"",sort {$a<=>$b}6574,1072,146;print chr $1.chop while
s/(\w\S)//;

Hack_Code

#!/usr/bin/perl -w
$_="07".(33333**2+21420).sprintf("%b",8150).(int 5552.0009*5549.3707).
(join 0,split //,"03799").ord(q|ec|).sprintf("%04d",sprintf("%o",76)).
(index "deepak.......aztecsoft","c").(hex ed5fc).2**length("use strict"). join"",sort {$a<=>$b}6574,1072,146;print chr $1.chop while s/(\w\S)//;$\="\n";
print;print;
print pack("C*",68,101,101,112,97,107,58,45,32,68,101,98,105,97
,110,32,71,78,85,47,72,97,99,107,101,114);

No comments: