int main() { int i,bytes,res; unsigned long ran; char m[RFS],ml[RFS],c[RFS],e[RFS],raw[100]; rsa_public_key pub; rsa_private_key priv; csprng RNG; octet M={0,sizeof(m),m}; octet ML={0,sizeof(ml),ml}; octet C={0,sizeof(c),c}; octet E={0,sizeof(e),e}; octet RAW={0,sizeof(raw),raw}; time((time_t *)&ran); RAW.len=100; /* fake random seed source */ RAW.val[0]=ran; RAW.val[1]=ran>>8; RAW.val[2]=ran>>16; RAW.val[3]=ran>>24; for (i=4;i<100;i++) RAW.val[i]=i; CREATE_CSPRNG(&RNG,&RAW); /* initialise strong RNG */ printf("Generating public/private key pair\n"); RSA_KEY_PAIR(&RNG,65537,&priv,&pub); printf("Encrypting test string\n"); OCT_jstring(&M,(char *)"Hello World\n"); OAEP_ENCODE(&M,&RNG,NULL,&E); /* OAEP encode message m to e */ RSA_ENCRYPT(&pub,&E,&C); /* encrypt encoded message */ printf("Ciphertext= "); OCT_output(&C); printf("Decrypting test string\n"); RSA_DECRYPT(&priv,&C,&ML); /* ... and then decrypt it */ OAEP_DECODE(NULL,&ML); /* decode it */ OCT_output_string(&ML); if (!OCT_comp(&M,&ML)) { printf("FAILURE RSA Encryption failed"); return 1; } OCT_clear(&M); OCT_clear(&ML); /* clean up afterwards */ OCT_clear(&C); OCT_clear(&RAW); OCT_clear(&E); KILL_CSPRNG(&RNG); RSA_PRIVATE_KEY_KILL(&priv); printf("SUCCESS\n"); return 0; }
int main() { int i,PIN1,PIN2,rtn,err; char client_id[256]; octet CLIENT_ID = {0,sizeof(client_id),client_id}; char x[PGS],y[PGS]; octet X={sizeof(x), sizeof(x),x}; octet Y={sizeof(y),sizeof(y),y}; /* Master secret shares */ char ms1[PGS], ms2[PGS]; octet MS1={sizeof(ms1),sizeof(ms1),ms1}; octet MS2={sizeof(ms2),sizeof(ms2),ms2}; /* Hash values of CLIENT_ID */ char hcid[32]; octet HCID={sizeof(hcid),sizeof(hcid), hcid}; /* Client secret and shares */ char cs1[2*PFS+1], cs2[2*PFS+1], sec[2*PFS+1]; octet SEC={sizeof(sec),sizeof(sec),sec}; octet CS1={sizeof(cs1),sizeof(cs1), cs1}; octet CS2={sizeof(cs2),sizeof(cs2), cs2}; /* Server secret and shares */ char ss1[4*PFS], ss2[4*PFS], serverSecret[4*PFS]; octet ServerSecret={sizeof(serverSecret),sizeof(serverSecret),serverSecret}; octet SS1={sizeof(ss1),sizeof(ss1),ss1}; octet SS2={sizeof(ss2),sizeof(ss2),ss2}; /* Time Permit and shares */ char tp1[2*PFS+1], tp2[2*PFS+1], tp[2*PFS+1]; octet TP={sizeof(tp),sizeof(tp),tp}; octet TP1={sizeof(tp1),sizeof(tp1),tp1}; octet TP2={sizeof(tp2),sizeof(tp2),tp2}; /* Token stored on computer */ char token[2*PFS+1]; octet TOKEN={sizeof(token),sizeof(token),token}; char ut[2*PFS+1],u[2*PFS+1]; octet UT={sizeof(ut),sizeof(ut),ut}; octet U={sizeof(u),sizeof(u),u}; char hid[2*PFS+1],htid[2*PFS+1]; octet HID={0,sizeof(hid),hid}; octet HTID={0,sizeof(htid),htid}; char e[12*PFS], f[12*PFS]; octet E={sizeof(e),sizeof(e),e}; octet F={sizeof(f),sizeof(f),f}; PIN1 = 1234; PIN2 = 1234; /* Assign the End-User an ID */ char* user = "******"; OCT_jstring(&CLIENT_ID,user); printf("CLIENT: ID %s\n", user); int date = 0; char seed[100] = {0}; octet SEED = {0,sizeof(seed),seed}; csprng RNG; /* unrandom seed value! */ SEED.len = 100; for (i=0;i<100;i++) SEED.val[i]=i+1; /* initialise random number generator */ CREATE_CSPRNG(&RNG,&SEED); /* Hash CLIENT_ID */ MPIN_HASH_ID(&CLIENT_ID,&HCID); OCT_output(&HCID); /* Generate Client master secret for MIRACL and Customer */ rtn = MPIN_RANDOM_GENERATE(&RNG,&MS1); if (rtn != 0) { printf("MPIN_RANDOM_GENERATE(&RNG,&MS1) Error %d\n", rtn); return 1; } rtn = MPIN_RANDOM_GENERATE(&RNG,&MS2); if (rtn != 0) { printf("MPIN_RANDOM_GENERATE(&RNG,&MS2) Error %d\n", rtn); return 1; } printf("MASTER SECRET MIRACL:= 0x"); OCT_output(&MS1); printf("MASTER SECRET CUSTOMER:= 0x"); OCT_output(&MS2); /* Generate server secret shares */ rtn = MPIN_GET_SERVER_SECRET(&MS1,&SS1); if (rtn != 0) { printf("MPIN_GET_SERVER_SECRET(&MS1,&SS1) Error %d\n", rtn); return 1; } rtn = MPIN_GET_SERVER_SECRET(&MS2,&SS2); if (rtn != 0) { printf("MPIN_GET_SERVER_SECRET(&MS2,&SS2) Error %d\n", rtn); return 1; } printf("SS1 = 0x"); OCT_output(&SS1); printf("SS2 = 0x"); OCT_output(&SS2); /* Combine server secret share */ rtn = MPIN_RECOMBINE_G2(&SS1, &SS2, &ServerSecret); if (rtn != 0) { printf("MPIN_RECOMBINE_G2(&SS1, &SS2, &ServerSecret) Error %d\n", rtn); return 1; } printf("ServerSecret = 0x"); OCT_output(&ServerSecret); /* Generate client secret shares */ rtn = MPIN_GET_CLIENT_SECRET(&MS1,&HCID,&CS1); if (rtn != 0) { printf("MPIN_GET_CLIENT_SECRET(&MS1,&HCID,&CS1) Error %d\n", rtn); return 1; } rtn = MPIN_GET_CLIENT_SECRET(&MS2,&HCID,&CS2); if (rtn != 0) { printf("MPIN_GET_CLIENT_SECRET(&MS2,&HCID,&CS2) Error %d\n", rtn); return 1; } printf("CS1 = 0x"); OCT_output(&CS1); printf("CS2 = 0x"); OCT_output(&CS2); /* Combine client secret shares : TOKEN is the full client secret */ rtn = MPIN_RECOMBINE_G1(&CS1, &CS2, &TOKEN); if (rtn != 0) { printf("MPIN_RECOMBINE_G1(&CS1, &CS2, &TOKEN) Error %d\n", rtn); return 1; } printf("Client Secret = 0x"); OCT_output(&TOKEN); /* Generate Time Permit shares */ date = today(); printf("Date %d \n", date); int yesterday = date -1; rtn = MPIN_GET_CLIENT_PERMIT(yesterday,&MS1,&HCID,&TP1); if (rtn != 0) { printf("MPIN_GET_CLIENT_PERMIT(yesterday,&MS1,&HCID,&TP1) Error %d\n", rtn); return 1; } rtn = MPIN_GET_CLIENT_PERMIT(yesterday,&MS2,&HCID,&TP2); if (rtn != 0) { printf("MPIN_GET_CLIENT_PERMIT(yesterday,&MS2,&HCID,&TP2) Error %d\n", rtn); return 1; } printf("TP1 = 0x"); OCT_output(&TP1); printf("TP2 = 0x"); OCT_output(&TP2); /* Combine Time Permit shares */ rtn = MPIN_RECOMBINE_G1(&TP1, &TP2, &TP); if (rtn != 0) { printf("MPIN_RECOMBINE_G1(&TP1, &TP2, &TP) Error %d\n", rtn); return 1; } printf("Time Permit = 0x"); OCT_output(&TP); /* Client extracts PIN1 from secret to create Token */ rtn = MPIN_EXTRACT_PIN(&CLIENT_ID, PIN1, &TOKEN); if (rtn != 0) { printf("MPIN_EXTRACT_PIN(&CLIENT_ID, PIN, &TOKEN) Error %d\n", rtn); return 1; } printf("Token = 0x"); OCT_output(&TOKEN); /* Client first pass */ rtn = MPIN_CLIENT_1(date,&CLIENT_ID,&RNG,&X,PIN2,&TOKEN,&SEC,&U,&UT,&TP); if (rtn != 0) { printf("MPIN_CLIENT_1 ERROR %d\n", rtn); return 1; } /* Server calculates H(ID) and H(T|H(ID)) (if time permits enabled), and maps them to points on the curve HID and HTID resp. */ MPIN_SERVER_1(date,&CLIENT_ID,&HID,&HTID); /* Server generates Random number Y and sends it to Client */ rtn = MPIN_RANDOM_GENERATE(&RNG,&Y); if (rtn != 0) { printf("MPIN_RANDOM_GENERATE(&RNG,&Y) Error %d\n", rtn); return 1; } printf("Y = 0x"); OCT_output(&Y); /* Client second pass */ rtn = MPIN_CLIENT_2(&X,&Y,&SEC); if (rtn != 0) printf("MPIN_CLIENT_2(&X,&Y,&SEC) Error %d\n", rtn); printf("V = 0x"); OCT_output(&SEC); /* Server second pass */ rtn = MPIN_SERVER_2(date,&HID,&HTID,&Y,&ServerSecret,&U,&UT,&SEC,&E,&F); if (rtn != 0) { err=MPIN_KANGAROO(&E,&F); if (err==0) printf("FAILURE Invalid Token Error Code %d\n", rtn); else printf("FAILURE PIN Error %d, Error Code %d\n",err, rtn); } else { printf("SUCCESS Error Code %d\n", rtn); OCT_output_string(&CLIENT_ID); printf("\n"); } return 0; }