Base Conversion

 'Function BaseCon(N,radix)
 ' return representation of a number N
 ' in the system based on radix 
 
 Function BaseCon(N, radix)
 
    Dim hex
    hex = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim s
    s = ""
 
    Dim A
    A = N
 
    While A >= radix
        B = A Mod radix
        A = Int(A / radix)
        s = s & Mid(hex,B+1,1)
    Wend
   
    s = s & Mid(hex,A+1,1)
    BaseCon = StrReverse(s)
 End Function
 
 MsgBox BaseCon(15,16)

 // function DecimaltoAnother(N, radix)
 // 
 // return representation of a number N
 // in the system based on radix 
 //
 function DecimaltoAnother(N, radix)
 {
 hex = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    s = "";
 
    A = N;
    while (A >= radix)
    {
        B = A % radix;
        A = Math.floor(A / radix);
        s += hex.charAt(B);
    }
    
    s += hex.charAt(A);
    return Transpose(s);
 }
 
 // function Transpose(s)
 //
 // return a string written from right to left
 //
 function Transpose(s)
 {
    N = s.length;
 
    t = "";
 
    for (i = 0; i < N; i++)
        t = t + s.substring(N-i-1, N-i);
 
    s = t;
    return s;
 }
 
 WScript.Echo(DecimaltoAnother(99,36));