[Israel.pm] Perl signature - TTW (time to weekend)

Srikanth Madani srikanth.madani at vodafone.com
Thu Mar 18 09:29:14 PST 2004


Mikhael wrote:

# perl -w
$"="MwMWuOmUMUN8]X:PAZMZP^AZZPAZUZP^AXZPAZZZP^AWJPAXD:N8"
."]X:PAXo:MwMWuOmWM";for(3..9){for(0..9){for(7..9){for(0,
1){$@[$_].=(split//,"O |- :.*")[((ord($,||='u')-56)>>$%*2
&3)+$_*4]}$%++}$%=0,$,=chop$"}print"$@[0] $@[1]\n";@@=""}

Fantastic! (Hebrew khawal'lasmaan?)

This is going to take some time to crack .......:-)

Cheers,
Srikanth Madani
________________________________________
SCM (CC) [TATS - Take Over Infrastucture]
Amdocs Software GmbH [Vodafone D2 Project]
+49-211-533-8461 srikanth.madani at vodafone.com
perl -e'$_="87 69S69E75C69S78 68A32W73A83Y32!";($p,$i,$n,$k
,$f,$l,$o,$y,$d,$s)=(localtime,join"",map(chr,split/\D/));$o>4?print$s,
HERE:print$s,435660-86400*$o-3600*$n-60*$i-$p,join"",split/\d+/'
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯




More information about the Perl mailing list