// передаю алфавит кодирования , кодируемое число - получаю закодированую строку
function I2RAW takes string alp, integer cod returns string

 local string res = ""  
 local integer j = 0 
 local integer i = 1 
 
    loop
        exitwhen i > 10
        if cod >= StringLength(alp) then
            set j = ( cod - (  cod / StringLength(alp) * StringLength(alp) ) )
            set res = ( SubString(alp, j, ( j + 1 )) + res )
            set cod = ( cod / StringLength(alp) )
            set i = 1
        else
            set res = ( SubStringBJ(alp, ( cod + 1 ), ( cod + 1 )) + res )
            set i = 10
        endif
        set i = i + 1
    endloop    
    
  return res  
endfunction

function RAW2I takes string s1, string s2, string cod returns integer

 local integer res = 0  
 local integer i = 0 
 local integer j = 0 
 local integer m = 0 
 local integer n = 0 
 local integer p = 0 

    set m = 1
    loop
        exitwhen m > StringLength(cod)
        set n = 1
        loop
            exitwhen n > StringLength(s1)
            if ( ( SubString(cod, m-1, m) == SubString(s1, n-1, n) )or( SubString(cod, m-1, m) == SubString(s2, n-1, n)) )  then
                set j = ( n - 1 )
                set n = StringLength(s1)
            else
            endif
            set n = n + 1
        endloop
        set p = 0
        loop
            exitwhen p > ( StringLength(cod) - m )
            if p == 0 then
                set i = 1
            else
                set i = ( i * StringLength(s1) )
            endif
            set p = p + 1
        endloop
        set res = ( res + ( i * j ) )
        set m = m + 1
    endloop
 return res
endfunction