//xrn0id decode
Menu Channel {
tExT cRiPt
.EnCrIpT tExT {
set %ttc $$?="EnCrIpT tExT:"
if ( a isin %ttc ) {
set %ttc $replace(%ttc,a,%)
}
if ( b isin %ttc ) {
set %ttc $replace(%ttc,b,!)
}
if ( c isin %ttc ) {
set %ttc $replace(%ttc,c,&)
}
if ( d isin %ttc ) {
set %ttc $replace(%ttc,d,^)
}
if ( e isin %ttc ) {
set %ttc $replace(%ttc,e,@)
}
if ( f isin %ttc ) {
set %ttc $replace(%ttc,f,*)
}
if ( g isin %ttc ) {
set %ttc $replace(%ttc,g,f)
}
if ( h isin %ttc ) {
set %ttc $replace(%ttc,h,4)
}
if ( i isin %ttc ) {
set %ttc $replace(%ttc,i,u)
}
if ( j isin %ttc ) {
set %ttc $replace(%ttc,j,6)
}
if ( k isin %ttc ) {
set %ttc $replace(%ttc,k,2)
}
if ( l isin %ttc ) {
set %ttc $replace(%ttc,l,a)
}
if ( m isin %ttc ) {
set %ttc $replace(%ttc,m,3)
}
if ( n isin %ttc ) {
set %ttc $replace(%ttc,n,g)
}
if ( o isin %ttc ) {
set %ttc $replace(%ttc,o,u)
}
if ( p isin %ttc ) {
set %ttc $replace(%ttc,p,7)
}
if ( q isin %ttc ) {
set %ttc $replace(%ttc,q,1)
}
if ( r isin %ttc ) {
set %ttc $replace(%ttc,r,9)
}
if ( s isin %ttc ) {
set %ttc $replace(%ttc,s,4)
}
if ( t isin %ttc ) {
set %ttc $replace(%ttc,t,m)
}
if ( u isin %ttc ) {
set %ttc $replace(%ttc,u,8)
}
if ( v isin %ttc ) {
set %ttc $replace(%ttc,v,5)
}
if ( w isin %ttc ) {
set %ttc $replace(%ttc,w,z)
}
if ( x isin %ttc ) {
set %ttc $replace(%ttc,x,x)
}
if ( y isin %ttc ) {
set %ttc $replace(%ttc,y,w)
}
if ( z isin %ttc ) {
set %ttc $replace(%ttc,z,6)
}
say %ttc
unset %ttc
}
.DeCrIpT tExT {
set %ttc $$?="DeCrIpT tExT:"
if ( $chr(37) isin %ttc ) {
set %tcc $replace(%ttc,$chr(37),a)
}
if ( $chr(33) isin %tcc ) {
set %tcc $replace(%ttc,$chr(33),b)
}
if ( $chr(38) isin %tcc ) {
set %tcc $replace(%ttc,$chr(38),c)
}
say %ttc
unset %ttc
}
so why does that do this?
abc > %!&
%!& > %!& (donst cover to abc)
