**pw_decoder: "3710492cerf21"

sub pw_decoder()
   var str='@D>=AF?prs?>' # ввести сюда декодируемую строку
   var num,i,j
   dim uo_symb[69]
   uo_symb=r_uo_symb(uo_symb)
   dim uo_code[69]
   uo_code=r_uo_code(uo_code)
   if strlen(str)>0 then
      for i=0 to strlen(str)-1
         num=inarray(str[i],uo_code,0,69)
         if num>-1 then
            str=left(str,i)+uo_symb[num]+right(str,strlen(str)-i-1)
         endif
      next
      str='**pw_decoder: "'+str+'"'
   else
      str='**pw_decoder: Введена пустая строка'
   endif
   uo.textopen()
   uo.textprint(str)
endsub

sub r_uo_symb(uo_symb)
   uo_symb[0] ='0'
   uo_symb[1] ='1'
   uo_symb[2] ='2'
   uo_symb[3] ='3'
   uo_symb[4] ='4'
   uo_symb[5] ='5'
   uo_symb[6] ='6'
   uo_symb[7] ='7'
   uo_symb[8] ='8'
   uo_symb[9] ='9'
   uo_symb[10]='/'
   uo_symb[11]='*'
   uo_symb[12]='-'
   uo_symb[13]='+'
   uo_symb[14]='='
   uo_symb[15]='.'
   uo_symb[16]=','
   uo_symb[17]='/'
   uo_symb[18]='|'
   uo_symb[19]='\'
   uo_symb[20]='?'
   uo_symb[21]='['
   uo_symb[22]=']'
   uo_symb[23]='{'
   uo_symb[24]='}'
   uo_symb[25]=';'
   uo_symb[26]=':'
   uo_symb[27]='`'
   uo_symb[28]='~'
   uo_symb[29]='!'
   uo_symb[30]='@'
   uo_symb[31]='#'
   uo_symb[32]='$'
   uo_symb[33]='%'
   uo_symb[34]='^'
   uo_symb[35]='&'
   uo_symb[36]='*'
   uo_symb[37]='('
   uo_symb[38]=')'
   uo_symb[39]='<'
   uo_symb[40]='>'
   uo_symb[41]="'"
   uo_symb[42]='"'
   uo_symb[43]='a'
   uo_symb[44]='b'
   uo_symb[45]='c'
   uo_symb[46]='d'
   uo_symb[47]='e'
   uo_symb[48]='f'
   uo_symb[49]='g'
   uo_symb[50]='h'
   uo_symb[51]='i'
   uo_symb[52]='j'
   uo_symb[53]='k'
   uo_symb[54]='l'
   uo_symb[55]='m'
   uo_symb[56]='n'
   uo_symb[57]='o'
   uo_symb[58]='p'
   uo_symb[59]='q'
   uo_symb[60]='r'
   uo_symb[61]='s'
   uo_symb[62]='t'
   uo_symb[63]='u'
   uo_symb[64]='v'
   uo_symb[65]='w'
   uo_symb[66]='x'
   uo_symb[67]='y'
   uo_symb[68]='z'
   return uo_symb
endsub

sub r_uo_code(uo_code)
   uo_code[0] ='='
   uo_code[1] ='>'
   uo_code[2] ='?'
   uo_code[3] ='@'
   uo_code[4] ='A'
   uo_code[5] ='B'
   uo_code[6] ='C'
   uo_code[7] ='D'
   uo_code[8] ='E'
   uo_code[9] ='F'
   uo_code[10]='<'
   uo_code[11]='7'
   uo_code[12]=':'
   uo_code[13]='8'
   uo_code[14]='J'
   uo_code[15]=';'
   uo_code[16]='9'
   uo_code[17]='<'
   uo_code[18]='*'
   uo_code[19]='i'
   uo_code[20]='L'
   uo_code[21]='h'
   uo_code[22]='j'
   uo_code[23]=')'
   uo_code[24]='+'
   uo_code[25]='H'
   uo_code[26]='G'
   uo_code[27]='m'
   uo_code[28]=','
   uo_code[29]='.'
   uo_code[30]='M'
   uo_code[31]='0'
   uo_code[32]='1'
   uo_code[33]='2'
   uo_code[34]='k'
   uo_code[35]='3'
   uo_code[36]='7'
   uo_code[37]='5'
   uo_code[38]='6'
   uo_code[39]='I'
   uo_code[40]='K'
   uo_code[41]='4'
   uo_code[42]='/'
   uo_code[43]='n'
   uo_code[44]='o'
   uo_code[45]='p'
   uo_code[46]='q'
   uo_code[47]='r'
   uo_code[48]='s'
   uo_code[49]='t'
   uo_code[50]='u'
   uo_code[51]='v'
   uo_code[52]='w'
   uo_code[53]='x'
   uo_code[54]='y'
   uo_code[55]='z'
   uo_code[56]='{'
   uo_code[57]='|'
   uo_code[58]='}'
   uo_code[59]='~'
   uo_code[60]=''
   uo_code[61]='!'
   uo_code[62]='"'
   uo_code[63]='#'
   uo_code[64]='$'
   uo_code[65]='%'
   uo_code[66]='&'
   uo_code[67]="'"
   uo_code[68]='('
   return uo_code
endsub

sub inarray(str,arr,nocase,arr_len)
  var i
  if nocase then
    str=strtolower(str)
  endif
  for i=0 to arr_len-1
    if nocase then
      if strtolower(arr[i])==str then
        return i
      endif
    else
      if arr[i]==str then
        return i
      endif
    endif
  next
  return -1
endsub

uo_code=r_uo_code(uo_code)

str=left(str,i)+uo_symb[num]+right(str,strlen(str)-i-1)