Sub blackbox()
    Dim w(255), q(10), o(31)

    t = InputBox("Please enter Code:")
    If t="" then Exit Sub

    For x = 1 To 768
        z = 0
        For y = 1 To x
            If x Mod y <> 0 Then
                z = z + 1
                If z = x - 2 Then
                    a = a + 1
                    w(a) = x
                End If
            End If
        Next 
    Next 

    b = w(4) ^ 3
    c = b / 12
    d = c * Sqr(2)
    e = d / 31.3
    f = Fix(e)

    o(6) = w(4) + True * -2
    o(5) = w(8) + True * -1
    o(4) = (((w(2) Xor x - 668)) / (f - 1)) - 1
    o(3) = &HF2 / &HB
    o(2) = w(9) - 6 - 2
    o(1) = UBound(q) * 2

    If Len(t) < f Then t = t + String(5 - Len(t), "x")

    For y = 1 To f - 1
        q(y) = Mid(t, y, 1)
        p = Asc(q(y)) - w(o(y))
        r = r + cstr(p)
    Next

    v = r

    For g = 0 To Len(r) - 1
        be = Mid(r, Len(r) - g, 1)
        bf = Asc(be) - 48
        bg = 10 ^ (g)
        bh = bh + bf * bg
    Next 

    r = bh

    While r > 1
        s = s + r Mod 10
        r = r / 10
    Wend

    v = v * (s + Len(t))

    If v = 1732771848 Then 
        MsgBox "Your Code is correct. You may proceed.",vbinformation
        Me.window.navigate t + ".shtml"
    Else
        MsgBox "Your Code is incorrect" , vbinformation
        Call blackbox 
    End If

End Sub

'----------------------------------------------------------------------------
' Every input is transformed into a number. 
' Find the word that matches 1732771848 and you will be directed to the right place.
'
'
' Some hints:
' 1. The code is a common word (i.e. nothing like '34htH8l' or something...)
' 2. Only low-case letters are used and no numbers are included.