($Q=
'b inm ode (STDIN);$q=
########## "";whi le( <>) {$q
## ##.=$_;fo r(;
## len gth ($
## q)> 59 ; $ q
## =s ub s tr ($ q ,6
### 0) ) {$ z="";forea c h$ x(un pa
#### ck " V 15", $q ){$ c =$ x %9 0
## ;$ i= ( $x / =9 0) %9 0;$r =($x/= 9
## 0 ) % 90 ;$n=($x /= 9 0)%90;$o = $
## x/ 90 ; $z .=p ack " C *",$c+ 33 , $i
## + 33 , $r+ @@@ 33 ,$n +33 ,$ o+ 3 3;
#####}p r i nt" @@@ @@ $ z \n "; }
##}$y =( 4 -l @@@@ @@@ en gt h( $q)
%4 ) & 3; @@@@ @@@ $ z=" "; for
eac h $x ( unp @@@ @@@ a c k" V *
","$q \ 0 \ 0\ 0" @@ @@ ){ $c =$
x%90;$i=($x/ =9 0) %9 0 ;$ r=(
$x /= 9 0) %90
;$ n= ( $x /=
9 0)% 90; $o=$x/ 90 ;$
z .=p ack "C*", $c+3 3,$i+ 33,
$ r+3 3, $n +33,$o+33 ;}for(;$y >0;$
y-- ){chop$ z; }print"$z\n";' )=~s/[
#@ `]//g ;;eval " $Q
"x 1;
|
| NFO | RAR | ZIP | DETAILS | / | |
| 2023-03-27 | |||||