function Coding takes string s,string name returns string
    local integer a=0
    local integer LoopA = 1
    local string pass=s
    local integer lens=StringLength(pass)
    local string char
    local integer LoopB
    loop
        exitwhen LoopA>StringLength(name)
        set a=a+NameCharToInt(SubStringBJ(name,LoopA,LoopA))
        set LoopA=LoopA+1
    endloop
    set a=a-(1225*(a/1225))
    set pass=pass+IntToCode(a,2)
    set a=StringLength(name)
    set pass=pass+IntToCode(a,1)
    set a=0
    set LoopA = 1
    loop
        exitwhen LoopA>StringLength(pass)
        set a=a+CharToInt(SubStringBJ(pass,LoopA,LoopA))
        set LoopA=LoopA+1
    endloop
    set a=a-(1225*(a/1225))
    set pass=pass+IntToCode(a,2)
    //Вторая часть
    set LoopA=1
    loop
        exitwhen LoopA>StringLength(pass)
        set a=LoopA+CharToInt(SubStringBJ(pass,LoopA,LoopA))
        set a=a-(35*(a/35))
        set char=IntToChar(a)
        set pass=SubStringBJ(pass,1,LoopA-1)+char+SubStringBJ(pass,LoopA+1,StringLength(pass))
        set LoopA=LoopA+1
    endloop
    //Третья часть
    set LoopA = 1
    loop
        exitwhen LoopA>StringLength(pass)-1
        set LoopB=LoopA+1
        loop
            exitwhen LoopB>StringLength(pass)
            set a=CharToInt(SubStringBJ(pass,LoopA,LoopA))+CharToInt(SubStringBJ(pass,LoopB,Loop  B))
            set a=a-(35*(a/35))
            set char=IntToChar(a)
            set pass=SubStringBJ(pass,1,LoopB-1)+char+SubStringBJ(pass,LoopB+1,StringLength(pass))
            set LoopB=LoopB+1
        endloop
        set LoopA=LoopA+1
    endloop
    //Четвертая часть
    set LoopA=1
    loop
        exitwhen LoopA>StringLength(pass)
        set a=LoopA+CharToInt(SubStringBJ(pass,LoopA,LoopA))
        set a=a-(35*(a/35))
        set char=IntToChar(a)
        set pass=SubStringBJ(pass,1,LoopA-1)+char+SubStringBJ(pass,LoopA+1,StringLength(pass))
        set LoopA=LoopA+1
    endloop
    //Пятая часть
    set a=0
    set LoopA=1
    loop
        exitwhen LoopA>StringLength(pass)
        set a=a+CharToInt(SubStringBJ(pass,LoopA,LoopA))
        set LoopA =LoopA+1
    endloop
    set a=a-(1225*(a/1225))
    set pass=IntToCode(a,2)+pass
    //Шестая часть
    set LoopA=1
    loop
        exitwhen LoopA>2
        set LoopB=udg_LoopA+1
        loop
            exitwhen LoopB>StringLength(pass)
            set a=CharToInt(SubStringBJ(pass,LoopA,LoopA))+CharToInt(SubStringBJ(pass,LoopB,Loop  B))
            set a =a-(35*(a/35))
            set char=IntToChar(a)
            set pass=SubStringBJ(pass,1,LoopB-1)+char+SubStringBJ(pass,LoopB+1,StringLength(pass))
            set LoopB=LoopB+1
        endloop
        set LoopA=LoopA+1
    endloop
    //Седьмая часть
    set pass=SubStringBJ(pass,20,StringLength(pass))+SubStringBJ(pass,1,19)
    set LoopA=1
    loop
        exitwhen LoopA>2
        set LoopB=LoopA+1
        loop
            exitwhen LoopB>StringLength(pass)
            set a=CharToInt(SubStringBJ(pass,LoopA,LoopA))+CharToInt(SubStringBJ(pass,LoopB,Loop  B))
            set a=a-(35*(a/35))
            set char=IntToChar(a)
            set pass=SubStringBJ(pass,1,LoopB-1)+char+SubStringBJ(pass,LoopB+1,StringLength(pass))
            set LoopB=LoopB+1
        endloop
        set LoopA=LoopA+1
    endloop
    set LoopA=1
    set a=1
    set LoopB=StringLength(pass)/6
    loop
       exitwhen a>LoopB
       set pass=SubStringBJ(pass,1,7*a-1)+"-"+SubStringBJ(pass,7*a,StringLength(pass))
       set a=a+1
    endloop
    set char = ""
return pass
endfunction