*---*
FUNCTION encrip()
 PARAMETERS var_cs, var_acc
  LOCAL t_abc[37], t_char[37], var_i, var_s1, var_s2
  t_abc[01]  = 'A'
  t_abc[02]  = 'B'
  t_abc[03]  = 'C'
  t_abc[04]  = 'D'
  t_abc[05]  = 'E'
  t_abc[06]  = 'F'
  t_abc[07]  = 'G'
  t_abc[08]  = 'H'
  t_abc[09]  = 'I'
  t_abc[10]  = 'J'
  t_abc[11]  = 'K'
  t_abc[12]  = 'L'
  t_abc[13]  = 'M'
  t_abc[14]  = 'N'
  t_abc[15]  = 'O'
  t_abc[16]  = 'P'
  t_abc[17]  = 'Q'
  t_abc[18]  = 'R'
  t_abc[19]  = 'S'
  t_abc[20]  = 'T'
  t_abc[21]  = 'U'
  t_abc[22]  = 'V'
  t_abc[23]  = 'W'
  t_abc[24]  = 'X'
  t_abc[25]  = 'Y'
  t_abc[26]  = 'Z'
  t_abc[27]  = ' '
  t_abc[28]  = '0'
  t_abc[29]  = '1'
  t_abc[30]  = '2'
  t_abc[31]  = '3'
  t_abc[32]  = '4'
  t_abc[33]  = '5'
  t_abc[34]  = '6'
  t_abc[35]  = '7'
  t_abc[36]  = '8'
  t_abc[37]  = '9'
  t_char[01] = 'é'
  t_char[02] = 'í'
  t_char[03] = 'ï'
  t_char[04] = 'ç'
  t_char[05] = 'ä'
  t_char[06] = 'æ'
  t_char[07] = 'å'
  t_char[08] = 'â'
  t_char[09] = 'î'
  t_char[10] = 'á'
  t_char[11] = 'ñ'
  t_char[12] = 'ô'
  t_char[13] = 'ö'
  t_char[14] = 'û'
  t_char[15] = 'õ'
  t_char[16] = 'ü'
  t_char[17] = 'ó'
  t_char[18] = 'ð'
  t_char[19] = '÷'
  t_char[20] = 'ù'
  t_char[21] = 'ø'
  t_char[22] = 'è'
  t_char[23] = 'ë'
  t_char[24] = 'ê'
  t_char[25] = 'à'
  t_char[26] = 'ò'
  t_char[27] = 'Ø'
  t_char[28] = '|'
  t_char[29] = '}'
  t_char[30] = '\'
  t_char[31] = '$'
  t_char[32] = '@'
  t_char[33] = ','
  t_char[34] = '~'
  t_char[35] = ']'
  t_char[36] = '%'
  t_char[37] = '#'
  var_cla = ''
  FOR var_i = 1 TO LEN(var_cs)  
      IF (var_acc = 1)
         var_s1 = ASCAN(t_abc, SUBSTR(var_cs, var_i, 1))          
         var_s2 = IIF(var_s1 # 0, t_char[ASCAN(t_abc, SUBSTR(var_cs, var_i, 1))], '')
      ELSE
         var_s1 = ASCAN(t_char, SUBSTR(var_cs, var_i, 1)) 
         var_s2 = IIF(var_s1 # 0, t_abc[ASCAN(t_char, SUBSTR(var_cs, var_i, 1))], '')
      ENDIF  
      IF (var_s1 # 0)
         var_cla = (var_cla + var_s2)
      ENDIF   
  NEXT
RETURN(var_cla)
*---*