+----------------------------------------------------------------+
|  KEG_28147(d, Q, H)                                            |
|----------------------------------------------------------------|
|  Input:                                                        |
|  - private key d,                                              |
|  - public key Q,                                               |
|  - H in B_32.                                                  |
|  Output:                                                       |
|  - key material K in B_32.                                     |
|----------------------------------------------------------------|
|  1. If q * Q is not equal to zero point                        |
|        return FAIL                                             |
|  2. UKM = H[1..8]                                              |
|  3. R = VKO_256(d, Q, int(UKM))                                |
|  4. return K = CPDivers(UKM, R)                                |
+----------------------------------------------------------------+