alias encrypt {
  var %i = 0
  var %line = $replace($1-,$chr(32),$chr(95))
  while (%i <= $len($1-)) {
    inc %i 1
    var %rev = %rev $+ $right(%line,1)
    var %line = $left(%line,-1)
  }
  var %rand = 1 $+ $rand(6,7) $+ $rand(3,4)  
  var %rev = $replace(%rev,a,$chr($calc(%rand + 1)),b,$chr($calc(%rand + 2)),c,$chr($calc(%rand + 3)),d,$chr($calc(%rand + 4)),e,$chr($calc(%rand + 5))5,f,$chr($calc(%rand + 6)),g,$chr($calc(%rand + 7)),h,$chr($calc(%rand + 8)),i,$chr($calc(%rand + 9)),j,$chr($calc(%rand + 10)),k,$chr($calc(%rand + 11)),l,$chr($calc(%rand + 12)),m,$chr($calc(%rand + 13)),n,$chr($calc(%rand + 14)),o,$chr($calc(%rand + 15)),p,$chr($calc(%rand + 16)),q,$chr($calc(%rand + 17)),r,$chr($calc(%rand + 18)),s,$chr($calc(%rand + 19)),u,$chr($calc(%rand + 21)),v,$chr($calc(%rand + 22)),w,$chr($calc(%rand + 23)),x,$chr($calc(%rand + 24)),y,$chr($calc(%rand + 25)),z,$chr($calc(%rand + 26)),t,$chr($calc(%rand + 20)))
  return %rev $+ $chr(234) $+ $chr(%rand)
}
alias decrypt {
  if ($gettok($1-,2,234) == $null) { return $null }
  else {
    var %line = $gettok($1-,1,234)
    var %key = $asc($gettok($1-,2,234))
    var %i = 0    
    var %line2 = %line
    while (%i < $len(%line)) {
      inc %i 1     
      var %return = %return $+ $replace($calc($asc($left(%line2,1)) - %key),95,$chr(32),26,z,25,y,24,x,23,w,22,v,21,u,20,t,19,s,18,r,17,q,16,p,15,o,14,n,13,m,12,l,11,k,10,j,9,i,8,h,7,g,6,f,5,e,4,d,c,3,2,b,1,a)
      var %line2 = $right(%line2,-1)
    }
    var %i = 0
    var %extra = %return
    while (%i <= $len(%return)) {
      inc %i 1
      var %decrypt = %decrypt $+ $right(%extra,1)
      var %extra = $left(%extra,-1)
    }  
    return $replace($replace(%decrypt,hg-,_,hf-,_,ig-,_,if-,_),_,$chr(32))
  }
}