'MessageBox.Show(getSHA1Hash("sed"))
        'rn = CInt(Int((100 * Rnd()) + 1))
        'rn = System.DateTime.Now.Millisecond
        'While rn > 100
        'rn = rn - 100
        'End While
        '
        '
        '
        'My.Computer.Registry.CurrentUser.CreateSubKey
        '
        '