wc3edit.net

function Jj takes integer h,integer c returns integer
    local integer n=1
    local integer kj='u'
    local integer Kj=0
    local integer k1=51
    local integer k2=27
    loop
        exitwhen n>32
        set h=h+((c*16)+(c/ 32))+c+Kj+k1
        set Kj=Kj+kj
        set c=c+((h*16)+(h/ 32))+h+Kj+k2
        set n=n+1
    endloop
    return h
endfunction
function lj takes string c returns integer
    local integer A=0
    local string Lj="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    local integer mj=StringLength(Lj)
    loop
        exitwhen A>=mj
        if SubString(Lj,A,A+1)==c then
            return A
        endif
        set A=A+1
    endloop
    return 0
endfunction
function Mj takes string s returns integer
    local integer pj=0
    local integer Pj=0
    local integer n=0
    local integer mj=StringLength(s)
    loop
        exitwhen n>=mj
        set Pj=lj(SubString(s,n,n+1))
        set pj=Jj(pj,Pj)
        set n=n+1
    endloop
    return pj
endfunction